' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- ( v Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`# d ֠z# u`2005 >K13< H16298,0:L18:T200L10,3:T160,5:Ll R16297,0:L811:T160L10,5:T100,3:Ls \K f16298,0 p0:B14:2X(B),Y(B)::3:1XP,YP q16297,0 zSCHSHSSC:21:36(HS9)(HS99)(HS999)(HS9999):HS23: LCC1) VX(A)((1)46PO(A)):Y(A)52 `210X 3:0:1XP,YP:1:QQ1:Q72110l QQ1:Q72110z Q42005 A14 0:2X(A),Y(A) L10020025:TL,5:T255L,5:L Q:2X(A),Y(A) L20010025:TL,5:TL50,5:L A:)FBLL6:40 LL 160) E17? E:2X(A),W(C)8V TE35,5:T255E,5i PA1150::Ep 0 C3DF1:1090 $D02709 .D,W(C)D9,W(C) 8E10020025:TE,2:T200E,2::30:0: B2X(A),W(C)8:DFY(A)W(A)8:2000(CC4)0 z21:8(SC9999)(SC999)(SC99):SCU }L15:L:(1)Z45,(1)Z55:p JJ1:J5HH1.5:J0v A14:1 0:2X(A),Y(A) Y(A)Y(A)H:Y(A)W(C)81000 CO(A):2X(A),Y(A) 30 LL16:30:(P0)FB(P10,100XP3,YP:279,100XP3,YP% ZY d0:0,100XP3,YP:279,100XP3,YP:2X(B),Y(B) nK12:16298,0:M10020050:TM,5::16297,0:M20010050:TM,5: sK xSCSC(160Y(B)):SC(SC):X(B)((1)46PO(B)):Y(B)5:CC((1)71):CO(B)CCE 6000:80003:XP((((1)245)10)Z025911):YP((((1)45)150)Z01383):0:1X1,Y1:3:1XP,YP:1:X1XP:Y1YP:(5:0,100XP3,YP:279,100XP3,YP:S5(1)75755:TS,2:2B14<(X(B)XP)11(Y(B)YP)9100F P0:     6,0,0,0,0,0! R 1,3,4,5,7,0,03! R 1,3,4,6,7,0,0G! R 2,4,3,6,0,0,0[! R 1,2,4,6,7,0,0o!R 1,2,4,5,6,7,0!R 1,3,6,0,0,0,0!R 1,2,3,4,5,6,7!R 1,2,3,4,6,7,0"0R 1,0,4,0,63,63,63,46,45,45,45,45,53,62,62,62,62,37,37,37,37,37,37,39,39,39,39,3233,96n rN770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202 tN782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0 yNSC(1)0:SC(2)0 zN: R 1,2,3,5,6,7,0 ! R 3,OOD PICKING";t'A$_~'"THE APPLE. THE FIRST PLAYER TO SCORE":"15 POINTS IS THE WINNER.":e' N::7:13:"APPLE CAPTURE"::19:"BY"::15:"JUDY WEST":RNZ13000:Z\NZ09:Q17:S(Z,Q):Q,ZfNZ2457624613:Q:Z,Q:Z pN232,0:NOT YOU WILL BE GIVEN 1 OF 3":"POSSIBLE CLUES."`':"1. DIRECTION-GENERAL DIRECTION TO APPLE":"2. DISTANCE-MINIMUM DISTANCE TO APPLE":"3. RAIN-THIS IS NOT THE RIGHT TREE": j'"FIRST PLAYER TO PICK 15 APPLES IS THE ":"WINNER"::"HIT ANY KEY AND GAYER WILL BE RED":"AND THE OTHER BLUE."L'" WHEN YOUR COLOR IS LIT YOU MAY MOVE":"YOUR WORM TO ANY TREE USING THE ":"'U I O J L M ,.' KEYS. WHEN YOU THINK"0V'"YOU HAVE FOUND THE APPLE, PRESS":"'RETURN'. IF IT IS THE APPLE YOU GET A":"POINT. IF P5 Q130; (((1)51))2700,2800,2900,3000,3100B QH ':" OBJECT OF THE GAME IS TO FIND 15":"APPLES IN THE ORCHARD."(B'" I WILL PLANT AN ORCHARD OF EIGHTY TREES":"10 ROWS BY 8 COLUMNS. EACH PLAYER WILL":"HAVE A WORM. ONE PL,5:770" Z, ,T 768,75:769,6:7702| > Z1RPW 768,193:769,8:770p 768,156:769,8:770 768,128:769,8:770 768,97:769,8:770 Z  Z17D 768,110:769,10:770N 768,130:769,10:770X Zb  R60" XA((1)19):YA((1)14); XXA,YYAXXA,YYAe 768,(1)5040:769,((1)53):770l Zr# ( LR(0)((1)101)P LC(0)((1)81)  768,150:769,7:770 768,255:769,9:770  Z20010020 768,Z:769:Z/ Z2123724:Q02:ZQ,0ZQ,191:Q,Z[ Z2118924:Q02:0,ZQ239,ZQ:Q,Z R110:C18:1800:1100:C,R SC(1)0:SC(2)0  1800:1700 0:X15,Y15X17,Y15:X14,Y16X18,Y16:X15,Y17X17,Y17 6 Z1,53,101,12,13,24,31,15,24,247,11,24,12,24,136,158,18,101,184,227,107,8,15,24,4,0,8,2,140,20,271,38z 232,8:233,82:680 p22:"SCORE:"E: I,B3:) vQ156EE100:3:1C,Q:6000P I13:CBX(I)8CBX(I)8B(I)0V p C((1)260)8:Q0: B(O(X))B(O(X))1:(AC)2(BQ)2570 1A,B:I150::1A,B:b I2100021037:A:I,A:: 1,0,4,0,73,60,56,56,30,247,54,46,46AA5 W21ĭA274AA52 W65ĭB5BB5I W90ĭB150BB5 BX(O(X)),150A,B:0:BX(O(X)),150A,B:730:V:T(O(X)):B(O(X)): Q156İ630 0QQ1:C,Q: :680 DEE50:6000:1:1A,B:"":1A,B: bA3,BA3,B:A,B3A)B(3):CC((1)3)1:Mĉ::17::"THE END"::< 110s X(16384):16368,0:X176ĭB(O(X))O(X)4420| 220 0:610::A((0)255)2733:B((1)255)1563:3:610: 0:610:W(16384):16368,0:X127420 W128W W8ĭA5N:12:13)"MISSILE COMMAND":5000:O(X)((X128)):V21:A5:B5:1:I13:B(I)10:0,I156279,I156::2:0:3:0,1568,15016,156:132,156140,150148,156:279,156271,150163,156I13:BX(I),T(I):n200:5403 MB(1)B(2    CI1CI8 RIR1CIC12266&0B1:>P22370^$ R11.5:C1:CL2:1800:1600w) C7:CL0:1800:1600. 2382B R11.5:C7:CL5:1800:1600L C1:CL0:1800:1600N 3100V ` :3:0,0:62454 0 Z240279:Z,0Z,191A76RIRI1:22707A46CICI1:RIRI1:2270OA44CICI1:2270oA77CICI1:RIRI1:2270A74RIRI1:2270A85CICI1:RIRI1:2270Z130:Q(16336):Z2230RI10RI1RI1RI10CI8CI1 2K(16384):K12790B<KK128:A$(K):A$"A"ZY1:ZX0XFA$"Z"ZY1:ZX0pPA$(21)ZY0:ZX1SA$(8)ZY0:ZX1UA$(32)X(1)352:Y(1)405:16368,061600:CL(P1)32:1300'uR12:1800CzNSC(P)N10:CL0:1600ZCL(P1)32:1300jQ1500:QpxB0RILR(P):CILC(P):R1LR(1(P2)):C1LC(1(P2))A$:A(A$):A132295A73CICI1:2270A79CICI1:RIRI1:2270R3%LR(0)LR(P)LC(0)LC(P)DR4GLR(0)LR(P)LC(0)LC(P)DR5i LR(0)LR(P)LC(0)LC(P)DR6LR(0)LR(P)LC(0)LC(P)DR7LR(0)LR(P)LC(0)LC(P)DR8*4N0RP1C2\P2C8fR11:N(SC(P)10)k1800pCL0:Z,Y18:Z)X(R1)24:Y(C1)24/0ElRD(LR(P)LR(0))[CD(LC(P)LC(0))lRDCDDSRD}CDRDDSCDRDCDDSRDDR0LR(0)LR(P)LC(0)LC(P)DR1LR(0)LR(P)LC(0)LC(P)DR2LR(0)LR(P)LC(0)LC(P)D17X21,Y17:X3,Y18X20,Y18:X4,Y19X19,Y19;X5,Y20X9,Y20:X13,Y20X18,Y20:X6,Y21X8,Y21:X14,Y21X17,Y21=RP20:3000?@CLhZ020:XZ2791660rXZ,YXZ,Y20|Z3 ZX10X18:Z,Y:X17,Y5X19,Y5MX2,Y7X9,Y7:X15,Y7X21,Y7:X1,Y8X21,Y8"5:X,Y9X20,Y9:X,Y10X20,Y10:X,Y11X20,Y11:X,Y12X19,Y12,2:X1,Y13X20,Y13:X1,Y14X20,Y14:X1,Y15X20,Y15:X2,Y16X21,Y16566:X2,YX9,Y9290090:Z020:XZ,YXZ,Y20:ZHX0XX2WY0YY21:X14,Y:X13,Y1X15,Y1:X12,Y2X15,Y2:X12,Y3X15,Y3X11,Y4X14,Y4:X11,Y5X13,Y5:X11,Y6X12,Y6:X4,Y6X7,Y6:X16,Y6X20,Y6,Y9:1395:_X5,Y9X14,Y9:X5,Y10X14,Y10:1395idX3,Y10X4,Y15:X4,Y9X4,Y14:1395iX14,Y9X14,Y14:X15,Y9X15,Y15:1395nX4,Y14X14,Y14:X3,Y15X15,Y15:1395sZu2900wx1:(RT1)8:01,140,20,271,38& 232,8:233,82:680; p22:"SCORE:"E:  C((1)260)8:Q0:K B(O(X))B(O(X))1:(AC)2(BQ)2570i 1A,B:I150::1A,B: I2100021037:A:I,A:: 1,0,4,0,73,60,56,56,30,247,54,46,46,53,101,12,13,24,31,15,24,247,11,24,12,24,136,158,18,101,184,227,107,8,15,24,4,0,8,2(X)),150A,B:0:BX(O(X)),150A,B:730:V:T(O(X)):B(O(X)):P Q156İ630a 0QQ1:C,Q:j :680 DEE50:6000:1:1A,B:"":1A,B: bA3,BA3,B:A,B3A,B3: vQ156EE100:3:1C,Q:6000 I13:CBX(I)8CBX(I)8B(I)0 )B(3):CC((1)3)1:Mĉ::17::"THE END"::< 110s X(16384):16368,0:X176ĭB(O(X))O(X)4420| 220 0:610::A((0)255)2733:B((1)255)1563:3:610: Q(16384):X127Ĺ16368,0:420 16368,0:W128Q@ BX(O=N:12:13)"MISSILE COMMAND":5000:O(X)((X128)):V21:A5:B5:1:I13:B(I)10:0,I156279,I156::2:0:3:0,1568,15016,156:132,156140,150148,156:279,156271,150163,156I13:BX(I),T(I):n200:5403 MB(1)B(2    11,Y12XP15,Y16:XP11,Y13XP12,Y140 8CLV<Z17:QS(N,Z):Q01395FQ1360,1365,1370,1375,1380,1385,1390PX3,Y3X15,Y3:X4,Y4X14,Y4:1395UX3,Y4X3,Y9:X4,Y5X4,Y9:1395 ZX15,Y4X15,Y9:X14,Y5X14(P1)32:XPXP/XP18,Y1:XP19,Y2tXP18,Y2XP18,Y4:XP17,Y3XP17,Y16:XP16,Y4XP16,Y10XP18,Y9XP18,Y15:XP19,Y12XP19,Y132800XP13,Y11XP14,Y12:XP12,Y11XP17,Y16:XP11,Y11XP16,Y16*XP,140,20,271,38& 232,8:233,82:680; p22:"SCORE:"E:  C((1)260)8:Q0:K B(O(X))B(O(X))1:(AC)2(BQ)2570i 1A,B:I150::1A,B: I2100021037:A:I,A:: 1,0,4,0,73,60,56,56,30,247,54,46,46,53,101,12,13,24,31,15,24,247,11,24,12,24,136,158,18,101,184,227,107,8,15,24,4,0,8,2(X)),150A,B:0:BX(O(X)),150A,B:730:V:T(O(X)):B(O(X)):P Q156İ630a 0QQ1:C,Q:j :680 DEE50:6000:1:1A,B:"":1A,B: bA3,BA3,B:A,B3A,B3: vQ156EE100:3:1C,Q:6000 I13:CBX(I)8CBX(I)8B(I)0 )B(3):CC((1)3)1:Mĉ::17::"THE END"::< 110s X(16384):16368,0:X176ĭB(O(X))O(X)4420| 220 0:610::A((0)255)2733:B((1)255)1563:3:610: Q(16384):X127Ĺ16368,0:420 16368,0:W128Q@ BX(O=N:12:13)"MISSILE COMMAND":5000:O(X)((X128)):V21:A5:B5:1:I13:B(I)10:0,I156279,I156::2:0:3:0,1568,15016,156:132,156140,150148,156:279,156271,150163,156I13:BX(I),T(I):n200:5403 MB(1)B(2100- l:"PLAY AGAIN (Y/N)?":A$:A$"Y"40@ v:::"BYE":G L1m tX3,Y2X7,Y2:X2,Y3X8,Y3 ~Z48:X1,YZX9,YZ:Z X3,Y9X7,Y9 2700 0:Z46:XZ,Y10XZ,Y17:Z X3,Y16X7,Y16:X2,Y17X8,Y17 8:1800:P2:1200% 2600:PNP:906 Z12000:ZX ::5:10::"THE WINNER IS"k P1A$"BLUE"} P2A$"RED" &:15:A$::3200 05:"SCORE -- "; :P1ĺSC(1); DP2ĺSC(2); N" TO ";:P1ĺSC(2) XP2ĺSC(1) b::3 0 X0XX2% Y0YY26 Z12000:ZU Z022:ZX,YZX,Y22:Z RLR(1):CLC(1):1800:CL3:1600:1100 RLR(2):CLC(2):1800:CL3:1600:1100 NPP LR(1)1:LC(1)1:LR(2)10:LC(2)8 R1:C1:1800:P1:1200 R10:C1800:1600 ZZ260,310,3208 NDS:1800:CL0:1300I Z11000:Zc RLR(P):CLC(P):1800~ "CL3:1600:1100:1200 ,90 6RTDR:1400:270 @2500:270 JSC(P)SC(P)1 T1500 ^2100 hSC(P)15510 rRLR(P):CLC(P) |18002300 x2200* RLR(P):CLC(P):18007 B1200F CL0:1700T RRI:CCIt LR(P)R:LC(P)C:1800:1200} 120 A46CICI1:RIRI1:2270 1900:2000 DS0330 ZZ((1)21) (1).1ZZ3:250 CL3:RLR(P):CLC(P):  200004:"DO YOU WANT INSTRUCTIONS?";:A$GA$"Y"İ10000Q(2400|2LR(1)1:LC(1)1:LR(2)10:LC(2)8:2600<P1:RLR(P):CLC(P):1800:1200:2100FP2:RLR(P):CLC(P):1800:1200:2100PP((1)21)ZP1P2:110dP1 n                (4)"CATALOG"  '(KB)12710100'10000,t'KR,0::@E:/TF14:X(F)((1)46PO(F)):Y(F)5F:AY((1)141)W^K039:0,39K:ec16297,0dK13:L10013:TL,4::L11003:TL,4::f21:1:"SCORE: 00000":HSĢ21:26:"HI SCORE: 00000";h160'::10:"WE'LL BE BACK!!!",53,60,63,39,60,55,44,45,53,63,36,36,39,45,190,146,146,146,146,218,53,45,44,0y 1,13,152,2,83,154,3,152,156,5,222,158@:K1100:M(1)Z45:N(1)Z55:O(1)71:O(O4):M,N:E0GE1521562HK((1)71):K48008JK:0,E279,ARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."C ,IF THERE, LOAD INTG AND PA#1# S 10:"(LOADING INTEGER INTO LANGUAGE CARD)"q "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082 --NO CARD OR CAN'T RELOAD  (768)0Ā= ":"...LANGUAGE C9,129:810,192:811,173:812,129:o s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,96: 769 (768)1250  --81,208:782,35:783,173:784,131:785,192:~ d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:! n804,0:805,208:806,208:807,10:808,173:80D,2"DOS VERSION 3.3 08/25/80"^<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"eF P --POKE LANGUAGE CARD FINDERZ768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776,104:* _777,72:778,205:779,0:780,224:7 5,63,54,54,45,36,76,44,53,54,62,39,228,192,193,57,63,63,54,62,62,63,36,39,36b 37,63,55,53,54,46,54,45,45,48,46,192,193,49,54,54,46,46,45,45,45,37,37,36,36,148,42,36,45,37,44,36,60,44,45Ml 62,54,54,55,62,63,39,60,36,60,63,63,60,63,55,44,44,45,45,53:SCSC1:T12:S(16336):T:30 d::12:PA$"SCORE - "(SC):20(PA$)2:" SCORE - ";::SC:::7:"PRESS ANY KEY TO CONTINUE";:A$: nXXZX:YYZY:(7);:SCSC1000:T110:S(16336):T:20QZX,Y):Z2Z1Ĺ16368,0:1007 (X,Y:Z15Z13110Q 2K(16384):K12790x <KK128:A$(K):A$"A"ZY1:ZX0 FA$"Z"ZY1:ZX0 PA$(21)ZY0:ZX1 SA$(8)ZY0:ZX1 UA$(32)X(1)352:Y(1)405:16368,0" ZXXZX:YYZY :'10:12:"SNAKE SCRAMBLE":QS11000:QSZ:10:"PRESS ANY KEY";:A$ :16302,0:1998:ZX1:ZY0:X38:Y20:2:0,390:0,3947:0,470:0,4739A(1)305:B(1)403:15:A,B:13:A1,B1:A1,B1:A1,B1:A1,B1 1: KB16384:KR16368-P016286:P116287@FB127:H8:C1R Z4259:Z5143y22:9:"< HIT ANY KEY TO BEGIN >"A(KB):A127ĹKR,0:::$M((1)100150):TM,8:PA1100:PA:6170LX 2,0,6,0,17,0,59,63,72,9,100,146,45,213,219,54,0,37:"PRESS ANY KEY TO CONTINUE";:A$:d nXXZX:YYZY:(7);:SCSC1000:T110:S(16336):T:20:TK135:K767,((A$,K43,K41)):A$"170,160,001,132,002,173,048,192,136,208,004,198,001,240,007,202,208,246,166,000,208,239,165,003,133,001,198,002,208,241,096"K133:K802,((A$,K43,K41)):1013,76:1014,0:1015,3Z025517671ĉ::8:"ERROR! CHECK DATA LINES 7000-7022":TK14:CO(K),PO(K),W(K):g232,0:233,30A$"201,084,208,015,032,177,000,032,248,230,138,072,032,183,000,201,044,240,003,076,201,222,032,177,000,032,248,230,104,134,003,134,001,133,000"&̠ȠŠ΍Ġ٠ԠӠčӠҠƠ٠Ӡč͠ҠƠӠ芊ĠӠ͍ 0:M0:J0:A0:CC0:LL0:DF0:D0:L0:80004p::{zA6126:A:10:B122:"*";:::A711:A:10:"*";:31:"*"::8:14:"MASTER BLASTER":10:14:"BY STEVEN WONG"CO(7),X(4),Y(4),PO(4),W(4)K76807800:L:D1D1L:K,L:5LDa D$(4):D$"VERIFY HIGH SCORES":?a (222)6FF1:1980:na "ERROR"(222)" IN LINE "(218)256(219)(`6 BUTTERFLY TUNE(`@ F20:D1:2780;`J F63:D1:2780O`T F100:D1:2780c`^ F145:D1:2780w`h F100:D1:2780`r F145:D1:2780`| ` END TUNE` F1:D20:2780` F1:D20:2780` F1:D20:2780` F1:D200:2780` ` 3030$NYTHING EXCEPT LEAVES."<_ ::"USE THE SPACE BAR TO SPIT"c_ 24:"PRESS ANY KEY TO CONTINUE ";p_ 255:T$y_ 530_ 768,D:769,F_ 770_ _ LEAF TUNE_ F150:D1:2780_ F200:D1:2780_ F200:D1:2780_" F150:D1:2780`, x :"YOU ARE A CATERPILLAR TRYING TO GROW!"[^ :"YOU EAT LEAVES TO GROW BODY SEGMENTS."^ :"USE THE I,J,K & M KEYS TO MOVE AROUND."^ :"IF YOU CAN GROW LONG ENOUGH YOU WILL"^ :"METAMORPHIS INTO A BUTTERFLY.....BUT"_ :"DON'T RUN INTO A20] NFILE$(TX$(Z),NL)B]( NFILE$NAME$NPRESN1%:PSZ:2630I]2 ZS]< 1070]F DF$(TX$(Z),29,1):SF$(TX$(Z),32,3):MF$(TX$(Z),36,2)]P DF(DF$):SF(SF$):MF(MF$)]Z :"DO YOU WANT INSTRUCTIONS? (Y OR N)";T$]d T$"N"ī530]n 200:,^ T$8\ :"ERASE HISTORICAL INFORMATION? (Y OR N)";T$J\ T$"Y"ī1960^\ NPRESN1%2250\ :"YOUR NAME PLEASE: ";NAME$\ "TODAY'S DATE (MM-DD-YY): ";DT$\ GS0\ NL(NAME$):DL(DT$)\ DL8ĺ"8 OR LESS CHARACTERS PLEASE":2540] Z00%[. Z020[8 TX$(Z)" "$[B Z.[L ZN0%I[V D$;"OPEN HIGH SCORES"d[` D$;"READ HIGH SCORES"p[j TX$(Z)[t Z20ī2450[~ 2450[ TX$(Z):ZZN1%:2410[ 216,0: CLEAR ERROR[ D$;"CLOSE[ D$[ 24:"PRESS ANY KEY TO CONTINUE ";\$;"BLOAD SOUND")ZD$;"BLOAD METSHAPES"K13$ H16160 E17' E:2X(A),W(C)8> TE35,5:T255E,5Q PA1150::EX 0l C3DF1:1090{ $D02709 .D,W(C)D9,W(C) 8E10020025:TE,2:T200E,2::30:0: B2X(A),W(C)8:DFY(A)W(A)8:2000 LCC1 VX(A)((1)!Y24:"ANY KEY TO CONTINUE ";)YT$3Y25309YQYCNR%(20,2),TX$(20)eYD$"": CTRL-DYN0%0:N1%1:N2%2:N3%3:N4%4:N55:N66:N7%7:N8%8:N99:NPRES0:N77:N88:RT%0:DN%16:LT%32:UP%48:C1%64:C2%128:C3%8192:C4%8232:C5%8272ZDMETAMORPHOSES ATTAINED" X "."LX". NAME DATE D S M"{X "......................................."X*FFFF0:D$"CLOSE":X4D$X>D$;"OPEN HIGH SCORES"XHD$;"READ HIGH SCORES"XRA$X\2130XfA$Xp2130YzD$CORES"!WD$;"OPEN HIGH SCORES"=WD$;"WRITE HIGH SCORES"iW" HISTORICAL HIGH SCORE INFORMATION"W" *********************************"WW"D = DIFFICULTY THAT WAS USED"W"S = NUMBER OF BODY SEGMENTS REACHED"X"M = NUMBER OF (X4N7%)N7%3:Y4(Y4N7%)7:OD%DN%Y4Y4N7%MVXN0%:ID127ID73ī1900ZVb8X4,Y4cVl190uVvBIRDN0%ī50VBXN1%:840VD$;"OPEN HIGH SCORES"VD$;"POSITION HIGH SCORES,R";PSV1080VD$;"OPEN HIGH SCORES"WD$;"DELETE HIGH SY4Y4D4UX4272X47ī1904UY4157Y43ī190RUXS%X4:YS%Y4:D4N7%:470fUHIT%N1%ī1860UX4,Y4N1%X4,Y4N1%:X4N1%,Y4X4N1%,Y4U&N0%:X4,Y4N1%X4,Y4N1%:X4N1%,Y4X4N1%,Y4U0U:190UDID(ADR%):ID24ID65ī9100VNX4"FOR DIFFICULTY LEVEL ";DD:1050;ThX217:Y2154:N1%:N3%ITrZ1BFLYVT|7X2,Y2cTX2X214jTZsT560TBIRDN0%ī190TX4X:Y4Y:D4N4%TZ114TN3%TOD%N0%X4X4D4TDN%N0%Y4Y4D4TLT%N0%X4X4D4UUP%N0%SR1((1)3):R2((1)3)0SR10X2X27BS"R11X2X27TS,R20Y2Y27fS6R21Y2Y27S@Y2154Y210X2136:Y277:1620SJX2269X27X2136:Y277STZ T^BFLY9ĉ::12:"YOU HAVE ATTAINED RANKING OF"::"***GRAND MASTER***"::0 TO MOVE LEFT AND RIGHT." :"PRESS ESC TO FREEZE GAME"::::"PRESS ANY KEY TO PLAY";:A$A :16302,0  ZBLR%DN%LY%LY%N7%:280\BLR%LT%LX%LX%N7%:280uBLR%UP%LY%LY%N7%BCNR%(0,1)LX%CNR%(0,2)LY%LR%CNR%(0,0):300B"340B,ZN0%CM% C6CNR%(Z,0)CNR%(ZN1%,0):CNR%(Z,1)CNR%(ZN1%,1):CNR%(Z,2)N4%:XS%X%:1503AxND%RT%XS%X%N4%:YS%Y%:150WAND%DN%YS%Y%N4%:XS%X%:150vAND%LT%XS%X%N4%:YS%Y%A470AHIT%N1%XX%:YY%:970AK%160XX%:YY%:1700A ERASE HEADAN0%:8X%,Y%AJN1%JN0%:230AJN1%Bo!@ (104)6440/@103,1:104,64:16384,0K@(4)"RUN PILLAR MUNCH"[@(3010:2210}@2K%(16384):16368,N0%:OD%@<K%201ND%UP%:100@FK%202ND%LT%:100@PK%203ND%RT%:100@ZK%205ND%DN%@dZ0GS:ZAnND%UP%YS%Y%              99)(SC999)(SC99):SC= }L15:L:(1)Z45,(1)Z55:X JJ1:J5HH1.5:J0^ l A14:1 0:2X(A),Y(A) Y(A)Y(A)H:Y(A)W(C)81000 CO(A):2X(A),Y(A) 30 LL16:30:(P0)FB(P1)FBLL6:40 LL RE: 00000";h1604'::10:"WE'LL BE BACK!!!"I'(KB)12710100T'10000bt'KR,0::A1521562%HK((1)71):K480089JK:0,E279,E:eTF14:X(F)((1)46PO(F)):Y(F)5F:wY((1)141)^K039:0,39K:c16297,0dK13:L10013:TL,4::L11003:TL,4:: f21:1:"SCORE: 00000":HSĢ21:26:"HI SCO,54,55,62,63,39,60,36,60,63,63,60,63,55,44,44,45,45,53,53,60,63,39,60,55,44,45,53,63,36,36,39,45,190,146,146,146,146,218,53,45,44,0 1,13,152,2,83,154,3,152,156,5,222,158@:K1100:M(1)Z45:N(1)Z55:O(1)71:O(O4):M,N:E0 GEX 2,0,6,0,17,0,59,63,72,9,100,146,45,213,219,54,0,35,63,54,54,45,36,76,44,53,54,62,39,228,192,193,57,63,63,54,62,62,63,36,39,36b 37,63,55,53,54,46,54,45,45,48,46,192,193,49,54,54,46,46,45,45,45,37,37,36,36,148,42,36,45,37,44,36,60,44,45l 62,541)):"1013,76:1014,0:1015,3-Z0255EKB16384:KR16368]P016286:P116287pFB127:H8:C1 Z4259:Z514322:9:"< HIT ANY KEY TO BEGIN >"A(KB):A127ĹKR,0:::$M((1)100150):TM,8:PA1100:PA:6170000,032,248,230,104,134,003,134,001,133,000"VK135:K767,((A$,K43,K41)):A$"170,160,001,132,002,173,048,192,136,208,004,198,001,240,007,202,208,246,166,000,208,239,165,003,133,001,198,002,208,241,096"K133:K802,((A$,K43,K4XP3,YP ZA d0:0,100XP3,YP:279,100XP3,YP:2X(B),Y(B) nK12:16298,0:M10020050:TM,5::16297,0:M20010050:TM,5: sK xSCSC(160Y(B)):SC(SC):X(B)((1)46PO(B)):Y(B)5:CC((1)71):CO(B)CC(CC4) z21:8(SC99- 6000:8000j3:XP((0)Z025911):YP((1)Z01383):0:1X1,Y1:3:1XP,YP:1:X1XP:Y1YP:(5:0,100XP3,YP:279,100XP3,YP:S5(1)75755:TS,2:2B14<(X(B)XP)11(Y(B)YP)9100F P0:0,100XP3,YP:279,100         z#????    àҠȠ#ȠӠ  ñӱ ò  !Р"˭РҠҠŠŠŠŠ ɭŠ' ϠӠ ҠҠҠҠ ϲŠĠŠ Ҡ10:"WE'LL BE BACK!!!"+'(KB)127101006'10000Dt'KR,0::A48008JK:0,E279,E:GTF14:X(F)((1)46PO(F)):Y(F)5F:YY((1)141)o^K039:0,39K:}c16297,0dK13:L10013:TL,4::L11003:TL,4::f21:1:"SCORE: 00000":HSĢ21:26:"HI SCORE: 00000";h160'::,60,63,55,44,44,45,45,53,53,60,63,39,60,55,44,45,53,63,36,36,39,45,190,146,146,146,146,218,53,45,44,0 1,13,152,2,83,154,3,152,156,5,222,158@:K1100:M(1)Z45:N(1)Z55:O(1)71:O(O4):M,N:E0GE1521562HK((1)71):K00,146,45,213,219,54,0,35,63,54,54,45,36,76,44,53,54,62,39,228,192,193,57,63,63,54,62,62,63,36,39,36b 37,63,55,53,54,46,54,45,45,48,46,192,193,49,54,54,46,46,45,45,45,37,37,36,36,148,42,36,45,37,44,36,60,44,45el 62,54,54,55,62,63,39,60,36,60,63,63,0:1015,3Z0255-KB16384:KR16368EP016286:P116287XFB127:H8:C1j Z4259:Z514322:9:"< HIT ANY KEY TO BEGIN >"A(KB):A127ĹKR,0:::$M((1)100150):TM,8:PA1100:PA:6170dX 2,0,6,0,17,0,59,63,72,9,1003,134,001,133,000">K135:K767,((A$,K43,K41)):A$"170,160,001,132,002,173,048,192,136,208,004,198,001,240,007,202,208,246,166,000,208,239,165,003,133,001,198,002,208,241,096"K133:K802,((A$,K43,K41)): 1013,76:1014:D1D1L:K,L:MLD17671ĉ::8:"ERROR! CHECK DATA LINES 7000-7022":lK14:CO(K),PO(K),W(K):232,0:233,30A$"201,084,208,015,032,177,000,032,248,230,138,072,032,183,000,201,044,240,003,076,201,222,032,177,000,032,248,230,104,134,0:K0:Q0:OO:N0:R0:F0:M0:J0:A0:CC0:LL0:DF0:D0:L0:8000Lp::zA6126:A:10:B122:"*";:::A711:A:10:"*";:31:"*"::8:14:"MASTER BLASTER":10:14:"BY STEVEN WONG"CO(7),X(4),Y(4),PO(4),W(4)K76807800:L. M120:N75:2450&8 250,40:2460<B M140:N100:2450NL 140,80:2460cV M45:N125:2450u` 210,90:2460 M,NM1,NM1,N1M,N1M,N LL(KB):KR,0:LL1282190 LL2069999 LL2172500 2460B 22:958:SC0:C1:H8:Bк"DO YOU WANT TO"724:"PLAY AGAIN?";:13::" ";:M(1).5Ē0:2200hJ((1)71):J(J4)K((1)101):K2310,2320,2330,2340,2350,2360,2370,2380,2390,2400 M20:N20:2450 50,130:2460 M200:N145:2450$ 175,100:24609,47,46,46,46,46,46,63,63,63,0,37,37,39,39,39,39,39,47,46,46,46,46,46,63,63,63,07,37,37,37,37,37,39,39,39,39,39,47,46,46,46,46,46,63,63,63,0Y9 290050:Z020:XZ,YXZ,Y20:ZDX0XX2SY0YY21:X14,Y:X13,Y1X15,Y1:X12,Y2X15,Y2:X12,Y3X15,Y3X11,Y4X14,Y4:X11,Y5X13,Y5:X11,Y6X12,Y6:X4,Y6X7,Y6:X16,Y6X20,Y6:X:13956_X5,Y9X14,Y9:X5,Y10X14,Y10:1395edX3,Y10X4,Y15:X4,Y9X4,Y14:1395iX14,Y9X14,Y14:X15,Y9X15,Y15:1395nX4,Y14X14,Y14:X3,Y15X15,Y15:1395sZu2900wx1:(RT1)8:01X9,Y12XP15,Y16:XP11,Y13XP12,Y14, 4CLR<Z17:QS(N,Z):Q01395|FQ1360,1365,1370,1375,1380,1385,1390PX3,Y3X15,Y3:X4,Y4X14,Y4:1395UX3,Y4X3,Y9:X4,Y5X4,Y9:1395ZX15,Y4X15,Y9:X14,Y5X14,Y9(P1)32:XPXP+XP18,Y1:XP19,Y2pXP18,Y2XP18,Y4:XP17,Y3XP17,Y16:XP16,Y4XP16,Y10XP18,Y9XP18,Y15:XP19,Y12XP19,Y132800XP13,Y11XP14,Y12:XP12,Y11XP17,Y16:XP11,Y11XP16,Y16&XP11,100) l:"PLAY AGAIN (Y/N)?":A$"Y"40< v:::"BYE":C L1i tX3,Y2X7,Y2:X2,Y3X8,Y3 ~Z48:X1,YZX9,YZ:Z X3,Y9X7,Y9 2700 0:Z46:XZ,Y10XZ,Y17:Z X3,Y16X7,Y16:X2,Y17X8,Y17 8:1800:P2:1200% 2600:PNP:906 Z12000:ZX ::5:10::"THE WINNER IS"k P1A$"BLUE"} P2A$"RED" &:15:A$::3200 05:"SCORE -- "; :P1ĺSC(1); DP2ĺSC(2); N" TO ";:P1ĺSC(2) XP2ĺSC(1) b::3 0 X0XX2% Y0YY26 Z12000:ZU Z022:ZX,YZX,Y22:Z RLR(1):CLC(1):1800:CL3:1600:1100 RLR(2):CLC(2):1800:CL3:1600:1100 NPP LR(1)1:LC(1)1:LR(2)10:LC(2)8 R1:C1:1800:P1:1200 R10:C1800:1600 ZZ260,310,3208 NDS:1800:CL0:1300I Z11000:Zc RLR(P):CLC(P):1800~ "CL3:1600:1100:1200 ,90 6RTDR:1400:270 @2500:270 JSC(P)SC(P)1 T1500 ^2100 hSC(P)15510 rRLR(P):CLC(P) |18002300 x2200* RLR(P):CLC(P):18007 B1200F CL0:1700T RRI:CCIt LR(P)R:LC(P)C:1800:1200} 120 A46CICI1:RIRI1:2270 1900:2000 DS0330 ZZ((1)21) (1).1ZZ3:250 CL3:RLR(P):CLC(P):  200004:"DO YOU WANT INSTRUCTIONS?";:A$GA$"Y"İ10000Q(2400|2LR(1)1:LC(1)1:LR(2)10:LC(2)8:2600<P1:RLR(P):CLC(P):1800:1200:2100FP2:RLR(P):CLC(P):1800:1200:2100PP((1)21)ZP1P2:110dP1 n       65,160:180,160200,150215,160:230,160245,150260,160h 6W150:((1)270)10,((1)150)10:W: R,HR4,H9R4,H9R,H: :21:"SCORE: "S:X,145R,H:200:0:X,145R,H:500:SHSH1:3> Y75XX15P Y175XX15[ HH15b (5w dX8,145X8,145} e W1100:SO(16336)(16336):W:8 ,0,16015,15030,160:45,16060,15075,160:90,160105,150120,160:135,160150,1501X260 X20X204 100:A115:A:0:100:3P 500:A115:A:0:500 H145(RX8RX8)Ē0:SS10:500:A1200:A:1000:3 S1ĉ::21:"EARTH IS DEAD!": H150Ē0:500:3:SS10:A1200:A:1000:3- (16287)127SH0Ē3:* "INVADER CATCHER" BY MATT LAURENCEi:12:13);"INVADER CATCHER":Q11000:Q:::3:21:3003:0,0279,0279,1590,1590,0:SH5:X140:S100:1000R((1)240)20:3:0,159279,159H10Y(((0)255)250)203 X260   0,0,0,0,0! R 1,3,4,5,7,0,01! R 1,3,4,6,7,0,0E! R 2,4,3,6,0,0,0Y! R 1,2,4,6,7,0,0m!R 1,2,4,5,6,7,0!R 1,3,6,0,0,0,0!R 1,2,3,4,5,6,7!R 1,2,3,4,6,7,0"0R 1,0,4,0,63,63,63,46,45,45,45,45,53,62,62,62,62,37,37,37,37,37,37,39,39,39,39,39,33,96l rN770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202 tN782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0 yNSC(1)0:SC(2)0 zN: R 1,2,3,5,6,7,0 ! R 3,6,D PICKING";t'A$]~'"THE APPLE. THE FIRST PLAYER TO SCORE":"15 POINTS IS THE WINNER.":c' N::7:13:"APPLE CAPTURE"::19:"BY"::15:"JUDY WEST":RNZ13000:Z\NZ19:Q17:S(Z,Q):Q,ZfNZ2457624613:Q:Z,Q:Z pN232,0:2T YOU WILL BE GIVEN 1 OF 3":"POSSIBLE CLUES."`':"1. DIRECTION-GENERAL DIRECTION TO APPLE":"2. DISTANCE-MINIMUM DISTANCE TO APPLE":"3. RAIN-THIS IS NOT THE RIGHT TREE": j'"FIRST PLAYER TO PICK 15 APPLES IS THE ":"WINNER"::"HIT ANY KEY AND GOOER WILL BE RED":"AND THE OTHER BLUE."L'" WHEN YOUR COLOR IS LIT YOU MAY MOVE":"YOUR WORM TO ANY TREE USING THE ":"'U I O J L M ,.' KEYS. WHEN YOU THINK".V'"YOU HAVE FOUND THE APPLE, PRESS":"'RETURN'. IF IT IS THE APPLE YOU GET A":"POINT. IF NO5  Q1309 (((1)51))2700,2800,2900,3000,3100@ QF ':" OBJECT OF THE GAME IS TO FIND 15":"APPLES IN THE ORCHARD."&B'" I WILL PLANT AN ORCHARD OF EIGHTY TREES":"10 ROWS BY 8 COLUMNS. EACH PLAYER WILL":"HAVE A WORM. ONE PLAY:770 " Z, *T 768,75:769,6:7700| < Z1RPU 768,193:769,8:770n 768,156:769,8:770 768,128:769,8:770 768,97:769,8:770 Z  Z17D 768,110:769,10:770N 768,130:769,10:770X Zb  RP XA((1)19):YA((1)14)9 XXA,YYAXXA1,YYAc 768,(1)5040:769,((1)53):770j Zp# ( LR(0)((1)101)P LC(0)((1)81)  768,150:769,7:770 768,255:769,9:770  Z20010020 768,Z:769,5 Z2123724:Q02:ZQ,0ZQ,191:Q,ZV Z2118924:Q02:0,ZQ239,ZQ:Q,Zz R110:C18:1800:1100:C,R SC(1)0:SC(2)0  1800:1700 0:X15,Y15X17,Y15:X14,Y16X18,Y16:X15,Y17X17,Y17 6 Z160CI8RIRICICI2266!+B1:9P22370Y$ R11.5:C1:CL2:1800:1600r) C7:CL0:1800:1600|. 2382B R11.5:C7:CL5:1800:1600L C1:CL0:1800:1600N 3100V ` :3:0,0:62454 0 Z240279:Z,0Z,191:Z*A76RIRI1:22702A46CICI1:RIRI1:2270JA44CICI1:2270jA77CICI1:RIRI1:2270A74RIRI1:2270A85CICI1:RIRI1:2270Z130:Q(16336):Z2230RI10RI1RI1RI10CI8CI1CI1:CL(P1)32:1300"uR12:1800>zNSC(P)N10:CL0:1600UCL(P1)32:1300eQ1500:QksB0RILR(P):CILC(P):R1LR(1(P2)):C1LC(1(P2))A$:A(A$):A132295A73CICI1:2270A79CICI1:RIRI1:2270LR(0)LR(P)LC(0)LC(P)DR4BLR(0)LR(P)LC(0)LC(P)DR5d LR(0)LR(P)LC(0)LC(P)DR6LR(0)LR(P)LC(0)LC(P)DR7LR(0)LR(P)LC(0)LC(P)DR8*4N0RP1C2\P2C8fR11:N(SC(P)10)k1800pCL0:16008:Z $X(R1)24:Y(C1)24*0@lRD(LR(P)LR(0))VCD(LC(P)LC(0))gRDCDDSRDxCDRDDSCDRDCDDSRDDR0LR(0)LR(P)LC(0)LC(P)DR1LR(0)LR(P)LC(0)LC(P)DR2LR(0)LR(P)LC(0)LC(P)DR3 21,Y17:X3,Y18X20,Y18:X4,Y19X19,Y19;X5,Y20X9,Y20:X13,Y20X18,Y20:X6,Y21X8,Y21:X14,Y21X17,Y21=RP20:3000?@CLhZ020:XZ2791660rXZ,YXZ,Y20|Z3ZX10X18:Z,YZ,Y117,Y5X19,Y5IX2,Y7X9,Y7:X15,Y7X21,Y7:X1,Y8X21,Y8"5:X,Y9X20,Y9:X,Y10X20,Y10:X,Y11X20,Y11:X,Y12X19,Y12,2:X1,Y13X20,Y13:X1,Y14X20,Y14:X1,Y15X20,Y15:X2,Y16X21,Y16066:X2,Y17X47,46,46,46,46,63,63,63,0y COUNT PROGRAM! I110)I,0I6(a2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,  W","GREEN"! 6F16:CLR$(F):F @ 2,5,4,6,U,U,U,U,1,6,3,5,R,L,R,R,6,4,5,2,B,B,B,B,5,3,6,1,L,L,R,L,1,2,3,4,B,L,U,R,1,4,3,2,U,L,B,R JF16:I18:RULE$(F,I):I,F T "T","R","B","L","F","P" ^I16:F$(I):I h 9,2,8,15,13,12 r 11,5,21:X%(F7,R7,C7)XT%(F7,R7,C7):C7,R7,F7:E I(78)256(79):I(I)O 2710] RESTART0i D$(4) "X%(6,3,3),XT%(6,3,3),CLR%(6),CLR$(6),START%(6,2),F$(6),RULE$(6,8),SRULE$(3,10),RT%(3),TR%(3),DI$(3) , "ORANGE","BLUE","MAROON","WHITE","YELLO150 F4 F7ĺ(7);"ERROR";:KK11500:KK:H F7LC%2İ240X F7ġ:590d NT13} (C$,1)DI$(NT)220 NT F7:150 610:X0: F716:R713:C713:XT%(F7,R7,C7)X%(F7,R7,C7):C7,R7,F7:' F716:R713:C713%:255::2503LC%(CM$):LC%0150C(C$(CM$,1)T2C$"Q"2650h<C$"D"İ2180:|FC$"S"İ1470:PLC%2(LC%2)LC%LC%1ZLC%2İ230d16::"WORKING";:nX01LC%2xC$(CM$,X0,2) F16:F$(F)(C$,1)             'T RELOAD  (768)0Ār ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."x ,I2:832,96: 769& (768)1250- Q --IF THERE, LOAD INTG AND PA#1X 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082 --NO CARD OR CAN05:V n804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,19192:776,104:_ _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,2- AXIS13:I110:SRULE$(AXIS,I):I,AXISA RESTARTİ2770K 2470U 2440p BEGIN%1:QUIT%6:2390z 2960 2970 2620  &"DO YOU WANT TO SET UP EACH CUBELET?";A$:A$(A$,1):A$"Y"İ3140:590#0"DO YOU WANT THE CUBE SCR,15,11,25,1,15,11,15,31,151 |I16:CLR%(I):IU F16:I12:START%(F,I):I,Fn F16:R13:C13 X%(F,R,C)CLR%(F) C,R,F  "+","2","-" I13:DI$(I):I  R+,L-,1,6,3,5,R,R,R,R,T+,B-,2,5,4,6,C,C,C,C,F+,P-,1,2,3,4,C,R,C,R:I150::1A,B:I2100021037:A:I,A:: 1,0,4,0,73,60,56,56,30,247,54,6,46,53,101,12,13,24,31,15,24,247,11,24,12,24,136,158,18,101,184,227,107,8,15,24,4,0,8,2140,20,271,38232,8:233,82:680p22:"SCORE:"E:IQ1:C,Q::680<DEE50:6000:1:1A,B:"":1A,B:\bA3,BA3,B:A,B3A,B3:vQ156EE100:3:1C,Q:6000I13:CBX(I)8CBX(I)8B(I)0C((1)260)8:Q0:B(O(X))B(O(X))1:(AC)2(BQ)25701A,BRD OR CAN'T RELOAD ( (768)0Ā{ ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..." , BX(O(X)),150A,B:0:BX(O(X)),150A,B:730730:V:T(O(X)):B(O(X)):BT:V:T(O(X)):B(O(X)): Q156İ630 0Q8)1250 4 --IF THERE, LOAD INTG AND PA#1; r X(16384):16368,0:X176ĭB(O(X))O(X)4420 0:610::A((0)255)2733:B((1)255)1563:3:610: --WRITE PROTECT THE CARD A(16254): $C082  --NO CA,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,96: MB(1)B(2)B(3):CC((1)3)1:Mĉ::17::"THE END":: 110 769 (76779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205: n200:540< s813,192:814  : (> 2"DOS VERSION 3.3 08/25/80"p <:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"w F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776,104:< _777,72:778,205:L:12:13)"MISSLE COMMAND":5000:O(X)((X128):V21:A5:B5:1:I13:B(I)10:0,I156279,I156::2:0:3:0,1568,15016,156:132,156140,150148,156:279,156271,150263,156I13:BX(I),T(I)::110 -- DOS 3.3 HELLO     ECT THE CARD% A(16254): $C082+ 1 P --NO CARD OR CAN'T RELOADV f (768)0Ā ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..." ,D824,205:825,0:826,224:827,240:828,3:829,173:830,128:Q }831,192:832,96:Z 769m (768)1250t --IF THERE, LOAD INTG AND PA#1 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROT795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205: n804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0:; x822,3:823,104:DERT Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776,104: _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205:J i TESTCATALOG PROGRAMX D$"": THERE IS AN INVISIBLE CTRL-D BETWEEN THE QUOTESe"TEST";wD$;"CATALOG"}(2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F  P --POKE LANGUAGE CARD FINAMBLED?";A$:A$(A$,1):A$"Y"590@:::15:"SCRAMBLING";:DI115:CM$F$((6(1)1))DI$((3(1)1)):LC%2:110:I:BEGIN%1:QUIT%6:2390NX"COMMAND: ";CM$:30:BEGIN%1:QUIT%6:2390:590bTURN1NTlFF(RULE$(F,1)):CC$RULE$(8R1 |ROW1:COL1:" ";' 170- D270CC$"B"R3:CC1:1270;CC$"L"C1:RC1:1270HC3:RC1wF2F6T%RT%(1):RT%(1)RT%(3):RT%(3)T%LP13 RCRLPCCCLPX%(FT,R,C)RT%(LP)(LP2TURN<TURN1NTFR1:C13:RT%(C)X%(F,R,C):CPC1:RC1^t(Q0F6)(Q1F5)(F4Q1)(Q1F2)(Q0F4)T%TR%(1):TR%(1)TR%(3):TR%(3)T%j~LP13wRCRLPCCCLPX%(FT,R,C)TR%(LP)LPQ0Q1:970FT(RULE$(F,2)):CC$RULE$(F,6)CC0:RC0CC$"U"R1:CC1:1CC$"L"C1:RC1:1030)C3:RC15LP13BRCRLPOCCCLPf$TR%(LP)X%(FF,R,C)n.LP8FT(RULE$(F,4Q)):CC$RULE$(F,8Q)BCC0:RC0LCC$"U"R1:CC1:1140VCC$"B"R3:CC1:1140`CC$"L"C1:RC1:1140jC3C1:RC1:900zC3:RC1EF5T%TR%(1):TR%(1)TR%(3):TR%(3)T%QLP13^RCRLPkCCCLPX%(FT,R,C)TR%(LP)LPQ0FF(RULE$(F,3Q)):CC$RULE$(F,7Q)CC0:RC0CC$"U"R1:CC1:1030CC$"B"R3:CC1:103090CC$"B"R3:CC1:7908CC$"L"C1:RC1:790E C3:RC1QLP13^ RCRLPk*CCCLP4TR%(LP)X%(FF,R,C)>LPHFT(RULE$(F,1)):CC$RULE$(F,5)RCC0:RC0\CC$"U"R1:CC1:900fCC$"B"R3:CC1:900 pCC$"L"F,5)vCC0:RC0-CC$"U"R1:CC1:680HCC$"B"R3:CC1:680cCC$"L"C1:RC1:680pC3:RC1|LP13RCRLPCCCLPRT%(LP)X%(FF,R,C)LPFF(RULE$(F,4)):CC$RULE$(F,8)CC0:RC0CC$"U"R1:CC1:7R2:1900bRC1:C2"lLP13/vCCCLP<RCRLPSTR%(LP)X%(FF,R,C)[LPQ1(AXIS1AXIS3)T%TR%(1):TR%(1)TR%(3):TR%(3)T%FT(SRULE$(AXIS,6Q)):CC$SRULE$(AXIS,10Q)CC0:RC0CC$"C"CC1:R2:2000RC1:C2 +FT(SRULE$(AXIS,3)):CC$SRULE$(AXIS,7)9CC0:RC0UCC$"C"CC1:R2:1800bRC1:C2nLP13{CCCLPRCRLP&X%(FT,R,C)TR%(LP)0LP:Q0DFF(SRULE$(AXIS,5Q)):CC$SRULE$(AXIS,9Q)NCC0:RC0 XCC$"C"CC1:RCRLP hRT%(LP)X%(FF,R,C)(rLPU|FF(SRULE$(AXIS,6)):CC$SRULE$(AXIS,10)cCC0:RC0CC$"C"CC1:R2:1700RC1:C2LP13CCCLPRCRLPTR%(LP)X%(FF,R,C)LPAXIS3T%TR%(3):TR%(3)TR%(1):TR%(1)T%ERROR";:0::10:"SPINNING ENTIRE CUBE";::TRN0TTRNTRN1:TRNN2170K12:CM$SRULE$(AXIS,K):LC%2:110:K"FF(SRULE$(AXIS,3)):CC$SRULE$(AXIS,7),CC0:RC06CC$"C"CC1:R2:1610@RC1:C2JLP13TCCCLP ^3:X%(F,R,C)TR%(C):C9C3:R13:X%(F,R,C)RT%(R):RCTURNI"SPIN ABOUT WHICH AXIS (X,Y,Z)?";AXIS$:AXIS$""1520AXIS(AXIS$)87:AXIS1AXIS31520"WHICH DIRECTION (+,-,2)?";DI$N13:DI$DI$(N)1530N (7);":R13:TR%(R)X%(F,R,C):RAZT%TR%(1):TR%(1)TR%(3):TR%(3)T%ddR1:C13:X%(F,R,C)TR%(C):CnR3:C13:TR%(C)X%(F,R,C):CxC1:R13:X%(F,R,C)TR%(R):RC3:R13:TR%(R)X%(F,R,C):RT%TR%(1):TR%(1)TR%(3):TR%(3)T%R3:C1@VO:HO:" "; JVOV:HOH# T7 ^S,(S):S,(S)Q hCC2:C38C1:RR2_ rR18R1x |ROW1:COL1:" "; 170 INCR HI(COLC)INCR/ ROW1:COL1:G$;F (16384)127230X X$:16368,0 S,(S):S,(S):S,(S):S,(S):S,(S):S,(S) X$(27)130 X$(13)C1:RR2:350 I0INER "VP5ROWVII:V ,HP5COLHII:H 6X$;  --------------------3 "LETTER SPITTER"I BY JON VOSKUILd --------------------nd130{nS16336xG$"/Y"(92)INCR6P5.5C1:R1COL((1)38)2ROW20((1)5)VOROW:HOCOL VI(ROWR)  5) D$;"VERIFY";N$;".CUBE"O$ D$;"OPEN";N$;".CUBE":D$;"READ";N$;".CUBE"h. F16:R13:C13~8 X%(F,R,C):C,R,FB D$:"CLOSE"L 2440:2620:V FBEGIN%QUIT%:SXSTART%(F,1):SYSTART%(F,2)` R13:C13:X%(F,R,C)% j XSX3(C1)";N$*(N$,5)".CUBE"N$(N$,(N$)5)[D$;"OPEN";N$;".CUBE":D$;"WRITE";N$;".CUBE"tF16:R13:C13X%(F,R,C):C,R,FD$;"CLOSE"2440:2620:D$;"CATALOG" "FILE NAME TO RECALL?";N$ (N$,5)".CUBE"N$(N$,(N$):C$"R"2200W"POSITION TAPE, START IN 'RECORD' MODE, AND THEN PRESS 'RETURN' ";C$_X%i2290"POSITION TAPE, START IN 'PLAY' MODE, AND PRESS 'RETURN' ";C$X%2290::C$"R"2300D$;"CATALOG""FILE NAME FOR SAVE: RRCRLP$\X%(FT,R,C)RT%(LP),fLP6p1550>z:r"DO YOU WANT TO SAVE OR RECALL?";C$:C$(C$,1)C$"S"C$"R"ĺ(7);"ERROR";:KK11800:KK:"USING DISK OR TAPE?";CC$:CC$(CC$,1)CC$"D"2210CC$"T"2184 :LP13CCCLP$RCRLP;X%(FT,R,C)TR%(LP)CLPVQ0Q1:1860 AXIS1T%RT%(1):RT%(1)RT%(3):RT%(3)T%FT(SRULE$(AXIS,4)):CC$SRULE$(AXIS,8) CC0:RC0*CC$"C"CC1:R2:21104RC1:C2>LP13HCCCLP p22:"SCORE:"E: I2570$ 1A,B:I150::1A,B: I2100021037:A:I,A:: 1,0,4,0,73,60,56,56,30,247,54,46,46,53,101,12,13,24,31,15,24,247,11,24,12,24,136,158,18,101,184,227,107,8,15,24,4,0,8,2,140,20,271,38 232,8:233,82:680 p22:"SCORE:"E: I680Q156İ630 0QQ1:C,Q:% :680M DEE50:6000:1:1A,B:"":1A,B:m bA3,BA3,B:A,B3A,B3: vQ156EE100:3:1C,Q:6000 I13:CBX(I)8CBX(I)8B(I)0  C((1)260)8:Q0: B(O(X))B(O(X))1:(AC)2(BQ))B(3):CC((1)3)1:Mĉ::17::"THE END"::< 110s X(16384):16368,0:X176ĭB(O(X))O(X)4420 0:610::A((0)255)2733:B((1)255)1563:3:610: BX(O(X)),150A,B:0:BX(O(X)),150A,B:730:V:T(O(X)):B(O(X)): N:12:13)"MISSILE COMMAND":5000:O(X)((X128)):V21:A5:B5:1:I13:B(I)10:0,I156279,I156::2:0:3:0,1568,15016,156:132,156140,150148,156:279,156271,150263,156I13:BX(I),T(I):n200:5403 MB(1)B(2    GRAM IN CONJUNCTION WITH A REAL CUBE, YOU WILL WANT TO ASSIGN THE COLORS PROPERLY."! ::"DO YOU WANT TO ALTER THE FACE COLORS?";A$:A$(A$,1):A$"Y"ė::" :"SET YOUR CUBE BEFORE YOU. I WILL NOW ASK YOU THE NAME OF THE COLOR ON THE CENTRAL CUBEL:YSY3(R1):KK01:X,X1YKK:KK0 t C,R,F6 ~ @ :14` I02:0,39I:0,3939I:| 5:X237:0,39X:X: ::10S! "NOT ALL CUBES ARE COLORED THE SAME WAY. YOURS MAY BE DIFFERENT FROM THE COMPUTERMODEL. IF YOU WANT TO USE THE PRO2įTGG(N),2000D(N),GG(N)2:270E XX1VV.1:SGG(N),1000D(N),V{ 0:VPVP(GG(N)):VP16VP20VP24VP28VP32Ġ4 ZA,VP ":XX0D(142)26 ,XX2D(142)6 6XXXX1:XX0XX3āM13000::120 @XX0:V1:23:958:N12000::120"8 XX1Ģ23:958:" SINGLE TONE SOUND WITH VOLUME"n XX2Ģ23:958:" DUAL TONE SOUND REPRODUCTION" ZA0:N1142 GG(N)0āM1400::290 ZAZA2:ZA39ZA2 15:ZA,VP(GG(N)) XX0Ĺ927,GG(N):928,D(N)40:929:270 XXVP(47)18:VP(50)18:VP(53)20:VP(57)20:VP(60)22:VP(64)24:VP(68)24:VP(72)26:VP(76)26:VP(81)28 ZVP(85)28:VP(91)30:VP(96)32:VP(102)32:VP(108)34 dZZ1142:N:GG(ZZ)N:M:D(ZZ)M n xXX0Ģ23:958:" STANDARD APPLE MUSIC REPRODUCTION\  :)GG(142),VP(108),D(142):V1E4:N16324:0,39N:Z(:17:"FUGUE":223:4:"(C) 1982 WM. MORRIS & J. COPE"<ZZ784949:N:ZZ,N:F1013,76:1014,16:1015,3c PVP(33)10:VP(35)12:VP(37)12:VP(40)14:VP(42)14:VP(45)16:       TE-PROTECTED DISK.":3100`+ ::12:(7);"FATAL ERROR #";E%;" IN LINE ";(218)(219)256:+ "TYPE ABORT OR CONTINUE: ";AC$+& AC$(AC$,1)+0 AC$"A"ī2380+: 2184+D :F316:CLR$(F3):+N F216:R213:C213:R22C223170 ,X X%(E%11ĺ:(7);"DOS SYNTAX ERROR.":3100F* E%6ĺ"NOT FOUND.":3100n* E%13ĺ"IS NOT A TEXT FILE.":3100* E%8ĺ:"I/O ERROR";(7):3100* E%9ĺ"WON'T FIT ON THIS DISK.":3100* E%10ĺ"IS LOCKED.":3100+ E%4ĺ:"CAN'T BE SAVED ON WRI I N E !!":KK12500:KK)| J) 104,168,104,166,223,154,72,152,72,96h) I768777:P%:I,P%:I:q) 768) E%(222)) E%255ĉ::"CTRL-C IN LINE ";(218)256(219);(7):) (7);"FILE ";N$;".CUBE ";) E%5ĺ"IS DEFECTIVE.":3100(* DON'T WORRY. I'LL REMIND YOU. HIT A KEY";:A$(, :"EACH FACE HAS A ONE-LETTER NAME----F)RONT, P)OSTERIOR, L)EFT, R)IGHT, T)OP, AND B)OTTOM. HIT ANY KEY TO GO ON.";:A$)r :"FOR FULL INSTRUCTIONS, SEE THE ARTICLEIN S O F T S I D E M A G A ZITH A UNIQUECHARACTERISTIC COLOR. THE CENTER SQUAREDETERMINES THE CHARACTERISTIC COLOR OFEACH FACE. HIT A KEY TO GO ON.";:A$.( :"THE SYMBOL FOR CLOCKWISE IS + THE SYMBOL FOR COUNTERCLOCKWISE IS - THE SYMBOL FOR 180 DEGREES ABOUT IS 2 IK'S CUBE CRAZE IS SWEEPING THE NATION. THIS PROGRAM SIMULATES THE CUBE AND ITS TWISTS AND TURNS IN THE APPLE'S LOW RESOLUTION GRAPHICS. TO SEE WHAT THECUBE LOOKS LIKE, HIT A KEY";:A$& 2440:BEGIN%1:QUIT%6:2390' :"A CUBE HAS SIX FACES, EACH W"COPYRIGHT F. J. CONDO JR. 1981"&% % 20:"RUBIK'S CUBE IS A TRADEMARK OF IDEAL TOY CORPORATION, WHICH IS NOT ASSOCIATED WITH THIS PROGRAM"% KK13000:KK% :10:"DO YOU WANT INSTRUCTIONS?";A$:A$(A$,1):A$"Y"ı& :10:"THE RUBOU WERE (Q, R, OR G)? ";A$:A$(A$,1)5$d A$"Q"ė:O$n A$"G"İ2440:2620:a$x A$"R"2650o$ RESTART1|$ ::310$ A$"****************************************"$ 10:A$:14:A$$ 12:13:"R U B I C U B E"$ KK1500:KK % 16:5:#( X%(F,R,C)CLR%(FF) C,R,F:::,#< #F :"+:CLOCKWISE (T) -:COUNTERCLOCKWISE2:180 DEGREES (L) (F) (R) (P) Q:QUITS:SPIN CUBE (B) D:SAVE/RECALL";#P :34,23:%$Z ::12:"DO YOU WANT TO QUIT, RESTART, OR GO BACK TO WHERE YET OF EACH OF THE SIX FACES. HERE ARE THE COLORS I KNOW:"X" :F16:16);CLR$(F):Fe" 34,13:p" F16" "WHAT COLOR FOR THE ";F$(F);" FACE";" A$" FF16" (A$,1)(CLR$(FF),1)CLR$(FF)(27):2590" FF:2540" R13:C13,53,2,60,1,68,1,60,1,53,1,60,1,35,1,40,1,35,1,68,1,40,1,42,1,40,1,72,4,45,4,81,4,47,4,91,6 ,35,2,0,2,50,2,53,2,40,2,0,2,53,2,60,1,68,1,60,1,53,1,60,1,35,1,40,1,35,1,68,1,40,1,42,1,40,1,72,4,45,4,81,4,47,4,91,6 ,,91,6 1,45,1,47,1,45,1,35,1,40,1,35,1,57,1,35,1,40,1,35,1,53,1,35,1,40,1,35,1,57,1,35,1,40,1,35,1B 45,1,53,1,57,1,53,1,40,1,53,1,57,1,53,1,35,1,53,1,57,1,53,1,40,1,53,1,57,1,53,1,72,2,45,2,81,2,47,2,91,2,72,2,53,2,45,2ZL 50,2,35,2,0,2,50,2,53,2,40,2,0,28,2,72,1,81,1,72,1,108,1,53,1. 60,1,68,1,72,1,81,1,68,1,72,1,81,1,85,1,72,1,81,1,108,1,81,1,72,1,68,1,60,1,53,1,47,1,45,1,47,1,53,1,45,1,47,1,53,1,57,1,47,1,53,2[8 72,2,53,2,47,2,45,1,40,1,45,1,40,1,45,1,40,1,45,1,40,1,35,1,40,1,35,1,33,1,35,1,40,56,96,198,81,198,80,24,96j 0,0,173,48,192,136,208,5,206,160,3,240,9,202,208,245,174,159,3,76,161,3,96 81,4,53,4,68,6,72,2,81,2,68,2,72,2,81,2,85,2,72,2,108,4$ 81,2,108,2,72,2,108,2,68,2,72,1,81,1,72,2,108,2,81,2,108,1,81,1,72,2,108,1,72,1,63,134,254,165,253,133,251,165,254,133,252,198,251,240,6,70,255,165,255,16,7,173,48,192,165,253,133,251,198,252,140,6,70,255,165,255,16,7,173,48,192,165 254,133,252,32,143,3,144,217,96,32,245,230,134,253,32,190,222,76,70,231,165,80,208,8,165,81,208,2,t  201,83,240,7,201,84,240,55,76,201,222,32,132,3,138,41,15,133,255,165,253,133,251,198,251,208,25,173,48,192,165  253,133,251,164,255,234,234,136,16,251,173,48,192,164,255,234,200,192,16,144,250,160,10,136,208,253,32,143,3,144,217,96  32,132,30- X%(F2,R2,C2)CLR%(FC)[- C2,R2:BEGIN%F2:QUIT%F2:2390:F2:BEGIN%6:QUIT%6:2390- "IS THIS CORRECT?";A$:A$(A$,1):A$"N"3150- 34,20:2620:- F313:CLR$(F3),CLR$(3F3):F3:34,23:AF2,R2,C2)14,b C2,R2,F2A,l 2440:3300:BEGIN%2:QUIT%6:2390],v F216:R213:C213q, R22C223270, X%(F2,R2,C2)0, BEGIN%F2:QUIT%F2:2390, "COLOR NAME FOR THE DARK CUBELET:";A$, FC16:(A$,1)(CLR$(FC),1)3260- FC:32200:X5X4?PV(1)0PV(2)OPV(3)0PV(4)0WN1:750EwX314:PV(X3)7:C(X3)H(X3):G(X3)G1(X3):X3}WN2ė:"SORRY, YOU LOSE! THE COLORS WERE:":CC$(H(1));" ";CC$(H(2));" ";CC$(H(3));" ";CC$(H4)):980:780&SCSC((10Y)1X)PV(X1)0:C(X)255:G(X)254:X1X11:SCSC105 DX@ NX14L XX214 bG(X)C(X2)PV(X1)15:C(X2)255:G(X)254:X1X11:SCSC1:630 lX2 vX I1 X3((Y1)4)1 X413192 PV(I):X4,X3 II1PV(I)7įT50,10:X51 23:15:" ";J 24:15:" ";] 460:550:730d Yr WN2:750z I1 X5((Y1)4)1 X324302 G(I) X3,X5:T(((1)50)50),10 II1 X3  &X11 0X14. :G(X)C(350 OX2$"Q"ĉ::2 TX150:T200,5:X:250d ^CC$(G(X2));:T200,15:I1300:I:31:" ";{ hX2X21:X25ī250 r23:15:I14:CC$(G(I));" ";:I |23:30:"-OK(Y/N)";:W$ W$"N"Ģ23:30:" ";:230 W$"N"W$"Y"370* X21) 24:15:"E=CORRECT ERROR";T 23:15:"GUESS FOR PEG ";X2;" ";:X2$f X2$"E"ī230 X2$"T"G(X2)8:350 "X2$"O"G(X2)9:350 ,X2$"G"G(X2)4:350 6X2$"B"G(X2)2:350 @X2$"Y"G(X2)13:350 JX2$"R"G(X2)1:N U L D";# n"AND YOUR GUESS IS:"F x15::"GENERATING CODE...";:R X114g PS(((1)6)1)x C(X1)CA(PS) H(X1)CA(PS) X1 X250202:TX,7:X Y110 23:15:"ROUND ";Y;" "; X12000:X T80,100 2000 1020: 910=CC$(13),H(5),C(5),CA(7)(CC$(1)"RED":CC$(2)"BLU":CC$(4)"GRN":CC$(8)"TAN":CC$(9)"ORG":CC$(13)"YEL"2730<X116:CA(X1):X1A 1,9,13,4,2,8F800P:"T O G B Y R"Z"A R R L E E" d"N G            ,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,96: MB(1)B(2)B(3):CC((1)3)1:Mĉ::17::"THE END":: 110 769 (76779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205: n200:540< s813,192:814  : (> 2"DOS VERSION 3.3 08/25/80"p <:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"w F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776,104:< _777,72:778,205:L:12:13)"MISSLE COMMAND":5000:O(X)((X128):V21:A5:B5:1:I13:B(I)10:0,I156279,I156::2:0:3:0,1568,15016,156:132,156140,150148,156:279,156271,150263,156I13:BX(I),T(I)::110 -- DOS 3.3 HELLO  X4:X2024:3,8X:X82:X2024:18,23X:XT 8:X2024:33,38X:X :"COLOR TEST PATCH - ADJUST THE COLOR AND BRIGHTNESS ON YOUR SET SO YOU HAVE:"*10)"RED ORANGE YELLOW"49)"GREEN BLUE TAN";32:"ANY KEY";:W$:E NUMBER OF BLACK AND WHITE PEGS YOU WERE AWARDED, AND HOW MANY"o"ROUNDS IT TOOK YOU TO BREAK THE CODE.":"HIT RETURN TO CONTINUE";IS$::15:X135:0,39X:X1:X913:3,8X:X9:X913:18,23X:X13:X913:33,38X:TO BE AWARE OF IS THAT THE CODE MAY CONTAIN DUPLICATE COLORS. A VALID CODE COULD BE:"::" TAN YELLOW TAN RED."B:"YOU ARE GIVEN TEN ROUNDS TO BREAK THE APPLE'S CODE. IF YOU GUESS IT IN TEN ROUNDS OR LESS, YOU WIN, AND ARE SCORED BASED ON THBLACK PEGS IS NOT IMPORTANT. ":~"THE APPLE ALWAYS GIVES OUT BLACK PEGS FIRST; SO, IF YOU GET ONE BLACK AND TWO WHITE PEGS, IT MIGHT NOT BE THE FIRST COLOR IN YOUR GUESS WHICH IS IN THE PROPER SEQUENCE."w:"ANOTHER THING :3:" RED YELLOW BLUE GREEN ":CL"AND YOUR GUESS IS:"oV:3:" RED TAN ORANGE BLUE ":`"YOU RECEIVE 1 BLACK PEG (FOR RED) AND 1 WHITE PEG (FOR BLUE)."j23:"HIT RETURN TO CONTINUE";IS$7t::"THE ORDER OF THE WHITE AND OARD AT THE LEFT. FOR EVERY COLOR THAT YOU GUESS CORRECTLY, THE APPLE PLACES A WHITE PEG IN THE HINT"8"BOARD. FOR EVERY COLOR YOU GUESS WHICH IS ALSO IN THE CORRECT SEQUENCE, YOU WILL GET A BLACK PEG."::"FOR EXAMPLE, IF THE APPLE CHOOSES:")BIS$"Y"1030$:"IN CODE BREAKER, THE APPLE SETS UP A PATTERN USING FOUR COLORED 'PEGS'. IT IS UP TO YOU TO DETERMINE THE COLORS OF THE PEGS AND THE SEQUENCE IN WHICH THEY WERE CHOSEN."h.:"YOU ARE GIVEN HINTS ALONG THE WAY VIA THE HINT B:1015,3POK$"":I0-WN11000JX1100:T100,3::1010T89,150:T89,150:T101,75:T108,75:T108,150:T112,75:T108,75:T108,255::12:9:"C O D E - B R E A K E R"23:9:"NEED INSTRUCTIONS (Y/N)";:IS$:IS$"N"ı1,133,000"7I135:I767,((POK$,I43,I41)):IPOK$"170,160,001,132,002,173,048,192,136,208,004,198,001,240,007,202,208,246,166,000,208,239,165,003,133,001,198,002,208,241,096"I133:I802,((POK$,I43,I41)):I1013,76:1014,0374:24,X:26,X:28,X:30,X:Xmp8:32,370:9:32,372:4:32,374:2:32,376:13:32,378:1:32,3710sz POK$"201,084,208,015,032,177,000,032,248,230,138,072,032,183,000,201,044,240,003,076,201,222,032,177,000,032,248,230,104,134,003,134,0000)::"YOU WIN!!! YOUR SCORE WAS ";SC/980Y "PLAY AGAIN (Y/N)?";PL$:PL$"Y"Ĭ30c::m :154X2331:0,38X:>10:0,3822:0,3832H0:X3364:23,31X:XR7:X1220:0,38X:X\0:X3364:12,20X:Xf0:X1:I150::1A,B:I2100021037:A:I,A:: 1,0,4,0,73,60,56,56,30,247,54,6,46,53,101,12,13,24,31,15,24,247,11,24,12,24,136,158,18,101,184,227,107,8,15,24,4,0,8,2140,20,271,38232,8:233,82:680p22:"SCORE:"E:IQ1:C,Q::680<DEE50:6000:1:1A,B:"":1A,B:\bA3,BA3,B:A,B3A,B3:vQ156EE100:3:1C,Q:6000I13:CBX(I)8CBX(I)8B(I)0C((1)260)8:Q0:B(O(X))B(O(X))1:(AC)2(BQ)25701A,BRD OR CAN'T RELOAD ( (768)0Ā{ ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..." , BX(O(X)),150A,B:0:BX(O(X)),150A,B:730730:V:T(O(X)):B(O(X)):BT:V:T(O(X)):B(O(X)): Q156İ630 0Q8)1250 4 --IF THERE, LOAD INTG AND PA#1; r X(16384):16368,0:X176ĭB(O(X))O(X)4420 0:610::A((0)255)2733:B((1)255)1563:3:610: --WRITE PROTECT THE CARD A(16254): $C082  --NO CA ARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."C ,IIF THERE, LOAD INTG AND PA#1# S 10:"(LOADING INTEGER INTO LANGUAGE CARD)"q "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082 --NO CARD OR CAN'T RELOAD  (768)0Ā= ":"...LANGUAGE C9,129:810,192:811,173:812,129:o s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,96: 769 (768)1250  --81,208:782,35:783,173:784,131:785,192:~ d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:! n804,0:805,208:806,208:807,10:808,173:80D,2"DOS VERSION 3.3 08/25/80"^<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"eF P --POKE LANGUAGE CARD FINDERZ768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776,104:* _777,72:778,205:779,0:780,224:7! !!!!S;" SHIPS SOUTH, ";E;" SHIPS EAST, AND ";W;" SHIPS WEST OF COORDINATES ";AX;",";AY;"."_ 150 17:15:"YOU WIN":B$;B$::" IT TOOK ";T;" SHOTS. ":" (BELOW 20 IS GOOD) ":OT0150 6HO420- @14:"SONAR REPORT"A JW0:E0:N0:S0S TY09:X09r ^AX9XAXĭA(X,Y)1EE1 hAY0YAYĭA(X,Y)1NN1 rAY9YAYĭA(X,Y)1SS1 |AX0XAXĭA(X,Y)1WW1 X,YV " THERE ARE ";N;" SHIPS NORTH, ";:12:15);"IT'S A HIT";B$= Z1700::HH1:A(AX,AY)4W :14:" 0123456789" Y09:15:Y;:X09:A(X,Y)240,240,250,260 "+";:270 " ";:270 "*"; :: 4:32:"^":32:"'":32:"N" "5:2:"SHIPS LEFT":6:H ,dH7:A(9,9):B$(7)(7))nZ1HIxAX((1)10):AY((1)10)^A(AX,AY)1ī120tA(AX,AY)1::22019:"INPUT X,Y COORDINATES: ";AX,AYDX0DX9DY0DY9150TT1:A(AX,AY)1ī200A(AX,AY)4220A(AX,AY)3:220 !! ! ! W(4)'K76807800:L:D1D1L:K,L:eLD17671ĉ::8:"ERROR! CHECK DATA LINES 7000-7022":K14:CO(K),PO(K),W(K):232,0:233,30,A$"201,084,208,015,032,177,000,032,248,230,138,072,032,183,000,201,044,240,003,076,201,222,032,177,22:958:SC0:C1:H8:B0:K0:Q0:OO:N0:R0:F0:M0:J0:A0:CC0:LL0:DF0:D0:L0:8000dp::zA6126:A:10:B122:"*";:::A711:A:10:"*";:31:"*"::8:14:"MASTER BLASTER":10:14:"BY STEVEN WONG"CO(7),X(4),Y(4),PO(4),2450$ 175,100:2460,. M120:N75:2450>8 250,40:2460TB M140:N100:2450fL 140,80:2460{V M45:N125:2450` 210,90:2460 M,NM1,NM1,N1M,N1M,N LL(KB):KR,0:LL1282190 LL2069999 LL2172500 2460Z )(HS9999):HS)23:"DO YOU WANT TO"O24:"PLAY AGAIN?";:13::" ";:e(1).5Ē0:2200J((1)71):J(J4)K((1)101):K2310,2320,2330,2340,2350,2360,2370,2380,2390,2400 M20:N20:2450 50,130:2460 M200:N145:L,5:TL50,5:L A:2005' >K13T H16298,0:L18:T200L10,3:T160,5:L R16297,0:L811:T160L10,5:T100,3:L \K f16298,0 p0:B14:2X(B),Y(B)::3:1XP,YP q16297,0zSCHSHSSC:21:36(HS9)(HS99)(HS999:DFY(A)W(A)8:2000 LCC1A VX(A)((1)46PO(A)):Y(A)5J `210p 3:0:1XP,YP:1:QQ1:Q72110 QQ1:Q72110 Q42005 A14 0:2X(A),Y(A) L10020025:TL,5:T255L,5:L Q:2X(A),Y(A) L20010025:TL16:30:(P0)FB(P1)FBLL6:40- LL6 160A E17W E:2X(A),W(C)8n TE35,5:T255E,5 PA1150::E 0 C3DF1:1090 $D02709 .D,W(C)D9,W(C) 8E10020025:TE,2:T200E,2::30:0: B2X(A),W(C)8CC((1)71):CO(B)CC(CC4)H z21:8(SC9999)(SC999)(SC99):SCm }L15:L:(1)Z45,(1)Z55: JJ1:J5HH1.5:J0 A14:1 0:2X(A),Y(A) Y(A)Y(A)H:Y(A)W(C)81000 CO(A):2X(A),Y(A) 30 % LYP)9100 F7 P0:0,100XP3,YP:279,100XP3,YP= Zq d0:0,100XP3,YP:279,100XP3,YP:2X(B),Y(B) nK12:16298,0:M10020050:TM,5::16297,0:M20010050:TM,5: sK xSCSC(160Y(B)):SC(SC):X(B)((1)46PO(B)):Y(B)5:c: 6000:80004Z$:3:Z$(8)XPXP30K!Z$(21)XPXP30^"XP270XP270#YP141YP141:0:1X1,Y1:3:1XP,YP:1:X1XP:Y1YP:(5:0,100XP3,YP:279,100XP3,YP:S5(1)75755:TS,2:2B14 <(X(B)XP)11(Y(B)" """""""""    IAM PU  19 DELAFIELD DRIVE6  ALBANY, NY 12205E  11/23/81((1)69):4000: I76767703:A:I,A::232,252:233,29:: 2,0,6,0,19,0,45,45,37,36,63,63,55,46,45,37,63,63,0,45,45,37,36,63,63,55,14,0 :HTW100"%": G(XLYK): JXH,YI1:XLYK,J: Y0Y31X0X693000   WILL:4020:4000 G2HTHTJ0 HTWG13000? 4010:150r ::16302,0:1:16:7:X35:Y16:4010:IJW 800:G0711 4010 800:G0730 XLYK,2:2XH,YI1::0,00,191279,191279,00,0:X35:Y16:150 Y((1)32):XF=H4:I16:J1:K16384:L70:M200:N204:O206:P200:2000s::Z14:16368,0:"LEVEL?(1-30)";LE:WLE2:700dYYJ:nXXJ:xXXJ::150YYJ:IJ60W2I1:Z(16384)::ZMZOZNZ1ZP Z1100,110,120,130,140"" " "