' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   ՠ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`$$$$$$$$$$$$$$$$$$%$%$&$$$$$$$$$$$$$$$$$$&&$$&$$$$$$$$$$$$$&$&$$$$%$$$$$$$$$$$$$$$$%%%$$$$$$$$$$$$$$$$$$$&$$&&$$$$$$$$$$$$$&&$$$ u*`T*UPpx~@@*U* @ @P(U*U`?`!` 0` *U*UoP x@p? @ @" @P@ @T 8pq| @ЪժժժՀ@(  x~?@ PP*H}~=|@?`?  P(@U*U ЪՂՊpՠ с@@`?`@( DժժժЪժՀ50,126,140,128,130,130,120,132,110,134,100,136,90,138,80,140,70,142,40,144,50,146,40,148,30,150,40,152,50,154,60,156,70,158,80M4:10065)YB'6121,174:7121,174:10065MYG'S2:7121,174:S1:7121,174aYL'S2:7121,174pYQ'I04816wYV'1Y['I16:X,Y:MANX,YY`'I:MANOX,OY:OXX:OYYYe'PAUSE110:PAUSEYj'IYo'SYt': END OF END3~Z( 121,174,122,160,124,1PAUSE1500:PAUSE&XX%: END OF END21X' END3gX'X80120:MANX1,174:MANX,174:X:MAN121,174X'I130:X(16336):IX$'5121,174X)'OX121:OY174X.'MAN121,174X3'S15:0X8'S10045,10050,10055,10060,10065Y='5121,174:6121,17XC6XC255WhXCXC5'WrMANXC,Y>W|PAUSE120:PAUSEHWMOVENWYWT$ END1W$X80150:MANX1,174:MANX,174:X:MAN151,174W$W% END2W:%WEIGHT70,5:PAUSE11000:PAUSE:MAN80,174:WEIGHT70,5:WEIGHT70,148WD%TMSRN3XN%"*"RESFIRSOPSECDOP5VNEX$"/"RESFIRSOPSECDOPMVSTK$(SPTR,1)(RES)TVIkVPOLEX(STK$(1,1))qV V;Y14(ROAD1)40V@MOVE1((ANS$))VTXC0ĕMANXC,YV^((ANS$)0)8036V`XC250XC0VbXCXC5Vd((ANS$)0)8050 WfI1POLPTR1UvNEX$PLSH$(I)?U(NEX$)57(NEX$)487090OUSPTRSPTR1eUSTK$(SPTR,1)NEX$oU7170USECDOP(STK$(SPTR,1))USPTRSPTR1UFIRSOP(STK$(SPTR,1))UNEX$"+"RESFIRSOPSECDOPUNEX$"-"RESFIRSOPSECDOPVNEX$20(TPLSH$(I)"-"MUSEDMUSED1:6120NTPLSH$(I)"/"SUSEDSUSED1:6120tTPLSH$(I)"*"TUSEDTUSED1:6120TLEGALFALSE:TITAUSED1BUSED1CUSED1LEGALFALSETPUSED1MUSED1SUSED1TUSED1LEGALFALSETTXSPTR0 UlX$""S5850S 1SpAUSED0:BUSED0:CUSED0USzPUSED0:TUSED0:SUSED0:MUSED0gSI1POLPTR1SPLSH$(I)(A)AUSEDAUSED1:6120SPLSH$(I)(B)BUSEDBUSED1:6120SPLSH$(I)(C)CUSEDCUSED1:6120TPLSH$(I)"+"PUSEDPUSED1:61INFIX$)1INFIX$"":CR(INFIX$)1INFIX$(INFIX$,(INFIX$)1)IRXRNXTKN$CH$sR(INFIX$)1INFIX$""RINFIX$""ıRINFIX$(INFIX$,(INFIX$)1)RCH$(INFIX$,1)R(CH$)48(CH$)57ıRNXTKN$NXTKN$CH$S (INFIX$)1INFIALSEQ5100*Q(FINISHEDLEGAL)5640;QSPTR05640vQPLSH$(POLPTR)STK$(SPTR,1):POLPTRPOLPTR1:SPTRSPTR1Q5560QQDNXTKN$""QNINFIX$""FINISHEDTRUE:5920QXCH$(INFIX$,1)Qb(CH$)47(CH$)585830QNXTKN$CH$R(PNXTKN$"*"NXTKN$"/"THISPRITY2;P"THISPRITY15520cP,THISPRITY(STK$(SPTR,PRITY))5470P6PLSH$(POLPTR)STK$(SPTR,1):POLPTRPOLPTR1:SPTRSPTR1PT5420P^SPTRSPTR1:STK$(SPTR,1)NXTKN$:STK$(SPTR,PRITY)(THISPRITY)P|5100QLEGALF O5100ONXTKN$")"53907OOPRTR$STK$(SPTR,1)LOOPRTR$"("5360OPLSH$(POLPTR)OPRTR$:POLPTRPOLPTR1:SPTRSPTR1OSPTR0LEGALFALSE:5100OOPRTR$STK$(SPTR,1)O5290OSPTRSPTR1:5100ONXTKN$"+"NXTKN$"-"THISPRITY1%5 6500:2563( C(2)4X150:Y95A C(2)4X150:Y155Q 6500:2563h C(3)4X100:Y95 C(3)4X100:Y155 6400:2563 C(4)4X50:Y95 C(4)4X50:Y155 6400:2563 C(5)4X200:Y50 C(5)4X200:Y130  h S30ĺ"YOU HAVE USED UP YOUR 30 SHOTS":3100:"WAVE YOUR WHITE FLAG AND BEG FOR MERCY"o 2 I100160:0,I270,I:I:I0:7 II1 I2565,2568,2571,2574,2577,2580,2583,2586,2589 C(1)4X200:Y95 C(1)4X200:Y152560 ENTER COORDINATES5 CRD$"":CO0:ARROW0F CO$:COCO1 CO$(8)CO1ĺ::"**PLEASE RE-ENTER CO-ORDINATES **":2559 CO$(8)CO1ARROWARROW1:2700:2548 CO$(13)ī2558 CO$; CRD$CRD$CO$:PLACEPLACE1 2548@x@?`?P@P@*Q ЪԪժՀD* @ ժՊU*U~` ~P*U*`|'@PT*Us|x@p z?}{_z@*U*U@~x@@ @Ăp|?0@ԂԂ@ @ (@*U?U@ @T@~ժժժժժժ@"A(@xo}>`so`Ђ@@ DP~@x@?`?P @P*U ԊA*@A AԊU*U@*@0 @*U*0 @ @PT*U`@r@ @@*U*UŠ`P@B@c`Ao>@p@@ @@*6 0|ժ@ @P|p @_Ъժժժժժ@  8xC@ Њ@@  D"n@~?@?`? P @T*U ЊЊQ(ը@`?@A ԪŊԪժѪժժԂՠU*U@?x?@`0@*U*| @P U*U@xq?`0`3@ *U*U0xP(~G`P`@ @(**@b0pЪ@ @P@pժժժժՂ@(  `a}w|p`ЪP(A D*pp/@?`? P U*U ժժU_/ź@@`?@ "ԊЪժѪժՊŪU U*E*U* *P*( @ *P*U*(* T*U *P(E**U (*P*((P* *(U*@*T*(@*U*(U*E* (@*( *P(U( A**P"U *P( *U*(*P" ((U(CRUISER2"X30,YX30,Y3X7,Y10X,YX30,Y]" X18,Y4X18,Y10X10,Y10X10,Y8c"t"ZMINESWEEPER"dX,YX20,YX17,Y3X8,Y3X2,Y9X,Y9X,Y11X2,Y11X2,Y5X7,Y7X,Y"n@5,Y11!tZ!~$!BATTLESHIPQ!X35,Y10X30,YX,YX5,Y10X35,Y10!X30,Y10X30,Y15X25,Y15X25,Y10:X30,Y12X35,Y17!X,Y10X,Y15X5,Y15X5,Y10:X,Y12X5,Y17!X20,Y10X20,Y25X10,Y20X10,Y10! "302 zN160(Y1)202 73 M,NM26,N16F M,N16M26,NL a .AIRCRAFTCARRIERz 8X40,Y10X10,Y10 BX35,Y10X30,YX,YX5,Y10 LX30,Y10X30,Y20X20,Y20X20,Y10 VZX38X10 `Z,Y11Z7,Y15!jZ5,Y13ZEX % INCR CNTR WHEN SHIP SUNKD F(X,Y)2MNSWPMNSWP1:a F(X,Y)4CSERCSER1: F(X,Y)6BTLSHPBTLSHP1: ACCARACCAR1:M(X1)302N160(Y1)2022ZNN161M2,ZM24,ZZ pM(X1)+: " ";CSER;" CRUISER(S)"\D " ";BTLSHP;" BATTLESHIP(S)"N " ";ACCAR;" AIRCRAFT CARRIER(S)"P TTLSHPMNSWPCSERBTLSHPACCARR "YOU HIT ";TTLSHP;" ENEMY SHIPS ALL TOGETHER"T PAUSE13000:PAUSETERMINE TYPE OF SHIP HIT< F(X,Y)2ĺ"A MINESWEEPER";:[ F(X,Y)4ĺ"A CRUISER";:} F(X,Y)6ĺ"A BATTLESHIP";: "AN AIRCRAFT CARRIER";: PRINT SCORES AT END& "YOUR SCORE WAS - "0 " ";MNSWP;" MINESWEEPER(S)"0:CRD$"":2840 COCO2< CO0CRD$(CRD$,CO):2820H CRD$""a PLACE:PLACEPLACE1g T PRINT CONGRAT MESSG^ "CONGRATULATIONS !!"h 3100r "YOU STILL HAD ";30S;" SHOT(S) LEFT"| PAUSE12000:PAUSE 2561 SUBRTN-DAUSE13000:PAUSE:::12X( "WOULD YOU LIKE ANOTHER GAME:Y OR N: ( )";:38:Q$:Q$:o2 (Q$,1)"Y"ī1960< ::103,1:104,8:2048,0::(4);"RUN MENU" TEST BACK ARROW PLACE " "; ARROW3ĺ:"RE-ENTER CO-ORDINATES ";:ARROW0:CO 6300:2563& C(6)4X150:Y50? C(6)4X150:Y130O 6300:2563f C(7)4X100:Y50 C(7)4X100:Y130 6200:2563 C(8)4X50:Y50 C(8)4X50:Y130 6200:2563 16304,0:16300,0:16297,0:16302,0 PB@Pp@@x  $(CLOCK)9000$(#2:0A2#((CLOCK$,1))1100,16^<#((CLOCK$,1))1101,16}F#((CLOCK$,2,1))1124,16P#((CLOCK$,2,1))1125,16Z{wx{w4/Pwx{w4/]4/Z4444q4444444444444444444444447,0,36"t 36,12,140,218,146,148?~ 12,12,12,27,146,148,84[ 84,12,36,36,225,0,201u 0,178,0,174,0,159,0 143,0,133,0,118,0,101 0,87,0,72,0,56,0,48,0 28,0,13h9000rCLOCKCLOCK1|CLOCK860CLOCK900 CLOCK2,28,36,12,84' 84,10,160,0,4,12,12D$ 100,212,212,27,161,146`. 164,36,36,73,0,34,226{8 226,226,228,12,34,99B 228,12,140,140,18,96,0L 34,156,156,156,228,12V 140,12,12,27,220,140` 140,140,140,0,36,140j 228,36,226,98,9,100,227,163* 163,164,12,12,84,84,0,4F 100,28,100,218,148,18b 148,212,228,12,228,97} 161,161,0,35,163,163 163,164,12,12,100,33,0 4,84,84,12,100,36,26 148,212,212,228,97,161 161,0,4,84,84,84,84,36  212,212,216,37,54%f 54,60,36,32,28,45,45,45Cp 45,45,45,45,45,45,54,54az 54,62,62,63,63,63,63,63~ 63,63,63,36,36,36,36,0 38,50,255,196,32,79,45 56,4,32,222,45,45,34 220,36,12,12,35,210,156 228,0,62,44,9,0,4,228  74,148,84*P(U*(U(*P*(P T U @ @*(*P (*(((E*U* U*(*T**P(A*@ (*@ P***P(U*(U(*P*(@* @*T @ *(*P U*(A**( (E*U* U*( P**P * ( P*(*P(U*(U (*P*(@*(T* *(*P*T*(@**(0@` ``x@p @ H0 @p`@`80|Gp@000p@l x> @p  p?@@0 @p@ ?@x  @ x `@@p``ApxAp x@ p` 0 @@ @ 00p@`@ @ p`@@@_p`x1G ``@@~@` @8`h@ ` @@ |p@`@ @@pN~A|8@?\p @`9@@pppC@x0 @`!8`  qժժժժժժժ(U*UU<qS A A"p@ @@ЪժժԠժHժժժՂժժժժժժժ`U @ U*D<A ~"p@ Ъ@ Ъժ@*U* U*U*U*U*U <~ԀժժT*@ժժժժժժժ U*U*U <|?p @@ժ8ժժժxժժ U*U*U ժժժժժժժP <p *U*P*U*U*U*U*֪ժժժժժժժ0<@pЂ~ԪժժժժժժՊ(U*@U*<|?~"p l ըԪժժժժժժժ0@ <~?A"p @ժժժժժժժ@U*U<; A A"p @@ժЪՂHѪժժՀժժժժժժժ UT*U*U<A A~?p@ Ī@ ժՊ(T*(U*U*U*U*U*>x0ԪxP*UժժժժժժժP*U*U* <|p @@ԪՀ~/ժŪժժՂx`ԪՊ U*U*U*U@ժժժժժժժ@ <p *U*@*U*U*U*U*Ԫժժժժժժժ<! pp֪ժժժժժժ՚(U** P<A a"p ,՚ Ԫժժժժժժժժժ <|?A"p  ժժժժժժժP(U*U <|! |?A"p @@ՊЪՀHժՊժՀժժժժժժժ0 T A*E*<A A"p@ Ԋ@ ԪЂ(U*UU*U*U*U*U `~0`@@*ժժժժժժժբU*U*U*U<p @@ԪxժѪժժՂx@ԪժU*U*U*U*ժժժժժժժ@ <pp @*U*(@*U*U*Ԫժժժժժժ<!pЪԪժժժժժժ՚(U* @*(<|qA A~?p (Ԫ՚ @ժժժժժժժժժժՀ(@<~ A"p  ժժժժժժժ *U*(<FQS A ~"p @ՊժxЪՊxժժժժժժժժ(P U*U*<|A A"p@ Ԫ@ ժԪU*UU*U*U*U*ԪժժժժժժՂ@ 0@|?*UԪժժժժժժղP*U*U*U**<p @@ժpժժժժłx?@ժժ U*U*U*ժժժժժժժ@ < ~p P*U*U (T*U*U*Ъժժժժժժժ@<!pЪx?@Ԫժժժժժժժ(U* U*E <!A A"p`8 @ŪՀժժժժժժժՂ  U <aC a2p ԀԨЪԪЪՊԪՂՂՀ ԪԪժժ UЀՂժԀԂԀՂЊժԀЪԀЪЪԪժԀԠЪԪԪՊժժՂՂ ԪЪՊՊ ժՂЪժŪԪԀԂЀՀЊժԀժԀՂЪԪժԀԪԊժժժժժЀՀՊՂԪЪՊՊժՂժժԀЂЂЂԀժԀՊԪժԀԊԂժժժժՂԀժтՂՊՊԪՂՂŪՊժժԀЂЊЂЂՀԀժԀՊժժժժժժժՊ(U* <A A"p D  Ъժժժժժժժ P<<x~~?p0@~ƀԊԈ@@ ȄĈ@U @*U P P Ђт@ @T@(  U@ @@@@F@(ЀѪ@@Ѡ  Ѐ@T* P** ЄАЄАNKEY ADD SHAPES,A2304":232,0:233,9o(XCRD0:YCRD0:FSTN0:SECN0:PLUS12:MINUS14:EQUALS30:TIMES89:DIV95)ANSW0:AGAIN0:FACE0:NUMB0:CNTIN0:CHTER0h)MUNKEY97:RM102:HFACE100:SFACE101:10|)A COCONUT"!'14:"FOR LUNCH ?"P'16:"IF YOU GIVE ME THE RIGHT ANSWERS TO"|'18:"THESE PROBLEMS YOU WILL HELP THE"(20:"MONKEY TO REACH ITS LUNCH."(255::" PRESS ";::"ANY KEY";::" TO BEGIN ( ) ";:27:ANSW$::$(((4);"BLOAD MOE12500:PAUSEH&E' INIT VARS, SHAPE TBL & GRAPHICS DISPLAYSs$':(4);"BLOAD PIC.MONKEY WELCOME,A$4000".'PAUSE14000:PAUSE::'80:LOLIM0:HILIM0:0'10:" CAN YOU HELP THE HUNGRY MONKEY CLIMB" '12:"UP THE PALM TREE TO PICK W SAD FACE&%1#0%FACE0ī96205D%HFACE22,135N%SFACE22,135:FACE0U%2[%q% PRINT GOOD BYE%22:40):2%4080,100:8092,100:80104,100:69116,100: GOOD &14130,100:67144,100:90156,100:70168,100: -BYEC&PAUS25f!5668,50:7080,50:7790,50:77100,50: WELLl!69125,50:80137,50:79149,50:70161,50: DONE!2176,50: !!5380,75:7392,75:66104,75:79116,75:76128,75: THANK!90153,75:80165,75:86177,75: YOU$" % DRA MONKEY ON TREE& 1(0 FACE1ī8340HD SFACE22,135:HFACE22,135S FACE1n DRAW MONKEY CLIMBING~ DSPLAY12 YMUNKYMUNK5 MUNKEYXMUNK,YMUNK5:MUNKEYXMUNK,YMUNK DSPLAY !2 !4! PRINT OR ERASE CONGRAT MESSG\!X DRAW CHAR SHAPES ,lNUMBXCRD,YCRDBNUMBXCRD1,YCRDXNUMBXCRD,YCRD1pNUMBXCRD1,YCRD1v@ DRAW MONKEY SHAPESJ1TXMUNK260:YMUNK150MUNKEYXMUNK,YMUNKHFACE22,135FACE1:2 DRAW HFACE &NK SLIDING DOWN TREE$1:SLIDE402DWN155DSLIDESLIDE2wMUNKEYXMUNK,SLIDE2:MUNKEYXMUNK,SLIDE:DWNMUNKEYXMUNK,SLIDE:RMXMUNK,SLIDEI1130RMXMUNK2,SLIDE:RMXMUNK,SLIDE:XMUNKXMUNK2:IRMXMUNK,SLIDE:2&FLAGFLAG1rSUMSUMANSW6|SUM1NUMB48:6795ZSUMSUM10:SUM0NUMB48:6795SUM9SUM$(SUM):NUMB$(SUM$,1):NUMB(NUMB$)17:ANSW(NUMB$):6795NUMBSUM17FLAG0NANSW$"":6797NANSW$(NANSW$,FLAG) DRAW MOԀԀЪԪԀЊЂT*A DԠѡ@(ЀѪѠЈT* P** @@@*U(T( @@E @@D@@P*U@D@  Ԣ  @@ @ @ @@ Р ( @ Ј@* DŠЀ@(U* (Ԉ"@A  A  ЈD@@* E@  @ @P@@@ЀЂĀ@Ԋ@ժՊTP (@*T*@@ @ @ U*U*Р@@*P@ Ԣ T(@@  @ P(@@ р Ĩ  (Ơ@P"@( *P"@A U T Ѐ@( U @((@ @T @@@*ЂĨ@@ԂРժՊԂT @* U*(U*Ċ@@  @"U*P*(*Ţ@@  Т D*@@ A @ (@@B P @ T Ĩ@  ĈƀĨժ@ @  A"T@A U P@ РƠт@  T@ @ *T @ @ @@*U@*VЀĨ@ЊP (@ @ *Ђ@@  @P @ U*UP (U(Њ@  Њ@ @@ A @ *@@BၡD@ @@ A"T ĈШШ*U(T( @DU ԢŪРŒ @ (ŠЀU*UԈՂĈЈʤU*EЀЂĀĪժՊTP (@*T* @ U*U*РU ԢŪժĨԂł  (Ơ(U*UԪňĈЀʤU*UʡЂĨРբժՊԂ @* U*(U*Ċ"U*P*(*ŢU @Т@ĨѪĈƀĨ*U*UРƠU*Q¡TЀĨ (@ @ *ЂP @ U*UP (U(ЊU*@ЊԐ@ၡՂĈƀԊ T*UN$"Y"ĉ::410::,I WON THIS TIME!":S11000:S%@N$(1)", YOU HAVE $"DX[N$(2)", YOU HAVE $"DO"PRESS SPACE BAR TO CONTINUE":"PRESS ANY OTHER KEY FOR NEW SETUP";:16368,0:P$P$" "UU012(U02):U0U:540:"DO YOU WANT TO PLAY AGAIN";:N$ 7,32,10,32,14,32,15,32,16,32,17,32,18,32,19,32,20,32,21,32,35,32,7,33, 9,33,10,33, 11,33,12,33,13,33,35,33,7,34,9,34,10,34,35,34,7,35,8,35,9,35,35,35,7,36,8,36,35,36,7,37,8,37,35,37,8,38,35,38,36,38,37,38,38,38 8,39,39,39,-1,0:22:"HA-HA ,21,25,29,25,30,25,31,25,38,2512,26,13,26,15,26,21,26,30,26,38,26,11,27,14,27,15,27,21,27,22,27,28,27,29,27,31,27,32,27,35,27,36,27,37,27,38,27,10,28,13,28,22,28,35,28,9,29,12,29,22,29,35,29, 8,30,11,30,22,30,35,30,7,31,8,31,10,31,11,31,22,31,35,31Q202:W(Q,Q2)0940 hQ2:Q3r:((1)15)19|SA,B:A1čA,B:167024,19,25,19,34,19,24,20,26,20,33,20,34,20,35,20,23,21,27,21,28,21,29,21,30,21,31,21,32,21,36,21,22,22,23,22,37,22,22,23,27,23,32,23,38,23,22,24,38,24,13,25,14,25,15,251580J:22:N$(U);", YOU WON!":S11000:S:U2DODODL:1730]"DXDXDL:1730g,C$A$q6A$B${@B$C$JUU12(U2):TOGGLE BETWEEN 1 AND 2TDLDL100:DL0ĺ"VALUE OF GAME IS $0.00. NO WINNER.":S11000:S:1730^Q02:Z6780Z7820!Z8860.Z9900[V2(U1)1:W(Q,Q2)V:PLUS OR MINUS ONEQ02:Q30:Q40:Q202:Q3Q3W(Q,Q2):Q4Q4W(Q2,Q):Q2:Q33VQ43V1560QQ30:Q40:Q02:Q3Q3W(Q,Q):Q4Q4W(2Q,Q):Q:Q33VQ43V1560X13,Y13:X11,Y14:X14,Y14:X1,Y15:X15,Y15:1510xU2ďY12,Y13X1:Y12,Y13X15:X12,X13Y1:X12,X13Y15:X11,Y11:X14,Y11:X11,Y14:X14,Y14:1510R2Z1580Z2620Z3660Z4700Z5740Iz#    ՠ!î٠٠!ííŠӠ" î̠Š!î̠Š!ҠŠîҠŠ!٠٠ĠӠ î٠Š! ŠŠӠ!ӠŠŠ!̠Ӡ K,189:SP,Q2:TP,2:RW:TP,18:RW:K,157g "ANOTHER DISK? ";::" "(8);:200::(P):P21750m P(16384):P128200 16368,0: DRT DISK TO BE INITIALIZED"::" PRESS WHEN READY"Q <200:P14160l F:"VOLUME NUMBER: ";V d:D$"INIT A,V"V BF20:BP,BF:TP,17:SP,Q1:RW I036:TP,IQ:SP,IQ(TP):BFBF1:BP,BF:RW::SP,Q1:RW:K47282:Q16K47240- ,,, tPOLEX(ANS$)İ7995:MOVEALONGPATHIHPOLEX(ANS$)2150I\23:"YOUR ANSWER DOES NOT MATCH THE SENTENCE"I^"THE CORRECT ANSWER WAS ";::POLEX:IaPAUSE1PL:PAUSEJ25):H1900>H6000:CHECKTHEOTHERLEGALITYREQUIREMENTSNHLEGAL2040rH23:"THIS SENTENCE IS ILLEGAL"HPAUSE1PL:PAUSEH23:25):H1900H23:29)::23H "YOUR ANSWER : ";ANS$%I%((ANS$))(ANS$)ĺ"ANSWER MUST BE WHOGA(10(1))!G&B(10(1))/G+AB1830@G0C(10(1))RG5ACBC1840hGD:A;" ";B" ";C:xGl22:30):G22:"YOUR NUMBER SENTENCE : ";INFIX$G5000GLEGAL1990G23:"THIS SENTENCE IS ILLEGAL"GPAUSE1PL:PAUSEH23:KF,J,YJ9,YF6KF@J%FJI,F^07FhI14JFrX((1)48)1TF|XX5dFHOLE(I)X5oFJ15FX1,20(I1)40JX5,20(I1)40JFJFIFROAD14FLEGALTRUEFPL2000F21:30):F21:"YOUR NUMBERS ARE : ";$(50,2)HETRUE1:FALSE0:230,32:62450::NOMOVES0:TMSRNTMSRN1:XC0OE7ZEI14eEJ15yEX20(I1)40JE1,X250,XEJEIE2EI14EI2(I2)X11EI2(I2)X1EJX25020EK15F"Y20(I1)402 UNITS."7D:"THE LARGEST NUMBER IS NOT ALWAYS THE"FD:"BEST."sD:"YOU MUST USE ALL THE DIGITS AND YOU"D:"MAY ONLY USE EACH OPERATOR ONCE."D:D"PRESS ";::"ANY KEY";::" TO BEGIN ( )";:25:A$DD 230,32:62450ESTK;::" TO CONTINUE ( )";:28:A$)C:3WC"YOU THEN TYPE THE ANSWER TO THE NUMBER"C:"SENTENCE YOU HAVE MADE. IF THE ANSWER"C:"MATCHES THE SENTENCE THEN YOU MOVE"C:"THAT DISTANCE ALONG THE PATH." D:"EACH BLOCK IN THE PATH COUNTS . YOU DROP TO THE"?Bt:"NEXT PATH BY STOPPING ABOVE A HOLE."iB~:"TO MAKE A MOVE YOU MAKE A NUMBER"B:"SENTENCE FROM THE THREE DIGITS YOU"B:"ARE GIVEN, THE OPERATORS +,-,/,* AND"B:"BRACKETS -- ()."B: C"PRESS ";::"ANY KEY" SHAPES,A37632":232,0:233,147:37500eA3:23:"DO YOU WANT INSTRUCTIONS:Y OR N: ( )";:35:A$:A$xA5A$"Y"ī1286A8:AB" ESCAPE"AL" ------"AVA`"THIS IS A GAME PLAYED AS A RACE"Bj:"TO MOVE ALONG A PATH @1010%@MAN1:WEIGHT3:1:0/@1050e@(222)133Ģ23:40):23:"DON'T DIVIDE BY ZERO"o@2022@::230,32:62450:@$16304,0:16300,0:16297,0:16301,0:TIMESTHRO1@.(4);"BLOAD ESCAPE WELCOME,A$2000"&A0(4);"BLOAD ESCAPE          XXXX` XXXXX` XX LNrNN IIIIIII1=-# $"-- 8-O 2&$$,d 66#$$@q666 L```XXXXXXXXܓܒXXXXXXXXXXXX`LLb X`XX` XX`IX`I`NrNIIXXXXXXXXܛܓXXXXX@a@'>(?e# $"-- 8-O 2&# $"-- 8-O 2&6>?????777777777777777777777777>,HI I------555555555555555555555555>???????????????????????????????????EHIII >>676-.%$?666----666UJIIII  T*U@@*U*ԪԊ@ @(U*U8x@@ *U*U xA@" `<~}0ժ@ ~("QxpՊ@ @P `Ax} @ժժժ@(  <`yx_?ժժQ @@P*`~@|{>@? P(@U*U |P* Ţ@@`? @*@PժЂQP*U`c*U*@Њ@ @U*U`p@ *U*U@@  8p~ ժ@ x*TQ>`x@pԊՂ@ @ @ժ@(" xG ppԪժժըA @ T*~~?@?DP(@ U*UxpтD*!p@`?`_~~~_PЪժժՠժՂժժ P*U  (U @`Ъ @U*UxA?`@@P*U*UԂ`@P 8p_~@` np@ Ѐ@ @@(" `x?@?xaAՊԪժժժժ@A"(T*p@h?DP @ U*U|DT Ԁ@@?`?0PP@ QUԢՂЊժժЂՊD*T P*Up U*p0Ԫ @U*U` `xP*U*U@0|@P `q@~0Պ@@(px;@ժ@ @(@@{kauW0|a?|8|XժժժժժՀ@A          1:PAUSE13000:PAUSE:2540< PRT DUPLICATE SHOT MESSG "WAKEY-WAKEY! YOU HAVE ALREADY SUNK ":" ";:3000:" AT THIS POINT":2530 S30ĺ"YOU HAVE ";30S;" SHOT(S) LEFT ":2386 PAUSE12000:PAUSE ::12:62450:FLAG1ī2900 ,Y)0ĺ"WAKEY-WAKEY! YOU HAVE ALREADY HIT":" ";:3000:" AT THIS POINT":2530` B(X,Y)F(X,Y) "DIRECT HIT ON ";:3000::6000 C(F(X,Y))C(F(X,Y))1 C(F(X,Y))4ĺ" AND YOU SANK IT":LL1 C(F(X,Y))4İ3200 L82530 L8FLAGF6"I!)2 5F$+K)7",)&1 5GHED^_TRQP]WV_\dXqMU>_>UFNNF4/(3D(*3D(+F 7.!DHE4&)##DVHK]EOOE^WRUWdql54Tepn!Nf:2545FS (CRD$)3ĺ"**USE COORDINATE NUMBERS - RANGE 1..8**":2386T (CRD$,2,1)(44)ĺ(7);(7);"**USE COORDINATE NUMBERS - RANGE 1..8**":2386U X$(CRD$,1):Y$(CRD$,2)V (Y$,1)","Y$(Y$,1))X ((X$)48(X$)57)((Y$)48(Y$)57)SHOTS TO DESTROY THE ENEMY:"NH INIT SHIP SCORE CNTR TO SUM NO. HITS MADE rJ MNSWP0:CSER0:BTLSHP0:ACCAR0P PLACE30:"CO-ORDINATES FOR FIRST SHOT ? ";:2545:2387Q REPEAT UNTIL ALL SHIPS SUNK OR 30 SHOTS FIREDR PLACE12:"NEXT SHOT ? ";S1 F(XJA(D),YJA(D1))I'J.I7:7GI024030VI,0I,160] Im I016020| 0,I240,I$ I) 0,159240,159. C(1)3:C(2)3:C(3)2:C(4)2:C(5)1:C(6)1:C(7)0:C(8)08 L0:S0:23D ::F " YOU HAVE 30 *P0P92040#4QYJA(D1)5>Q0Q92040IHF(P,Q)02040PRJ]\J0S1mfX1XJA(D)pY1YJA(D1)zK172X1A(K)9X1A(K)02210Y1A(K1)9Y1A(K1)02210F(X1A(K),Y1A(K1))1KJJ0 PLAYER230,32:62450.TTLSHP0:FLAG0C SET UP GRID eA(1)1:A(4)1:A(5)1:A(8)1I18:J18:F(I,J)0:B(I,J)0::I811S((I1)2)X((1)81)Y((1)81) D((1)4)21J0S1 PXJA(D)HE SAME DIRECTION"=:"OTHERWISE TRY SHOOTING ON ANOTHER"e:"ADJOINING POINT - POSSIBLY 3,3"24:"PRESS ";::"ANY KEY";::" TO CONTINUE :( )";:29:Q$:15:10);::" PLEASE WAIT ": INIT FLAG TO MARK WINNING SHOT BYONSECUTIVE"0 (:13);"POSITIONS OF THE GRID."_ <:"IE. TO SINK THE AIRCRAFT CARRIER YOU" P:"MAY SCORE A DIRECT HIT AT POINT 3,4" d:"YOU MAY THEN TRY SHOOTING ON POINT 4,4" x:"IF YOU SCORE ANOTHER DIRECT HIT THEN":"CONTINUE IN TE A"4 :"DIRECT HIT ON EACH OF IT'S CONSECUTIVE"b :"- ADJOINING - POSITIONS ON THE GRID." 24:"PRESS ";::"ANY KEY";::" TO CONTINUE :( )";:29:Q$  :"FOR EXAMPLE: AN AIRCRAFT CARRIER LIES" "-----------" 13);"ALONG 4 CERS (4 DIRECT HITS); >" - 2 BATTLESHIPS (3 DIRECT HITS)` @" - 2 CRUISERS (2 DIRECT HITS) B" - 2 MINESWEEPERS (1 DIRECT HIT) G255: L24:"PRESS ";::"ANY KEY";::" TO CONTINUE :( )";:29:Q$ :10:" TO SINK A SHIP YOU MUST SCORENEMY FLEET."; :"YOU HAVE ONLY 30 SHOTS WITH WHICH TO"h $:"DO SO. YOU SHOOT AT A POINT IN THE" .:"GRID BY GIVING ITS CO-ORDINATES," 8:" ACROSS,UP EG. 4,6" ::"THERE ARE 8 HIDDEN ENEMY SHIPS " <" - 2 AIRCRAFT CARRI548 ::14:6& "BATTLE SHIPS"> 14:"------------" 8:"DO YOU WANT INSTRUCTIONS:Y OR N:( )";:34:ANSW$:ANSW$: ANSW$"N"ī1960 8:40) 90 10:"YOU ARE COMMANDER OF A SHIP AND YOUR " :"MISSION IS TO DESTROY THE  :,230,32:62450%:7JX70:Y50:6200:X200:Y50:6200oX70:Y90:6300:X200:Y90:6300X70:Y130:6400:X200:Y130:6400X70:Y155:6500:X200:Y155:6500&PAUSE14000:PAUSE 'CO$(8)CO1ARROWARROW1:2700:2          P*(*(U*@*UP* P*U*(Q*E*U (U((  U *P(U ( U**P"U *P((((*P(U( U(*(U*(EP*E*T P U ( (U *P U U**PU *P ( (*PT(U* U* U*(E (*U@* P*U*(@**TP U * *U *P @*UU**PP* T*P ( (*PP(U*(UT* U*( ((U (U@*@*(**PP*U ((E*U* @*P *T0T**P@*@*P          C:SH$(C):'HM(115)256(116)5 BMHM273E233,BM256\ 232,BM256(233)x* 0,48,88,31,214,18,1464 101,46,55,60,35,219,165> 46,55,60,35,219,165,46H 55,60,32,88,88,88,88R 240,88,251,177,146,148\ 45,54,63,36,21VEHICLEBP,Q37B(BPCOLQROW)(BPVLQ40)6170=LGX1:0RbZERO1\lWUN2fvTWO3rTHREE4}FOUR5FIVE6SIX7SEVEN8EIGHT9NEIN10PT11MAN12BUS13:VEHICLE13SH$(272)I0272)10)ROWROW40:COLCOL25A(ROWQ(ROWQCOLBP))6170MBPBP5cVEHICLEBP5,Q3|BP250BPVL:QQ40VEHICLEBP,Q3(BPCOLQROW)(BP250Q120)6080BPBP5$VEHICLEBP5,Q3.BPVLBP250:QQ408";:37:Q$:Q$$H(Q$,1)"Y"1400=R::(4);"RUN MENU"](DF$)5010,5020,5050,5080sJMP((1)2)1:JMP((1)3)3JMP((1)7)5JMP((1)8)16pVL20ROW(((NXTSTP1)10)1)COL(NXTSTP(ROW140,187.X40140*/VEHICLEX1,187=0VEHICLEX,187D1XK213B1BCOUNT:MAN130,187:X130711:MANX1,187:MANX,187:4Y1871501:MAN70,Y1:MAN70,Y::MAN70,149:6::11>"DO YOU WISH TO PLAY AGAIN :Y OR N: ( )SE12000:PAUSE:1900I(::5P9:5:"YOU HAVE ARRIVED AT SCHOOL"[12:5CLOCK900ĺ"AND YOU ARE ";CLOCK900;" MINUTE(S) LATE"*(4);"BLOAD PIC.SCHOOL HOUSE,A$2000"+16304,0:16300,0:16297,0:16302,0,2-VEHICLECOUNTBCOUNT1"BUSTP(NXTSTP)060:TT1(NE$)_((NE$,TT,1))1BP21(TT1)6,Q8gTTq8040KIDS10NXTSTP30:6000:2071NXTSTP301902::I130 BUSTP(I)1ĺ" YOU HAVE NOT COLLECTED ALL THE CHILDREN":PAUNXTSTP302036ZNXTSTP1Ģ22:"THAT IS NOT A BUS STOP":PAUSE12000:PAUSE:1902oPREVSTP$NXTSTP$6000:MOVEBUSBUSTP(NXTSTP)12030ROW((NXTSTP1)10)1COLNXTSTP(ROW1)10MANCOL2510,ROW401:KIDSKIDS1B2k}NXTSTP$PREVSTP$Ģ22:40):22:"*** YOU ARE ALREADY AT THIS BUS STOP ***":PAUSE1600:PAUSE:1902~NXTSTP(NXTSTP$):NE$NXTSTP$DFNXSTPSTARTDFJMP(DFJMP)Ģ22:"THAT IS NOT A BUS STOP":PAUSE12000::1902NXTSTP1DFJMP10 :MANCOL2510,ROW401% DI8 XVEHICLE20,37G ]BP20:Q40a l INPUT FOR NEXT STOPo n:22:10 v"NEXT BUS STOP--";NXTSTP$ wNXTSTP$""1902 xI1(NXTSTP$) yP((NXTSTP$,I,1)):P48P57FLAG1 zI{FLAG1FLAG0:190(I$)129(I1)6,48 I@ 7:95,095,20148,20148,095,0O PT113,14] PT113,8 CLOCK850:CLOCK$(CLOCK):9000 I09 BUSTP((1)26)3 BUSTP(BUSTP)11800 BUSTP(BUSTP)1 &ROW((BUSTP1)10)1 0COLBUSTP(ROW1)/ JMP1JMP2STARTSTART35:START$(START)e JMP3JMP4JMP5STARTSTART50:START$(START)v 0:1:KIDS0 I1(START$) I$(START$,I,1) (I$)14(I1)6,48 I SEC$(STARTJMP) I1(SEC$) I$(SEC$,I,1) $"1"DF$"2"DF$"3"DF$"4"14000 5000H 230,32:62450::7X I116040c J09| 1,I39J250,I39J J I 0:BCOUNT0 "I2524025 ,I,0I,150 hI w0 |START$(((1)30)40(JMP)) START(START$)::10 10:"WHAT LEVEL:":E 15::"1";::" ...CADET DRIVER"K s 15::"2";::" ...TRAINEE DRIVER"z : 15::"3";::" ...DRIVER"  15::"4";::" ...SENIOR DRIVER"  10:"YOUR CHOICE: ( )";:24:DF$:DF$& DF16386:DFSTARTXCTSTP#<0uF::10:" COPYRIGHT":::" ELIZABETH COMPUTER CENTRE 1980"P(4);"BLOAD PIC.SCHOOL WELCOME,A$2000":16304,0:16302,0:16297,0:16300,0ZBUSTP(40)d7000:SHAPESnPREVSTP$"" x     @px @p@@ @ pp@p @? @@@~@x 3 0  Anc @@>@@ 8@` @0@p0@` @A @ @` @8 `  `@D31@@@`x0`st@@@ ` @ ~8p@@C @ @  @`} @p `@|t@8@ 8`  ~G|@@x0p@<0````@@  0|@000@0 O @#p00@          ժժժժժժժ@"P*U*E*<DPs A ~?p @@ժժ@ժՊ|ժժժժժժժժժ (U*(U<|?A"p@ Ԫ@ ЊԊՊT*U (U*U*U*U*ժժժժժժժՊ@` p*U*P*U*U*U*U<p  @@ժՂ ժժժժxժժU*U*EժժժժժժժC@ |A~?p0@*U*UT*U"تժժժժժժժA<!pЊ``ЪժժժժժժժpO U*(Q U<A A"p@ժ ЪժժժժժժժՂ|  U*<|1A ~~?p 0ժժժժժժժժ*U*U*U*U<lpA p @ժժժՂxժժժժժժժժժ(T*U(<A A"p@ Ԫ@ ՀժժժՊԂ(U(U*U*U*U*U*ժժժժժժժՊ@|*U*|@*U*U*U*<p  @@ժՂ`ժժժժ@~ժՂU*U*Uժժժժժժժp{@ <A#p`@(U*U*(Ъժժժժժժժ <1p~ تժժժժժժx@ U*(U*<|?A"p@  ժՊ@ժժժժժժժ U*<A A"p F ժP*ժժժժժժժA U*U*U U<<A!p @@ժ~ԪժժՀxՂՂժժժժժժժ T*U"<A ~~?p@ Ъ@`ԪŊժժժxТժŊԪP*U(U*U*U*U*A*ժժժժժժժ՚`<@Њx(U*@*U*U*U <pЪ @ժժժժ|~Ԫ*U Uժժժժժժժx@ <~A"p@@@T*U*UЪժժժժժժժ<1p p Ъժժժժժժ@ U*U T<A A"p@0 ժժժժժժժժժՆ(U P <A A"p F ժժ@*ժժժժժժժ U*U*U*<!p @@ժЪժժՀ|ժըժժժժժժժ @ U*P*<@q A A"p@ @@ԪՠժժժժXЪժՊ*U U*U*U*U*UԪժժժժժժՊ <@~Պ@T*U*U*U*U*U*<px ժժժժ`|Ԫ@ժժժժժժժ`<|8A"p@_*T*U*Uժժժժժժժ<1p0            <241,30,30,30,54,14,14145,12,12,228,63,30,0K45,45,45,54,30,30,30g54,6,0,41,45,117,54,3063,63,28,36,150,50,11845,45,12,36,0,41,45117,54,62,63,63,28,36150,146,14,45,45,12,360,146,146,82,33,44,53,62,39,5,0,12,12# 54,54,54,54,0,18,100,45@*45,14,54,30,63,63,30,54\446,45,45,5,0,45,45,117w>54,30,63,119,73,54,30H63,63,7,0,73,41,54,54R54,54,7,88,88,56,63,39\12,12,12,0,45,45,45f222,219,51,54,45,45p117,54,30,63,63,7,0,73z SEVEN8EIGHT9#NIEN10-PT11B232,252:233,29W115,252:116,29iSB76767853xA:SB,A:11,0,24,0,39,0,47,0,630,77,0,93,0,109,0,124,0134,0,151,0,168,0,9,45 14,14,54,54,30,30,63,2828,36,36,12,0,82EFTXTPLEFTXTPLEFT10A((NUMBER$,1))1XTPLEFT,YTPLEFTGZpYTLEFT25Y10qzXTLEFT40(X1)15PYTLEFT5YTLEFT10XTLEFT8,PXTLEFT15,PPX1:0bZERO1lWUN2vTWO3THREE4FOUR5FIVE6Q$)(Q$,1)"Y"Ĺ230,32:62450:1510@:(4);"RUN MENU"VNUMBER$(NUMBER)jYTPLEFT25Y10(NUMBER$)5040,5080XTPLEFT40(X1)15(NUMBER$)1XTPLEFT,YTPLEFTXTPLEFT40(X1)15((NUMBER$,1))1XTPLEFT,YTPLT1OPP0NENTRI137-\TABLE(I)117704fIMkPAUSE11500:PAUSEYz::12r"CONGRATULATIONS ";SUM(0)SUM(1)ĺPLAYER$(0);SUM(1)SUM(0)ĺPLAYER$(1);" YOU WIN":"DO YOU WISH TO PLAY AGAIN:Y OR N:( )";:35:Q$:S SCOREJ17#Y((I1)7)/XIY7<NUMBERIF5000MJdC(OPP0NENT):6000s TABLE(I)0SUM(OPP0NENT)SUM(OPP0NENT)I 21:OPP0NENT20(PLAYER$(OPP0NENT))4OPP0NENT:SUM(OPP0NENT)*I>PLAYER1PLAYER HOPP0NEN0vIxC(PLAYER):6000.TABLE(NBR)0NSUM(PLAYER)SUM(PLAYER)NBRt21:119PLAYER:PLAYER$(PLAYER)21:20PLAYER(PLAYER$(PLAYER))4PLAYER:SUM(PLAYER)I1NBR2TABLE(I)0(NBRI)NBRI2090FACTORSOADDTOOPPONENT'R:";NBR$:NBR(NBR$)" 22:40)3 NBR401820I (NBR)NBR1820` TABLE(NBR)11860 22:"THAT NUMBER IS NOT IN THE TABLE" &PAUSE11500:PAUSE +22:40) 01780 DI17 NY((NBR1)7) XXNBRY7 bNUMBERNBRl500IY7 TNUMBERI ^5000$ hI? |21:PLAYER$(0);" 0"^ 21:20:PLAYER$(1);" 0"j I137 TABLE(I)1:TABLEFULL I SUM(0)0:SUM(1)0 PLAYER0:OPP0NENT1 21:119PLAYER::PLAYER$(PLAYER): 22:119PLAYER:"NUMBE2' "NAME OF PLAYER 1 --";PLAYER$(0)/ :U "NAME OF PLAYER 2 --";PLAYER$(1)u 7000:GENERATENUMBERSHAPES~ :3 X024040 X,0X,150 X 279,0279,150 Y015025 0,Y279,Y "Y 6I137 @Y((I1)7) JXSEN IS ADDED":8 "TO THE PLAYERS SCORE, AND ALL THE"h :"FACTORS OF THAT NUMBER ARE ADDED TO ": "HIS OPPONENT'S SCORE. PLAYER 2 THEN": "MAKES HIS CHOICE ETC."::: "PRESS ";::"ANY KEY";::" TO BEGIN : ( )";:27:A$:A$ :1:Q$& <TABLE(40):::230,32:624508 AC(0)6:C(1)2> KT N(Q$,1)"N"1460t P" FACTOR GAME" Z" -----------" d:"A GAME FOR TWO PLAYERS.": n"A PLAYER CHOOSES A NUMBER FROM ": x"THE TABLE. THE NUMBER CHO 2::1164" ELIZABETH COMPUTER CENTRE"@6::d8" COPYRIGHT 1980."9(4);"BLOAD PIC.FACTOR WELCOME,A$2000":16304,0:16301,0:16297,0 ;PAUSE12000:PAUSE:22:"DO YOU WANT INSTRUCTIONS:Y OR N: ( )";:35:Q$     ЪժԀԊԂժժժժՊԀժՂՂժЪժԪՀՀՊժѪԀЂЪЪԪЂՊԀժԀժЀЪժԀЊԂժժժժԀժՊՊ ЪժԪՀՊŪѪԀЂԪԪԪЂժԀժԀժժԀԂԂՊՂԪժԀըՊЪ ԪժԪՀՂժԀժժЪЂժ@ԀԪԀժՀ ժԀԂԀՂЊժԀըЪԪՂԪ@Ԁժ0ԀԪժժPЪԂժ@                9700:6490LAGAIN1(V22:40):10@j1:HFACE22,135:2c ERASE CONGRATULATORY MESSAGEm8500sZ^ ERASE INDIV CHARS`YCRD120bSUM99FLAG2XCRD155:6760cSUM9FLAG1XCRD140:6760fXCRD125 h4:7000:7:FLAG0CLIMBING TREE, TEST REACHING TOP*8200R TEST MONKEY REACHING TOP OF TREEtYMUNK40AGAIN2:5800:64905800:8500:6800:PAUSE1500:PAUSE22:"DO YOU WISH TO PLAY AGAIN:Y OR N:( )";:35:ANSW$:ANSW$ 8ANSW$"N"AGAIN3:8500:RD120:7000% ERASE CHARS54:YCRD100K DEL 1ST OPERANDU5000h DEL OPERATORr5340 DEL 2ND OPERAND5400 DEL EQUALS5750 ERASE ANSWER XCRD125:NO$NANSW$:4000H7\ p DRAW MONKEY XCRD15%(FSTN$)1XCRDXCRD303NO$FSTN$=4000C` DRAW OR ERASE OPERATOR}NUMBOPTR:XCRD145:7000 DRAW SECOND OPERAND,XCRD170:NO$(SECN)@4000Tv DRAW OR ERASE EQUALS NUMBEQUALS:XCRD105:YC:104,8:2048,0&:(4);"RUN MENU"7 DRAW CHARSGI1(NO$)\NUMB$(NO$,I,1)z(NUMB$)0NUMB48:4100NUMB(NUMB$)177000XCRDXCRD15,I@ DRAW FIRST OPERANDXCRD90:FSTN$(FSTN)(FSTN$)2XCRD:NANSW$""d TRYS2ī2000Cn PRINT CORRECT ANSW AFTER 2 TRIES[p PAUSE1200:PAUSEs NO$(TTL):XCRD125:YCRD120:4000r (7);(7)| PAUSE13000:PAUSE:SUMTTL:NANSW$(TTL) 5800 ERASE CHARS, RETURN TO START 460::103,1` 7000t SUMSUM10ANSW% 2000L( SUMTTLİ6000:AGAIN130,460,3980r< DRAW SAD MONKEY, DEL WRONG ANSW|@ 9500A 4B YCRD120:XCRD125:NO$NANSW$F 4000M 7N WRONG ANSW ERASED, INC TRYS CNTR & TRY AGAIN P TRYSTRYS1:FLAG0NANSW$NANSW$ANSW$:FLAGFLAG1: FLAG ANSW. DIGITSeFLAG3ī2600: ACCEPT ONLY 3 DIGIT INPUTANSW(ANSW$):YCRD120ANSW0NUMB48:2260NUMBANSW17FLAG1XCRD125:SUMANSW:7000:20008 FLAG2XCRD140:2400L XCRD1550 PRINT EQUALS (=)#5750.ANSW$L CHECK ILLEGAL CHAR INPTjFLAG0ANSW$(13)ī2000HANSW$(13)ī2600RANSW$(8)İ6750:2000\CHTER(ANSW$)pCHTER48CHTER57İ9500:2000: DRAW SAD MONKEY, RETURN FOR NUMERIC ANSW6OPTRTIMESī540U TEMPFSTN:FSTNTTL:TTLTEMP: SET UP SUCH THAT TTL = FSTN/SECN  LOAD CORR. SHAPE FROM LOCN 17+ PETERS SHAPES 7  PRINT 1ST OPERAND YCRD100 5000  PRINT OPERATOR 5340  PRINT 2ND OPERAND540 LOAD DISPLAY$  RESET CNTRS = 0F SUM0:FLAG0:TRYS0:NANSW$""M 2j FSTNLOLIM((1)HILIM) SECNLOLIM((1)HILIM) OPTRMINUSFSTNSECNī500 OPTRMINUSTTLFSTNSECN:540 OPTRPLUSTTLFSTNSECN:540 TTLFSTNSECN :LOLIM1:450' THILIM10:LOLIM0:450Y ^(OPTRTIMES)(OPTRDIV)HILIM8:LOLIM3:450s hHILIM16:LOLIM5:450 w(OPTRTIMES)(OPTRDIV)HILIM7:LOLIM6:450 |HILIM81:LOLIM20 230,32:62450::(4);"BLOAD PIC.MONKEY DISPLAY,A$2000":8000: 1) EASY"/ :" 2) MEDIUM"_ :" 3) HARD PROBLEMS ? " :" YOUR CHOICE ( )";:19:CCE$:CCE$ ,CCE$"1"CCE$"2"CCE$"3"ī200 6CCE(CCE$) @CCE330,350,375 J(OPTRTIMES)(OPTRDIV)HILIM5 4) DIVIDE"7 :" YOUR CHOICE ( )";:18:CE$:CE$e CE$"1"CE$"2"CE$"3"CE$"4"ī130s CE(CE$) CE170,180,190,195 OPTRPLUS:200 OPTRMINUS:200 OPTRTIMES:200 OPTRDIV :::"DO YOU WANT - " :" ; (375002230,64:62450Pd INIT VARS, SHAPE TBLS & GRAPHICS DISPLAYS[x10000z:::"DO YOU WANT TO - ":" 1) ADD":" 2) SUBTRACT":" 3) MULTIPLY" :"            ZIII+-H X?!$$XI^yI ۓ$$$,(+(`  -67??? $MIRI- X)-6.$$?'X `2_I![II u666O(06 0666?'XII   $$$X ??X6$jI`X 66X)- 56 X I p%KII KI9??II66-;?$ 66M[  Xb\! ((JPXq??O9II Hy1}I --66ٛ-2 ȳIIII"ۓ"$       (-66???# X $TT $$$$TTTTc IT dTT d $ $ATTTT`TT [6366-e -$`ss pe-)"X l  ۫2----- X$$ %---666-;'% 6 I pγ  VRp,(P  O p?'$ TTTa!$$#d!Ԕ  $TTdRTT  T$$ $$$ T $$ RT $$ $$$a $$#$$T!$ !$$$TT $a$Ԕ#d$ T $ԔڤaR$$$#d$$aTTTT  TTTI$TT$!$#$ d$$ a$$ $R T$$a$$Ԕ$$ $aԔ$  $Ԕ$$ $  Ԕ$ TT dT  $$䣡!a$$$$$ $$$$ R!$$$$$d $ $d $TTTT # TT$$!A !$$#` JTTTTI a!T#d a$Ԕ$$$A a$ I !#a   Ԕ $$ T$ !$$ R$$TTT TT Ԕ$$$aܛ$$ T TTT $$Ԕ$$$TTTT$TTT#!$$TTTT!#$dTTT$$$RTTR$$$a$$TT TT $$$$$$RI TTTT$$$$$ Ԥ J$$T$$dT#$$$Idb $ddL "  $ $  $ $ LL$ Hcbbb#a$`bbb" ` $$ TT ڌ $$ab$$ 䜜"` c" "I$$d  TT $$TTTTaԔ$d TT!d #a ԔddTT dTJ`f$*2:MWZbek".APcq$5GWan{%.ANV^ks&.4?F&,I  $$ "$!$R!$       рP@  ЂA@A A @ "@@BᐡT@ P@ @*  ĈԈ@ȄĨ@Т @ @ ը@@ Ԁɂ @*A@ @@Š@@@ U  @ @ @@ѠQЀ@(@*Q* @ рĀТ@*@ Ѐ @*@A @ @ T "@@Ђ(@ P@ *  @ P Р@@Ƞ@ @ @@ЪɈ  A@ @@ŀ@@@ԂP (*E@@(P*U@@ԠЀ@ (U** р @ Ģ@*@A @ @ @ @@р @ P@ *Р @ U*UРP  @@ఆ@*@@ ŠՐ@U**U P*Uŀ@D@@ӈ @@ @@ŀ@@  @*TP@ @*U@@@ T*U*@TЀ@T* ĪP @A @ @ @ @@@@  Ԡ@@  U*Ъ@ @@ఄ@(U"@ PŠ@А@@*U@D"@Ȅˆ @  A@                 04,96:24576,0::(4)"RUN MONKEY": dd:(4)"RUN"DN$(D3) d "PROGRAMS AVAILABLE ARE:","MONKEY","SCHOOL BUS","ESCAPE","FACTOR GAME","BATTLESHIPS" ,e "","WHICH OPTION" GAP:10:D2$;" ( )";:12(D2$):D3$:D3$F dD3$"1"D3$(DN)25500 2dD3(D3$):DN$(D3)"ESCAPE"Ĺ103,1:104,64:16384,0::(4);"RUN ESCAPE" FdDN$(D3)"BATTLESHIPS"Ĺ103,1:104,64:16384,0::(4);"RUN BATTLESHIPS"" PdDN$(D3)"MONKEY"Ĺ103,1:1?a(4);"MAXFILES 3":1012,0:103,1:104,8:2048,0:214,128Ga:b b:4:10::D1$:D1$:tpbDN$(10):DN0bD2$:D2$""DNDN1:DN$(DN)D2$:25250bGAP1(DN9)8cII1DN:6(II1)GAP:10::II;::"... ";DN$(II):jcD2$) c8DN  U*ЂԐ@ᐡՀĈT*ČT*UТтըT*ɂŠȤʒ U  @ @ Ѡ(@*Q* @ ĀU*@ЀЀЂՠЂЂP U*Р̨T*ՂɂQ ЪɈŀȬԲբP (*E@@(P*UԠ (U** U*@ĢррР U*UU*Р䨆*ŠłՐŀȆ*ӈŀԦ@*TP@ @*UT*U*@TЀT*TĪUԠU*ЪʶU*ࠄ*Š@АЄˆ!! ! ! ! ! !!!!!!!!!           Z2X118:Y14"Z3X131:Y146(Z4X14:Y118K2Z5X118:Y118`<Z6X131:Y118tFZ7X14:Y131PZ8X118:Y131ZZ9X131:Y131d((1)15)1:nU1čX1,Y1:X15,Y1:X11,Y11:X14,Y11:X12,Y12:X13,Y12:X12,Y13:(U)"-"1230 R$(U)"*"12401A3XY:1250BA3XY:1250MA3XY]A3A41280lA401275:22:"SORRY, WRONG ANSWER"X" "R$(U)" "Y" = ";A3:A312500:A3:1410:22:"YOU'RE RIGHT":A311000:A3: Z1X14:Y144)176:16368,0:A31A310A410A4A3:(8);A3;::" ";::1160tA340A4(A310):(8);" ";(8);(8);::" ";::1160~A335ĺ(8);" ";:1190A2"";:A1:22:"SORRY,OUT OF TIME":A41R$(U)"+"1220 R$Z8870.Z991098X((1)(LX(U)SX(U)1))SX(U)]=Y((1)(LY(U)SY(U)1))SY(U)|BR$(U)"-"XYSY:YX:XSL:22:TT(U)VN$(U)", WHAT DOES "X" "R$(U)" "Y" = ";`A40::" ";::A11T:A2144:(16384)1281160CjA3(1638N$(U);", WHICH SQUARE DO YOU WANT";:16368,0:ZQQ2Z1:Q(Q23):Q2Q23QW(Q,Q2)0ė:22:"THIS SQUARE IS OCCUPIED!":S11000:S:940R1:0Z1590Z2630Z3670Z4710Z5750Z6790Z7830$32,387:4,732: (7) &HR110804RR21580<\12wf32,3818:32,3821:18,2132:18,2135:18,2138:(8)pR11080zR215801332,3532:32,3835:32,3532:32,3535:32,3538:(9)R11080R21580:2229,224:21,256:4,722:(4)*R110808R21580?8z19,2218:22,2521:18,2119:18,2122:18,2125:(5)R11080R21580 919,2532:22,2535:32,3519:32,3522:32,3525:(6) R11080*R21580411>:0,3927D1!N5,116:(1)/XR11080=bR21580Dl2v5,821:8,1118:18,215:18,218:18,2111: (2) R11080R2158045,1135:32,355:32,3511:33,358:(3)R11080R2158061ND NUMBER";SY(U)=" LARGEST VALUE OF SECOND NUMBER";LY(U)VR$(U)"A"R$(U)"+"oR$(U)"S"R$(U)"-"R$(U)"M"R$(U)"*"U:U01(2(2))Q02:Q202:W(Q,Q2)0:Q2:Q&R0:UU0:DL16000:15 :0,3913:0,3927:0,3913) R$(U)"A"R$(U)"S"R$(U)"M"410] 15:"HOW MUCH TIME,IN SECONDS, DO YOU WANT TO" 17:"ALLOW FOR EACH PROBLEM?";T(U) 19:"SMALLEST VALUE OF FIRST NUMBER";SX(U) " LARGEST VALUE OF FIRST NUMBER";LX(U):"SMALLEST VALUE OF SECO0::2:"PLAYER 1, WHAT IS YOUR NAME?";N$(1)X 4:"PLAYER 2,WHAT IS YOUR NAME?";N$(2)u U12:: HANDICAPPING 7:6:"A=ADDITION" 9:6:"S=SUBTRACTION" 11:6:"M=MULTIPLICATION" 13:N$(U);"WHICH OPERATION":"DO YOU WANT? ";R$(U)RTH $1600.BUT,WHEN "E J"SOMEONE TRIES TO ANSWER A PROBLEM,THIS "u T"VALUE IS REDUCED BY $100.WHEN SOMEONE " ^"GETS THREE IN A ROW,THEY WIN ALL OF THE " h"MONEY LEFT." rS120000:(49152)127390: |S, 16368,0:DO0:DX0:DL160ERS.YOU WILL CHOOSE ONE OF THE NINE "U "SQUARES IN THE TIC TAC TOE BOARD.THE " ""COMPUTER WILL ASK YOU AN ARITHMETIC " ,"PROBLEM.IF YOU ANSWER IT CORRECTLY,THE " 6"SQUARE YOU PICKED WILL DISPLAY AN X OR " @"AN O.EACH GAME IS WOT";:10:20:"A";:11:21:"C"f 17:31:"D":18:32:"O";:19:33:"U";:20:34:"G";:21:35:"H"| 3:3:"ARITHME-" S15000:S 16368,0: :2:11:"ARITHMETIC TAC DOUGH" 4:"ARITHMETIC TAC DOUGH IS A GAME FOR TWO "% "PLAY ::1011,0 :NW(2,2),N$(2),R$(2),T(2),LX(2),SX(2),LY(2),SY(2)ZO121a(On213:"/"u<OF26:"/"POZO140dOn7:"/"xO14:"/"O233:6:"T";:4:7:"I";:5:8:"C" 9:19:""" " " " " """""""""