' +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:;<=>?  , = #""*( (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'??4)E81B $! h h Լ ռ ռ ռ`HJ>݌h Hh݌`IHɭ ɭ R`ӤL߼IHHHHhHH݌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ɜK JI8h hLߍ ԧ᜙߼IHͺ9ٜ췈뷠詷 뷍ߜLJ` H`ߜߜ8)H`H`H` L` R\ӛ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(  Ϡ@跻~!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`묍󺍍Ӡ򩍪ҠӠ멍Ӎ묍欠ɠ묠宍ҍҠɍΠҮÍĠōΠĮō΍Π΍čΠčӍΠӍڍΠڍӠϠΠӮӠϠΠӮ뮍ŠɠӍҠȍҠˍҍŠˍҠɍŠΠԍĠō΍čӍڍӍҠȍΠҮȍҠˍΠҮˍҍΠҍŠˍΠ       ,D$(C )C"   ~K ~KD,  `ICIC`(C C)C L L D.C#C-C H(CC-C#CJCL*MC(C C)C L D.C$C-C H(CC-C$CJCL*MC(C C)C LD.C%C-C H(CC-C%CJCL*MC(C C)C L LD.C&C-C H(CC-C&CJCL*MC(C C)C LD.C'C-C H(CC-C'CJCL*MD`DCi>C` K`ECi>C`ECi>C` .L`FCi>C`FCi>C` `L`GCi>C`GCi>C` L`HCi>C`HCi>C` L`0LC`C(CC)C L D.C!C-C H(CC-C!C ~KJCL*MC(CC)C L D.C"C-C H(CC-C"CJCL*MC" , " m1C=C " `>C ?C", >Cm@C >C?Ci"?C , `AC>C?C`?C\`?C[LJLbKMLJLFK?LJL*K1LJLK#E%`BCi>C`BCi>C` K`CCi>C`CCi>C` K`DCi>CD%  `0CH/CH ,I/C)/Chm/C/Chm0C0C`0&04N/CN0C/C /C0C 0C0 /C*.0C./CLWI` +*-?/T1i3s5Ƀ7ɨ9ɽ;Ґ=?LI1C`1C`1C`1C`1C`1C`1C`1C`1C`1C`1C`1C` ", =C (CC-C%C`D.CC(C C)CD+C&C-C dH(CC-C&C`D.CC(C C)CD+C'C-C dH(CC-C'C`D,(C )C".C$D%  D,(Cm+C(C )C".C$D%  (C(C ` HD(CD-C` H D(CD-C`D,(C )C".C$,J>CC?CCAC:C F`@LC ~KLC` D.CC(CC)C!C-CD+C dH(CC-C!C` D.CC(CC)CD+C"C-C dH(CC-C"C` D.CC(C C)CD+C#C-C dH(CC-C#C` D.CC(C C)CD+C$C-C dH(CC-C$C`D.CC(C C)CD+C%C-C dHAC ,J>CC?CCAC8C F9CLDFa0LtF9CKC1C3C@LC ~KLCC>CC?C3C@C9CAC ,J>CC?CCAC9C F:CLF8C`9C` F`CBCCCCCDCCECCFCCGCCHC vJ`:CLFb0LG:CKC1C4C GC>CC?C4C@C:CAC I/CCCCLE ~G$CL+E$C I/CCCCL;E G%CLSE%C I/CCCCLcE G&CL{E&C I/CCCCLE H'CLE'C I/C C C CLE 6H hI I8CLEb0LF8CKC@LC ~KLC1C2CC>CC?C2C@C8CD1 #1?M[ 0P`@p  CCCCCC8C9C:Cd/C'&0C!DCDCD CD CD CD CD CDCCCC DCCC!CLD!C I/CCCCLD "G"CLD"C I/CCCCLD PG#CLE#C      lX206Ā560Ičō%???--------#$$#$$$<757575757575757-$$$ ,'6 ,'>$?1-$?6?$-@R 6Rq/7D*,,,5>67?>'?<$',$...$%,*$%,t65>67?>'?<$',$%656$$$*$$$55.67>>7?<''<$%,,%66$%,*$%,t65>67?>'?<$',$%656nln$6 $ $6 8$5$------5>?????'-----5!$$II!$$$,66666'66%$$$$$$$$4:??:???7-------AQ:EE3S:F#:XEL:D:R:D:REHQHH.G END OF MUZETTA'S WALTZ SONG|23:868:"DO YOU WANT TO HEAR IT AGAIN? (Y/N)"023:37::" ";:CT5ST255:RW:37::" ":(16384)128įGT4:RW:(16384)128560DX(16384):16368,0XX217260 DTL:C#EPT(X75):B:A: END OF FIGURE 1T XTLT(X50):A:C#E:F#3:F#QS:F#QLHE AE3:B:D:F#:A4:DH:DS3:F#:A4:D:C#H#DS3:F#:A4:C#:BH.HE:BE:C#:ET:DE:C#:B:AS'T(X70):B:AE5T(X100):F#E4T(X70):E:D::B:F#E3HET(X50):AE4:󩮍ĠŬ뺍ĮōάÍҮӍҮʍōΠԬ뺍ӮҍӮҍӮύʮύЮύҮύӍōˬ뺍ҍŮˍԍҠɬ뺍Ү뺍ҮˍҮ̍ӍɮӍ宍Ҭ뺍ҍҮʍ̮΍ҮҍȬ뺍ҮȍӍčҠˬ덪퍍ō䮠Š 0`D:G#:C#:AE4L:R:RH:AES:R:RQ:AE:R:RQ:AE:R:RQ:END OF MEASURE 4i  START 3/4 TIME SECTION: DH4LT(X50):DS3:F#:A4:D:C#H:DS3:F#:A4:C#:BH.HEP:BEL:C#ET(X60):ET:DET(X75):C#:B:DET(X50):G3:GQS:GQLHE) AE4P:BET(X60):T TEMPO (IN BEATS/MIN)? ";X;:36,((36)3):"";X$:23:1:868M X$""380Y ,X(X$)j @X255X255y TX61X61 h NOTES TO "MUSETTA'S WALTZ SONG"INTRODUTION: |X:RE4TX:B:D:G:F#S':G:F#:DE:B:G3:MEASURE 1K F#T:G:F#S:EES:G: ::A$"PROGRAMMED BY":(41(A$))2:A$:A$"S. SCOTT ZIMMERMAN"::(41(A$))2:A$ ::A$"WITH":(41(A$))2:A$:A$"T.U.N.E.S."::(41(A$))2::A$: :A$"TONE UTILITY AND NOTE ENCODING SYSTEM":(41(A$))2:A$> X150:23:868:"WHA(1014)84(1015)146160: CHECK IF 'TUNES' IS THERE AND INITIALIZED\ (4);"BRUN TUNES" ::2:"** COPYRIGHT 1983 BY MINDCRAFT PUBL. **" 6:A$"MUSETTA'S WALTZ SONG":(41(A$))2::A$:::A$"FROM 'LA BOHEME' BY PUCCINI":(41(A$))2:A$W! *************************A * T.U.N.E.S DEMO 2 *a * BY S. SCOTT ZIMMERMAM * * COPYRIGHT (C) 1983 * * BY MINDCRAFT PUBL. * * CONCORD, MA 01742 * *************************E x(37403)169(38385)0ӠӠŠΧӠҮԠӠ٠ԬĠŠҠӠϠĠԠӠԠϠŮӠŮԠӠ٠ԬĠŠҠӠ̮ŠԠӠϠŠȠƠŠŮŠӠŠϠŠԮӠӠ̠͠ΠŠŮŠҠŠӠԠŠӠ̮ŠӠŠϠŠԮՠĠΠ٬Ǡή٬ΠԠĠŭנ̠ԠӠŠӠĠĠŠӮՠŠŠϠŠȮĠԠŠŠҠƠŭǠοՠŠΠŠΧ* $)(((( .**111 !$<88 633 $!!!!!!???*-- $ V06)- $$<(-5 $$$$  $$$$*--$$$$ 6666$$$$2111!66668 $$!)-*26>:*- 6$$$$---26;?7  #$,((5116>;*%1)$$$$---2>:?7 )*20)-- $;?? $)--2 !$$$---8 $$, 166>:*-  $$ 66>::3) $$$$ 6666(((* ?<L_u"/?Tgy%8<5>2 -$$$((511>?? 6.$$$$$---26;?7*-%16$$ --2-%1$$$$--66*- $$$$---?7*--$$$$---?7  #$,((-*- $?$$$$*-%6666-$$$$?5-    &.4BTh?'%%-.>657?<<,5&$4.IȰ %6<!7>7.5. -$??>..-%%''<475>.%< <-76)%6'<6.67,,5&,55<$%$7>7&-56???,--%???,--%???,--%???& PMİ3170!& PMPM0:YES10& YES35909& 650C& 1500M& 1730W& 3000a& 3510l&::7v&3100&::10:"THANK YOU FOR PLAYING"&$::17:" ZAPZ "::22:&.REN A DISK ERROR."=%R "ZAPZ CANNOT FIND THE FILES IT NEEDS."d%\ "PLEASE INSERT THE ZAPZ DISK AND"z%f "PRESS ANY KEY."%p A$%z % % 3500% "ERROR #";K;" IN LINE ";(218)256(219);"."% :"ZAPZ HAS TERMINATED ABNORMALLY.":% 390 $ K(222)$ ::)$ K25533203$ 3380[$ 11:7:"YOU HAVE ABORTED THIS GAME~$ 7:" BY PRESSING CONTROL-C."$ 23:"PRESS RETURN TO CONTINUE ";:16368,0:A$$ 54915$ 3510$* 3500$4 K6K83400$> 3480%H "THERE HAS BEES WON ***":#0 K01@#: 5:PL$(K);:(DOTS$,27(PL$(K)));Y#D (" "(WN(K)),3)`#N Kf#X #b ::12:"WOULD YOU LIKE TO PLAY ";#l AGAIN3200#v 3220# T$"AGAIN"# 3230# T$"ZAPZ":AGAIN1# 330# X(0)# # 3280$ƂLN#" 9:(21(WN$)2)::WN$:C" 11:18:"WINS!!":SND,SF3q" WINNER(TT4):WN(WINNER)WN(WINNER)1:15{" 3100" 23:1:"PRESS RETURN TO CONTINUE ";:16368,0:A$" " DOTS$"...........................":"27 PERIODS" #& 12:"*** GAM1):3SX(TX),SY(TY)1! B(TX,TY)(B(TX,TY)1)17! G! I1600:I! WN$PL$(TT4):WD(WN$)8:B$"++++++++++++++++++++++++++++++++++++++++":"40 PLUS SIGNS"! ::LN713:LN:(21(WD2)):(B$,WD):LN" LN812:LN:(21(WD2))1:WD2);:  ZQUIT2870  TXAX- " B(AX,TY)028707 , 2820A 6 2940V @ DY(ZD2)(ZD4)v J AYTYDY:ZQUIT(AY0AYSZ) T ZQUIT2940 ^ TYAY h B(TX,AY)02940 r 2890 | TTB(TX,TY) 16(B(TX,TY)2):3SX(TX),SY(TY)! 16(B(TX,TY)TT4TT5) ZQUIT2760G ZXTX:ZYTY:ZDRF(ZD,B(TX,TY)):SND,SF5Y RRTRUE2740c 2750m 2960w 2580 SND,7SF((TT0)(TXZXTYZY))  TT0 ZD1ZD32810 2880 DX(ZD1)(ZD3) AXTXDX:ZQUIT(AX0AXSZ)),0),PC((PL),1))- TXPC(PL,0):TYPC(PL,1)9 ZQUIT0C 2780L( 160l2 TT2((TXZXTYZY))2630v< 2700F B(TX,TY)0P TT1SX(TX),SY(TY)Z EX89d EXSX(TX),SY(TY):EXSX(TX),SY(TY)n EX:SND,SF4x ZQUIT1  KILL( ROW 2530( DX(CXPC(PL,0))C COLPC(PL,0)CXDXDX 5PLSX(COL),SY(CY):5PLSX(COLDX),SY(CY):SND,SF1 COL B(PC(PL,0),PC(PL,1))0:B(CX,CY)4PL:PC(PL,0)CX:PC(PL,1)CY  ZXPC(PL,0):ZYPC(PL,1) ZDAR(PC((PL ERER((DX)3(DY)3)&$ ER23600. 2380@8 CXNX:CYNYJB 2390XL SND,SF6bV 1960h` oj 0t CXPC(PL,0)2440~ 2490 DY(CYPC(PL,1)) ROWPC(PL,1)CYDYDY 5PLSX(CX),SY(ROW):5PLSX(CX),SY(ROWDY):SND,SF1PC(PL,1)))2400SND,SF6'2390_NXCX((A$RT$)(A$LF$)):NYCY((A$DN$)(A$UP$))~ER(NX0NXSZNY0NYSZ)ER23102340 ERER((B(NX,NY)0)(B(NX,NY)(4PL))) DX(PC(PL,0)NX):DY(PC(PL,1)NY):ERER(DX0DY0)D THIS GAME"330 )*YES2110342140>>54915HH3510RR2150m\GMODE,0:FULL,0:P1,0wf2210pA$(83)A$(115)2180z2200SFSF2210SND,SF61960A$RN$22402270((CXPC(PL,0))(CY(CX),SY(CY):1SX(CX),SY(CY)-A(RDKY)>A1282000H1960zKCLR,0:A$(A128):A$((A$)32(A$(95)))A$UP$A$DN$A$RT$A$LF$A$RN$2220A$(27)20402160::128:" DO YOU REALLY WANT"  8:T$"TO EN0:LN181191:0,LN279,LN:LNW0NM$PL$(PL)"@S TURN":NR140(9((NM$)2)):NR,191h:NC1(NM$)}DA((NM$,NC,1))NA64A901890X1910bA28l1920vAA63A:29NCCXPC(PL,0):CYPC(PL,1):233,81SX |1680$0:5((BXBY)0)X,Y,BY4BXbPC(0,0)0:PC(0,1)0:PC(1,0)SZ:PC(1,1)SZzB(0,0)4:B(SZ,SZ)5PL((1)2)KILL01830195024102550KILL1820PL(PL)1750&0:233,9:."AR((1)4):AR16:2X,Y:AR(BX,BY)AR1=,B(BX,BY)0`6(BXBY)1(BXBY)2SZ11610j@1650|J(1)PB1630T1650^R((1)2):T(((1)PF100)3):R16:TX,YhBTR(T4):BB(B6):B(BX,BY)B2r(BXBY)0(BXBY)2SZ1670"N"A$(110)14801490;RRFALSE:ERFALSE:IN$"NO"A\:FULL,0:3:1:233,8QX1399SZ:QY909SZ:PB0.10D100A(78):AA1:I0A:X(1):I:202,A:X(1)BX0SZBY0SZXSX(BX):YSY(BY)0:1X,Y:SND,SF820)ERFALSE1330!(134022DK:IN$(D)8<HFK((IN$))[PER(K0K100)nZERFALSE1390xd1400nPFK:IN$(PF)xA$(IN$,1):ERTRUEA$"Y"A$(121)14401460RRTRUE:ERFALSE:IN$"YES"1490A$IN$,NC,1)):A95AA321~(A65)(A90)1170;1180JA$A$(A)RNCd(A$)01210n1220PL$(CL1)A$:ERFALSEK((IN$))ER(K6K10)ER12701280SZK1:IN$(K) K((IN$))ER(K0K1050$A$(13)İ1100:@.L10ĺA$;:IN$IN$A$:LL1:1100Q8L10Č768,9[B1050LCV(37):CH(36):15:1:39);:CV1:CH1:VNG(A$"!"A$(122))((CL1CL2)((A$"A")A$"Z"A$(97))):`ERTRUE:A$""jNC1(IN$)tA((70 760CL700"QCLMT1:1::40);:CLMT1:1:CP$(CL);m40(DF$(CL)):DF$(CL)s}868IN$"":L0:CV(37):CH(36):15:1:"PRESS RETURN TO RESTORE FORMER ENTRY";:CV1:CH1A$:A$(13)İ1110:NGČ768,9:4ERTRUE840>900DHMT1:8::" INPUT ERROR - TRY AGAIN";TR:SND,SF6\23:1:"PRESS RETURN TO CONTINUE ";:16368,0:A$:1:39)fMT1:8:25);p1000z920DF$(CL)IN$1000950ERFALSE1000ER9MT:T$" ARE THESE OPTIONS CORRECT"1330BMT:1:868OYES990wMT:1:868:(21(MT$)2)::MT$CL1CPCLMT1:1::CP$(CL);:CLMT1:30 1030(IN$)0810 930*CL1120,1120,1230,1290,1350,14102):SZ(DF$(3))1:D(DF$(4)):PF50:RRFALSE:SFTRUEYbD$"BLOAD ZAPZ.SHP,A$800":232,0xlD$"BLOAD ZFONT.SHP,A$900"vD$"BLOAD ZAPZ.SND"::17::" Z A P Z ":3:7:"(C)1990 MINDCRAFT PUBL. CORP."CL1CP1000CL( "PLAYER 1","ALPHA". "PLAYER 2","BETA"K &"BOARD SIZE (6-10)","8"o 0"OBSTACLE DENSITY (0-20)","10" :"CHANCE OF REFLECTOR (0-100)","50" D"ROTATING REFLECTORS? (Y/N)","NO" NMT$" *** GAME SETUP *** ":MT54XPL$(0)DF$(1):PL$(1)DF$(34:KCLR49168:RDKY49152:SND768& G J12:I14:RF(I,J):I:J\ 4,3,2,1,2,1,4,3{ (64899)(64898)264490 510 UP$"I":RT$"K":DN$"M":LF$"J" 520 UP$(11):RT$(21):DN$(10):LF$(8) CP6:I1CP:CP$(I),DF$(I):IA$"Y"A$"y"A$"N"A$"n"370) h340E rYES((A$"Y")(A$"y"))K |u D$(4):RN$(13):FALSE0:TRUEFALSE PL$(1),B(9,9),AR(9,9),PC(1,1),RF(4,2),CP$(10),DF$(10),WN(1) SX(X)QXX18 SY(Y)QYY18 GMODE49232:P149236:FULL4929:ZSZS MX 320= DY((ZYDY)0(ZYDY)SZ)270F 320U MXSX(ZX)r MYSY(ZY)SY(TY)3DY "7ZSMX,MY:SND,SF2 ,7ZSMX,MY:SND,SF9:ZSZS 6MY @ JK0(36):K1(37):YES0 TK01:K11:T$;" (Y/N) ?";:A$ ^ x150% 16384,0:103,1:104,64< :(4);"RUN ZAPZ"F 3500t DX(ZD1)(ZD3):DY(ZD2)(ZD4):ZS0:0 DX((ZXDX)0(ZXDX)SZ)190 250 MYSY(ZY) MXSX(ZX)SX(TX)3DX 7ZSMX,MY:SND,SF2 7ZSMX,MY:SND,SF **********************; * ZAPZ *X * BY JEFFRY G. BROWN *u( * COPYRIGHT(C) 1988 *2 * MINDCRAFT PUBL.CORP*< * CONCORD, MA 01742 *F **********************PZ(21)dPM1:3260 n(104)64130          X217260 X206Ā$ 720MFET(X30):G2ET(X45):E3:FQL:RQHQ:MEASURES 32-33X END OF BACH'S INVENTIO VIII23:868:"DO YOU WANT TO HEAR IT AGAIN? (Y/N)"23:37::" ";:CT5ST255:RW:37::" ":(16384)128įGT4:RW:(16384)128720X(16384):16368,0̠ȠŠ΍Ġ٠ԠӠčӠҠƠ٠Ӡč͠ҠƠӠ芊ĠӠ͍X217260 X206Ā# 720FET(X30):G2ET(X45):E3:FQL:RQHQ:MEASURES 32-33W END OF BACH'S INVENTIO VIII23:868:"DO YOU WANT TO HEAR IT AGAIN? (Y/N)"23:37::" ";:CT5ST255:RW:37::" ":(16384)128įGT4:RW:(16384)128720X(16384):16368,0 lG3:B!4:A:B!:G3:B!4:A:B!:G3:B!4:A:B!:EE3S:C:G:E:B!4:G3:MEASURES 28-29CS4L:D:C:B!:A:B!:A:G3:F:G:F:E!:DES:GSL:F:E:F:E:D:C:D:C:B!:MEASURES 30-314A:B!:A:G2:FE:FS3:E:FES:A:B!:FET(X10):AET(X20)::A5:C#4:A5:D4:A5:B4:A5:MEASURES 21-22DE4:D:E:G:A:G:B:G:C#:G:A:G:FEL:D:B!ES:D:G3:F4:MEASURES 23-24XEEL:C:AES:C:F3:E!4:DSL:F:E!:F:D:F:E!:F:D:F:E!:F:B!:D:C:D:B!:D:C:D:B!:D:C:D:MEASURES 25-27YB!E4S:G3:B!4:G3:D4:G3:GEL4:FS:E!:D:E!:D:C:B!:C:B!:A:GES3:B!4:D:B!:G:D:MEASURES 16-18B!E5S:C#4:B!5:C#4:B!5:C#4:D:A:F:D:A5:F4:MEASURES 19-20-0GSL:F:G:B!5:C4:B!5:D4:B!5:E4:B!5:C4:B!5:F4:E:F:A5:B4:A:G3:A4:G3:F:E:F:E:D:CEL:CS4:B:CES:EE3L:MEASURES 9-10 FES:C4:E3:C4:D3:B4:CQL:RQ::RE:CES:E:C:G:C:MEASURES 11-13 CE5L:BS:A:G4:A5:G4:F:E:F:E:D:C:B!:C:A5:C4:A5:B!4:A5:C4:A5:A4:A5:MEASURES 14-15nB!:C:A:C:B!:C:A:C:B!:C:MEASURES 3-4 F4:A5:G4:A5:F4:A5:G4:A5:F4:A5:G4:A5:D4:F:E:F:D:F:E:F:D:F:E:F:MEASURES 5-6 BES:G3:D4:B:F:D:GSL:A5:G4:F:E:F:E:D:C:D:C:B!:MEASURES 7-8E AES:DSL:C:B:C:B:36,((36)3):"";X$:23:1:8681 X$""380= ,X(X$)N @X255X255] TX61X61 h NOTES TO "BACH'S INVENTIO VIII": |RETX:FE3S:A4:F3:C4:F3:FE4L:ES:D:C:D:C:B!:A:B!:A:G3:MEASURES 1-2. FES:A4:C:A:F:C:AS5L:C:41(A$))2:A$:A$"S. SCOTT ZIMMERMAN"::(41(A$))2:A$ ::A$"WITH":(41(A$))2:A$:A$"T.U.N.E.S."::(41(A$))2::A$: :A$"TONE UTILITY AND NOTE ENCODING SYSTEM":(41(A$))2:A$" X126:23:868:"WHAT TEMPO (IN BEATS/MIN)? ";X; CNh(-*-6616>26??:??8?8 $$$ $$)(-( 6$$1663;?'##$$!)--:::::: 66??8 $,((-596? $)-888(((0-?;-))?;?;-))?;-09"+-26;? $)   : F BLACK HAS ANY MOVES LEFT#GlMC02GvL6411FGCB(L)1ī7070vGCB(L)1CB(L8)0HB(L8)0MC1:L1:7070G(CB(L)1HB(L9)1)(CB(L)1HB(L7)1)MC1:L1GLGG:"I/O ERROR. PLEASE CHECK DISK DRIVE.":...":"I HAVE BEATEN YOU IN "CC" MOVES!":4490UF TEST IF WHITE HAS ANY MOVES LEFT^FMH0jF&L164~F0HB(L)1ī6990F:HB(L)1HB(L8)0CB(L8)0MH1:L64:6990FD(HB(L)1CB(L9)1)(HB(L)1CB(L7)1)MH1:L64FNLFXGb TEST I ANY MOVES LEFT?uEMH0MC0ĺ"THERE ARE NO LEGAL MOVES LEFT...":"WE HAVE REACHED STALEMATE - NO ONE WINS.":4500EMH1MC0ĺ"I HAVE NO LEGAL MOVE...":"YOU HAVE BEATEN ME IN "CT" MOVES!":4490.FMH0MC1ĺ"YOU DO NOT HAVE ANY LEGAL MOVES LEFTDHB(L)1L64:L:6840"DLID"I HAVE TAKEN YOUR LAST PIECE..."nD"AND BEATEN YOU IN "CC" MOVES!"xD4490D6940: DOES WHITE HAVE ANY MOVES LEFT?DMH0ī6890DD TESTS FOR STALEMATED6940:6900E7020: DOES BLACK HAVECCB(L)1L1:L:CL%C":21LC,"YOU HAVE TAKEN MY LAST PIECE..."pC6"AND BEATEN ME IN "CT" MOVES!"zC@4490CJ TESTS FOR COMPUTER VICTORYCT:22:"PLEASE WAIT WHILE I CHECK THE BOARD..."C^L18ChCB(L)1ī4400CrLD|L164RAP&BCD(222):LN(219)256(218)SB:"ERROR #"CD" OCCURRED ON LINE #"LN"."]B958hB62248B"(PRESS TO CONTINUE GAME.)";BG$:G$B:560B TESTS FOR HUMAN VICTORYBL5764BHB(L)1ī4320BLBL6411 & Y FOR REDRAW'A FIND FOR Y OFFSET6AYY9658YA(TYYY140((YY8)15):YY65aA2YYyA< FIND FOR X OFFSETAFX0APXX19AZ(((T8)(T8))10)XXX55(XX15):XTXX:XX9AdXXAnX0X175:AxXT4XX15AB ONERR TGAME BOARD@`:3@j4960'@t53303@~T164F@CB(T)1İ6340Y@HB(T)1İ6380`@Tu@CTCCĢ22:1170~@560@ REDRAW BLACK PIECES@6430@5180@@ REDRAW WHITE PIECES@6430@5180:5240@A  FINDING FOR X?10)"1. HELP"&?:10)"2. QUIT"K?:10)"3. RESTART CURRENT GAME"l?:10)"4. START A NEW GAME"?:::"PLEASE MAKE YOUR CHOICE:";?CH$?CH$?$G(CH$)?.G3ī6240?8G4Ľ:J100:100?BG4600,4550?L6080 @V REDRAW YYY140(YY15)>RYY>\>>f FINDING OFFSETS FOR X & YL>pXX6572m>z(LL$)XXX70((XX65)15)u>XX>YY18>RRYYY140(YY15)>YY>> MENU FOR GAME IN PROGRESS & RETURN>:>:::16)"GAME MENU">:: Y=:21:L$R$" TO "LL$RR$" IS ILLEGAL. PLEASE TRY AGAIN."="(PRESS TO CONTINUE GAME.)";=G$:G$= = FINDING OFFSETS FOR X & Y= XX6572=*(L$)XXX70((XX65)15)=4XX=>YY18>HR3<195,29200,29<>< EXTRACTS VALUES FOR P1 AND P2U<L1(L$):L2(LL$)r<L172L1L132:L$(L1)<L272L2L232:LL$(L2)<P1((L$)64)((R8)8)<P2((LL$)64)((RR8)8)<= INPUT ERROR 00,89;&200,83200,93';0 NUMBER 5I;:195,68200,68:195,68195,74j;D195,74200,74200,78195,78y;N NUMBER 6;X195,53195,63200,63200,59195,59;b NUMBER 7;l195,38200,38200,48;v NUMBER 8<195,23195,33200,33200,23195,2180,152:185,142185,152-:180,148185,148<: NUMBER 1Q:197,128197,138`: NUMBER 2:195,113200,113200,118195,118195,123200,123: NUMBER 3:195,98200,98200,108195,108:196,104200,104: NUMBER 4;195,83195,892135,142135,152140,152?9^135,142140,142:135,148139,148N9h LETTER Ft9r150,142150,152:150,142155,1429|150,148154,1489 LETTER G9165,142165,152:165,142170,1429165,152170,152170,148168,1489 LETTER H:180,14290,14290,152:90,14295,142>895,14295,152:90,15295,152Q890,14895,148`8 LETTER C8105,142105,152:105,142110,1428"105,152110,1528, LETTER D86120,142120,152:120,142125,1428@125,142125,152120,1528J LETTER E9TX6,Y27d)7n FILL IN WHITE PIECES47xF78J7XF,Y2XF,Y10Q7F^7F1112t7X2,YFX13,YF{7F77 DRAW COORDINATES7 LETTER A775,14280,142:75,14275,152780,14280,152:75,14880,1487 LETTER B80175156518065240#6X)6<6 BLACK PIECESE6Y20V6 X7017515`65180g6Xm6(62 OUTLINE OF ALL PIECES6<X6,Y2X6,Y10X2,Y106FX2,Y10X2,Y13X13,Y136PX13,Y13X13,Y10X9,Y10X9,Y27ZX9,Y22ı: ERASES FROM ARRAY FOR LEVEL 2. C58Z((1)8)1O5BHB(Z)0U5Lf5V DRAW BOARDw5`H70190155jH,20H,1405tH5~V2014015570,V190,V5V55 DRAW STARTING POSITIONS5 WHITE PIECES5Y1256X7U.)";4G$:34 DISPLAY OF LEVEL BEING PLAYED?4DSLE1[4DS4800,4810,4820,4830a4x4LE$"JOURNEYMAN":4LE$"ADVANCED":4LE$"MASTER":4LE$"GENIUS":4T57644CB(T)14T44T184HB(T)14$T15.LEOVING QUICKLY UP THE BOARD":3R4)"INTO HIS FORMATIONS."e3\:"4. EXPERIMENT. SEE WHAT WORKS AND"3f4)"WHAT DOESN'T. A LOSS REALLY ISN'T A"3p4)"LOSS IF IT CONTRIBUTES KNOWLEDGE"3z4)"TOWARD FUTURE WINS."4:::"(PRESS FOR MENHOME ROW."2 >2"1. ADVANCE PAWNS IN COORDINATED GROUPS"m2 4)"SO THAT NO PIECE IS LEFT UNDEFENDED."2*:"2. TIMING IS IMPORTANT - TRY NOT TO BE"244)"FORCED INTO BAD MOVES."2>:"3. YOU CAN OFTEN UPSET THE COMPUTER'S"3H4)"GAME BY M"Y"G$"y"ĉ::1001:4580P1:"DO YOU REALLY WANT TO QUIT? (Y/N) ";:G$i1G$"Y"G$"y"ī4580o11:"PLEASE PLAY AGAIN SOMETIME...":1 HELP1 2"TO WIN, POSITION PAWN ON COMPUTER'S":"HOME ROW BEFORE IT PLACES ONE ON YOUR":"044900& COMPUTER VICTORY)00:2120:E12G0DEE1:E0ī4470T0NEL120d0XES(49200)l0bELv0l44200v"I HAVE BEATEN YOU IN "CC" MOVES!!!"0"HOW DOES THAT FEEL?"00"(Y/N TO PLAY AGAIN.)";049168,00G$:G$1G$1 /|L/ 4190'H BL0ī3470'R MV(P,2)SQ8MV(P,2)SQ16MV(P,3)MV(P,3)15:3440(\ SQ40ī3BL0ī3200&v 3220K& (MV(P,2)SQ8)(MV(P,2)SQ16)MV(P,3)MV(P,3)2d& GOING FOR THE GOLDy& AL((SQ8).05)& BL0:ASSQ& 4190& BL0ī3470& SQ17ī3470& TEST FOR COL. TO LEFT& (SQ8)(SQ8)0ī3350& NSSQ7 ' AL0:ASNS% 4190"% BL0ī3100,% 3110b% (MV(P,2)SQ8)(MV(P,2)SQ16)MV(P,3)MV(P,3)2%& (((SQ8)(SQ8))10)1ī3220%0 SUPPORT OF PIECE TO THE RIGHT%: CB(SQ9)1ī3220%D NSSQ9%N AL((NS8).05)%X BL0:ASNS%b 4190 &l :ASSQ$ 4190 $ BL0ī2980*$ 3000\$ MV(P,2)SQ8MV(P,2)SQ16MV(P,3)MV(P,3)2q$ SUPPORT PIECES$ SQ17ī3220$ (SQ8)(SQ8)0ī3110$ SUPPORT OF PIECE TO THE LEFT$ CB(SQ7)1ī3110$ NSSQ7$ AL((NS8).05)% BLSQ15)1HB(SQ17)0)MV(P,3)MV(P,3)5V#" HB(SQ15)1HB(SQ17)1MV(P,3)MV(P,3)2`#, 2930m#6 COL. H#@ HB(SQ17)1MV(P,3)MV(P,3)5#J 2930#T COL. A#^ HB(SQ15)1MV(P,3)MV(P,3)5#h 2-ON-1 AND 3-ON-2#r AL((SQ8).05)$| BL0MV(P,3)MV(P,3)5:2810"" 2930;" ATTACK FROM COL. Ac" CB(SQ1)1MV(P,3)MV(P,3)5:2810m" 2930" FAVORING EQUAL EXCHANGES" (SQ8)(SQ8)0ī2880" (((SQ8)(SQ8))10)1ī2910" COLS. B-G'# (HB(SQ15)0HB(SQ17)1)(HB( (SQ8)(SQ8)0ī275042140K> COL. AnHHB(SQ23)1MV(P,3)MV(P,3)8RCB(SQ23)1MV(P,3)MV(P,3)4\DMMV(P,3)f COMPARE SINGLE/DOUBLE MOVESpSMDMMV(P,2)SQ8:MV(P,3)SM zDMSMMV(P,2)SQ16:2190)SQ60SQ61MV(P,3)MV(P,3)2E(SQ8)(SQ8)0ī2080i(((SQ8)(SQ8))10)1ī2120y COLS. B-GHB(SQ25)1HB(SQ23)1MV(P,3)MV(P,3)8CB(SQ25)1CB(SQ23)1MV(P,3)MV(P,3)4 2140 COL. H HB(SQ25)1v COL. A.HB(SQ15)1MV(P,3)MV(P,3)4QCB(SQ15)1MV(P,3)MV(P,3)1pSQ89MV(P,3)MV(P,3)34SMMV(P,3) DOUBLE MOVE AT STARTSQ57ī2190CB(SQ8)0CB(SQ16)0HB(SQ8)0HB(SQ16)0MV(P,2)SQ16:MV(P,3)9:2000ƫ1880)(((SQ8)(SQ8))10)1ī19209& COLS. B-Gh0HB(SQ17)1HB(SQ15)1MV(P,3)MV(P,3)4:CB(SQ17)1CB(SQ15)1MV(P,3)MV(P,3)1D1940N COL. HXHB(SQ17)1MV(P,3)MV(P,3)4bCB(SQ17)1MV(P,3)MV(P,3)1l1940 RRAY MV WITH MOVES AND THEIR WEIGHTO TOTAL OF 4 MOVES - START WITH WEAKESTe SQ=SQUARE TOKENtSQMV(P,1) STRAIGHT-AHEAD 1 SQUARECB(SQ8)0HB(SQ8)0ī17901970MV(P,2)SQ8:MV(P,3)6SQ17ī1940(SQ8)(SQ8)0 VICTORY S@ CLEARS OUT ALL OLD VALUES IN ARRAY MV_JP1PCjTC03x^MV(P,C)0hCrP|A1A2FL0198:560 FIND FOR VALUES FOR COMPUTER MOVES1MV(P,1):S2MV(P,2)# FILL A1HB(S2)0:5240:198$3:5180:CB(S2)1:CB(S1)0HT0:(7) TEST FOR AND REPLACES COMPUTER'S HOME ROW, IF LE=3SC1L5764CB(L)1SC0L"CR1SC1İ5120:4840:CR0:198,CCCT'66740: TESTS FOR COMPUTER350&<MV(P,3)WM1:TPP:PPC:W5-FP4PWLZM1M0:PTP:1390Vd6880enA0ī1410zxCT8LE1İ38901700 MAKE THE MOVE ERASE OLD POSITIONTS1:64300:5180 DRAW NEW POSITIONTS2:6430HB(S2)I SELECT MY MOVE..."PC0-GG1ī1250B(1).499ī1250QK6411qCB(K)1PCPC1:MV(PC,1)KxK1280K164CB(K)1PCPC1:MV(PC,1)KKP1PC 1750PW3451(P1PC2MV(P,2)0ī1HB(P2)1:HB(P1)03$CB(P2)1CB(P2)0:(7)=.(7)F8SH1QBL18cLHB(L)1SH0jVL`HR1SH1İ5040:4880:HR0:(7)jCTCT1t6630: TESTS FOR HUMAN VICTORY~ COMPUTER MOVES SECTION:22"PLEASE WAIT WHILE 8)0CB(P2)0CB(P28)0)ī980-5870:560F MAKING PLAYER MOVEP5920W05180:5240: ERASE OLD POSITION 600035180:5240: DRAWING NEW POSITION  FIXING ARRAYS\ STRAIGHT-AHEAD MOVE?f(P2P18HB(P2)0CB(P2)0)ī980Yp DIAGONAL RIGHT MOVEvz(P2P19CB(P2)1)ī980 DIAGONAL LEFT MOVE(P2P17CB(P2)1)ī980 DOUBLE MOVE AT START(P19P2P116)ī950960(HB(P2)0HB(P2R0R9ī7805870:560) RR(RR$)`((LL$)64(LL$)73)((LL$)96(LL$)105)ī810o 5870:560*RR0RR9ī83045870:560>5800:840H LEGAL/ILLEGAL MOVESRHB(P1)0ė:21:"YOU DO NOT HAVE A PAWN AT "L$R$".":5880:560RR$;:(RR$)27ī560'(RR$)8ī650Z::"PRESS RETURN TO MOVE, <---- TO CHANGE.";998:998:L113:1008:L:G$(G$)27ī560(G$)8Č1008:670R(R$)((L$)64(L$)73)((L$)96(L$)105)ī7605870:560 # N"MOVE THE PAWN AT ";: 1 SPACE0 X49168,0M bL$:L$;:(L$)27ī6080i lR$:R$;:(R$)27ī560{ v(R$)8ī610 1);"TO ";: 1 SPACE LL$:LL$;:(LL$)27ī560 (LL$)8Č926:998:"MOVE THE PAWN AT "L$;R$;:1008:620RR$:G3LE2:490! G4LE3:490* 320: 4840:4880C :3M 4960] 5050:5120g 5330w LE2İ4250 &LE3CR1:HR1 0:21: RETURN POINT FOR MAIN LOOP :4770 D" TO MENU";10);LE$" LEVEL" T10)"1. JOURNEYMAN"2 ^:10)"2. ADVANCED"I h:10)"3. MASTER"` r:10)"4. GENIUS" |:10)"ESC KEY TO BACK UP" :::"PLEASE MAKE YOUR CHOICE:"; CH$ (CH$)27ī150 CH$ G(CH$) G1ī490 G2LE1:490 :16)"MAIN MENU" ::/ 10)"1. HELP"J :10)"2. START GAME"_ :10)"3. QUIT" :::"PLEASE MAKE YOUR CHOICE:"; CH$ CH$ G(CH$) "G2ī320 ,G14600:G34550 6150 @::::13)"PLAYING LEVELS" J::(104)64Ĺ103,1:104,64:16384,0:(4);"RUN PAWNS"? d6550] nCB(64):HB(64):MV(16,3)m xN((78)){ J0ī320 CT0:J100 18)"PAWNS" 14)"BY DAVID ROTH" 12)"COPYRIGHT(C) 1990" 11)"MINDCRAFT PUBL.CORP." ::?" *************************C * PAWNS *d * BY DAVID ROTH *( * COPYRIGHT(C) 1990 *2 * MINDCRAFT PUBL. CORP. *< * CONCORD, MA 01742 *F *************************P(21):70904 Z                                        뺍΍ԮԍĬ뺍čӬY/N) ";:A$:A$:$20:1:868:IE4:E:GQL:EE:GH:1000:A$"Y"400l 2000:"TELEPHONE RING":X:8,6:6,27:I130:::1000:A$"Y"420 2000:"STATIC (GEIGER COUNTER)":XS2ST255:I180:8,(1)10:A::1000:A$"Y"440 :20:1:868:"DO YOU WANT TO HEAR IT AGAIN? (EE WHISTLE (?)":X:8,1:I150:A6:A#6::1000:A$"Y"340 h2000:"LOUDER REFEREE WHISTLE (?)":X:8,1:I150:C6:C#6::1000:A$"Y"360 |2000:"AMBULENCE SIREN":X:I14:CQ3:G2::1000:A$"Y"380$ 2000:"'CHARGE' FANFARE":GE3PT230:CA$"Y"260W 2000:"CTRL-G (BEEP) EMULATOR":X:I13:A#E5:RQ::1000:A$"Y"280 ,2000:"SNAKE (?)":X:I150:8,1:6,3:::1000:A$"Y"300 @2000:"LITTLE BIRD":X:I13:8,1:J26:6,J::J:X:RQ:I:1000:A$"Y"320< T2000:"REFER:6,I:::1000:A$"Y"200g 2000:"MONSTER ENCOUNTER (?)":X:I110:CT.3:C#::1000:A$"Y"220 2000:"SPACE SHIP MOVE (?)":X:8,5:I130:6,((1)2010):::1000:A$"Y"240 2000:"TICK-TOCK":X:I13:CT5PST255:RW:GT4:RW::1000:FT PUBL. CORP. *":6:A$"T.U.N.E.S. SOUND EFFECTS":(41(A$))2::A$:{ :A$"BY S. SCOTT ZIMMERMAN":(41(A$))2:A$ (4);"BRUN TUNES" 17::"SOUND EFFECTS:": 2000:"WHISTLE (?)":X:8,1:I240250:6,252I:::X:RH:X:8,1:I250%  *************************? * TUNES SOUND EFFECTS *^ * BY S. SCOTT ZIMMERMAN *} * COPYRIGHT (C) 1983 **BY MINDCRAFT PUBL.CORP.** CONCORD, MA 01742 **************************H x::2:"* COPYRIGHT 1983 MINDCRA       ] LHHH *IGI! ,0GLBX hh(`  (  B8L24:8:"(ANY KEY TO START GAME)";:AN$::6701ADRANT. YOU MAY BOMB ANYWHERE, BUT YOU MAY ONLY MOVE TO ADJACENT QUADRANTS.";." TO PLAY, FIRST ENTER THE X, THEN THE Y COORDINATE OF THE MOVE."8" IF YOU WANT TO PLAY THE COMPUTER, JUST ENTER 'APPLE' WHEN ASKED FOR A PLAYER'S NAME." YOUR ENEMY ON A QUADRANT SURROUNDED COMPLETELY BY WATER. WITHOUT AN ESCAPE, YOUR ARCHRIVAL CAN EASILY BE CAPTURED."P$" YOU DO THIS BY FIRST CHOOSING A QUADRANT TO BOMB NEAR THE ENEMY, AND THEN, YOU MAKE YOUR ESCAPE TO A SAFER QUNSTRUCTIONS"::" YOU AND YOUR ARCHRIVAL ARE STRANDED TOGETHER ON A TROPICAL ISLE. YOU EACH HAVE AN UNLIMITED SUPPLY OF SECRET ANTI-MATTER BOMBS WITH WHICH YOU CAN MAKE LAND VANISH AND ONLY SEA REMAIN !"" IT IS YOUR MISSION TO ISOLATE1,Y4X2:>Y,Y4X:Y,Y4X2:X1,Y:X1,Y2:X1,Y4:K:N15kB$:16303,0:B$:16304,0q23:11((N$(I))2):N$(I)" IS THE WINNER !!!":N13500::23:"ANOTHER GAME ? ";:AN$:AN$"Y"ĉ::670::::14:"I1:9X,X2Y:X,X2Y2:X,X2Y4:X2,Y1:X,Y3:iX,X2Y:X,X2Y4:Y1,Y3X2:X1,Y2:Y,Y2X:Y,Y4X2:X1,Y2:X,X2Y:X,X2Y2:X,X2Y4:X,Y1:X2,Y3:Y,Y4X:Y2,Y4X2:X1,Y2:X1,Y4: X,X2Y:YCR15CR:CR5 I890,900,910,920,930,940,950,960A*II1:M4X1:I6\>Y2835mHCR15CR:CRRI890,900,910,920,930,940\II1:fI12:CL(I):XPL(0,I):YPL(1,I):400:p16298,0:16301,0:16304,0:34,20:410zY,Y4X)A$(N$(I),5)A1$Z1:N$(I)A$&ZĢ16:1:"WHAT LEVEL OF SKILL SHOULD THE APPLE PLAY AT ? (1-4) ";:DF$:DF(DF$):DF1DF473016297,0:16304,07:Y039:0,39Y:4:Y332:5,36Y:Y34:I1:CRCL(1) X6344.PL(0,1)5:PL(1,1)13:PL(0,2)33:PL(1,2)184bI148:V(I):T(I)1::Z0:T(3)0:T(46)0 3,5,5,5,5,3,5,8,8,8,8,5,5,8,8,8,8,5,5,8,8,8,8,5,5,8,8,8,8,5,5,8,8,8,8,5,5,8,8,8,8,5,3,5,5,5,5,3 I12:4:2I8:"PLAYER #"I" ";:N$(I):(N$(I),5NT(48):XB$(7):A1$"apple":A$"APPLE":W1:SO16336ubCL$(1)"BLACK":CL$(2)"WHITE":CL(1)0:CL(2)15:CL(3)7lX18vY16SQSQ1:X(SQ)X:Y(SQ)Y:SQ(X,Y)SQ::6:"DO YOU NEED INSTRUCTIONS ?";:AN$:(AN$"Y"AN$"y")10308:"DONALD W. MILLER JR., M.D."::10:"COPYRIGHT(C) 1990"::10:"MINDCRAFT PUBL. CORP.":15:6::"BE SURE CAPS LOCK KEY IS DOWN"::22:1:"PRESS RETURN TO CONTINUE";:QQ$DX(48),Y(48),V(48),SQ(9,9),PM(9,9),CL(3),CL$(2),N$(2),RF(8),DR(8),NM(8) 1):90:F0:XX8XX1YY6YY1T(SQ(XX,YY))ĺB$:470]N1CT:SQ(XX,YY)PM(N,0)F1p:FĺB$:470V(SQ(XX,YY))1ĺB$:470XXX:YYY:370I:410&::13:" ";:"! STRANDED !"Y03:11:"A GAME OF STRATEGY":5:19:"BY"::$)$XX8XX1YY6YY1ĺB$:430OV(SQ(XX,YY))1T(SQ(XX,YY))ĺB$:430lXXX:YYY:340:CT0970:23:1:"AND NOW YOUR MOVE, "N$(I)" ? ";:AN$:AN$;:XX(AN$):" ";:AN$:AN$;:YY(AN$) M0:X1(PL(0,I)1)4:Y1(PL(1,I)2)5:SQSQ(X1,Y115:S(SO)::T(SQ(XX,YY))0:400:PL(0,I)X:PL(1,I)Y:xX1,X2Y:X,X3Y1:X1,X2Y2:X,X3Y3:X,X3Y4:I12Z(N$(I),5)A$170:23:1:N$(I)" ("CL$(I)"), BOMB COORDINATES ?";:AN$:AN$;:XX(AN$):" ";:AN$:AN$;:YY(ANXX1:BY5YY2b ^CL(3):NBY4BY:BX,BX3N:P13:S(SO):P:N:SQSQ(XX,YY):V1:90:V(SQ)0 hM0:X1(PL(0,3I)1)4:Y1(PL(1,3I)2)5:SQSQ(X1,Y1):90: r4:XPL(0,I):YPL(1,I):400 |T(SQ((X1)4,(Y2)5))19CL(I):XXX41:YYY52:PM(1)TM(N)TM(2)TM(N)TM(3)TM(N)TM(4)TM(N)TM(5)TM(N)TM(6)TM(N)TM(7)TM(N)TM(8)FFFF1:RF(FF)Nw N "RN(1)FF1:SQPM(RF(RN),0):XXX(SQ):YYY(SQ) ,N18:TM(N)0: 6NN340,370 @CT0NN1970 JNN:INN(2):540 TBX4LE'S TURN" NN(1)3I:NN(2)I, NN12\ XX(PL(0,NN(NN))1)4:YY(PL(1,NN(NN))2)5u M0:SQSQ(XX,YY):90 DF1RN(1)NM(0)1:SQPM(RN,0):XXX(SQ):YYY(SQ):NN340,370:CT0970 DF1330 140 FF0 N1NM(0)p TM(N)TW:PM(CT,M)DR(L)" L:NM(M)CT: K1NM(0):TM(K)TM(K)V(PM(K,0)):DF2SQPM(K,0):M1:90:N1NM(1):TM(K)TM(K)V(PM(N,1)):N:DF3İ160 K: LL1NM(1):SQPM(LL,1):M2:90:LM1NM(2):TM(K)TM(K)V(PM(LM,2)):LM:LL: :23:14:"APP********************************9 P16384::(17):550R ZCT0:AX(SQ):BY(SQ) dL154:DR(L)SQ(A,BW):DR(L1)SQ(AW,B):DR(L2)SQ(AW,BW):DR(L3)SQ(AW,BW):WW:L nVāL18:V(DR(L))V(DR(L))1::V0 xL18:V(DR(L))0T(DR(L))CTCT9* **********************************S * STRANDED *| * BY DONALD W. MILLER, JR., M.D. *( * COPYRIGHT(C) 1990 *2 * MINDCRAFT PUBL. CORP. *< * CONCORD, MA 01742 * F **        $$?????????????? TO THE WEST.YOU STAND ON A GRAY, SMOKING PLAIN. ONCEA LOVELY*--5???N->7->7-->??'%)-???.M)>;.M)>;.--??666.$$$255V$$$,666&)- ?6 $$-- -?'--?(-I$$6---?',-%)-?$ - d ?N1 $$-?VI!$,-?VI!$-m$$--?-??????????????$$-D66 $- $ 66`66 $d->?N1 $$Q.5?IWdAJOZemvd6.$&----;.M)>;.--??57-?7m57.I$$$,666666>$$$> '666>$$$$--->??757-,5;.--5???V--???.M)757--%5??--->??w)5?.5?.5? SHAPE TABLE. PLEASE TRY AGAIN.":!:16303,0:A$"ARE YOU SURE YOU WANT TO QUIT?":20((A$)2):11:A$;:"";A$:A$(A$,1)! A$"Y"A$"y"Ĺ16304,0:540!::Yay, the computer learns with each game."c "Press a key to begin.":49168,0:CLEAR KEYBD. STROBE X(16384):X127Ĺ16368,0:4:958: 2000  ERROR RTN. EL(218)(219)256"!EL100ė:12:"AN ERROR OCCURRED TRYING TO LOAD THE RETURN key to place the line. You may change the type of line""selected by entering an 'H' while in thevertical line mode or 'V' from the horizontal mode."( :"The game ends when either you or the computer captures 51 squares. By the wrizontal and vertical lines on the game grid to make a square.":"First, decide if you want to draw a horizontal or vertical line by entering 'H' or 'V'. The line is then moved on">"the grid with the left and right arrow keys. Press the 1SC$(S(1)):1870$DSC$(S(0))DN(SC$)2SC$"0"SC$:1870^XX240:C1Y70:1900hbY100lI12:S((SC$,I,1))37:SX,Y:XX6:vC1T$(C)SC$:T$(C)SC$: INSTRUCTIONSB:"The object of CONNECTION is to place ho::1050FLFL0:TJ11:)TJ1ıHB%(BL10)2AA1::1050NdBL(TJ1)10TI:u DRAW PIECECS4:1800S51830:STX,TY POSITION PLAYER MARKER&TX66(TI13):TY12(TJ13):0 UPDATE SCORE:C@1760JB%(BL)B%(BL)1ATB%(BL)4İ1780:S(C)S(C)1:MV1P^FLFL0:\hTJ1ı~rB%(BL10)B%(BL10)1:TJTJ1|B%(BL10)4İ1780:S(C)S(C)1:MV1 CHECK STATUS OF HOR. MOVETJ11TJ10:FL11760B%(BL)2AA1)S(C)1:MV1; CHECK FOR STATUS OF VERTICAL MOVEQTI11TI10:FL1[1760wB%(BL)2AA1::1050FLFL0:TI11:B%(BL1)2AA1::1050" SET STATUS OF HORIZONTAL POSITION,C%(TI,TJ)16TJ11TJ10:FL1(A$)2:A$:0n CHECK FOR COMPLETED SQUARES@xR%(TI,TJ)1VTI11TI10:FL1`1760tB%(BL)B%(BL)1B%(BL)4İ1780:S(C)S(C)1:MV1BL$(BL):(BL$,1)"1"ıFLFL0:B%(BL1)B%(BL1)1:TITI1 B%(BL1)4İ1780:S(C1:5TJTJ1:C%(TI,TJ)0İ1370:1330:1580:TT1:Y(: PROGRAM SHOULD NOT GET HERE|2K125:STX,TY:L120:::< LOCATE VERTICAL LINEFTX63(TI13):TY12(TJ13):P LOCATE HORIZONTAL LINEZTX66(TI13):TY2(TJ13):d20)3J((A$,2))1:I10%I0I104J11J10S(A$,1)"0"(A$)3JJ1bJ11J10pTII:TJJS3:R%(TI,TJ)0İ1350:1330:1400:TT1: TITI1:R%(TI,TJ)0İ1350:1330:1400:TT1:S2:TII:C%(TI,TJ)0İ1370:1330:1580:TTS3:1350:1330:1400:TT1:YI10TITI1:R%(TI,TJ)0S3:1350:1330:1400:TT1:I10TJ1:TII:C%(TI,TJ)0S2:1370:1330:1580:TT1:I10TJ2:C%(TI,TJ)0S2:1370:1330:1580:TT1:A$(I):I((A$,1)):J((A$,1))1:(A$TI,TJ)0S3::109081050.BASKİ1510FL1350:1330:1400:PV1050`TI((1)10)1:TJ((1)11)1:C%(TI,TJ)0S2:1140j1050tASKİ1690~1370:1330:1580:1050 FIND OPEN AREAI10TJ1:TII:R%(TI,TJ)0(TI,TJ)0İ1370:8309504 COMPUTER'S MOVEoA$"The computer is deciding on a move..."::22:1380X141:M0:A1I1100:B%(I)3İ1180:I100:TTTT0:FL0:N((1)2)$N11120.TI((1)11)1:TJ((1)10)1:R%(80:fMĕSTX,TY:M02pX214X246S3:590AzX149950aTI1TJ1TI10:TJ11:930~TI1TJTJ1:TI10:930TITI1C%(TI,TJ)0İ1370:830900TI10TJ11TI1:TJ1:980TI10TJTJ1:TI1:980TITI1C%1350:620 740-S2: HORIZONTAL MOVEf J111:I110:C%(I,J)0TII:TJJ:I10:J11:1370n*:|416368,0>X(16384):STX,TY:M(M1):X136X149X141X214X246Ĺ16368,0:850H830RX141MĕSTX,TY:Cı\X141İ15ĕSTX,TY:M0'X200X232S2:7906X149740VTI1TJ1TI11:TJ10:720sTI1TJTJ1:TI11:720TITI1R%(TI,TJ)0İ1350:620690TI11TJ10TI1:TJ1:770TI11TJTJ1:TI1:770TITI1 R%(TI,TJ)0İ2:790"DS3:A$"Q"A$"q"2050[NJ110:I111:R%(I,J)0TII:TJJ:I11:J10:1350cX:qb16368,0lX(16384):STX,TY:M(M1):X136X149X141X200X232Ĺ16368,0:640v620X141MĕSTX,TY:CıX141İ1400: M HUMAN MOVE1:23:M0:"(Q)uit";:22:36,0&"(H)orizontal or (V)ertical line:";:A$:A$"H"A$"V"A$"h"A$"v"A$"Q"A$"q"Č198:5400:22:"Use left and right arrow keys to select move. Return to make move.":A$"H"A$"h"Sake the first move."=X(16384):A((1)9)1:X127470`16368,0:A2(A2)C1:500hC012:958:CPL$"Computer"CPL$"Human""The "PL$" will make the first move.":I13000::16304,0:16301,0:16300,0:16297,0:1230,60:22230,90? J01:CJ:1850:: DRAW INITIAL SCORE\  SELECT WHO MOVES FIRST :" *-* CONNECTION *-* ";::" By Rudy A. Guy" A$"(c) 1988 MINDCRAFT PUBL. CORP.":1380 SK50İ194012:"Please press a key to see who will m"00"::SKSK5:140# @ TIE GAMEU JA$"The game ends in a tie!"::21:1380:280e T DRAW GRID| ^I1100:B%(I)0: hJ1514513 rI7520513:1I,J:I,J |I111:J111:R%(I,J)0:C%(I,J)0:J,I J35:I610:I35,J:JJ18: 2MV0:170 C((C1)):1708 :I15:(7)::22u S(0)50A$"Congratulations human, you win!":1380:280 A$"Too bad human, I won!":1380 I13000: "23:7:"Another game?";YN$ ,(YN$,1)"n"(YN$,1)"N"ĉ:: 6I01:T$(I)%(11,11),C%(11,11),B%(100)$ SK50= :::3:0,0:3082n SC$"00":T$(0)"00":T$(1)"00":S(0)0:S(1)0w 350 CHECK FOR WINNER I01:S(I)50250 :S(0)50S(1)50320 MOVE C1540,1010 SC$T$(C):1880:1850 MV,0:(4)"RUN CONNECTION": RELOCATE BASIC CODE ABOVE HI-RES F(48896)76ADR768:ADR,32:ADR1,248:ADR2,190:ADR3,96:ADR: PRODOS FREEBUFF CALL P2030 Z(12)(21) d(4)"BLOAD CONNECT.ST":232,0:233,147:1:0:216,0 n37632 xR  ************************? * CONNECTION *^ * BY RUDY A. GUY *} * COPYRIGHT (C) 1988 * * MINDCRAFT PUBL. CORP.* * CONCORD, MA 01742 * ************************; <(104)64Ĺ103,1:104,64:16384          z# Ӯ Ӯ Ӯ ȮӠ Ġ ӠAڠ ڮĠڮР ԮР"Ӡ  ӮϠʮϠЮϠ ҮϠ!ĮŠΠԮԠ ҠԠҮà ҮӠ" ҮʠӮҠӮҠ  Ӡ ɮӠҠҮʠ̮ΠҮӠŮˠϠՠҮȠ&ӠĠҮˠҮ̠ RN> for next page or for menu";:49168,0:49152,128W(49152)155FLAG$"ESC"]$. *********** ATTACH UPPER/LOWER CASE ROUTINE8I023:ML:768I,ML:I:768:B ********** DETACH UPPER/LOWER CASE HANDLER L54,240:55,253:100Ģ19:(7);"Disk Error. Please insert Nibble disk":1010j19:(7);"An error #"(222)" has occurred. "23:"Press to continue ";:958:49168,0:49152,128:600 ********** WAIT FOR KEYSTROKEFLAG$""923:" to continue";p49168,0:49152,128:z ********** QUIT SELECTED:::22::958:"Do you really want to quit? (Y/N)";:49168,0 49168,0:UBROUTINE& 61N:SX:X$(SLOS);:I ********** SELECTION ROUTINEb SL(ME1)İ860:600*SLMEİ900:SL1:780:68042:1:" "::2:1:RC$(SL);:> ********** EXECUTE A VALID MENU CHOICEH49168,0::1100:D$;RC$128):Z$"1"Z$(PP)SL(Z$):NOS:780:700Z(Z$(21)Z$(10))(Z$(8)Z$(11))10(Z$(13))20(Z$(27)):Z950Z20ī380SLSLZ(Z10):SLSLME(SLME)ME(SL1)NOS:780:Z10700800  ********** PRINT POINTER S1:"----------------------------------------"u23:1:"Type number or use arrows, then ";:PX10:SX4:SL1 ********** SELECT CHOICENSL:OSSL:780:Z0:24:868:PPME:ME9PP901:12:SL;" ";:49168,0:16384,128::Z$((16384)(1)"-->":Ab1:1:"Selection: : Instructions"ul3:"----------------------------------------";v5:20((A$)2):A$I1ME2:61I:8:I". "MP$(I):61(ME1):8:ME1". Catalog Disk"61ME:8:ME". Quit"-2 ON THIS DISK ARE"<&6:"COPYRIGHT (C) 1990 BY NIBBLE"e06:"MINDCRAFT PUBLISHING CORP."56:"52 DOMINO DR, CONCORD MA 01742"::17:5:"UNAUTHORIZED COPYING IS ILLEGAL"D1030N ********** SET UP MENU XMEMM2:X$(0)" ":X$U TEXT SCREENS A1 :3T S$(A)"@"İ1030::3:((FLAG$"ESC"))490:600g S$(A)"#"510r S$(A) AA1:460  ********** LAST TEXT SCREEN BEFORE MENU :3 6:"Thanks again for your order !" 12:6:"ALL PROGRAMS**** UPPER/LOWER CASE ROUTINE@ r ********** FIRST TEXT SCREENK |::3 "Thank you for purchasing the Nibble":A$;"!": "The programs on this disk are:": Z1NP:5:P$(Z):Z 1030:FLAG$"ESC"ī600  ********** CYCLE THRU NIBMENNP = NUMBER OF PROGRAMS ON DISK5 I1NP:P$(I):Ia MM: MM = NUMBER OF VALID MENU ENTRIES "I1MM:MP$(I):RC$(I):I ,S$ 6I0 @II1:768,SS$:S$(I)SS$ J(S$(I),1,1)"#"350 T320 ^D$;"CLOSE" h(1101)6İ1080: ******S OF TEXT INSTRUCTIONSH RC$(20): RC$ = COMMAND USED TO RUN PROGRAM} MP$(20): MP$ = PROGRAM NAME TO APPEAR IN MENU D$;"OPEN NIBMENU" D$;"READ NIBMENU" A$: A$ = DISK NAME NA$"NIBBLE "A$:20:20((NA$)2):NA$:1 NP: ********* GET HI-RES SCREEN AND SET DISPLAY SWITCHESe x11:3:"MINDCRAFT PRESENTS NIBBLE SOFTWARE" 15:13:"PLEASE WAIT..." ********** READ INFO FROM NIBMENU TEXTFILE 1120 P$(20): P$ = PROGRAM NAME  S$(300): S$ = LINE ******* 8/08/86 *******;* HELLO *X* BY OWL *u(* COPYRIGHT (C) 1987 *2* BY MINDCRAFT PUBL. *<* CONCORD, MA 01742 *F***********************P16384Z::D$(4):(21)d9704 n *       ΣR $Lԅ o ɢ ILɠ-)̡ѭ 𵎡L6,ҩL  = {ڥ ٰ %LamiLS`i`ĠӠծ̠էŠĠϠԠƍĮҠˠΠҠԠŮ͍ϠŠԮҠӠŠōϠŠԮĠΠӠΠŠĮŠΠӠšŠӍĠӮӡՠĠŠ΍ĠԠԠƠŠŠŮϠŠĠŠЮҠӠŠŠϠ뺍Ӎڬ뺍ڍڮЍԮЍڮčӬ뺍Ӎ&@,.%$666&$?><76$$$46.,(-5-=77??<>>'$??,,,(6.-???...-=?/-,-=7.=?'--?'??-5>?--,%'4>/57'-56$,&-.><-<',.$%5>'46=.-.><??,,,-5,-..>??/->>66$$'',$465--??>6&$'??-  1,251,176,2,233,31,76,240,253S3,0,2,201,3,208,3,76,99,216e 169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165 135,164,136,133,184,132,185,32,183,0,96,0 ********** UPPER/LOWER CASE ROUTINE DATA 160,11,169,3,132,54,133,55,76,234,3,201,225,144,6,202:3V ********** INSTALL INPUT-ANYTHING ROUTINEB`X768839PjA:X,A:Vt~ ********** INPUT-ANYTHING ROUTINE DATA 32,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,165 184,164,185,133,135,132,136,32,44,213,17"YOUR BEST:DIF= ";DF;" SEGS= ";SF;" BFLYS= ";MFk21:"THIS GAME:DIF= ";DD;" SEGS= ";SEG;" BFLYS= ";BFLY}X%X:Y%Y:50: WHAT DID WE HIT%?ID(ADR%): LEAF=62 OR 8 Y1(Y17)7#\X110X1269ī8409fY17Y1147ī840PpXS%X1:YS%Y1:N0%Yz470lHIT%N1%ī840BXN1%BXN0%:6X1,Y1:XS%X:YS%Y:X%X:Y%Y:F20:D1:2780:2780:505X1,Y1:XS%X:YS%Y:X3X1:Y3Y1:2810:RLN1%RLN0%:Z/:23:1676,11676,38139,38139,32139,3573,3573,119139,119:133,18209,18209,136133,136133,130203,130203,24133,24133,18133,21206,21206,133133,133* SELECT RANDOM LEAF4Z15>RLN1%HX1((1)279):Y1((1)159) RX1(X17)73:,119:203,60203,94209,94209,60203,60206,60206,94DDN5ē139,3270,3270,122139,122139,11676,11676,38139,38139,32139,3573,3573,119139,119:203,32203,122209,122209,32203,32206,32206,122 DDN6ē139,3270,3270,122139,122139,1,60203,94209,94209,60203,60206,60206,94DDN3%ē70,3270,12276,12276,3270,3273,3273,122:203,32203,122209,122209,32203,32206,32206,1226 DDN4%ē139,3270,3270,122139,122139,11676,11676,38139,38139,32139,3573,3573,119139044X1,YX1X1N7%$Z>LR%N0%:LX%94:LY%70JZ020xCNR%(Z,0)N0%:CNR%(Z,1)N0%:CNR%(Z,2)N0%Z5,2274,2274,1595,1595,26,3273,3273,1586,1586,3-DDN2%ē70,3270,12276,12276,3270,3273,3273,122:20340:LMAX%40:SMAX30:BIRDN1%LXDDN4%BMAX%30:LMAX%30:SMAX50:BIRDN1%zbDDN5BMAX%20:LMAX%20:SMAX75:BIRDN1%lDDN6BMAX%15:LMAX%15:SMAX99:BIRDN1%v DRAW BORDER & CATERPILLARX129:Y70:JN1%1X,Y:2X,Y:X1XN7%ZT DIFFICULTY (1-6) ";DD.DDN1%DDN6ī530=&BFLYN0%:0N1%:N0%:N3%::SEGN5:BCTR%N0%:LCTR%N0%:CM%N0%:21:OD%N0%:ND%N0%:DDN1%BMAX%1000:LMAX%1000:SMAX10:BIRDN0%DDDN2%BMAX%1000:LMAX%150:SMAX20:BIRDN0%NDDN3%BMAX%8%))C3%(XS%N7%)qYS%C1%YS%C2%YS%YS%C1%:ADR%(YS%N8%)C2%C4%(YS%N8%(YS%N8%))C3%(XS%N7%)YS%C2%YS%YS%C2%:ADR%(YS%N8%)C2%C5%(YS%N8%(YS%N8%))C3%(XS%N7%)HIT%N0%(ADR%)HIT%N1%::"SELEC1X%,Y%! JN1%Ĕ2X%,Y%:440. 3X%,Y% LCTR%LCTR%N1%:LCTR%LMAX%LCTR%N0%:N0%:N0%:5X3,Y3:BXN0%:N3%:XX%:YY%:840 BCTR%BCTR%N1%:BCTR%BMAX%BCTR%N0%:XX%:YY%:1910 50YS%C1%ADR%(YS%N8%)C2%C3%(YS%N8%(YS%N JCM%CM%N1%' TN3%:ND%:4X%,Y%; ^ DRAW NEW HEAD hND%OD%CNR%(CM%,0)ND%:CNR%(CM%,1)X%:CNR%(CM%,2)Y%:CM%CM%N1%:OD%ND%:ND% rND%RT%X%X%N7%:410 |ND%DN%Y%Y%N7%:410 ND%LT%X%X%N7%:410 ND%UP%Y%Y%N7% LX%N7%:280+ LR%DN%LY%LY%N7%:280I LR%LT%LX%LX%N7%:280b LR%UP%LY%LY%N7% CNR%(0,1)LX%CNR%(0,2)LY%LR%CNR%(0,0):300 "340 ,ZN0%CM% 6CNR%(Z,0)CNR%(ZN1%,0):CNR%(Z,1)CNR%(ZN1%,1):CNR%(Z,2)CNR%(ZN1%,2) @# ND%DN%YS%Y%N4%:XS%X%:150B ND%LT%XS%X%N4%:YS%Y%K 470h HIT%N1%XX%:YY%:970 K%160XX%:YY%:1700 ERASE HEAD N0%:8X%,Y% JN1%JN0%:230 JN1% ERASE LAST SEGMENT 8LX%,LY% LR%N0%LX%(4);"RUN PILLAR.MUNCH"' (3010:2210I 2K%(16384):16368,N0%:OD%b <K%201ND%UP%:100{ FK%202ND%LT%:100 PK%203ND%RT%:100 ZK%205ND%DN% dZ0GS:Z nND%UP%YS%Y%N4%:XS%X%:150 xND%RT%XS%X%N4%:YS%Y%:150$***********************;* PILLAR MUNCH *X* BY RICHARD NEDBAL *u* COPYRIGHT (C) 1983 ** MINDCRAFT PUBL.CORP.** CONCORD, MA 01742 ************************ (104)6440103,1:104,64:16384,0               M& NPRES0[&$ ::ZN0%g&. Z020v&8 TX$(Z)" "}&B Z&L ZN0%&V D$;"OPEN HIGH.SCORES"&` D$;"READ HIGH.SCORES"&j TX$(Z)&t Z202450&~ 2450& TX$(Z):ZZN1%:2410'BY"T%14:11:"RICHARD A. NEDBAL":22:"* COPYRIGHT 1983 MINDCRAFT PUBL. CORP. *"Z% A& Z04000:Z:IN PLACE OF TUNE %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%8272$D$;"BLOAD SOUND"$D$;"BLOAD METSHAPES"$232,28:233,3$::10:13:"'PILLAR MUNCH"%12:18:"..............")#*FFFF0:D$"CLOSE":1#4D$L#>D$;"OPEN HIGH.SCORES"g#HD$;"READ HIGH.SCORES"o#RA$z#\2170#fA$#p2130#zD$#24:"ANY KEY TO CONTINUE";#T$#2530##CNR%(20,2),TX$(20)#D$(4): CTRL-D$N0"" *********************************"0"T""D = DIFFICULTY THAT WAS USED"""S = NUMBER OF BODY SEGMENTS REACHED"""M = NUMBER OF METAMORPHOSES ATTAINED"" ".""". NAME DATE D S M"# ".........................RDN0%ī50!BXN1%:8405!D$;"OPEN HIGH.SCORES"Y!D$;"POSITION HIGH.SCORES,R";PSc!1080~!D$;"OPEN HIGH.SCORES"!D$;"DELETE HIGH.SCORES"!D$;"OPEN HIGH.SCORES"!D$;"WRITE HIGH.SCORES"!" HISTORICAL HIGH SCORE INFORMATION"*X4,Y4N1%X4,Y4N1%:X4N1%,Y4X4N1%,Y4\ &N0%:X4,Y4N1%X4,Y4N1%:X4N1%,Y4X4N1%,Y4b 0k :190 DID(ADR%):ID24ID65ī990 NX4(X4N7%)N7%3:Y4(Y4N7%)7:OD%DN%Y4Y4N7% XN0%:ID127ID73ī1900 b8X4,Y4 l190 !vBI560BIRDN0%ī1900X4X:Y4Y:D4N4%<Z114EN3%[OD%N0%X4X4D4qOD%DN%Y4Y4D4OD%LT%X4X4D4OD%UP%Y4Y4D4X4272X47ī190Y4157Y43ī190XS%X4:YS%Y4:D4N7%:470HIT%N1%ī1860) Y2154Y210X2136:Y277:1620=JX2269X27X2136:Y277DTZ^BFLY9ĉ::12:"YOU HAVE ATTAINED RANKING OF"::"***GRAND MASTER***"::"FOR DIFFICULTY LEVEL ";DD:1050hX217:Y2154:N1%:N3%rZ1BFLY|7X2,Y2X2X214ZYS= ";BFLYLCTR%N0%!840@:BFLYBFLYN1%:N0%:2870QX2136:Y277]Z025oN3%:7X2,Y2Z10GS2:Z1N0%:7X2,Y2R1((1)3):R2((1)3)R10X2X27"R11X2X27,R20Y2Y276R21Y2Y27@dLR%N0%LX%LX%N7%0nLR%DN%LY%LY%N7%IxLR%LT%LX%LX%N7%bLR%UP%LY%LY%N7%pN3%:LR%4LX%,LY%SEGSMAXī1490:23:"YOUR BEST:DIF= ";DF;" SEGS= ";SF;" BFLYS= ";MF 21:"THIS GAME:DIF= ";DD;" SEGS= ";SEG;" BFLX,Y:1260JN1%:3X,Y0N3%:Z10GS:Z1HJN1%Ĕ2X,Y:1290S3X,YZ Zl: ERASE LEAFuN0%(ND%RT%X3XN7%:Y3Y2ND%LT%X3XN7%:Y3Y<ND%UP%Y3YN7%:X3XFND%DN%Y3YN7%:X3XP8X3,Y3ZSEGSEGN1%::23:"DIF= ";DF;" SEGMENTS= ";SF;" METAMORPHOSES= ";MFc~24:"GAME OVER PRESS ANY KEY";kT$t530N0%:1X,Y:2X,Y:3X,YN3%:ND%1X,YZ010SQ(16336):SQ(16336)N0%:Z10GS:Z1 JN1%JN0%:21%ī1930%.D$;"APPEND HIGH.SCORES"A8D$;"WRITE HIGH.SCORES"XBSPAC19NL:SD8DLLSF10ĺNAME$;SPAC);DT$;SD);" ";DF;" ";SF;" ";MFVSF10ĺNAME$;SPAC);DT$;SD);" ";DF;" ";SF;" ";MF`D$"CLOSE":D$jNPRES0NPRESN1%:2340=t 2950BFLYMFDDDFī1050BFLYMFDDDFSEGSFī10501150MFBFLY:SFSEG:DFDD$NPRESN ID62ID8ī1180 END OF GAME ̠ȠŠ΍Ġ٠ԠӠčӠҠƠ٠Ӡč͠ҠƠӠ芊ĠӠ͍ӮӮӮ栲嬠宍ԠU|yvspmjgc`]ZWTQOLIFC@>;8631.,*'@ŠҠ@Π @̠Р>@CF@ΠE @ AJJJ`ŴxaI1C-A/ ? AJJJ`& ')*& *'JJ) **- m- ʥ0J)m-)(`)J Ji,`#" ! & #` L # !" #`#&/'$% #`E%0Q&&C [ De@DEeAPF0'@0- &`0(A) &E%0Q&&AeC)j00', "&, i8i#H&ii&hif&i'`'i, &i, &iPII&.if&JJJJC)@IȄB-ADE/D8e@D ? EeB  .WSP.)`*()H)&JJ&&h' &' &' f&') .'#i-| 0J, i` @ & Q&%0Q&&`H()*hH8(H)C hIiHCAEh@Dh()*IiB*fC8@A+-  8DeBDEE+5&:D20:2780, F1:D20:27801, F1:D20:2780E, F1:D200:2780K, V, 3030|, D$(4):D$"VERIFY HIGH.SCORES":, (222)6FF1:1980:, "ERROR "(222)" IN LINE "(218)256(219)NE+ F150:D1:2780*+ F200:D1:2780>+ F200:D1:2780R+" F150:D1:2780X+, m+6 BUTTERFLY TUNE+@ F20:D1:2780+J F63:D1:2780+T F100:D1:2780+^ F145:D1:2780+h F100:D1:2780+r F145:D1:2780+| + END TUNE , F1 ENOUGH YOU WILL"?* :"METAMORPHIS INTO A BUTTERFLY.....BUT"o* :"DON'T RUN INTO ANYTHING EXCEPT LEAVES."* ::"USE THE SPACE BAR TO SPIT."* 24:"PRESS ANY KEY TO CONTINUE";* 255:T$* 530* 768,D:769,F* 770* + LEAF TUMF(MF$)9)Z :"DO YOU WANT INSTRUCTIONS? (Y OR N) ";T$J)d T$"N"ī530U)n 100:)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 GS0( NL(NAME$):DL(DT$)N( DL8ĺ"8 OR LESS CHARACTERS PLEASE":2540Z( Z020r( NFILE$(TX$(Z),NL)(( NFILE$NAME$NPRESN1%:PSZ:2630(2 Z(< 1070(F DF$(TX$(Z),29,1):SF$(TX$(Z),32,3):MF$(TX$(Z),36,2) )P DF(DF$):SF(SF$): 216,0: CLEAR ERROR&' D$;"CLOSE".' D$T' 24:"PRESS ANY KEY TO CONTINUE";\' T$' :"ERASE HISTORICAL INFORMATION? (Y OR N)";T$' T$"Y"ī1960' NPRESN1%2550' :"YOUR NAME PLEASE: ";NAME$' "TODAY'S DATE (MM-DD-YY): ";DT$(`Lr`蠠̠͠Ǡ֠Ҡᠠΐߠ𠠠Π栠ŮԬϠ堏頩`.`/`@` {k`` g Sg ` c>`>` Sg gL`4`8`5`9`6`:`7`;`0`4`1`5`2`6`3`7`/`P  `0I)`  ` OUR SCORE OF.."SC" WAS RATED:"/19:4:M$:@21:16:BB$F2EXEC OFFICER."84500D@M$"VERY GOOD..PROMOTED TO 1ST OFFICER"NB4500wJM$"EXCELLENT! PROMOTED TO CAPTAIN!"L4500TM$"OUTSTANDING! PROMOTED TO REAR ADMIRAL"V4500^M$"SPECTACULAR! PROMOTED TO FLEET ADMIRAL"`450018:"Y2004120SC3004130+SC5004140<SC6504150MSC7504160^SC8504170pSC10004180z4190M$"LOUSY":4500M$"POOR":4500"M$"FAIR":4500,M$"NOT BAD..APPRENTICE RATING".45006M$"GOOD..PROMOTED TO .";HS "CONGRATULATIONS!") HSSC:I6:5:"YOU SHOT DOWN....."_7:16:A;"..";A$u8:16:B;"..";B$9:16:C;"..";C$10:16:D;"..";D$11:16:E;"..";E$12:16:F;"..";F$13:16:G;"..";G$SC1004100 SC:3786  :936) SCHSİ35003 4000c 21:"ANOTHER MISSION? HIT RETURN";X$:2015 SC0:17227,0: RESET SCORE AND NUMBER OF SHOTS A0:B0:C0:D0:E0:F0:G0:20 "YOUR SCORE OF ";SC;" HAS BEATEN THE":"PREVIOUS HIGH SCORE OF.0,0:802,159:3786*&800,0:802,0:3786D(800,0:802,130:3780`*800,124:802,154:3786|,800,136:802,154:3786.800,255:802,130:37860800,0:802,140:37802800,124:802,156:37864800,136:802,156:37866800,255:802,140ED.."422:"PREV HIGH SCORE=";HS;:26:"SCORE.."[23:"LAST HIT=";:27:"SCORING.."h812,255I1100:XX(1)250:YY(1)120800,XX:802,YY:3780:I800,0:802,0:3780 800,255:802,0:3786"800,255:802,159:3786$80G$(20),X$(2),M$(40),BB$(4)j BB$" ":A$" TIE FIGHTER ":B$" KLINGON CRUISER":C$" HOSPITAL SHIP " D$" KLINGON FIGHTER":E$" TIE SUPPLY SHIP":F$" TWA FREIGHTER " G$" COMM SATELLITE ":936:N4000:21:"TIME LEFT..";:23:"SHOTS US6:868:SC:EE1:< X17226,0:23:10:F$;:37:"-40":X0c ]SCSC40:22:36:868:SC:FF1: 17226,0:23:10:G$;:37:"-20":X0 SCSC20:22:36:868:SC:GG1: 21:35:868:S:  A$(20),B$(20),C$(20),D$(20),E$(20),F$(20),SCSC40:22:36:868:SC:BB1:L ,17226,0:23:10:C$;:37:"-50":X0s 1SCSC50:22:36:868:SC:CC1: 17226,0:23:10:D$;:37:"+30":X0 SCSC30:22:36:868:SC:DD1: 17226,0:23:10:E$;:37:"+20":X0 SCSC20:22:300:35 !X7İ700:352 #S(17227):STİ800: $TSO (NN1:21:16:Ng -N1000N100İ5000{ 2S300N03000 724 d17226,0:23:10:A$;:37:"+50":X0 iSCSC50:22:36:868:SC:AA1: 17226,0:23:10:B$;:37:"+40":X0# (4);"BLOAD HI.RES":103,1:104,16:4096,0:(4)"RUN STAR.ATTACK"T 2000:17227,0a 17226,0g r 17434 2050:26 17563 X(17226) X1İ100:35 X2İ200:35 X3İ300:35 X4İ400:35 X5İ500:35 X6İ6G ! *************************A * APPLESOFT STAR ATTACK *a * COPYRIGHT (C) 1983 * *BY MINDCRAFT PUBL.CORP.* * CONCORD, MA 01742 * *************************A (104)1615:(4);"BLOAD STAR.AL":(4);"BLOAD SHAPES":     3` 02` a``@`p  0 a``L j` kg``A`i; `E`i ` `Q` 0 a`````` vmwm`)4 `Lj `` i;` i  ` 0 a``Lxj``Lsj` @  B`V`JC`W`VD`X`HE`]`XF`G`H`^`_```I`J`K`L`M`(N`PO`xP`Q`e`` kg``` `m`l`` ` `` `=o!`iC`i  `o 0  ` ``` Lqi`` Lli` kg0`i;1`i ``````` vmwm`)`JJJJ `````ũ `` h h h _i i 2j nj k j l fl j.`>`?` g >`8 >`Ȱ `?`>` Sg`PRUW @`P0`4`1`5`=`3`7`2`6``PA`U`p` ?` ok-`` k k-`L#fP>`?` g >`i>`@`@` hhQT` PhhhL` `I ` kg {g` pg ug` `@`T`U`.`+?` ` g?`>`` g`0` g g`M`M0`M1`M`MM?`Mm`Mn```` ```` `` h Phm`80`L#fn`81`L#fLfp`>`LGf LIf)LGfLIfq``a`i `Y`i; ` `i` 0 am`i;n`i q` 0 a`m`A`n`E`q`Q`o`I`p`M```Lc``=o```=o` `Io``p`L#f>`!`n`8m`l`p`!m`8JJJJ`n`8m`oo`Le g)`Le```V`0`m`Le1`n`Lse g)4`0`m`Le `>` `I ` ` fW`Le`1`n`Le `>` `I ` ` f#`LLe g) ` f ` `) `Le `o```A`m`E`n`I`o`M`p`Q`q`U`Y`]`a`e`i`m`U`n`]`q`e`p`"Xn`m`RY >`p`Ljdp` `)n`Xm`ɊLdLdo`omm`m`omn`n`m`m`Ldɝm`m`8)Len`8)Len`Xp` o`Io`Lem`8JJJJLgL^cW) ` kg Ac `` I>`-` ok` k kL^c0`i;1`i  0 a`3`3`3`=`&=`o `0`m `0`=`o `1`m `1`0`0`Lcɝ0`8`i;9`i ;` 0:` a0`i;1`i 3` 02` a`=`o2``` cLib=` fLib=`Lib=`<`Lib<`A=` Lib<`$ <`=` cLib<`  <`=` c0`)L^c1`)L^c0`JJJ`1`JJvmwm`)`_) ` kg b pg b `?` ok` k kLb0`i;1`i  0 a` ` `0I)` `0<`L1a<`L1a `0<`L1a<`L1av/`0<`LaɈ<`Laɕ<`La<`Laɓ .`I.`Laɛ 0!LaɒhhLr`Ɋ/`Laɋ/`0`8)Lb1`8)Lb0`8JJJJ`1`8m`l`<`<` f <`=17:7:"SCORE: ";SC;" HIGH SCORE: ";HS;:868R 15:12:"G A M E O V E R"l I12000::16368,0 16304,0:16297,0 I1250:(16384)127180 ": ,I1250:(16384)127180 6:2700,128 : ---CLEAR PAGE 2% :+ 1 :C ---PLAY GAMEI :T 24576Z :t ---FLIP BETWEEN TEXT AND HI-RES WHILE WAITING FOR ANOTHER KEYPRESS : SC0 X2459724606:SCSC10(X): SCHSHSSC1 ABLE Q:3 Z20:1:12)"LOADING SHAPES";:868\ d:(4)"BLOAD NIBBLER.SHAPES,A$1500"b m:} n---SET TABLE POINTERS o: x232,0:233,21:1 : ---WAIT FOR KEYPRESS : 20:8:"" 16368,0 16384:":13:" N I B B L E R ":13:":"13)":"{ (:12:"* COPYRIGHT 1983 MINDCRAFT PUBL. CORP. *":9:12:"BY: BRENT IVERSON" 1: 2---LOAD MACHINE LANGUAGE 3: <20:11:"LOADING OBJECT CODE" F(4)"BLOAD NIBBLER.OBJ" O: P---LOAD SHAPE T! **********************A * N I B B L E R *a * BY BRENT IVERSON * * COPYRIGHT (C) 1983 * * MINDCRAFT PUBL.CORP* * CONCORD, MA. 01742 * **********************::) 5:13:":"13)"    Ҡ?cccc?3c3333 33?3?3??337;3? ? ?333 ???3?3??0??333?337;3å堤ϠǠapfpkpppupzpppppp?333? 3??0>0?33?00?0??3??3000?3?3??3?00 $(,0I3XAXA31H(LCN%I)0ĔCITYXA,YARI\* DRAW B&XLCN%0,6: NUMBER OF CITIES LEFT1bJ16clLCN%J,1:CITY #J IS OK IF 1, DESTROYED IF 0jvJDADS:ADJUSTABLE DIFFICULTY FACTORLDS%,DASCRE0:TOTAL SCOREEXTRA500DA:SCORE REQUIRED FOR EXTRA CITY IN ARCADE MODEALARM32,LBYTE:233,HBYTE* * INITIALIZE RESTI SPKR16336:APPLE SPEAKERS 2170t &* RETURN HERE FOR EACH PLAY 0* RESET VARIABLES FIRST :LBN%1,10:# OF MISSILES AT BASE 1, DLBN%2,10: BASE 2, ANDNLBN%3,10: BASE 3; <0 IF DESTROYEDTART%122: MISSILE Y SPEED LOCATIONQ LSHPE%START%140: SHAPE TABLE LOCATIONu * INITIALIZE COLORS AND SHAPES BLACK0 LIME1 WHITE3 CITY1 MISSILE2 HBYTE(LSHPE%256):HIGH BYTE LBYTELSHPE%HBYTE256:LOW BYTE 2LTY LOCATION2 6LERR%START%100: ERROR LOCATION? @LERR%,0R JSTART%101,FS] TI15 ^START%104I,128((TKEYS$,I,I)) hI rSTART%110,TS |START%114,XS LXSP%START%115: MISSILE X SPEED LOCATION START%121,YS$ LYSP%SCODE STARTS AT $40005 CD$;"BLOAD SAFAST,A";START%G START%81,ASp LBN%START%83: BASE ARRAY LOCATION START%87,BS I13 START%88I,128((BKEYS$,I,I)) I "LCN%START%92: CITY ARRAY LOCATION ,LDS%START%99: DIFFICU& nBKEYS$"ASD":LEFT, CENTER, RIGHT4 xDS(770)B FS(771)P PS(772)^ TS(773) TKEYS$"OK.;L":UP, LEFT, DOWN, RIGHT, STOP XS(774) YS(775) * INITIALIZE SAFAST INTERFACE CD$(4):CONTROL-D START%16384:MACHINE E **********************9*SURPRISE.ATTACK *U*BY JEFF G. COX *q(*COPYRIGHT (C) 1987 *2*MINDCRAFT PUBL.CORP.*<*CONCORD, MA 01742 *F**********************P* INITIALIZE GAME OPTIONSZAS(768) dBS(769)          BF=< |D<=`w@x@~@ :`w@x@~@ W`w@x@~@ `n@n@`@.@`CR@ 5G@@ |D ^B8鸍`@@ OG@@@@ OG@@u@v@|@}@p@ F A( 0` D C 5G@@ `S@0IG+C0 iLFi 8FLE, 0L3Em, LWEim B BW@}DX@|DLE|De@a0 LE  |D<= F F F|DLFS@20 LF :C|DS@ Cw@kCx@lC~@` @@F BGF@w@@x@@@ BGF@~@` (B`s@t@z@{@`}Dn@< r@Iii(  y@IJiLaE}Di@LDvDwD,0@@ ]`x@ w@0 0d@hh`~@ɿ`   0d@hh`0+Cy/Cw@*x@0~@`w@jCx@kC~@lC CD/F [B BFe@@e@A BGF@<@=`<=> &e<'= 0@0d@hh`D<Dj B<= B` 0` 0`&BN****)'BO)M'B8&O&NO8&BLMBm&B` BJ uv` B&&&8` B8/` B0%/UiUi`w@x@~@ C 5G<-%-$%')- ?M2&6--$$??68<=8>? B ȹ d@hh` BG B/<= B BG` A< =0d@hh`   ) ȹ) @@ LHLBLFDL]DLALCALCLBLBLBLFLGL(GL5GLBL~DL:CL[BL^BL DLDLAL(BLBGLOGLmCL B(ˮ@@@AA GKx %$,45>6.%%,6.$$$%.6/6/6/-$$56.$$$56.6$,56%$$%55>7-6/-$55-4o(6>'D; $--?6755- %$<<2=7..-. KEY$ j SIDENT HAS"3 "DECLARED DEFCON 4 (GENERAL WAR)."_ "ACTIVATE YOUR REGIONAL ABM DEFENSES."e $ "GOOD LUCK, YOUR COUNTRYMEN ARE". "DEPENDING ON YOU."8 B 16368,0L "ACKNOWLEDGE RECEIPT OF MESSAGE BY"V "PRESSING RETURN...";`PORTS THAT A"5"NUMBER OF ENEMY NUCLEAR MISSILES"a"ARE APPROACHING THE CONTINENTAL U.S.""INTELLIGENCE INDICATES A STEADILY""INCREASING ATTACK WITH SINGLE ICBM'S,""MULTIPLE ICBM'S, AND MANEUVERABLE" "CRUISE MISSILES. THE PRE)(SPKR)(SPKR)HJ'RJ150:J.\I4fPp* INTRODUCTORY DISPLAYZz2090b:"** ALERT ** ALERT ** ALERT ** ALERT **""FROM: NORAD WARNING CENTER""TO : REGIONAL ABM COMMANDERS" "WE HAVE CONFIRMED RE)12050WHITE0!19XA124I119:YA152?RJ1(LBN%I)[X,YrMISSILEXAX,YAYyJ  0,0,5,0,10,0,15,0,20,0: ROW 1 0,4,5,4,10,4,15,4,20,4: ROW 2 * SOUND ALARM*I144J120>A(SPKRCORE &21-0"YOUR FINAL SCORE IS ";SCRE@:* PLAY AGAIN?FDfN"PLAY AGAIN (Y/N)? ";INPT$XINPT$"Y"INPT$"N"1830bINPT$"Y"570lv:* HERE ARE THE UTILITY ROUTINES* DRAW MISSILES FOR BASE I(LBN%IADDBNI10BNI10'LBN%I,BNIB1950:* DRAW MISSILESIIS1180p* HANDLE ERROR MESSAGESERR(LERR%):ERROR NUMBER"PROGRAM ABORTED DUE TO FATAL ERROR: ";ERR2090: SOUND ALARM* DISPLAY FINAL S@ d@L/MLHNC? @ @L0w@x@~@@ @ 0(MH'Hg@H '@@@g@ g@0LL     LI   )ȥ )LL%OLK0LK B@0D'd @o@)Pș)}))ȩ}))Șjh@0h@  c@  B@` @c@ B@00 ?@ L_H    -@d@L/M @ *@02LKLILJ16368,0:16384,128Z:"TO FIRE"'8)"-------"8)"-------"; 11)"W"14)"I"O11)"."14)"."j9)"A...D"10)"J...L"~(11)"."14)"."211)"X"14)","<:" EACH PARTICLE OF DEBRIS THAT YOU HITIS WORTH ONE POINT."F:7)""P" DEEP IN THE ANDROMEDA NEBULA, A QUASAR HAS EXPLODED, SPREADING DEBRIS INALL DIRECTIONS.":" YOUR MISSION IS TO ENTER THE NEBULA,CLEARING AS MANY QUADRANTS OF DEBRIS AS YOU CAN WITH THE THREE SHIPS ALLOTTED TOYOU." :8)"TO MOVE"8)M |16368,0 23:1:868& : ---INIT,PART 1[ 20600,0:20601,0:Q1:S3:1l :::216,0 ::16:"QUASAR ]"(91): 3:12:"BY BRENT IVERSON" 5:6:"WOULD YOU LIKE INSTRUCTIONS?";:A$:1:868 A$"N"ė: 3:1cI,Y% "X(1)SPD1:(1).5X256X4 ,20512I,XV 6Y(1)SPD1:(1).5Y256Ye @20528I,Y JX((1)61):X44170 T20544I,X:20560I,1 ^ h20584,127:20585,80:20586,0:20587,0 r20590,0:20599,0:20605,NUM:20606,0:20607,NUM3Q:NUM15NUM15- SPDQ4:SPD4SPD4: I0NUM_ ((1)41)4080,4090,4100,4110 X(1)24010:Y(1)55:4120 X(1)55:Y(1)14010:4120 X(1)24010:Y155(1)5:4120 X250(1)5:Y(1)14010 20480I,X:20496 TO QUADRANT "Q;n (Q4)Q4TNE20604:SOUND17565:Z1200230:Z2110:TNE,255Z1:SOUND:::SS2:2000t ---INIT,PART 2 :22:1 "SCORE:";6);"QUADRANT:";6);"SHIPS LEFT:"; 7:(20600)(20601)256; 22:Q;:39:S; NU00 4000 16384/ ((20606)2000,30007 220N ---SHIP DESTROYEDd SS1:22:39:S;o S0ı ::23:4:"WOULD YOU LIKE TO PLAY AGAIN?";:16368,0:A$ A$"N"ė: 10 ---QUADRANT CLEARED QQ1 23:8:"ADVANCING8(4)"BLOAD QUASAR.SHAPES":(4)"BLOAD QUASAR.OBJ"X *************************x * QUASAR II * * COPYRIGHT (C) 1990 * * MINDCRAFT PUBL. CORP. * * CONCORD, MA 01742 * ************************* 50      LINE":"PRESS ANY KEY TO CONTINUE":T$:850:WNF1\A$(W1)A$(W):CT%(W1)CT%(W)iW:NN1zCT%(F)0:I0WF:2180768,I$ II1:(I$,I,1)" "(I$,I,1)"."1290CT%(F)I1:A$(F)(I$,I)"INSERT ANOTHER LINE? ";Q$:NTINUE":T$:850VF1F#`TT1.jWTNLtA$(F)A$(W):CT%(F)CT%(W)V~FF1]WjNNTF1s850I$"I"1330:"INSERT BEFORE WHICH LINE ? ";X$:F((X$)):N(TT1)ĺ"TOO MANY LINES":2540:850,(FN)(F1)ĺ"NO SUCHCT%(W)01030,Q1CT%(W):".";:Q7A$(W)>WMD$;"PR#0"V$840h.I$"D"1190p8:B"DELETE FROM ";X$:F((X$)):"TO ";X$:T((X$))L(TF)(TN)(F1)(T1)(FN)ĺ"RANGE ERROR-NO LINES DELETED":"PRESS ANY KEY TO COI$"E"ĺ:840.I$"Q"ĺ:2130:SF220,850@I$"L"1070YI$:I$:I$"O"1520jI$"I"850:"LIST TO PRINTER? ";YN$:YN$(YN$,1)D$;"PR#";P(YN$"Y"):YN$"Y"ĺPR$;::N = N - 1TA$" ACTIONS:"W1N218020$>A$(N)(I$,I):CT%(N)I1:SF1AHNN1:(NTT)1780,2550R:6:8:TA$" ACTIONS":8:10:"(LI)ST"::10:"(D)ELETE"::10:"(I)NSERT"::10:"(S)AVE"::10:"(LO)AD"\:10:"(E)DIT f:10:"(Q)UIT"p::10:"OPTION:";:I$:I$;zHESE ACTIONS USER PROMPTED? ";L$:(L$,1)"Y"L$"USR."N$:TA$"USER-PROMPTED":TT750:780TA$"NON-USER-PROMPTED":L$"NUP."N$:TT400 CT%(N)0:I0WN:2180 768,I$*I$""(I$,1)"X"NN1:8504II1:(I$,I,1)" "(I$,I,1)"."8 v22305D$;"OPEN DES.";N$:D$;"READ DES.";N$=N1IW1N1~D$(W):N%(W):S%(W):E%(W):W%(W):U%(W):D%(W)WD$"CLOSE DES.";N$216,0N1" DESCRIPTION(S) LOADED"N1N11:NN1330N1:SF0Z"ARE T"OPEN DES.";N$:D$;"CLOSE DES.";N$ND$;"DELETE DES.";N$:D$;"OPEN DES.";N$f&D$;"WRITE DES.";N$p0N11~:W1N11D(34)D$(W):N%(W):S%(W):E%(W):W%(W):U%(W):D%(W)NWXD$;"CLOSE DES.";N$bSF0:330lES$"DESCRIPTION":ES1 TO PRINTER? ";YN$:YN$(YN$,1)LD$;"PR#";P(YN$"Y"):PE0:YN$"Y"PE1ZW1N11"SECTION "W"-":2400:" N:"N%(W)" S:"S%(W)" E:"E%(W)" W:"W%(W)" U:"U%(W)" D:"D%(W)WD$;"PR#0"330ES$"DESCRIPTION":ES12220"D$;0 hQ$"LIST"4405 rQ$"QUIT"İ2130:SF220,320H |Q$"SAVE"510[ Q$"LOAD"620t Q$"?"İ2450::330 D$(N)Q$ SF1:"NORTH? ";N%(N):"SOUTH? ";S%(N):"EAST? ";E%(N):"WEST? ";W%(N):"UP? ";U%(N):"DOWN? ";D%(N) 310:"LIST"(Q)UIT":::12:"OPTION: ";:IL$I$:I$:I$= I$"A"740N I$"O"1640_ I$"Q"2430p I$"D"220{ TT100 :IL$I$320 "N0:SF0 ,N10 6NN1 @N1NN1N J"SECTION "N"-":768,Q$ TQ$""420 ^(Q$)0N(Q$):32"9"Y$"A")I(N$)::200% :210d "INVALID FILE NAME":"PRESS ANY KEY TO CONTINUE":I$:130 :"SLOT # OF PRINTER (0 IF NONE)? ";P$:P((P$)):PR$"":P0P7210 :10:12:"(D)ESCRIPTIONS"::12:"(O)BJECTS"::12:"(A)CTIONS"- :12:RP. *":12= "ADVENTURE NAME (11 CHAR MAX, ?-CATALOG)":N$O (N$)11200 X$(N$,1):X$"?"ė:D$"CATALOG"::"PRESS ANY KEY TO CONTINUE";:I$:130 X$"A"X$"Z"200 (N$)2210 I2(N$):Y$(N$,I,1):(Y$"0"Y$".")Y$"Z"(Y$),D%(100),CT%(750),A$(750),O$(300),V%(300),R%(300),CH%(16)b ZD$(4):(768)32(800)2İ2560} dCH$"IMOGRCFPAS+-T$JQ" nW116:CH%(W)((CH$,W,1)):W x:2:15:"ACS.WRITER":3:12:"BY JENNY SCHMIDT":5:"* COPYRIGHT 1985 MINDCRAFT PUBL. CO **********************; * ACS.WRITER *X * BY JENNY SCHMIDT *u( * COPYRIGHT (C) 1985 *2 *MINDCRAFT PUBL.CORP.*< * CONCORD, MA 01742 *F **********************: PD$(100),N%(100),S%(100),E%(100),W%(100),U%(100           ,185,133,135,132i% 136,32,44,213,173,0,2,201,3,208,3,76,99,216,169,0,133,13,133,14,169,0,160,2,32,237% 227,32,61,231,32,123,218,165,135,164,136,133,184,132,185,32,183,0,96,0 S SINCE LAST SAVE.";$ :"?";:10:"FOR HELP: THIS LIST!"d$ :"PRESS ANY KEY WHEN READY";:T$:$ "TOO MANY LINES":NN1:2540:850$ I070:ML:768I,ML:I:% 32,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,165,184,164OR .OBJ FILE."^# :"LIST";:10:"LISTS DESCRIPTIONS OR OBJECTS":10:"CURRENTLY IN MEMORY."# :"NNN";:10:"EDIT DESCRIPTION OR OBJECT":10:"SPECIFIED BY NNN."$ :"QUIT";:10:"RETURN TO MAIN MENU.":10:"'QUIT WITHOUT SAVING?' IF":10:"CHANGECT EDITOR COMMANDS"@" "ALL COMMANDS ENTERED AT FIRST PROMPT."" :"";:10::"DESCRIPTIONS ONLY:":10:"SKIPS TO NEXT PROMPT,":10:"PRESERVING PREVIOUS CONTENTS."" :"SAVE";:10:"SAVES .DES OR .OBJ FILE."# :"LOAD";:10:"LOADS .DES NY KEY TO CONTINUE":T$"!L 216,07!V ES290,850,1640J!` PE0ĺD$(W):f!j DL(D$(W)):LN(DL40)!t I1LN:(D$(W),40I39,40)::(D$(W),40I39):!~ :"RUN ACS.PLAYER? ";YN$:(YN$,1)"Y"ĺD$"RUN ACS.PLAYER"! " :"DESCRIPTION AND OBJE ER10ĺ"FILE LOCKED":2340D  ER11ĺ"ILLEGAL FILE NAME":2340k  ER13ĺ"FILE TYPE MISMATCH":2340  "ERROR #";ER" IN LINE ";(218)(219)256 $ EL1EL$"WRITE":2360 . EL$"READ" 8 "UNABLE TO "EL$:ES$" FILE."!B D$"CLOSE":"PRESS AY POINT FOR DISK WRITE<EL2: ENTRY POINT FOR DISK READJER(222)rER4ĺ"DISK WRITE PROTECTED":2340ER5ĺ"FILE NOT FOUND OR EMPTY":2340ER6ĺ"FILE NOT FOUND":2340ER8ĺ"DISK I/O ERROR":2340ER9ĺ"DISK FULL":2340K) 4K>H(R QUIT CHECKER6\SF2170Wf"QUIT WITHOUT SAVING? ";YN$qp(YN$,1)"Y"SF2:|zSF1: PAD LINE NUMBER N WITH LEADING 0'SNS$(W):NL(NS$):NL22210("00",3NL);NS$" ";:EL1:2240: ENTR230-D$;"OPEN OBJ.";N$:D$;"READ OBJ.";N$5N1AW1N1ZO$(W):V%(W):R%(W)aWyD$;"CLOSE OBJ.";N$216,0N1" OBJECT(S) LOADED" N1N11:NN11690 K1W1*Q((A$(K),2)):A$(K)(A$(K),3):A$(K)(CH%(Q))A$(ES2:2220^XD$;"OPEN OBJ.";N$:D$;"CLOSE OBJ.";N$:D$;"DELETE OBJ.";N$:D$;"OPEN OBJ.";N$vbD$;"WRITE OBJ.";N$lN11vW1N11(34)O$(W):V%(W):R%(W)WD$;"CLOSE OBJ.";N$216,0SF0:1690ES$"OBJECTS":ES3:2"VALUE: ";V%(N):"SECTION: ";R%(N),1670X:"LIST TO PRINTER? ";YN$:YN$(YN$,1)D$;"PR#";P(YN$"Y"):YN$"Y"ĺPR$;W1N11&"OBJECT "W": "O$(W):" VALUE: ";V%(W);" SECTION: ";R%(W)0W:D$;"PR#0"D1690 NES$"OBJECTS":0:SF0|N10NN1)N1NN1NE"OBJECT "N": ":768,Q$`(Q$)0N(Q$):1680tQ$"LIST"1800Q$"QUIT"İ2130:SF220,1680Q$"SAVE"1870Q$"LOAD"1970Q$"?"İ2450::1690Q$""1690O$(N)Q$:SF1";YN$:YN$"Y"8505ES$TA$" ACTIONS":ES2:2230GD$;"OPEN";L$YD$;"READ";L$`Nk"W1N~,A$(W):CT%(W)6Q((A$(W),2)):A$(W)(A$(W),3):A$(W)(CH%(Q))A$(W)@WJD$;"CLOSE";L$T216,0^850h:I$IL$1680rN16:Q:W:22301ES$TA$" ACTIONS":ES2pD$;"OPEN";L$:D$;"CLOSE";L$:D$;"DELETE";L$:D$;"OPEN";L$D$;"WRITE";L$NW1N(34)A$(W):CT%(W)WD$;"CLOSE";L$:WN1:216,0:2080SF0:850:"LOAD ACTIONS? "(Q$,1)"Y"FF1:1230(85002I$"S"850?<:N2850RFW1N:Q116pP((A$(W),1))CH%(Q)ĂQZQ17ĺ"ERROR IN LINE ";W:2080:I$:WN:W:850dA$(W)(A$(W),2)nQ10A$(W)(Q)" "A$(W):1410xA$(W)(Q)A$(W) ".";:Q,6)"6 GET"QL$"6 TAKE"15809QR$(Q$,4):W1N1wR%(W)RQR$(O$(W),4)R%(W)0:"OKAY":F(0)F(0)1:1560~W"IT ISN'T HERE":R1TTV%(W)",QL$"6 DROP"16506W1N1@(O$(W),4)(Q$,4)R%(W)0R%(W)R:"OS ";T:)Z(7)(7)"ERROR IN LINE ";W:8dK2K0:HnQL$(Q$,7)axQL$"6 INVE"1450q"YOU HAVE"}W1N1R%(W)0ĺO$(W)W:QL$"6 LOOK"1510D$(R)Q1N1R%(Q)RĺO$(Q);" IS HERE"Q!(Q$N1N11:Q:FL2:*TT((T$,4))5 FL2:eXX$(T$,7,1):FX((T$,4,2)):FY((T$,9))XX$"="F(FX)FY:FL2:(XX$"+"F(FX)F(FX)FY:FL2:2XX$"%"F(FX)((1)100):FL2:<R((T$,4)):1460FFL2:P"YOUR SCORE IV%(Q):O$(Q)O$(N1):R%(Q)R%(N1):V%(Q)V%(N1):FL2:N1N11:F%(0)F%(0)1:WQ:FL2:N1N11:O$(N1)(T$,8):R%(N1)R:V%(N1)((T$,4,3)):FL2:N10FL2:Q1N1 (T$,4)(O$(Q),4)R%(Q)RO$(Q)O$(N1):R%(Q)R%(N1):V%(Q)V%(N1):FL2:FL0:VFL1:%`XX$">"13707jFXFYFL0:BtFL1:V~(T$,4):FL2:bN1N11O$(N1)(T$,8):R%(N1)0:V%(N1)((T$,4,3)):F%(0)F%(0)1:TTV%(N1)FL2:N10FL2:XX$(T$,4):Q1N1IXX$(O$(Q),4)R%(Q)0TTR((T$,2))FL0:#FL1:t((T$,4)(Q$,4)(T$,4)"????")((Q$,7)(T$,7)(T$,7)"6 ????")FL0:FL1:XX$(T$,7,1):FXF(((T$,4,2))):FY((T$,9))$XX$"="1090.FXFYFL0:8FL1:BXX$"<"1120LFXFYFL0: fQpFL1:5zXX$(T$,4):FL0:Q1N1X(O$(Q),4)XX$R%(Q)0FL1:_Qe}XX$(T$,4):Q1N1(O$(Q),4)XX$R%(Q)RFL0:QFL1:XX$(T$,4):Q1N1(O$(Q),4)XX$R%(Q)RFL1:QFL0:CT%(W)P820$FL1CT%(W)P820B T$A$(W):T1((A$(W),2))T1850,890,930,970,1010,1030,1050,1150,1160,1190,1230,1240,1280,1300,1340,1360 FL2K2*PCT%(W)4W>1380H630RXX$(T$,4):Q1N1\(O$(Q),4)XX$R%(Q)0 W1C!FL0CC%(W)P7008FL1CC%(W)P700VT$C$(W):T1((C$(W),2))T1850,890,930,970,1010,1030,1050,1150,1160,1190,1230,1240,1280,1300,1340,1360PCC%(W)WQ$:Q$"6 "Q$P0:FL3W1B FL0CLOSE SAV.";N$:610 20200 ES$"OBJECTS"Z D$;"OPEN OBJ.";N$:D$;"READ OBJ.";N$b N1n W1N1 O$(W):V%(W):R%(W) &W 0D$;"CLOSE OBJ.";N$ :216,0 DW1N1:R%(W)1TTV%(W) NW XR1: b: l1460 vP0:FL3E NUP.";N$S r"DO YOU WANT TO LOAD A PREVIOUSLY SAVED GAME?";Q$:(Q$,1)"N"510^ |2000u D$"VERIFY SAV."N$ D$;"OPEN SAV.";N$:D$;"READ SAV.";N$ W099 F(W) W N1 W1N1 O$(W):V%(W):R%(W) W:R:T D$;"NS" D$;"OPEN USR.";N$1 D$;"READ USR.";N$8 BC W1BV A$(W):CT%(W)] Wu D$;"CLOSE USR.";N$ "ES$"NON-USER-PROMPTED ACTION" ,D$;"OPEN NUP.";N$ 6D$;"READ NUP.";N$ @C JW1C TC$(W):CC%(W) ^W hD$;"CLOS:D$"CATALOG":"PRESS ANY KEY WHEN READY":T$:110= 2020S ES$"DESCRIPTION"} D$;"OPEN DES.";N$:D$;"READ DES.";N$ A W1A D$(W):N%(W):S%(W):E%(W):W%(W):U%(W):D%(W) W D$;"CLOSE DES.";N$ ES$"USER-PROMPTED ACTIO),D%(100),CT%(750),A$(750),O$(300),V%(300),R%(300),C$(400),CC%(400),F(99)U ZD$(4) d:2:15:"ACS.PLAYER":3:12:"BY JENNY SCHMIDT":5:"* COPYRIGHT 1985 MINDCRAFT PUBL. CORP. *":12 n"ADVENTURE NAME (? FOR CATALOG): ":"";N$2 x(N$,1)"?"ė **********************; * ACS.PLAYER *X * BY JENNY SCHMIDT *u( * COPYRIGHT (C) 1985 *2 *MINDCRAFT PUBL.CORP.*< * CONCORD, MA 01742 *F **********************I PD$(100),N%(100),S%(100),E%(100),W%(100),U%(100        84(1015)146160: CHECK IF 'TUNES' IS IN PLACEH (4);"BRUN TUNES"~ ::2:"** COPYRIGHT 1983 BY MINDCRAFT PUBL. **" 6:A$" INVENTIO VIII ":(41(A$))2::A$:::A$"BY JOHANN SEBASTIAN BACH":(41(A$))2:A$; ::A$"PROGRAMMED BY":($  *************************? * T.U.N.E.S DEMO 3 *^ * BY S. SCOTT ZIMMERMAN *} * COPYRIGHT (C) 1983 ** BY MINDCRAFT PUBL. ** CONCORD, MA 01742 **************************1 x(37403)169(38385)0(1014)      čՠŠϠήčՠԠŠήՠĮϠԍԍōŠҍŠҍԠҍՠ٠ĠԮٍԠ΍̠΍ˠ΍Ԡ΍ŠΠӠ٠  E-)>>''%g-.'M '6>-5n$e,%8 " gL1 `PWHEN READY":T$:1980R56REL2170,2160|\"UNABLE TO LOAD SAVED GAME.":"TRY AGAIN? ";YN$:(YN$,1)"Y"ĺ"PRESS ANY KEY WHEN READY":T$:390fp"UNABLE TO LOAD "ES$:"FILE FOR "N$:216,0::"ANY KEY WHEN READY":T$:100z"UNABLE TO SAVE GAME.":"PRESS ANY KEY 2130' ER6ĺ"FILE NOT FOUND":2130IER8ĺ"DISK I/O ERROR":2130f ER9ĺ"DISK FULL":2130*ER10ĺ"FILE LOCKED":21304ER11ĺ"ILLEGAL FILE NAME":2130>ER13ĺ"FILE TYPE MISMATCH":2130H"ERROR #";ER" IN LINE ";(218)(219)2D$;"CLOSE SAV.";N$:216,0:<3288:216,0:D$"CLOSE":BQEL3:2030~EL1:2030: ENTRY POINT FOR DISK WRITEEL2: ENTRY POINT FOR DISK READER(222)ER4ĺ"DISK WRITE PROTECTED":2130ER5ĺ"FILE NOT FOUND OR EMPTY":.":/DQ$"6 SAVE"ĺ"I DON'T UNDERSTAND"::N2010XD$;"OPEN SAV.";N$:D$;"CLOSE SAV.";N$:D$;"DELETE SAV.";N$:D$;"OPEN SAV.";N$:D$;"WRITE SAV.";N$bW099lF(W)vWN1W1N1O$(W):V%(W):R%(W)WR:TM$"U"18104RU%(R)ĺ"YOU CAN'T GO THAT WAY":HRU%(R):1460:gQR$"DOWN"QM$"D"1840RD%(R)ĺ"YOU CAN'T GO THAT WAY":&RD%(R):1460:0Q$"6 SCORE"ĺT::Q$"6 QUIT"ĺ"YOUR SCORE IS ";T:"COME AND PLAY AGAIN SOMETIME CAN'T GO THAT WAY":)RS%(R):1460:TQR$(Q$,4):QR$"EAST"QM$"E"1750|RE%(R)ĺ"YOU CAN'T GO THAT WAY":RE%(R):1460:QR$"WEST"QM$"W"1780RW%(R)ĺ"YOU CAN'T GO THAT WAY":RW%(R):1460: (Q$,2)"UP"QKAY":F(0)F(0)1:1630JW;T"YOU AREN'T CARRYING IT"O^R1TTV%(W)UhqrQR$(Q$,5):QM$(Q$,4)|QR$"NORTH"QM$"N"1690RN%(R)ĺ"YOU CAN'T GO THAT WAY":RN%(R):1460:QR$"SOUTH"QM$"S"1720RS%(R)ĺ"YOU(RO42):1200;BK1ď(RO41),(RO41)(CO42):1200gBK2Ď(CO41),(CO41)(RO42):1200BK3ď(RO41),(RO41)(CO42):1200HU * CHECK M() FOR FRONT. *TC0I13110M(I)1F(TC)I:TCTC1I :CCN:M(N11)1:NN11:BK2:1140\VNF(FC)1M(N)M(N)2:CCN:M(N1)8:NN1:BK1:1140`NF(FC)1M(N)M(N)8:CCN:M(N1)2:NN1:BK3:1140j * ERASE WALL *tRO(CC11):CO((CC11(CC11))11.05)1~0BK0Ď(CO41),(CO41)TC)N11:TCTC1;M(N1)0M(N1)1:F(TC)N1:TCTC1fM(N1)0M(N1)1:F(TC)N1:TCTC1v$TC0ī1230. * CELL & WALL & ERASE *8FC((1)TC)BNF(FC)11M(N)M(N)1:CCN:M(N11)4:NN11:BK0:1140!LNF(FC)11M(N)M(N)4 DRAW BOARD *#1460: DRAW GRIDD1410: INITIALIZE M() ARRAYc1340: CHOOSE FIRST CELL1010: ADD ADJ. TO FRONTIER960 * ADD ADJ. TO FRONT. *TC0M(N11)0M(N11)1:F(TC)N11:TCTC1M(N11)0M(N11)1:F( WILL YOU TRAVEL? (THE RANGE IS 1 (SLOW) TO 10 (FAST) ";V$:V1(V$)iRV11V110840|\VE205(V120)fp CONTINUE SEQUENCEz22:" PRESS ANY KEY TO CONTINUE "K(16384):K12790016368,0:  *OUR KEYS:"+::" A UP"L:" Z DOWN"m:" <- LEFT" :" -> RIGHT": :"WHEN YOU ARE READY TO SET YOUR SPEED,"*8804> SET VELOCITYUH:12:4:"HOW FAST YOUR WAY THROUGH THE MAZE FROM YOUR STARTING POSITION (THE MARKER ON THE" "LEFT) TO THE GOAL (THE MARKER ON THE RIGHT). YOU MUST NOT HIT ANY OF THE WALLS OR YOUR OWN TRAIL BY BACKING UP. YOUR DIRECTION IS CONTROLLED BY THE FOLLOWING F13:" SPEED MAZE "713:" "m:22:"* COPYRIGHT 1984 MINDCRAFT PUBL. CORP. *"20:8:"DO YOU WANT INSTRUCTIONS?";:K$K$"Y"ı720 * INSTRUCTIONS *N1:"THE OBJECT OF SPEED MAZE IS TO THREAD YOU LOSE !!!! *****"5&K145:SO(S):KV0K130:J15:SO(S):J:Ki:J11000:J:wD16368,0}NX * TITLE & SET UP *bX4:Y36:XG36:YG4:M(150):F(150)lS16336v:5:10:6:13:" "  * QUIT * ::*  * WINNER *3 :3f 22::"***** YOU WIN !!!! *****"r J110 K120:SO(S):K K15:SO(S):K J K11000:K: 16368,0   * LOSER * :322::"***** 330,350,390,410+ @ * SAME MAZE & SPEED *S JX4:Y36:XG36:YG4:1460:1510:80q T * SAME MAZE/NEW SPEED * ^X4:Y36:XG36:YG4 h: r830:1460:1510:80 | * NEW MAZE AND SPEED * :X4:Y36:XG36:YG4:M(150):F(150):S16336:50 13:SO(S):J 1203 * CONTINUE OPTIONS *9 m 21:3:"CHOOSE ONE: <1> SAME MAZE/SAME SPEED" 22:16:"<2> SAME MAZE/NEW SPEED" 23:16:"<3> NEW MAZE AND SPEED" "24:16:"<4> QUIT"; ,21:14:K$:K(K$):K1K4300 6K):J1VE:J@ BE127(BE193BE218BE136BE149)BELAY BE193YY1: UP r BE218YY1: DOWN BE136XX1: LEFT BE149XX1: RIGHT LABE XXGYYGİ430:250: WIN X,Y)0İ530:250: LOSE X,Y J0: SET VELOCITY& <930: DRAW BOARDA F * RUN THE MAZE *U P13:X,Y:XG,YGc Z16368,0 d:22:15::" SPEED: ";V1;" "::24:"PRESS A KEY (A,Z,<-,->) TO START"; nBE(16384):BE127(BE193BE218BE136BE149)110 xBE(16384X **********************= * SPEED MAZE *[ * BY DAVID KRATHWOHL *y * COPYRIGHT (C) 1984 * * MINDCRAFT PUBL.CORP* * CONCORD, MA 01742 * **********************(::610: TITLE AND SET UP 2::83!! ! ! ! ! !!!!!!!!!""" " mmH $hhh`HH&HFeee&&hhh}L0  Lt0}`ø{{tmgb\WRRMIEA>>:741.+))'%#! Š'&&..8`HH hehe`OFf7NnNnNn8`...8 ڭ` `HHLR`X  hhhh`ƹƸ`8@ #Le Le!LeƹƸ`L iLx` W`L֓H0L֓QL֓E L֓SL֓TL֓ƹƸ` .Jm LTst `M& 4`` o i N` $ ` hh $L`ɳ `$ɮɦ$ hh` ̰80 LSLPLT  `H 9LL"""""PyP $ [ .nP oPpP W`PaP  `~P PP hPiP   1@ @ A DP|P D΁PPiĩP 1@ @ A DPP@LCP|P0PP`P 1@ @ A A D DPPP `8P}P 8LD`gPP`PPaP8oP`PL@C8pPaP gPLC gPLCzPzPPLB`zPzPP`PPaPPPgP8hP`PLC8iPaP gPL9D gPL9DzPzPPLTC`wP uPvP - `PuPaPvP wPzPPP}PxPixPyPiyPxB{P rPqPLvB{P rPqPLvB{PLBqPrPLvBjP0 BjPLB6jPLBkP0 %kPLBkPLBhPoPiPpPnPhPmjPhPiPmkPiP mkPiPLBɚ mkPiP lPmP   hPiP  `nP`zPzPPPvP - wPI|P D`nP`oPsPpPtPoPmqPoPpPmrPpPpP mrPpPL]Aɚ mrPpP sPtP WnPnP oPpP WnP|P D`hPlPiPmPɀLB{P{PkPLYB{PjPL