8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L ************************=* *[* STARLASER *y(* BY SCOTT ZIMMERMAN *2* COPYRIGHT (C) 1987 *<* MINDCRAFT PUBL. CORP.*F* CONCORD, MA 01742 *P* * Z***********TDSCORES Ug0g0ANTS.HS tt1c1'VORATIOQ5" 6 +VORATIO.BINV5" i5# .VORATIO.SHAPES 5# `5# BRECgg#WURECggCRECgg.CLAUSTROPHOBIA 3S ;CLAUS.SCORE < <)SPACECADES ;-SPACECADE.BINQ 5 `5 -TREASURE.DIVE s( 2 )TDIVE.BIN'3 '3 TDIVE.SHAPESS `46 +CLAM.BAKE.3) S 46 *NIBBLE.500"*S @<NIBBLE.500.SHA0%9$ANTSi S @96+ANTS.SHAPEShS  4 /CLAUSTRO.SHAPES;' `;' EXTERM.SHAPESI a 9EXTERM.SOUNDJ% K EXTERM.FAME6<9<9+FIVER.DICER3%@9CLAM.BAKES @99+CLAM.BAKE.1S p< +CLAM.BAKE.2#H 3 3 CC.SCORES292 92 )STARLASER3 48 ;STARLASER.SHPSH48 㶀48 STARLASER.SNDSD48 㻃48 STARLASER.DUO9696-EXTERMINATORS;2<YAGG.II9" ' (&PRODOSL }<ͰͰ,BASIC.SYSTEMl(*+'STARTUP' 8 E$.CITY.CENTURIAN 35 ; CCSHAPES3 @3 &CC.OBJ >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R*************$ d* INTRODUCTION:. n990 x(4)"VERIFY STARLASER.SNDS":(4)"VERIFY STARLASER.DUO":(4)"VERIFY STARLASER.SHPS":216,0 HI33792:HI:: 5:15::" STARLASER ":7:10::"BY S. SCOTT ZIMMERMAN"= 10:"COPYRIGHT (C) 1987": $-u? -u?n -?-5I ---N?????------??.m -????????nMi Mi.-------??.m -??????-----???66666-----------------------------------------------------------II)MN?-M m)N Mi ;?NI NM m-m+m RETURN> TO START OVER";:Z$:Z$(27)1102:958::"NEW HIGH SCORE!"::4,1:4,1:4,1:HSSCu20:958:3,1:"DO YOU WANT TO PLAY AGAIN? (Y/N) ";:A$:A$A$"Y"A$(121)250A$"N"A$(110)980940:::12:"WRONG DISK OR FILE(S) MISSING",22:" TO QUIT, <:6XK,YK4:2,3:6XK,YK4C\SCSC50:790:4:810:16368,0:Zf*----------------np* END OF GAME:z*----------------::5:12::" END OF MISSION ":10:12::"YOUR SCORE: ";SC12:12:"HIGH SCORE: ";HSSCHS940412:12:780::900' 21:7::FU;::" "6SC0SC0R 21:36::SC;::" ":}*820:YK((1)140):XK195:KBXK,YK:4MK((1)2):MK(1)MK:>SCSC20:790:3:HFUFU10:770:RKBXK,YK:5XK,YK:2,1:5XK,YK:6XK,YK:2,2:6XK,YK----------------&* SUBROUTINES:=*----------------dXLXS11:YLYS3:LAXL,YL:840:1|N0:(234)118760I1AN:YA(I)YL740YA(I)9YL740NN1:830I:N0760LAXL,YL:850:LAXL,YL:790:FU0FU0,YS&KCKC1:KC40570*0KC0:820=:OYYK:YKYKMKNDYK0YK140_NYK140YK0wXKBXK,OY:KBXK,YKbACAC1:ACANAC1lABXA(AC),YA(AC):YA(AC)YA(AC)6:YA(AC)148YA(AC)0vABXA(AC),YA(AC)FUFUFC:770400*)MSMS1:480&A$" "İ690:510NA$"S"A$(115)į:SFSF:SFįwA$(27)ĵ16384,128:16368,0:510510MS12MS12MS12MS12FC((MS)2)1OYYS:YSYSMSYS0YS150YS150YS0SSXS,OY:SSXSIN ^21:1:"FUEL:":770:21:29:"SCORE:":790:23:14::" STARLASER ":| hYS((1)150):XS80:SSXS,YS:810:4:4 r*---------------- |* MAIN LOOP: *---------------- (16384)128510 A$ A$(8)MSMS1:480A$(21LE ADDRESS= 230,32:62450:16297,0:16301,0:16300,0R 16304,0:SFį "SC0:FU1000:FC1:SS1:KB2:AB3:LA4:MS0:KC0:AC0 ,3:1:0 6I1AN @X4((1)1228):Y((1)148) JABX,Y:(234)10ĕABX,Y:320 TXA(I)X:YA(I)Y: TO BEGIN -> ";:A$; AN10:XA(AN),YA(AN):HS0j HB(A)(A256):LB(A)AHB(A)256:SF1 *---------------- * SETUP: *---------------- 206,LB(AS):207,HB(AS):SOUND TABLE ADDRESS 232,LB(AX):233,HB(AX):SHAPE TAB10:"MINDCRAFT PUBL. CORP.":20:14:"PLEASE ";::"WAIT":r L68:ASHIL1:(4);"BLOAD STARLASER.SNDS,A";AS ADAS445:(4);"BRUN STARLASER.DUO,A";AD LB328:AXADLB:(4);"BLOAD STARLASER.SHPS,A";AX HI256(AX256):HI:20:958:"PRESS ?wimm3RIIM.Mi mI N MM k MiNNII3 *7 (d  xxڍ̍ThUTnUo!mTTmUU-ީYZ[;Q WVGHIPFE|A|B|L|M?O|g)}gy};h}h<= 8<<==XP "co "co @A@A`A`c`c`c@w@ww>4wdw ??@@@@?>w@w@w`c`c`c`A@A@Ah\TLvhhT` d' i`m`i ``@?~@`>88>`@~|~p?~pp~p?~|x|~``~|x`x|~~|x`vw?@@@@?? x`?~@px<<xp@~x`xx`x|uuu vux`xx`xx~@`?pp`?@~x`x~?@@@@~?x`@p?|~~|p?@?`x|~~|i `m`i Qȱ Qȱ Qȱ Q i i ` L%ronT` hh  Ir r    `8 i `m`ii ȱȱȱ`  m  *ɂ  t t Lr  nu nu Lr Hs v v Lr Hs 0w 0w Lrʎ8  !LSq LSq LSqmmonTLAqLSq  `0K# L%rʬ r L%r L%r   rL%rɂ0  L%r ȌL%rȮ rL%r  L%rLq rLpLpLpLpM;;Lpɒ hhhhLZx  JJLpJ`JLpM 0Lp)onT)o-LSq LSqM 3,1:104,32:8192,0:(4)"RUN CLAM.BAKE"yA(4)"BLOAD CLAM.BAKE.1":(4)"BLOAD CLAM.BAKE.2":(4)"BLOAD CLAM.BAKE.3"A(30720"@ *************************C@ * CLAM.BAKE *d@ * BY WILLIAM PU *@ * COPYRIGHT (C) 1984 *@ * MINDCRAFT PUBL. CORP. *@ * CONCORD, MA 01742 *@ *************************@ (104)3230*A10PQRS A #co B AAhhhhM `LLp #co x i"coY\Z][^ Y yL[z "co i$coW c JD S?ug1ogOogYooowoooagEokg;oMgoƮ?@o#wo"Eo ;o! X@ܩ     `h co TTco r  z zLxL{;`TzUzH`hHhHJ0UhTT`A8@AB )ɠ` LLL Xy  L6-LLLL` L6  ` X GӠԠՠԠϠŠŠР٠ GӠԠՠԠϠŠŠΠ GӠԠՠx<`aa0xBDDD"D"ADQpx@CC` p   D@DD@(D DH)`N`@?$D$D$"$!B qх1apA0 "H($)H)HD$H$B"~`888`@~DQDAHHHEHD "|@ppp@|!""""DD H"@(`Csӄ3pA|~A?~?"H($)H)HD$H$B"~`x9>||~DQDQHHHEHD "|@ps|x~x|!""""DD H"@(x<`gyp|pxBDDD"D"ADQpx@Os`x`p   D@DD@(D DHNO8ULmU`8mo i `mco`i i ȱ ȱ ȱ `  m# @mo" 1o,0-L ,M--Lc c L  !ʎco8 i `mco`i ȱ ȱ ȱ  i i Mo0 o' L'o`@ʊ TΟoo)mTg(g);h*h+om)%wom(0 #"L"%;oʎ!!L"%;o!!Lom+$om*0 #L#$Eoʎ L8#$Eo `UN****)TO)MT8&O&%ococomomo  X@coco@L `&Eo;oon::):)L`o`o Eo'L'L;o'L'')-:S&&'o0LLn')ʽg'Mo0o'')-: 'oLo)ʽgoLo' `?@@1oXIALlOo Yo1oOo@;o!Eo wo"o# X@L `tLttooEoEo wowo;o;o!oooooowoo;oJ J EoJJL؀@oo )o@o@ @"wo!;o#o Eo$o""""> >Q  d i co ]  co ;`P`0``|w+/>x~ -eu?T8\H]H^^h]h\TLrhhT` d' i`m`i ```@ """> """"""< "">""""""""""""">>>"2"""">""" "  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""**6"""@p`@p`@@p`@pU|T|co@0T0TJ00co٠UнhʊHдh?@cocomomo @ IrWSh co ŠTTYGZH[IGYHZI[LZx yL[z``BL8@LMM T?@@ coigg {ggcoigg {ggcoih;h {h;hcoh;h {h;h@М? PJ?`8TU UUU`mTUi U@@UU` J H on;PHԠϠŠŠԠ GӠԠՠԠϠŠŠԠ` hh ȘeilCLAMBAKE٠͠ՍéԠ̠Ѝ ӠŠٍͮԮϧ̠Ԯɍ ĠϠˍԠ̠ŠӠϠōŠǠŠǠȍӺӮ Ӯ Ӯ ͠ԠϠŠͬŠŠӺŽ٬ýŠӬѽԍ((w+/>x~@@ "$%&' $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?i    `|xx|||<<co8comco`aTWPR `Pr csuh  i!;0 i!ii!i i -о`TUHT)T <=LȋTLދ   &e i hUT` `m`i pon: R)N:)< ==LE < mGGHiHIiI ; 0 L :L% >RT;?1o1oTT8ACEABDFBdmGGHiH hhhon """"> >Q  d i co ]  co ;`P`0``|w+/>x~ -eu?T8\H]H^^h]h\TLrhhT` d' i`m`i ``  >>@ p@B<>> """> """"""< "">""""""""""""">>>"2"""">""" "  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""**6"""T@ 0TG\H]I^ i"co iLc iQ\R]^ i"co i i co`hh i8 i> i coȘeelH `mco`ii    h` L<<`m;>UTcoKcoK0comUcoU8KKT֩d i co co ```VNGH'BVWW i$co c ;LN8LMOM LG N!O H JonNDL CDCRR;P0RDS; `0C(?1o1o4 "co L ?1o1oSS0L> STThEhcoh i; L9 T UT08TTUhEo ;o!wo"o#oo@ X@coco>>?DRȍQ>Q.RQmGGRmHHIiI 4 A L JW LG X i LG XonJ(*+,-./; 08T T L :\ H JonPQRQ.RRR( A GmQGRmHH L ?;o8Eo .?Eo8;o L 8TT`1oL 1ogOogYococomomoH  14:GR]hu~!%'?7756?6.5.-$-$<'%'!$$4'-- - ?p- /, ??I$=$$>.5p- $?',-5v- ?' -$$$-u?)=$$$/5 $$$?-----$$???6.--$??.------$$$?????66n   X53)380:ONLY 1,2,3,4,5 OR 'RETURN'5HX13410HXX49:Y19238X:X((Y)128)12849X:Y,X:380:POKE FLASH/NORMAL TO SCREENHX04:(19238X)128D(X,0)0:IF INVERSE THEN RE-ROLLI:7::868:X1115:X:868::GET RID OF DIRECTIONSLL **AG^10::"KEYS 1-5 TOGGLE ";::"ROLL";::" / KEEP ":Gh:"INVERSE";::" #'S INDICATE DICE TO BE ROLLED":::"RETURN";::" RE-ROLLS THE SELECTED DICE"Gr8:X04:X84:X1;::NUMBER THE DICE'H|CL,0:KB,128:X(KB)128:X13(X49CARD=F"PL0OPĢ5::868:Z3:470:890:COMPUTER'S TURNVF,** PLAYER'S TURN **pF66:868:13:868:1F@470:330:330:520:ALLOWS FOR 2 RE-ROLLSFJ11:X$"ROLL DICE AGAIN?":30::17:"(Y/N) ";:100:X$"N"X$"n"ġ:520GT** PLAYER RE-RO:PLPL:RDRD1:RD261410:ONLY 13 ROUNDS PER PLAYERXEX$NM$(PL)"'S TURN":6:30EX019:3:X21:"+-":9:39X2:"-+":F17:X16:"<"(X64)"> "SC$(X,PL),"<"(X70)"> "SC$(X6,PL)::," "SC$(13,PL):24:"PLAYER: "NM$(PL);:DRAW SCOREE: ";NM$(1):NM$(0)"APPLE II":OP1:210aDX01:"ENTER NAME OF PLAYER #"X1;:": ";NM$(X):D:"PLAYER TO GO FIRST? (1 OR 2)":"1) "NM$(0):"2) "NM$(1):(37)2:30DX$:PL0:X$"1"PL1:250DX$"2"220D** MAIN LOOP **8E50:X(0):30:X$"MINDCRAFT PUBL. CORP.":30QCKB49152:23:70:1520:INIT. VARIABLESCX012:1024X,32:1063X,32::DRAW INVERSE LINE AT VTAB 1C34,1:50:X$"PLAY AGAINST COMPUTER?":5:30:17:"(Y/N) ";)D100:X$:8:X$"Y"X$"y"Ą"ENTER YOUR NAMTRODUCTION **cB210:X525:1:X4:" DICER";:40X:"FIVER ";::255:20:"--":MOVING TITLEB7:X$"A GAME OF LUCK AND SKILL":30:X$"IN WHICH YOU MATCH WITS":30:X$"WITH YOUR COMPUTER":30%C12:X$"BY DAVID KALLAS":30:X$"COPYRIGHT (C) 1988"14567891000 John Doe 5 1000 John Doe 5 1000 John Doe 5 1000 John Doe 5 1000 John Doe 5 1000 John Doe 5 1000 John Doe 5 1000 John Doe 5 1000 John Doe 5 1000 John Doe 5 (21(X$)2):X$:-A(* CENTER-OUT WIPE *PA2X120:32,20X:33,2X:::kA<* WAIT FOR KEYPRESS *AFX$"PRESS RETURN TO CONTINUE"AP30:CL,0:KB,128:AZ* GET (Y/N) RESPONSE *AdCL,0:X$:X$"Y"X$"y"X$"N"X$"n"ıAn100Bx** IN@************************=@* FIVER.DICER *[@* BY DAVID KALLAS *y@* COPYRIGHT 1988 *@* MINDCRAFT PUBL. CORP.*@* CONCORD, MA 01742 *@************************@ ::(21):130@* CENTER TEXT *AI* ERASE UNWANTED DICE *cIX04:D(X,0)0Ģ5:Y13:8X3:" "::3 SPACES BETWEEN ""iII** ROLL/DRAW/SORT DICE **ISP(241):220::X04:D(X,0)0D(X,0)((1)61):Y09:YY(BZ)::ROLLJ32,X82:5:DP$(D(X,0)):D(X,1)D(X,0)::32,0::DRAWFJY03:D(Y,1)D(Y1,1)Ă::32,0:241,SP:~JXD(Y,1):D(Y,1)D(Y1,1):D(Y1,1)X:490:SORT DICEJ** PLAYER'S SCORING **J10::X$"WHICH CATAGORY DO YOU CHOOSE":30::X$"FOR THIS TURN?":30::X$"(A-M) ":303K15:24PX14,PY160z(MV1MV4MV7)PX0PXPX1T(MV9MV6MV3)PX19PXPX1w(MV7MV8MV9)PY0PYPY1(MV1MV2MV3)PY9PYPY11PX14,PY16MA%(PX,PY)0DEAD1:MA%(PX,PY)1 ** MOVE EXTERMINATORS **M85MV7M73MV8+M79MV9B M48M58MVM48RM27ī1550g M19İ2060:660*M83M115E1:1240:Eı4M84M116İ1160:>M63M47İ1800:660HM87M119LS1:RM32ı\MVī670fMA%(PX,PY)0 p1EXTERMINATORS(lDDALDALİ2090:3908vDEADī590>[ ** GET PLAYERS MOVE **b1MV0:M$:M(M$):M96M123MM32M71İ2300M77MV1M44M60MV2M46M62MV3M74MV4M75MV5M76MV6 ,PYB):B:A CHK0ī480/ MA%(PX,PY)15 I 1:OFĒ3:2310p L1DAL:2DX%(L)14,DY%(L)16:L &1PX14,PY16 016368,0 : D ** PLAY GAME ** NLSİ660: GET PLAYERS MOVE IF NOT LAST STAND XDEAD1ī620b980: MOVE DALMAXDAL1 A019:B09:MA%(A,B)0:B:A@ DDAL0:S0M L1DALu DX%(L)(20(1)):DY%(L)(10(1)) MA%(DX%(L),DY%(L))0ī440 MA%(DX%(L),DY%(L))2 L PX(18(1))1:PY(8(1))1 CHK0:A11:B11:CHKCHKMA%(PXAL5:LEVEL1:LS0:SCO0:DEAD0W T::21:"EXTERMINATORS (C)1989 MINDCRAFT PUBL.";:` ^390 h24:"'?' for Instructions, 'ESC' to Quit.";:1: r | ** NEW BOARD ** 23:1:"Score: ";SCO;" Level: ";LEVEL: 9 SPACES DALMAXDAL( (4);"BLOAD EXTERM.SHAPES,A$4000"G (4);"BLOAD EXTERM.SOUND"Y 216,0:1760z SD0:842,SD: ENABLE SOUND 232,0:233,64 MAXDAL50 MA%(19,9) "N$(11),S(11),L(11) ,DX%(MAXDAL):DY%(MAXDAL) 6 @ ** NEW GAME ** JDA:<=>?@ABCDEFGH ** MAIN PROGRAM **+ d160: INITIALIZE? n330: NEW GAMET x590: PLAY GAMEj 1390: GAME OVERs 110 ** INITIALIZE ** (104)66ī190 103,1:104,66:16896,0 (4);"RUN EXTERMINATORS" (12);(21) 3:1:0 2180$ ****************************G * EXTERMINATORS *j * BY DAVID HARRIS *( * COPYRIGHT(C) 1989 *2 * MINDCRAFT PUBL. CORP. *< * CONCORD, MA 01742 *F ****************************P Z16(CT6):SC$(CT,PL):I11000::HIGHLIGHT SELECTIONgMY1115:Y:868::::RESTORE SELECTIONM13:70:X04:D(X,0)0::CLEAR DICE ARRAYM250:NEXT PLAYERM** SCORING TESTS **MX04:D(X,0)CTSCSCCTM::1'S TO 6'SN **6710,710,780,780,780,830,870OLNPL0OP1FL(CT)SC::FOR COMPUTER'S TURNkLX** ADD TO SCORECARD **LbSC10SC$(CT,PL)SC$(CT,PL)" "LlSC$(CT,PL)SC$(CT,PL)(SC):T(PL)T(PL)SC:ADD SCORE TO SCORECARD AND TOTAL8Mv:X12:16CT6(CT6):5:X$:X(X$):XX32(X96X123)64:X1X13520K(SC$(X,PL),1)":"Ģ11:X$"CATAGORIES CANNOT BE RE-USED":30::X$"SELECT ANOTHER":30:530K&CTX:GET CATAGORY # FOR SCORE-TESTK0** SCORING **K:SC0:CT7İ680:590:SINGLES COLUMNLDCTL1DAL:DX%(L)1ĂL:1010BMA%(DX%(L),DY%(L))1DEAD1:u2DX%(L)14,DY%(L)16:MA%(DX%(L),DY%(L))0:LL1DALDX%(L)1ĂL:PXDX%(L)DX%(L)DX%(L)1PXDX%(L)DX%(L)DX%(L)1PYDY%(L)DY%(L)DY%(L)1$PYDY%(L)DY%(L)DY%(L)1].MA%(DX%(L),DY%(L))0ĕ2DX%(L)14,DY%(L)16:MA%(DX%(L),DY%(L))2:L:8MA%(DX%(L),DY%(L))1ĕ2DX%(L)14,DY%(L)16:DEAD1:BMA%(DX%(L),DY%(L))3DDALDDAL1:DX%(L)1:SCOSCO10:23:"Score: ";SCO:6,255:8,50:843:L:LM R6,255:8,77:843+ \6,75:8,93:843A f6,255:8,77:843G pM zl  ** ERROR LOADING FILE ** (222)6ė:"File not found.":"Make sure EXTERM.SHAPES and EXTERM.SOUND":"are on the disk.": "Error loading file...":! ** DIRGE **ES:24:"'?' for Instructions, 'ESC' to Quit.";:1:@Y ** SOUND ON/OFF **o SNSN0:842,0:SN1:842,255:  ** LEVEL COMPLETE ***LS0:DALDAL3:LEVELLEVEL146,38:8,157:843>6,64:8,116:843 H6,75:8,93:843id on/off"2:" CTRL-S-Toggles sound on/off"[24:8::"PRESS A KEY TO CONTINUE";16368,0:16384,128:16368,0:16304,0::21:" EXTERMINATORS (C) 1989 MICROSPARC, INC.";:23:1:"Score: ";SCO;" Level: ";LEVEL: 9 SPAC 6"." M , . 1 2 3"]:" S-Sonic Screwdriver (once per level)"" Destroys all adjacent EXTERMINATORS": 3 SPACES" T-Teleport-Randomly relocates you"" W-Last Stand-Stand until end of level" " G-Toggles gr" you. When cornered, use the Sonic"SN" Screwdriver to destroy the adjacent"|X" EXTERMINATORS, or teleport away."b" Use the following keys to move:"l" U I O 7 8 9": 7 AND 11 SPACESv" J K L or 4 5(219):# ** INSTRUCTIONS **+:I14::"INSTRUCTIONS"::t" Try to eliminate the EXTERMINATORS"&" before they get you! EXTERMINATORS"0" destroy each other when they collide.":" Debris is lethal to EXTERMINATORS and"'DM.FAME"+L110:N$(L):S(L):L(L):LI(4);"CLOSE EXTERM.FAME"OEN(222):EN6EN5ĺ(4)"OPEN EXTERM.FAME":(4)"CLOSE EXTERM.FAME":1420EN8ė::1:"I/O ERROR... CHECK DISK DRIVE": ::1:"ERROR #"EN" AT LINE #"(218)256)ĂL:1710D|C10L1:N$(C1)N$(C):S(C1)S(C):L(C1)L(C):C:"Please enter your name: ";N$(L):S(L)SCO:L(L)LEVEL(N$(L))15Ģ3:958:4:"(15 letters or less)":2:1670L10L(4);"OPEN EXTERM.FAME" (4);"WRITE EXTERn!":  ** HALL OF FAME **3"EFLAG0:1760R,(4);"VERIFY EXTERM.FAME"o6(4);"OPEN EXTERM.FAME"@(4);"READ EXTERM.FAME"JL110:N$(L),S(L),L(L):LT(4);"CLOSE EXTERM.FAME"^h ** GET WINNERS NAME ** rL110:SCOS(LEVEL" -L110:N$(L),S(L),L(L):LQ:"Play Again (Y/N) ";::"Y";WtA(16368):A128ī1510P$(A128):16384,0P$"Y"P$(121)P$(13)ī110P$"N"P$(110)P$(27)ī1510::"Play EXTERMINATORS again, sooAn24:"You were hit...Game over... ";:1: 9 SPACESKx2220d1570: HALL OF FAMEl:"You were hit...Game over...""You reached level ";LEVEL;" scoring ";SCO;"."1650:14::"HALL OF FAME":::"WINNER","SCORE","L16:L1C:L1 MA%(X,Y)2Ĺ6,255:8,100:843B4X14,Y16[MA%(X,Y)2ĂB:A:w(MA%(X,Y)0:2X14,Y162DDALDDAL1:SCOSCO20:23:"Score: ";SCO<L1DALFDX%(L)XDY%(L)YDX%(L)1:LDALPL:B:AZd ** GAME OVER **14,PY16.PX(18(1))1:PY(8(1))1GMA%(PX,PY)0DEAD1XMA%(PX,PY)1k1PX14,PY16q ** SONIC SCREWDRIVER **SE0:S1:C50A11:B11XPXA:YPYB:X0Y0X19Y9(A0B0)ĂB:A:4X14,YA%(DX%(L),DY%(L))30V2DX%(L)14,DY%(L)16g`DDALDDAL2:SCOSCO20:23:"Score: ";SCO:C1L1jDX%(C)DX%(L)DY%(C)DY%(L)ĕ3DX%(L)14,DY%(L)16:DX%(C)1tC:DX%(L)1:6,255:8,150:843:L:~ ** TELEPORT **MA%(PX,PY)0 1PX!0!0:1PX14,PY16:3:2PX14,PY16G!A111:PITCH,DURb!8,PITCH125:6,DUR31!1PX14,PY16:2PX14,PY16!843:A! 121,4,121,3,121,1,121,4,108,4,113,1,121,2,121,1,121,2,128,1,121,8!!OFOF:3OF " X1315816:0,X279,X:+" X1227014:X,0X,157:1" 0`ŠӠֱέԠŠҬî̠ӠĮʎ1|&… (n}&Dž (\%Tz&Lc()8= (J 8'z&'{& 3((ʎ1|&|&|&3223 `BYYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  `0 / X& & +&&7&P^&  VG+ #X ɛL ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8 ) ɘ"    L:#:#ŠϠĠԠ  m# m# J Qڨ)̰}] нȱ ̀𩠙 i V N c ɘ\ h"i"j" e" iL X>"L;"ίΠ`v""""""*$ Fk%YeQP!/RB}QBiBB}\ }FEL,#> ȏ6 .KMNOPQRSTUVWXYZ[\]^_`abcdefghij %Щ ߩu"L! )L! 8'  )ɀ)4,- U JNT) u"Ls"t" ( !` ^"M)Fi/ b"3 L !C_" %k"l" (#M8( % ) L*"m"n" (_7, )7(P0 ( @X p 8  u"!_"f"0 ~&f"0 %o"p" (,) &q"r" ( %L*")0I0hx H( +JJ08 ` )MsI)><75>?>.M,$-.>:<;g%,%>?2.$$%--556'<??I ?m);??m)Mm:?߿--m)m);??5555555555%7777:>>>>')L&18|&"m11 2H22h2舌|&|&12H)M0 h10200I20h2 (`LE%12 `_'"L  <8# ȱ)ɀ  )( ` (Xp< @( )m((.(( M(i  ``) |'(j21 z& {&!` ({&z&(i({&(( CBDFGE (r&$ 3(,}&r& … 3(ŅL&JJJJ`Ϡ'8`r&h)hrG 밳QR 밨J%܈G" T)Ii)܍U*܍H'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` HHV` /Q'܅IHHVVЍV@`8 ` ͐%mיVʈ@tȱ@fȱ@prsiQ{R|V)5VI0ܢܽ lS'H* 7ghFG (JK L܅IU mHIH` wt tP0ST HVHQFR0NN` G8`F@ 0 P LK8`= >I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶=> ?܅I m@IHHyHȘI Lܝ` @f@ n@Ю׍V)؍0JHi 뎈`C8` @ 3N@) S莴 ⭱i`0 e; 뮈ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّN@`,뎕׮Б` L ` @>V)I38 Pghם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA I'KIlllhh8` Qu")T'P() ɺiLG )?      `l@Hȱ@IױHXATȱH ɯȩ׍̕5H)/@a)_ .0 :A[8`B l-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ(     0 HϭߍLпlhh@ihAiH(ؠȱ@JJJJq@)@vvȱ@Hȱ@Ah@@cve J) LL LJiB LJ) JxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlآ <B*IBGF08Lé'+8H <,``h(`@ڍL3<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLHB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?.<ʆ>,=?BC8 é&'112``* G** c*` v* G* c*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <ȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L(`L?* *Ll) ) L( )Ll)8e` ,$`ee` ΐQ8`܅I `S܍TU p8D`F` ilH)HFȍQHGR $%܍&܍!ܢ8* J8` L ܝA)I 'ܝ=`I8iUFSGT`I܅IH3H ( )ȱHί`Α8HeHI SB=0P ٙNٙLFQJʈ p猱`8m0`,0H hi PȽίhٍ0GF8yאFG  $0i 8` L )߹0 )p )@ ) ȩ ؝O0QR 방 STQRFG 嬉؍i؍j؝k ؝f }V) }V )حP͝ `H@h`h``N8` IhHIhH  iع `  عiعi` )؍0CGHFHBFGx ް(8hFhG`@4͔ L @Ai ׭2` . W#ع؍0 e讈)`.@+ HI}H؊  PLKΥʱNLMO MЈMEKݸP%MEKΥL0 O, PeNNO O(` C  7 #2J}HI~HI؊ LQ  6` #A H} ع H~ ؙ؊`@Nȱ@O`؝}}I}ؐ` rؽ؝} r 1 r؝}؈` ` H  \h)N@ C; L  >$ )bJ e ) H @hL ) # )حJjI~@L>쬉8NNO 8 ؍JL`RΥʱLN1MOMEKP/MEKΥLCL-M O,p莤eNNO(`JNKOL >/  .P L8 cؑJ`L@ȱ@ )N$% LL L L >  .pJ덦 )@፩NJOK >iKKΥΥ IJΦ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭVJJJJحt) ) )Ю ЪGgF $ ᭔ع+ؠ >H  Wh8` 䮈ٽ ٬ؠ@` ( O )8`)i п`  H hBJ \ FإG`BH \FإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` L3J  B"L H  B 9ؙ` @ P8`K8`B8` O؈JHIH IL;FHGI ҭJjHIHB>IؙJJ c: QLHIHI`JKJK`FHIG ( Ȣ؝؈JL)eKM`)` J }J͢ $0 ΑJFJL8`JG ް(`(8`ؑ@`M8`8@ؐʈI묉)}8}} L LةC8`؍)@ i)}8}yJ ^ ؅F L{) +%J(a 6FإGؐ.` 6}۩ ٰ}~`JJJJ;i 묈͝ ٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C` }~ `ٽJJJJ`H͓hn) NjNjNjN. OH͓ ;٭ *Nۙ۰ڙک `Z8` O# 4`~ .~ .~ .~8۰*JF٥G٭'ܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍓ}~ NمFمG < Γ0 FGL鮈0 ٭~٭}ٽ8`H8`  ,} ~ 8 S01 E8`100 e 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`ί` W G h(8H E h(8Hh(`ؑ@`@ȱ@ ` B@8ZV p鮈ٍٍٍvHٍu8ihjVJJJJV)V@` %I -t) 0@V)NZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` *L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>P׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿ``LKL`BL Lެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LZ@   !"#$Ԡ͠ˠ(C)1983-87APPLEхhꭋILhH),kx8 (8` ԍ`@Ae Or88`zw! NIJK,-NOPQRSu' Bɼ>K@J5 9X(K XXK تKo`V8`no` I on I9XX`) HJJJh`OeNeO࿰ 9XАO`@ȭ@` ON fNJKO`H݅G ` wͬ 밽܅F݅G ` * w% L`L뮷HH &hFhG܍ݍ 8 `FHGH & hGhF`ݹܙ݊`@OEgFhG 6%&N   & ܮ `J HH hh` 0 @ LLL w`̻Yܝ ݝ0̻ȩFG   0` ܅F׍Vgh 밑 %LȹL@ȅH@IL,0` G פֿ= eH.t)N 0 PghV)@LP8` a᮷ &֩VJKJ L䬈yٙ٭yٙ٩`K 8` @LL =@ 4ȹP8` %i` Bם0 4B B)( ȹ`8m8m@8` G8`F Pt)@N8`V)@J 4טyרםVV)8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌18V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l PODEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H EH06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭBYL 8!9 詍` "  4"/pŠϠŠà͠ӠàԠŠkmnopqrstuvwxyz{|}~JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzLLG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKEFby LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  ɈL :Lɍ)ې)ɮ۰ɺH h 'L  ġLL ̹L)'L ȳL O'F ʻ ̹(((L $ʩ $$ $L `ީ % K@D E  / XʩXύX X %   % ɍRH hɛɘɉɈ $ Ld :Ldې)ɮ۰ɺ' Ld  : X ( % ɛ$ɘɉ پھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303  kimljn` pg׾mȾXhؾmɾYtѮȾɾ aYX`8gSL/id /`H) hJJJJ ɺi` M  ` ת.8 `O`S  AI-L9 ᪰B C VW>m>` _m8injkiljo풼i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥpnG @p;G=po:Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhL׾hؾ  p hgͺ칾`LٷV)jC mMjà Lp `VJJ°L9Lp з)< L з L緭W)8VJưϥ3 켼 `F`4W)ɐ/XYjV) F з8` # `l׾ XYW0V)4W׾ؾ_`)0%I0)3]8X^YȰ8` 8` p Ⱦɾʾ8`پھW)@%ZȾ pSԩ p`S pLjÍ FN I 9 : ʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nֵ#ح#׮2}q :IC@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSsƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8 ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s`\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE` `޾Lp h־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne}ȾȾI>Ie f`8` P־ǾҾ,G0C f=W)_`:_`蹀:`V)8`MN; b;`;C b N8` G)̀#:蹀:`V)R ޾,N0MHhHh p' L,N HCNh`M`M N N `9V) ` V) ޾ p`  (8` 8`8`(W)`_V)Ij!؍Í`_ FjЭW)`_ Ͼ pH Lh8`jGMоM  G)p pY)ικ`lP *,N!ǾȾɾʾ pǾ~H h8`8`,C  8` ȾɾM$ mHݓǾ phϾ pH Lh8`Ͼо־ǾҾ_` 볩Ӿ pW) "LEC`C )莼 з l6 7= /& /8Hh /` 6Y׾ؾ+پھ p|پɾʾ`HV)jh츾$-#Ͼ p о־޾Ǿ` 8` 8`ɾ)ɾ̸ ɾɾ0miȾ ;τ<:: <`:8` e eվ'OV)Jj зf Ja l ѱ&ji Ĥ Ƀ B ,  簰 ` l])Y 񩢍`Ⱦɾ0Ǿ p1׾ؾ  p p ٷ H rh(`׾ؾ` : ߭׾t8퍼mؾŰ펼t폼 L28` ˌھپLp k V)@W0!XY X6Y7` YX`X:YLLwLLL) `8` ԠŬLL* **********************************S * YOUR APPLE GAMES GALLERY II *| * (C) 1989 MINDCRAFT PUBL. CORP. *( * CONCORD, MA 01742 *2 **********************************<870F:::(21):130E P24:1:"PRESS LARGE & SMALL RUN **6NY3:CT8Y4:SET COUNTER_NX03:D(X,1)1D(X1,1)YY1:740ND(X,1)D(X1,1)(X1X2)YY1:NOT IN SEQUENCEN:Y0ı: NEITHER RUNNSC30:CT8SC40NN ** 3,4,& 5 DICERS **O Y25:CT11Y17:CTe owned by MINDCRAFT1  and are copyrighted.;* " "b4 UNAUTHORIZED COPYING IS ILLEGAL.k> ""tH120}R170\f216,0:ER(222):ER0ER21ĺ:"FATAL APPLESOFT ERROR NO. "ER".":K$::::&p:"PRODOS disk error no. "ER".":"INSERe Technical SupportB at (508) 371-1669 from 2 to 5 p.m. ESTU or write to:z " Nibble Technical Support " 52 Domino Drive " Concord, MA 01742 ""120  Remember -- all of the programs on this disk arsoft prompt (]).< Certain programs will not run after` others. So if you encounter a problem try rebooting your system and then running the program again. ""120 If you need further assistance you can call Nibbl All of the programs run under/N ProDOS.8X ""Ab120nl To RUN a specific program on this diskv use the RUN command given in the section Playing the Game in that game's chapter. Type this command when you have the Apple or any file copy program.( ""1120S " --> IMPORTANT <--" When running programs from Your Apple& "Games Gallery II disk, be sure the CAPS0 "LOCK key is down, and that the text: screen is set to 40 columns.!D files on the9 disk. So you should make a separateV disk for each program. The files you need for each program are listed in the "Program Files" section of each article. Copy those "files using System Utilities, FILER,"on' h programs are on side 2. BothO r sides of the disk are packed withv | programs. You should make a copy  "of the disk using System Utilities,"  "FILER, or any other disk copy program."  "" 120 Some programs create newsk. The back of the diskF " does not contain the files PRODOS andt , BASIC.SYSTEM. You must boot your Apple 6 with the front side of the disk. @ "" J120 T The programs from the Arcade section ^ are on side 1; Strategy and Educati9 :"Are you sure? ";:KEY$:KEY$"Y"KEY$"y"ĉ::B 170` (4)"CAT"::KEY$::170h 60 This disk contains all of the programs  from the book. The disk is in ProDOS  format and there are programs on both  sides of the diDCRAFT PUBL. CORP.":90# 80:` :1:A$"YOUR APPLE GAMES GALLERY II":90:::34,3:250 :8:4:"1> CATALOG":10:4:"2> VIEW INSTRUCIONS":12:4:"3> QUIT TO BASIC" 16:958:"Your choice: ";:KEY$::B(KEY$) B0180 B230,240RETURN TO GO ON, ESC FOR MENU";:16368,0:KEY$::KEY$(27)170:[ Z20(A$)2:A$:v dA$:A$""ĺA$::100| n x4:100:80:: 10:A$"WELCOME TO ":90: A$"YOUR APPLE GAMES GALLERY II":90::A$"COPYRIGHT(C) 1989":90::A$"BY MIN9Y11:SET COUNTER>OX04:XX04:D(X,0)D(XX,0)YY1XO ::Y1SC(CT6)10^O*vO4 ** THREE & TWO **O>D(0,1)D(1,1)D(1,1)D(2,1)D(3,1)D(4,1)SC40:OHD(4,1)D(3,1)D(3,1)D(2,1)D(1,1)D(0,1)SC40ORO\ ** POT LUCK **&PfX04:SCSCD(X,0):::SUM OF DICEAPp** COMPUTER'S TURN **Pz220:11:X$"THINKING":30:ZZ1:Z01280:ALLOWS FOR 2 RE-ROLLSP12:CT712:FL(CT)0İ570P".";::FL(11)0CT11:1380:SCORE A 5 DICERQ".";:FL(12)0CT12:1380:SCORE KEY%136DIR%1&BnKEY%160DIR%2;BxKEY%149DIR%3SBDIR%140,150,160:xBXX3(SP%3)(SP%4):X85X85~BBXX3(SP%3)(SP%4):X205X205BB*** LEVEL 3 ***-C0:CTR%2110,155:CTR%230,240,250,260,280,290:CTR%16LADDLE MOVES ***;A((PK%PD%)127SP%SP%1:SP%5SP%1kA2(PD%)35XX3(SP%3)(SP%3):X85X85A<(PD%)230XX3(SP%3)(SP%3):X205X205AFAP *** KEYBOARD MOVES ***AZKEY%(KB%):KEY%211Ĺ16368,0:SP%SP%1:SP%5SP%1Bd @*************************?@* NIBBLE.500 *^@* BY MIKE ROHRER *}@* COPYRIGHT (C) 1985 *@* MINDCRAFT PUBL. CORP. *@* CONCORD, MA 01742 *@*************************@ ::2140@950:590A*** PA:10:,SC$(13,0):DRAW BOTH SCORECARDS`YX01:X$NM$(X)"'S TOTAL: "(T(X)):X122:30:vY3:T(1)T(0)Ģ15Y32,37:33,3:::" W I N N E R ! ":1 SPACE ON EACH END; 2 BETWEEN LETTERSY:Z24:"PLAY ANOTHER GAME? (Y/N) ";:100:XRARY FLAGS:Xn:FL(CT)1:255:610:NEXT PLAYER'S TURNQXx** END OF GAME **XX019:1448X,(1024X):1024X,160:1487X,(1063X):1063X,160::MOVE HEADING TO VTAB 12(YX16:3X:SC$(X,0),SC$(X6,0):15X:SC$(X,1),SC$(X6,1)::,SC$(13,1)T13:1380:TEST POT LUCK:W<* NO AVAILABLE CATAGORY *kWFCT16:FL(CT)01380:USE UP SINGLES FIRSTWP:CT1111:FL(CT)01380:BEFORE USING UP THE OTHERSWZ:CT13:ONLY POT LUCK LEFT Xd570:X113:(SC$(X,0),1)":"FL(X)0:CLEAR TEMPO11:1:868::868::868:440:890:RE-ROLL DICEZV** END OF COMPUTER'S TURN **wVCT113:FL(CT)0İ570V :CT1271:FL(CT)01380:SEARCH FOR CATAGORYV:X521:CT16VFL(CT)XCT1380:TEST SINGLESV(:W2FL(13)15CROLLED 12356EUD(2,1)4D(0,1)0:D(1,1)0:1220:ROLLED 12456 dUD(1,1)1D(2,1)D(1,1)0UD(4,1)1D(3,1)D(4,1)0U** SEPARATE KEEPERS/TRASH **UY0UX04:D(X,1)D(Y,0)D(X,1)0:1250U".";::D(Y,0)0UYY1:Y512308V)YD(X,1)0/TV:1220:KEEP ONLY ONE PAIRFT`* REDO ALL DICE *hTjX04:D(X,0)0:".";::1220Tt** TRY FOR A RUN **T~X03:D(X,1)D(X1,1)D(X,1)0:FIND DUPLICATE DICET".";::490:D(0,1)01190UD(2,1)3D(3,1)0:D(4,1)0:1220:04:D(X,1)0DD1uS".";::D1(FL(D(2,1))0FL(9)0FL(10)0FL(11)0)1220:GO FOR SINGLES, 3,4, OR 5 DICERS$D11130:CAN'T USE THESE DICES.FL(D(3,1))0YD(3,1):1100S8FL(D(1,1))01130:CAN'T USE THESESBYD(1,1)TLX04:D(X,1RD(FL(7)0FL(8)0)R1:1150:TRY FOR RUNHR* GO FOR A DICER *RX13:D(X,1)D(X1,1)D(X,1)D(X1,1)D(X,1)0R".";::D(0,1)D(1,1)D(0,1)0RD(4,1)D(3,1)D(4,1)0:FIND NON-PAIRED DICERFL(12)01220:GO FOR 3&2SD0:XA 3&2OQ".";:FL(8)0FL(7)0CT7:1380:SCORE SM. RUN IF LG. RUN IS USED~Q".";:FL(8)0CT8:1380:SCORE A LG. RUNQ *POTENTIAL RUN OR DICER *QD0:R0:X03:D(X,1)1D(X1,1)RR1:RUN??QD(X,1)D(X1,1)DD1:DICER??0R".";::PLAP1:22:39:LAP;:CTR%0:LAP10ġ:780C3:CTR%3110,155:(CTR%1)230,240,250,260,280,290:CTR%38LAP8Ĕ12165,12CCTR%38LAP9Ē0:12165,12:3:13165,12CD125,159125,110105,70125,3:155,159155,110135,70155,3:1((FL)25)128,125:FLFL:D125,15985,10085,90110,50125,3:155,159115,100115,90140,50155,3:RDM((FL)10)122:2RDM,20:2RDM15,20:2RDM3,28:FLFL:E125,159100,120100,100150,50125,3:155,159130,120130,100180,50155,3:1((FL)20)TIME.25R>MIN%(TIME60):SEC%(TIME(MIN%60))SRH5:10:"YOUR TIME WAS ";fRRMIN%10ĺ" ";R\MIN%;":";:SEC%10ĺ"0";RfSEC%;"."Rp7:10:"FUEL REMAINING: ";(FUEL10)10;" GAL."RzI13000:R1860S23:9:"RUN ANOTHER RACE? (METIME5:SP%1OQ(CC%)24Y53FUELFUEL35:I12000::FUEL50FUEL50XQ590qQ*** RACE ENDING ***Q :::10:16::J111:(OVER$,J,1);QI15:SND(BZ%)::::I12000:Q I110:912:Q*1:14::" RACE RESULTS ": R4TIME10ĺ"0";PSEC%%P21:8:SP%;aPFUELFUEL0.02SP%:23:7:FUEL10ĺ(10FUEL)10:710PFUEL1ĺ" ";(10FUEL)10:710PFUEL0ĺ" ";(10FUEL)10:710P570P1OX,OYP1X,YPOXX:OYYQ(CC%)38āI14:SND(BZ%)::TI*** MAIN LOOP ***%ONMODE%40,90yOXYY2SP%:Y0Y163:1OX,OY:1X,Y:CTR%CTR%1:OXX:OYY:A%430,330,190:590Ob(KB%)155Ĺ16368,0::20OlTIMETIME.2:MIN%(TIME60):SEC%(TIME(MIN%60))Ov22:25:MIN%10ĺ" "; PMIN%;":";:SEC%125,3:155,159157,110137,70155,3:3105,155:N&125,159120,135120,25125,3:155,159160,135160,25155,3:3105,155:N0*** OUT OF GAS LOOP ***N:23:7:" 0.0";:22::" OUT OF GAS! ";:I14000:::FUEL15:SP%1:TIMETIME90:22:958:OD,60155,3:2((FL)29)146,105:FLFL:IM*** START RACE TRACK ***M125,1590,1590,0:I02:0,I125,I:155,I279,I::279,0279,159155,159M125,159125,110105,70125,3:155,159155,110135,70155,3:3110,155:2N125,159122,110102,70,50125,3:155,159125,100125,90145,50155,3:2((FL)25)86,90:FLFL:L125,15995,12095,100140,50125,3:155,159135,120135,100180,50155,3:2((FL)27)96,120:FLFL:+M125,159145,110145,100165,60125,3:155,159185,110185,100205CTR%1)470,480,490,500:CTR%36LAP1Ĕ12165,12dKCTR%36LAP2Ē0:12165,12:3:13165,12jKKRDM((FL)22)119:125,159120,135120,25125,3:155,159160,135160,25155,3:I13:2RDMI5,12020I::FLFL:NL125,15985,10085,90105L:oJ125,15987,10087,90107,50125,3:155,159122,100122,90142,50155,3:2((FL)27)88,95:FLFL:J*** LEVEL 1 ***J0:CTR%2105,155:CTR%470,480,490,500:CTR%14LAPLAP1:22:39:LAP;:CTR%0:LAP3ġ:7804K3:CTR%3105,155:(FL:sI125,15997,12097,95142,50125,3:155,159132,120132,95177,50155,3:2((FL)27)99,100:FLFL:J125,159122,14087,90122,40125,3:155,159157,140192,90157,40155,3:140,110125,90140,70155,90140,110:1((FL)27)124,35:FLFLAP2Ĕ12165,12CH^CTR%37LAP3Ē0:12165,12:3:13165,12IHhHr125,159122,110102,70125,3:155,159157,110137,70155,3:1((FL)25)125,120:FLFL:I|125,159165,100165,60125,3:155,159200,100200,60155,3:2((FL)27)167,70:FL25,61:I03:100,50I125,50I:FG6990,57:1090,66:1190,75:[G@*** LEVEL 2 ***GJ0:CTR%2105,155:CTR%370,380,390,400,410:CTR%15LAPLAP1:22:39:LAP;:CTR%0:LAP4ġ:780HT3:CTR%3105,155:(CTR%1)370,380,390,400,410:CTR%37175,60125,3:155,159180,110180,100205,60155,3:2((FL)20)145,130:FLFL:F"125,159125,130100,75100,50125,3:155,159155,130180,80180,50155,3:137,107125,80125,50138,27150,50150,80137,107#G,1((FL)25)152,65:FLFL:100,611103,110((0)30):FLFL:E125,159125,14090,90125,40125,3:155,159155,140190,90155,40155,3:140,110125,90140,70155,90140,110ERDM(FL):1(RDM25)128,30:1(RDM10)102,100:1(RDM10)150,80:FLFL:UF125,159150,110150,100Y/N) ";:A$:A$;:A$"Y"20.SA$"N"910HS23:33::"BYE";::bS*** INITIALIZING ***S:SP%1:TIME0:LAP0:CTR%0:FL0:FUEL50.0S32,5::5:"PLEASE CHOOSE LEVEL OF PLAY:"S:5);"1 - BEGINNER'S TRACK"S5);"2 - WARM-UP TRACK"!T5);"3 - CHAMPIONSHIP TRACK"FT5:30:A$::A$"1"A$"3"1000STA%(A$)hTA%1FL$"BREC"~TA%2FL$"WUREC"TA%3FL$"CREC"T32,0::NR0A%T%İ1710:1070T$1620T.:3:1:0:X140:Y150:OX140:OY1509U8125,1590,1590,0:20 700 GAME32912> 768,19:769,70:770,0:32768D M 740S  7:13:": :":13:" CITY ":13:" CENTURIAN ":13:": :": :12:"BY JOHN ROMERO":11:"COPYRIGHT(C)1988":10:"MINDCRAFT PUBL. CORP."":787,("K")128:RN%1:PF01 x(NA$(1))140 PF1:D$"OPEN CC.SCORES":D$"READ CC.SCORES":I09:S(I):NA$(I):L(I)::D$"CLOSE":PF0 783,1 230,32:62450 SP3:LV1:SM1:MM0 LELV:LV10LE10 LXLV:LV4LX4 660 9 * CITY.CENTURIAN-* BY JOHN ROMEROG* COPYRIGHT (C) 1988d(* MINDCRAFT PUBL. CORP.}2* CONCORD, MA 01742<:(21);F1700PI773777:KEY:I,KEY:Z::1180dD$(4) nRN%PF1::D$"BLOADCC.OBJ":D$"BLOAD CCSHAPES ALL THREE LEVELS, WHEN YOUR RACER":"IS ABOUT TO BEGIN THE FINAL LAP, A SMALL";:"WHITE FLAG WILL APPEAR NEAR THE TOP OF"]d"THE SCREEN. AND, WHEN THE FINAL LAYOUT":"OF THE LAST LAP IS REACHED, YOU'LL GET":"THE CHECKERED FLAG....GAME'S OVER!!!" ^nTHE WARM-UP GAME TAKES FOUR LAPS THROUGH";:"A SEQUENCE OF FIVE LAYOUTS. THE"\F"CHAMPIONSHIP GAME RUNS FOR TEN LAPS":"THROUGH A SERIES OF SIX TRACK LAYOUTS.":\P" YOU MAY USE THE KEY TO END A":"RACE EARLY AND THEN RESTART.":|]Z" AT FACTOR ON":"THE CHAMPIONSHIP TRACK. USE THE PIT"[("STOP TO GET UP TO 35 MORE GALLONS OF":"FUEL. DON'T RUN OUT!!!"::10);"";[2A$:P\<" THE BEGINNER'S GAME LASTS FOR THREE":"LAPS THROUGH A SEQUENCE OF FOUR LAYOUTS.";:"L YOU CHOOSE TO PLAY,";:"TRY TO AVOID THE OBSTACLES OR DRIVING":"INTO THE SIDES OF THE TRACK. DOING":"EITHER SLOWS YOU AND COSTS TIME."5[:" A DISPLAY OF FUEL REMAINING WILL":"APPEAR ON THE SCREEN UNDER ALL LEVELS,":"BUT WILL NORMALLY ONLY BE AG TURNS, AND":"FEW OBSTACLES. A 'WARM-UP TRACK' OFFERS";Y "NARROWER ROADWAYS AND A FEW MORE":"OBSTACLES (POTHOLES AND ABANDONED CARS).";:"THE 'CHAMPIONSHIP TRACK' HAS NARROWER":"ROADWAYS, SHARPER TURNS, AND A PIT STOP."Z:" AT WHATEVER LEVE BY MINDCRAFT PUBL. CORP.":20:3:"WOULD YOU LIKE INSTRUCTIONS? (Y/N) ";bXA$::A$"N"1560tXA$"Y"1250X:1:11::NAM$:";:MODE%2Ģ20:A$::24:17:958:QVj(PK%PD%)127Ė17:958:[Vt1130tV~*** INTRO/INSTR ***V8:11::" THE NIBBLE 500 ":V:100:19)"BY"V:15)"MIKE ROHRER":255+WX0:Y0:OX0:OY0:TIME0:PK%0:PD%0:KEY%0:KB%0I02:0,I125,I:155,I279,I::279,0279,159155,159MUBA%550,540,520UL21:1::"SPEED=";::" 1":23:1::"FUEL=";::" 50.0";:12:"GAL";UV22:20::"TIME=";::" 0:00";::33:"LAPS=";::" ";01V`1OX,OY:24:18:""MF12I:7:A$:tPI04:12I:7:A$:A$(13)1420Z773I,(A$)128:A$(8)A$"<-"dA$(10)A$"DA"nA$(11)A$"UA"xA$(21)A$"->"A$" "321:1:97:L,K:LL1:KK2::D L16896:I039:J17:L,I:LL1::::740:11:1:"DEFINE CONTROLS, FOR THE SAME:":"UP :":"DOWN :":"LEFT :":"RIGHT:":"FIRE :":17:1:40);:I04:CHAR(773I):A$(CHAR):CHAR136A$"<-"(CHARA,255:CACA1:CA2561220IBYTE0:1260:BYTE40:1260:BYTE80:1260nLACCA,255:CACA1:CA5121240L16640:1280I03:J01:K07:LACCA,BYTE:CACA1::BYTEBYTE128::BYTEBYTE256:: 193,218,136,149,160I140:K1:J1769,0:770,7:32768:769,136:770,8:32768O~:SM9āISM19:25362I,0:U[{:"PLEASE WAIT";::"...";RM%ıRM%1LAC24576:CA0:H02:BYTE31:I03:BYTEBYTE1:J01:K07:LACCA,BYTE(4K):CACA1:K,J,I,HLACC25652I,0cBI(LE)CX((1)255):25292I,CX:25352I,1:CX39Ĺ768,CX:769,134:770,6:32768iLVSM1āI09:25362I,0:25332I,0::`I0SM:25332I,0:25312I,(1)255j25322,(1)255:25362I,1,t(25312I)40Ĺ768,(25312I):SH((1)LX)2-25090I,MX:25110I,MYI25132I,XV:25152I,YVd25172I,SH:25192I,1TI((1)50):25212I,TI:25232I,TITM((1)20):25252I,TM:25272I,TM$MX391080.768,MX:769,MY:770,SH:32768 8I10Ĺ25352I,0:pH27A$"J"%z787,(A$)1281H27ı;1300GI019a25192I,0:25462I,0{25683I,0:25743I,025744I,0IMM1080MX((1)255):MY15XV1:((1)21)2XV255YV((1)51):((1)21)2YV256YV"SOUND: ( ) ON ( ) OFF";:H9C H:A$:A$" "HH8:H17H9V*A$(13)800f4H9Ĺ783,1w>H17Ĺ783,0H16:1:868:"CONTROL: ( ) KEYBOARD OR ( ) JOYSTICK?";:H11RH:A$:A$" "HH16:H27H11\A$(13)850fH11A$"K"EL:"021:8:SP10);SP" ":26:LV10);LV6p:17:"SELECT WITH SPACEBAR, THEN PRESS RETURN ":::740:16:"SELECT SKILL LEVEL:1.2.3.4.5.6";:H24H:A$:A$" "HH2:H31H20A$(13)760 SP(H20)21 16:1:868:HC((1)61):HC0HC4660.HC:0,145XI52745:MY((1)10145):I,MY:w279,145:0,155279,155:3:I049:SX((1)255):SY((1)140):SX,SY:25542I,SX:25592I,SY::21:1:"SHIPS :";:20:"SCORE:":"CITIES:";:20:"LEVUCTION COMPLETED!";*0LXLV:LV4LX43:784<D700EN660NX920pb768,19:769,70:770,0:32768yl450vSPSP1:SP1Ģ23:1:868::"GAME OVER";::", THE MOON IS DOOMED!";A$:1530710:768,19:769,70:770,0:32768450ED TO YOU!";::23 771,LV+ 34,22< RCODE1630N RCODE31460` RCODE41440i 710 LE(779):LELE1:LE9LE9 779,LE&LV(LV2)20LV4SMSM1:17:22(SM10)1:"THE ALIENS ARE BUILDING!";:SM9SM9:17:23:"CONSTRT FOUGHT HARD ENOUGH...";:"";A$:902,IIII1k6I8II1:S(I1)S(I):NA$(I1)NA$(I):L(I1)L(I):@NA$(II)"":1480JII3:1(NUM100000)(NUM10000)(NUM1000)(NUM100)(NUM10):NUM;TS(II)NUM:L(II)LV:10:28);:28:LV10);LV;:26:"<";:9:">";A^10:"";NA$(II):II3:28:L(II)10);L(II);Yh(NA$(II))161620r14:1:"YOU HAVE FOUGHT WELL. ARE YOU SATISFIED WITH YOUR ENTRY?";:A$:A$"Y"A$"N"1650|A$"N"ĢII3:1630=:D$"DELETECC.SCORES":D$"OPENCC.SCORES":ccABQ-d` -d-dc-d`-d.d.dhb.d0bb bibbɂݮ-dc4d 8  B S-dbHd' Z.dhbvcbcTbHbch( ZL$ -d-d4d-d` >d 4d  >d>d  LLj >d4d L-d-dhb-d`bb bibb8bة1d*b+b+dbb2d3d Z/d`1d` -d-db-d`bb bib w-dbL2 cbb`bɈhbSdRdL` d ߄L߄1-d-dc 0cABQ-d*b c8*bbch Z( ߄ L-d-dvc-d` c g-dvc g cc  gL# c gvcL# gL#-dccHch' Z-dc ߄-d`-d1d`*b`c8*bc`/d` 0d /d 0d0d L↩ 0d /d` ↩ `0d ߄2d3d0dLZ1d`Nc0G+dbi&cbcb8&cbcNcbi:c&c Z*d ߄-d-dNc"&c:c Z-d&c}bc&c( Nc-d`:c ZL-d-dhb-d`-d.d.dNc.d0&cb:c8bNc:c&c Z-dhbvcbcTbHc-d` [b( Z-db Z-d*b b8*bbb( Z-db ZLb`b`dbbb(` | 0Q`1d` -d-db-d`b( w*b b8*bbbLb( w ߄LH hH8,0h`1dX*dSb( ߄TbHbbh ZLt@b0 8@b@b`@bIi@b`,b0,b`,b`1d` *b0 L 0'Hȑh` 0Hȱ'h`1d` -d-dc-d`b'b Z-d*b b8*bbb'Ϡb ZL1d` -d-d `1d`+d,dbb,d Z*b+d *b+dbm+bb b+bɌ b+bbb+dLZ-d-dhb-d`b(TbHbbh Z-d*b bibL b8bb},bbb}@bb b LɅb |b b|bޤb bb 7  , χ U   x  D  w `1d`Z,Ĺ+b8+b=9+b`+bi+b0#+b`*b8*b *b`*bi*b0*b`  *d,`ɛ,ɛ,`ɓ,``ɑЧpȱ 0LB`ae`Q` `Lp`  (08NXbfx@@@@@@@@@@@@@@@@bFbL*d+d,d*b+b/d RdNcbc B g1dd,,S ? ܌ H  g NE ";(218)256(219):D$"WRITECC.SCORES":I09:S(I):NA$(I):L(I)::D$"CLOSE"E90u:1480::"THE TOP 10. HIT RETURN:";A$:::23:PF1ĺ"ERROR LOADING FILES...":"THE FILES CC.SCORES, CC.OBJ AND CCSHAPES":"MUST BE ON THIS DISK":"ERROR ";(222):"IN LILj1d`*b Hd8*bHd`-d>d  ߄ ߄>dHHdh' Z-d` `   ` LL$%L" `   Li i  i Lg `hb ` `Rd ߄ڠLԧӠԠŠԡ `Rd`Rd` `L퉠Sd`Sd`L `SdfLǡĠӠ٠Ԯ 0' ߄8 ߄``-d-dTdQd+hb&b(-d .d.dcbb .d-R SCORE IS ONE OF THE TOP ";NBR%;" ***"7f16368,0f14:5)"PLEASE TYPE YOUR INITIALS AND":5)"TODAY'S DATE (MMDDYY): ";:18:6:"(HIT WHEN FINISHED)"f15:28:"";NS$(I):NS$(I)""1960%g(NS$(I))10ĺ(7):15:27:958:17:7::"(I)" "OS$(I)e@e24:"HIT ANY KEY TO CONTINUE ";:A$Ne&32,0::Te0pe:*** RECORD UPDATER ***eDTIME(TIME10)10eNNR0:NEW RECORD FLAGeXI1NBR%ebTIMEOS(I)1990elNR12000evNR1:NS(I)TIMEe:LN$)f:"*** YOU "+dOS(I)0OS$(I)"---------":9 -'S=dI10I$" "pdMIN(I)(OS(I)60):SEC(I)(OS(I)(MIN(I)60))dMIN$(I)(MIN(I)):MIN(I)10MIN$(I)" "MIN$(I)dSEC$(I)(SEC(I)):SEC(I)10SEC$(I)"0"SEC$(I)e4I:I$(I)". "MIN$(I)":"SEC$:cJ*** RECORD READER ***'cT:Ac^T%A%:FLAG, SEE 2090TchD$;"OPEN "FL$gcrD$;"READ "FL$uc|I1NBR%cOS(I)cOS$(I)ccD$;"CLOSE "FL$c32,10:c1:3::NAM$:c3:1:NBR%" TOP SCORES - LEVEL "A%dI1NBR%:I$"bA$tb:5:10:"PLEASE CHOOSE CONTROL:":32,12::"<0> = PADDLE 0":"<1> = PADDLE 1":" = KEYBOARD":32,0b"9:31:A$::A$"0"MODE%1:BEG$"BUTTON":PD%0:b,A$"1"MODE%1:BEG$"BUTTON":PD%1:b6A$"K"1570c@MODE%2:BEG$"ANY KEY"ING "::a" WHEN ENTERING THE PIT STOP FOR GAS,":"BE CAREFUL NOT TO HIT THE PIT WALLS.":"ALSO, DON'T TRY TO SPEED UP TOO SOON"a"WHEN LEAVING. IN EITHER CASE YOU MAY":"FIND YOUR RACER FAILS TO STOP!!!"b22:10)"";.":32,0+`:10)"";5`A$:S`1:15::" PENALTIES ":`:"COLLISIONS: 5 SECONDS AND SPEED IS":14)"RETURNED TO 1."`:"OUT OF GAS: 90 SECONDS, WHILE WAITING":14)"FOR A 15 GALLON RESUPPLY." a:LN$:15::" REFUEL> = STOPS LATERAL MOVEMENT":3)" = CHANGES SPEED (1 TO 5)"Q_:LN$; `32,3::"A NOTE ON SPEED..."::"THE RACER TURNS SHARPER AT SLOWER":"SPEEDS THAN AT THE FASTER ONES.":"THIS INCREASES MANEUVERABILITY, BUT":"ALSO REQUIRES A FINER TOUCH22:10)"";*^xA$:G^1:16::" CONTROLS ":^:"WITH PADDLES:"::3)"DIAL = MOVES RACER LEFT AND RIGHT":3)"BUTTON = CHANGES SPEED (1 TO 5)"E_:"WITH KEYBOARD:"::3)"<- -> = MOVE RACER LEFT AND RIGHT":3)"|?~>~x?*UUA*yO*AUAkI ժ[mgsCaCaA">>"AIk>> ID  J D00 F&@00Ac61d 7 +b`+b`+b`,ad *dd`*bd`-d-dTd-d`|dɂ-d .d.dc.d0ܹhdbibc4dbHd' Z 8  B SL-d-dNc-d`-d.d.dTd.d0&chd:c8|dTdd|ddhdd Z L1d Z *b`LLd`Tdbhdb|d Z-d|dhd ( Z-d*b hd8*bhd|di|dɆdTdhdddL|dhd ( ZL-d-dd-d` d ȋ-dސd ȋ dd  ȋL d ȋސdL ȋL-dddHdh' Z-dd ߄-d`-d1d`*b`d8LIMIT TO 10 LETTERS PLEASE"::19501g:2010WgNS(I)OS(I):NS$(I)OS$(I)::2010{gNS(I)OS(I1):NS$(I)OS$(I1):gNR02100gD$;"OPEN "FL$gD$;"WRITE "FL$gI1NBR%gNS(I)g NS$(I)gg D$;"CLOSE "FL$h*::LN$:2130Wh4:LN$:I110:SND(BZ%)::13:8)"SORRY,":8)"YOU DIDN'T MAKE THE TOP "NBR%dh>::LN$thHI11000:zhRh\D$(4)hf(104)64Ĺ103,1:104,64:16384,0:D$"RUN NIBBLE.500"hp2260hzI13:FL$(I):hI1iD$;"VERIFY ";FL$(IHAX%(A)1:AY%(A)1:A@HREPAIR1:TCLREPAIR:LDR0:900aH -CHECK FOR KILLING AN ANT-HY05:AE%(X,Y):A1ĂY:840H4:BLKX20,Y1489H5:EARTHX201,Y1489H SOUNDāD18:SD,(SD):HE%(X,Y)0:AX%(A)1:AY%(A)1I SCRKAX%(30)20,AY%(30)1489EG5:EARTHAX%(30)201,AY%(30)1489sGSOUNDāD12522510:768,D:769,8:770:GAX%(30)1:AY%(30)1:A129:AX%(A)1720G4:BLKAX%(A)20,AY%(A)1489H5:EARTHAX%(A)201,AY%(A)1489:E%(AX%(A),AY%(A))0F0 -DISPLAY ANTS-$F:A1NANTGFD4:BLKAX%(A)20,AY%(A)1489lFN5:ANTAX%(A)201,AY%(A)1489}FXA:TCLANT:Fb**** RESULT OF BUTTON PRESS ****FlX(XM19)FvREPAIR840F -CHECK FOR KILLING LEADER-FXAX%(30)740G4:BL:AY%(A)((1)6)7ESOUNDĹ768,170:769,A51:770TEE%(AX%(A),AY%(A))0530aEF1460EFF1:Y501:X1301EE%(X,Y)0ĂX,Y:"ERROR IN 570":EAX%(A)X:AY%(A)YEANANTAX%(A)1:AY%(A)1:550EE%(AX%(A),AY%(A))AF&AANT FOR EACH BLOCK-'DrNANTNBLK:A1:D|Y05:X013NDE%(X,Y)0420DE%(X,Y)A:AX%(A)X:AY%(A)Y:AA1:ANANT560DSOUNDĹ768,170:769,A51:770DX,YD560D -TRY TO RANDOMLY CHOOSE BLOCKS-DA129:F0EAX%(A)((1)14)4:BLKAX%(A)20,AY%(A)1489ACSOUNDĹ768,20:769,35:770\C"AX%(A)1:AY%(A)1:A{C,1160: -CHECK FOR LOSING-C6 -INIT ANT POSITIONS-C@LEVLEV1:NANTLEV:NANT29NANT29CJNANT12NANT12CT23:9:LEVC^NANTNBLK440Dh -ONE (LDR)İ11009B(ACT)Ē1:MAN(ODIR,OMOVE)OX,YM:100[BACTACTINC:(ACT)İ610:160~BSOUNDĹ768,ACT7:769,50:770B160B**** TIME UP ****BACT0:REPAIRREPAIR0:310BA129:AX%(A)1290BE%(AX%(A),AY%(A))1:NBLKNBLK1!COP ****%Ad3:MAN(DIR,MOVE)XM,YMPAnODIRDIR:OMOVEMOVE:OXXM:MOVE(MOVE)bAxMD2330,2380zAXMXM(DIRTWO)SPDAXM0XM0AXM260XM260ATCTCINC:(TC)İ230:16368,0ATCLANTTWOİ910: -LEADER APPEARS?-BLDRLDRLDRINC:@ ************************=@* ANTS *[@* BY COLIN FRENCH *y@(* COPYRIGHT (C) 1985 *@2* MINDCRAFT PUBL. CORP.*@<* CONCORD, MA 01742 *@F************************@P1550: -INITIALIZATION- AZ**** MAIN LO180!j. "BREC","WUREC","CREC") iI2$iD$;"VERIFY ";FL$(I),iI3EiD$;"VERIFY ";FL$(I)Pi216,0\i1160:i3288:J110:NS(J)33355:NS$(J)"#########":iD$"OPEN "FL$(I)iD$"WRITE "FL$(I)iK110iNS(K)i NS$(K)i Ki D$"CLOSE "FL$(I)j$ 2SCR5:23:28:SCR0I*NANTNANT1:NANT0900YI4 -ALL ANTS KILLED, ADVANCE A LEVEL-bI>310IH -NO ANTS,TRY TO REPAIR GROUND-IRY05I\E%(X,Y)1ĂY:900If5:EARTHX201,Y1489IpSOUNDĹ768,250:769,15:770JzE%(X,Y)0:NBLKNBLK1J'J**** LEADER APPEARS? ****?J((1)LEV)81090]J -TRY TO PUT BEHIND MAN-JAX%(30)(XM19)(((1)13))(DIR2)JAY%(30)((1)6)JAX%(30)0AX%(30)0JAX%(30)13AX%(30)13J -DISPLAY LEADER-K5:BLKAX%(30)20,AOVE LEFT AND RIGHT":"PRESS BUTTON 0 TO FIRE. ";:Z$:Z$;:Xf:23:"USE ARROW KEYS TO MOVE LEFT AND RIGHT,":" TO STOP, AND TO FIRE.";:Z$:Z$;:Xp -DISPLAY INSTRUCTIONS-Xz::13:"*** ANTS! ***"Y:" MUTANT KILLER ANTS ARE"N"2050;W:23:" DO YOU WANT SOUND EFFECTS? ";YW Z$:Z$"Y"SOUND1:2110kW*Z$"N"2080wW4SOUND0W>:23:3:"P)ADDLE OR K)EYBOARD? ";:Z$:Z$"P"Z$"K"2110WHZ$;:MD1(Z$"K"):MD2140,2150WR=X\:23:"USE PADDLE 0 TO M***ANTS!*** HIGH SCORE: BY ";NM$;:28:HS[V" LEVEL: 1 YOUR SCORE: ";SCRcV90V**** INTRODUCTION ****V:21:"COPYRIGHT 1985 BY MINDCRAFT PUBL. CORP."V" WOULD YOU LIKE INSTRUCTIONS? ";VZ$:Z$"Y"İ2160:2070 W Z$(X,Y)0UlX,Y)Uv -INIT ANT ARRAY-LUA130:AX%(A)1:AY%(A)1:A^U -VARIABLES-ULEV0:DIRST:XM10:YM72:MOVE1:SCR0UNBLK84:LANT110:LREPAIR40:TCLREPAIR2U -FLAGS-UACT0:REPAIR1:LDR0U -INIT MAN & SCORE-4V:22:"4:MAN(3,1)5&TANT6:EARTH7:BLK8@T -CREATE BACKGROUND-JT2440_T -INTRODUCTION-iT&2020T0 --- GAME INITIALIZATION ---T: -INIT EARTH ARRAY & DRAW GROUND-TDY05:X013TN4:BLKX20,Y1489TX5:EARTHX201,Y1489 UbE%D$;"CLOSE ANTS.HS"6S216,0: -RESET ERROR FLAG-LSNM$""NM$"---"^S -CONSTANTS-SBUT16287:PRESSED127:SD16336SZERO0:INC1:TWO2SMULT1.033:SPD8SLFT1:ST2:RGT3SMAN(1,0)1:MAN(1,1)2:MAN(2,0)3TMAN(2,1)3:MAN(3,0)I770801:X:I,X:RT173,0,3,141,34,3,173,48,192,206,1,3,240,17,162,8,202,208,253,174,34,3,202,240,231,142,34,3,76,16,3,96R^ -SET SHAPE TABLE POINTER-Rh232,0:233,9:1:0Rr1690R|D$;"OPEN ANTS.HS"RD$;"READ ANTS.HS"RHS:NM$SLKOX,YM8Q18404Q**** INITIALIZATION ****UQ -RELOAD PROGRAM ABOVE HGR1Q"(103)1(104)64(16384)0Ĺ103,1:104,64:16384,0:(4)"RUN ANTS"Q,E%(13,5),AX%(30),AY%(30),MAN(3,1)Q6D$(4)::Q@D$;"BLOAD ANTS.SHAPES,A$900"RJHS":D$;"WRITE ANTS.HS"&PHS:NM$>PD$;"CLOSE ANTS.HS"RP -PLAY AGAIN?-P:22:"YOUR SCORE: ";SCR;:20:"HIGH SCORE: ";HSP"PRESS P TO PLAY AGAIN, Q TO QUIT ";PZ$:" "(8);:Z$"Q"Z$(27)ĉ::PZ$"P"1510 Q1:BLKOX,YM:B;:29,OdTN$"":N13:Z$:Z$(13)1420OOn(Z$)65(Z$)90NN1:1410sOxZ$;:TN$TN$Z$:N1ĺ" ";:30zONO(TN$)01440OTN$TN$" ":NM$(TN$,3)O:D$;"OPEN ANTS.HS":D$;"CLOSE ANTS.HS":D$;"DELETE ANTS.HS"PD$;"OPEN ANTS.X201,N1489NN+N0:ANTOX,YM8LN( -CHECK FOR NEW HIGH SCORE-^N2SCRHS1480N<21:9::"!! A NEW HIGH SCORE !!":NFSOUNDāN13:P1505010:768,P:769,7:770:P,NNPHSSCR:D11000:DOZ:22:8);"ENTER YOUR INITIALS: ";NM$***MX013:Y05,ME%(X,Y)0ĂX:7MY::IM -LOST GAME-^MN13:Y501wM5:BLKX20,Y1489MSOUNDĹ768,Y1520:769,10:770MN31260M4:BLKX20,Y1489MY,NM -DRAW ESCAPING ANTS-M4:N501N ANT-SET TIME LIMIT FOR LEADER-(L8LDR16.LBOLL**** LEADER DISAPPEARS ****LVE%(AX%(30),AY%(30))1:(NOBLK)NBLKNBLK1L`4:BLKAX%(30)20,AY%(30)1489LjSOUNDĹ768,20:769,35:770LtAX%(30)1:AY%(30)1L~M**** CHECK FOR LOSING *Y%(30)14895K4:ANTAX%(30)201,AY%(30)1489jKSOUNDĹ768,10:769,10:770:768,15:769,15:770K -CHECK IF BLOCK OCCUPIED/EMPTY-KAE%(AX%(30),AY%(30))KNOBLK0:A1NOBLK1KA0AX%(A)1:AY%(A)1K$E%(AX%(30),AY%(30))0L. GNAWING AT THE"@Y"UNDERSIDE OF THE EARTH'S CRUST, TRYING"nY"TO BREAK THROUGH AND INVADE OUR WORLD."Y:" ARMED WITH YOUR TRUSTY ELECTRO-SONIC"Y"DISRUPTER, YOU MUST STOP THE ANTS FROM"Y"COMPLETING A PASSAGE UP TO THE SURFACE"Z"OF THE EARTH."?Z:" THE ANTS' LEADER, A DARK FIGURE AMID"lZ"A HELL-LIKE ORANGE GLARE, MAY BRIEFLY"Z"APPEAR. DESTROY HER AND THE ANTS WILL"Z"WANDER OFF FOR A WHILE, GIVING YOU A"Z"CHANCE TO REPAIR THE HOLES AND PASSAGES" ["DUG BY&5>JVamyt)- $$;?26.(( --$$--d- ?'- g!?I$8?' 5&- ?'$--)- ?$ !d ###''%')-:7.,6; )-;,<,<,,%?7',-%??,---.,2 $$?<>?,%<<,< 56%$6 5!5%5%-,<,%?,%5%5!$<''#' :>:>6%5%5?.5 ( ( ( ( ($$$$$$,666666.$$$$$$,666666.$$$$$$,66Z V)-%?,%? - 55-5%$$5 ) .---61%$??'<<,< 56%$6 -%'%'%'%%?>'%'-.%'%<>><>?><2$$ %)%<<,< 56%$6 )-<,<,<,-)666-%$$$;?'--<2$$ -,%<<,< -?6%5(<,5% 6 -116--;,<<$! )-.,7,10,7#`J 14,3,17,3,17,5,17,7=`T 21,3,22,3,20,6,21,6b`^ 26,2,26,4,26,6,26,8,25,9,-1,-1h`h ,2,11,2,8,4,11,4,8,6,11,6,8,7,11,7H_ 14,2,16,2,17,2,16,4,16,6,16,7q_ 20,2,22,2,20,4,22,4,22,6,20,7,22,7_ 25,2,25,4,25,5,25,8,-1,-1_ 4_ X,Y:X02920_" BLKX10,Y789_, 2840_6 3,3,4,3,3,6,4,6,3,7,4,7 `@ 9,3,10,3,9,5,10,5,9Y1X35,Y1"^n X,Y2X35,Y26^x X,Y3X35,Y3L^ X7,Y4X28,Y4c^ X14,Y5X28,Y5z^ X14,Y6X21,Y6^ ^ -TITLE-^ 5^ X,Y:X02830^ BLKX10,Y789^ 2750^ 2,2,4,2,5,2,2,4,4,4,5,4,2,6,5,6,2,7,5,7$_ 8,2,10:X013 ] BLKX20,Y1055)] X,YG] 28,4169,41:35,4055,40i] 140,41209,41:154,40195,40x] -CLOUDS-] 7]( X60:Y12:2640]2 X100:Y16:2640]< X185:Y18:2640]F 2730]P -CLOUD DRAWING SUBROUTINE-]Z X7,YX21,Y^d X,V 16368,0:Z136DIRLFT/\` Z149DIRRGT@\j Z160ACT4R\t Z141DIRSTX\~ h\ SKY7:BLK8\ *** DRAW BACKGROUND *** \ -SKY-\ Y02:X013\ 7:BLKX20,Y1413\ 6:SKYX201,Y1413\ X,Y\ -GRASS-\ 1 ] Y02 THE ANTS."W[ 23:7:"PRESS ANY KEY TO START GAME ";:Z$:Z$:16301,0:16304,0:m[ PADDLE ROUTINES[ DIRST:(BUT)PRESSEDACT4[$ P((ZERO)MULT):P75DIRLFT[. P180DIRRGT[8 [B KEYBOARD ROUTINES[L Z(16384):Z1282430\?LI266.-%?(- &8?266)- 066.--!$$!)*2>? .066- $$ ?73-6;? --266 )- ;?666 66- $$;?  - ?766. !$$, 16?7 1. $$)-266;? $$$--2? 6;? - $$/) "$$!111>? .66-'(Ev- 7m)< 5 66M((M6v- $ 66- (,165:774,0:775,233:776,1:777,208:778,252:779,230_780,0:781,208:782,243:783,96:r:UPDATE SCORE0:J16:C((SC$,J,1))47:J770,780,790,800,810,820::3FLıSCSCSC(R):SC$(SC)(SC$)6SC$"0"SC$:7503J16:TYġ::320$b0:12X1,Y1:3:7lR13ġ::320ivTXX120:TYY15:179(R(R1)5)TYġ::320r610 : SOUND OF EXPLOSIONJ14:16336,(16336):::SOUND OF SHOT 770:8768,124:769,10:770,173:771,48:772,192:773X15İ620:X1X120:RR1:530%6X12X12:IX1262X1262O&s0:RANDOM MOVE FOR CENTER STRIKE:RM((1)2)1:RM2(RM2)590D620:X1X120:RR1:380:530N600:X1X120:RR1:380:530XTXX120:TYY15:179(R(R1)5)ѮX1MIX1(MA)ı/ X1XX1MIMIX110:J X1XX1(MA)MAX110P ` :FIRE SHOT X5,169X5,Y1:680:0:X5,169X5,Y1:3 XX1XX11XX11560 XX12XX13XX14XX15İ600:X1X120:RR1:530XX12XX13XX14X,Y1:Y1Y15 ^Y1169İ860U hY1179Y1179(R(R)5)Y19:R(R)R(R)1:710:420^ r200 |:CHECK FOR TOP OF COLUMN POSITION Y1179(R(R)5)5Ē3:12X1,Y15:Y19:R(R)R(R)1:410:710:420::200  11X,179: :SET RANGE OF GUN (1)10)3)(((0)10))39903 XMIXMI:260D X(MA)XMAR 11X,179` Y19290 R((1)14):X1(R20)2:X1MIX1(MA)280 "380: CHECK POSITION ,12X1,Y1 6Z(16384):Z160Ĺ16368,0:470 @410 J0 TY1179Ĕ12X1183:17115,184:18145,1842 14203,182:760H MI12:MA252:Y19 3:Z(16384):Z136Z149Ĺ16368,0:M(XX1):X(X(5(M20).5(M20)M)((Z149)(Z136))) MAMI20830 SCRE10000RERE10000:I013:R(I)0::150 Y19((690:1410, n1430:130: INITIALIZE8 x:1410N SC$"000000":SC0 R(14),SC(13):I013:SC(I):: 100,50,25,10,5,5,5,5,5,5,10,25,50,100 :1:0:3:X130 0,0279,0279,1800,1800,0:279,180279,1910,1910,180 157,183:1645," *************************C * CLAUSTROPHOBIA *d * BY RUDY A. GUY *( * COPYRIGHT (C) 1985 *2 * MINDCRAFT PUBL. CORP. *< * CONCORD, MA. 01742 *F *************************P25600Z1560 dMv616M - #d- 6v- $ v6%, C((SC$,J,1))47:J770,780,790,800,810,820::DC233,188:U C240,188:fC247,188:w C254,188:*C261,188:4C268,188:>11MI,179HI91795:12MI,I:16336,(16336):RXMI:8806\XX1XX11XX12XX13XX14XX15XX11XX12XX13XX14XX15880<f^p3:I15:I:650:11X,179:z0:I15:I:650:11X,179::1I11000:::SCHS96012::"NEW HIGH SCORE :"SC:HSSC::"PLEASE ENTER YOUR NAME :";PL$:PL$""930K  *************************?* SPACECADE *^* BY DEVERIN KAROL *}(* COPYRIGHT (C) 1985 *2* MINDCRAFT PUBL. CORP. *<* CONCORD, MA 01742 *F*************************PD$(4)Z16368,0d800,0 2J:"PLEASE REFER TO YOUR APPLESOFT MANUAL." FIRE."::"PRESS ANY KEY TO BEGIN":YN$::C: ERROR ROUTINEm"ER(222):EL(218)(219)256:216,0,ER6ĺ(4)"OPEN CLAUS.SCORE":(4)"WRITE CLAUS.SCORE":0::(4)"CLOSE":6ER255ĉ:980@::12:"ERROR #"ER" HAS OCCURRED IN LINE "ELF THE PLAYING AREA, IT WILL REDUCE THE AREA THAT YOUR GUN CAN MOVE.""A FRESH SCREEN IS OBTAINED BY SCORING 10,000 POINTS !"::"PRESS ANY KEY TO CONTINUE";:YN$.:"USE THE LEFT AND RIGHT ARROW KEYS TO MOVE YOUR GUN, AND THE SPACE BAR TO 0 PTS.":" TWO COLUMNS IN"28)"25 PTS.":" THREE COLUMNS IN"28)"10 PTS.":" FOUR COLUMNS TO CENTER"29)"5 PTS.":F"FROM TIME TO TIME, A SERIES OF BOMBS MAYAPPEAR. EACH BOMB IS WORTH 150 POINTS. WHEN A BOMB OR AN ALIEN CRAFT REACHES THE BOTTOM O SHOOT THE DESCENDING ALIENS IN SUCH A MANNER THAT THEY WILL MOVE TO THE EXTREME LEFT OR RIGHT SIDE OF THE SCREEN. ";"THE COLUMNS ONEITHER SIDE OF THE SCREEN ARE WORTH AS FOLLOWS:":w" OUTSIDE COLUMNS"27)"100 PTS.":" ONE COLUMN IN"28)"5 BY MINDCRAFT PUBL. CORP.":OHS0ĺ:"PRESENT HIGH SCORE IS "HS" BY "PL$p(4)"BLOAD CLAUSTRO.SHAPES"232,0:233,9622:"DO YOU NEED INSTRUCTIONS ?";YN$:(YN$,1)"N"ı:14::"CLAUSTROPHOBIA"::z"THE OBJECT OF THE GAME IS TO3:11nB(I)20(B(I)20)B(I)B(I)1:1390DxX1B(I):420:(4)"VERIFY CLAUS.SCORE":(4)"OPEN CLAUS.SCORE":(4)"READ CLAUS.SCORE":HS,PL$:(4)"CLOSE":12:13::"CLAUSTROPHOBIA"::12:"BY: RUDY A. GUY"::"COPYRIGHT 1985:B(I1)B(I2):B2:5FI2B3B(I)B(I1):B2:qPXB(I)2.5XB(I)2.5Ē3:K13:K:13B(I),179:650:ZXB(I)2.5XB(I)2.5Ē0:K13:K:13B(I),179:650::3:1:EG1:d3:K13:K:13B(I),179:650::0:K13:K:13B(I),179:650::0:K23:K:13B(I),Y1:650::18FL1:710:FL0PSCSC150:SC$(SC)p (SC$)6SC$"0"SC$:1290y760IBB1Y19:0:11X,179:L168170:X3,LX6,L:::200(IBBB1:2I1B2B(I)B(I1):B1:<I1B3B(I)B(I1)~EG1EG0:BG0:8803BG1BG0:200B410:1020W:SHOOT AT BOMBSX5,169X5,Y11:680:0:X5,169X5,Y11:3J1B:XB(J)2.5XB(J)2.5IJ:JB:EX1EX1EX0:12503:K13:K:13B(I),Y1:650:%1(R20)2:X1MIX1(MA)1070=8I1B:B(I)X1:X1X15:VBI1B:13B(I),Y1:}LZ(16384):Z160Ĺ16368,0:1190V0`I1B:13B(I),Y1:j11X,179:L168170:X3,LX6,L::410:Y1Y110tI1B:Y1179İ1360:BIBG1:Y19:410:23::BOMB SEQUENCE.B((1)31)MS((1)5)10:SY1S:Y1S3:Z(16384):Z136Z149Ĺ16368,0:M(XX1):X(X(5(M20).5(M20)M)((Z149)(Z136)))XMIXMIX(MA)XMA11X,179$Y1S1090 .R((1)14):X(4)"OPEN CLAUS.SCORE":(4)"WRITE CLAUS.SCORE":HS:PL$:(4)"CLOSE"T97012:"HIGH SCORE IS ";::HS;::" BY "PL$"."22:"PLAY AGAIN ?";YN$:(YN$,1)"Y"āI014:R(I)0::SC0:SC$"000000":120:I3811:650:24:I:(93)" ";:nD$"BLOAD SPACECADE.BIN"~ x:8:15:"SPACECADE"::12:"BY DEVERIN KAROL"::23:"COPYRIGHT 1985 MINDCRAFT PUBL. CORP." 18:6:"PRESS TO START GAME"; Z$::24576 ::16368,0 DFLAG(800):DFLAG13Ģ12:16::"GAME OVER":MNMNMN1:MNMMMNMM@N:21:16:"READY??":I11000:IX310XbRC3650l:21::"YOU QUIT????!!";::784,5:I110:J1011:783,J:SOUND:J,I:A$:v773,(777):774,(778):775,2:DRW:773,19:774,35:775,5:DRW32777:327839'784,10:I150:783,I:SOUND:932780:32774URCODE(776):RC1610tI5011:783,I:SOUND:32777:32783&784,6:783,100774,35:775,5:I2040:773,I1:DRW:773,I:DRW:SOUND::DRW:LVLV1:LLLL1:LV20LV20D408I,AS:35328I,0:ILVĹ35328I,15ILV460W35388I,255:AS3Ĺ35388I,1SP(1)61:35428I,SP:35448I,SP773,X:774,Y:775,AS:DRW775,2:CX(1)38:777,CX:773,CX:774,137:778,137:DRW920:32771770,SD504603I,1 ^IMN400M hMX(1)35:MY(1)7060:35583I,MX:35593I,MYm r773,MX:774,MY:775,6:DRW |3:MX75,MY6MX75,144 35616I,MX75:35626I,MY6 &I019:X(1)38:Y(1)7260:AS3((1)1.7):35348I,X:35368I,Y:35YPE 'RUN' TO PLAY.":M LV1:LLLV:779,3:780,0:781,0:768,1:MN0:MM10e "I09:35603I,0:w ,784,8:783,8 6890:773,0:774,35:775,5:DRW:I119:773,I1:DRW:773,I:DRW:SOUND: @LL5MN1 JMN410 TI09:35603I,0:IMNĹ35989"::"USE ARROWS TO SELECT, RETURN TO ACCEPT "::"( ) PLAY ( ) SCORE ( ) FIX ( ) QUIT";:H2 H:A$:A$FA$HH10:H32H2 A$BA$HH10:H2H32 A$(13)220 H12İ940:A$::3100:210 H221220 H32ĉ::3:"BYE. TRIFY TDSCORES":190q (222)41510:D$"OPEN TDSCORES":D$"WRITE TDSCORES":I110:0:"???":0::D$"CLOSE" 216,0:D$"OPENTDSCORES":D$"READ TDSCORES":I110:S(I):N$(I):L(I)::D$"CLOSE" 970:d :21:"TREASURE DIVE BY JOHN & ROB (C) 15 Z27000:DRW32768:SOUND32786:FA$(21):BA$(8)` dI785788:J$:I,(J$)128::W,S,J,K n(21):769,203:771,1:770,101:SD3 xD$(4):(772)111160 772,111 1150 D$"BLOAD TDIVE.BIN":D$"BLOAD TDIVE.SHAPES" 180 D$"VE! *************************A * TREASURE.DIVE *a * BY JOHN ROMERO AND *( * ROBERT LAVELOCK *2 * COPYRIGHT (C) 1989 *< * MINDCRAFT PUBL. CORP. *F * CONCORD, MA 01742 * P *************************:180M 12:"CONGRATULATIONS!"::"YOU HAVE SURVIVED THE METEOR STORM! 20:"DO YOU WANT TO PLAY AGAIN?";YN$:YN$"Y"120:::210779,0:32780<23:1:868:15:"GAME OVER."774,35:775,5:I2041:773,I1:DRW:773,I:DRW:J1100:J,I(782)700773,(777):774,(778):775,2:DRW&21:1:868::"DOWN TO DAVY JONE'S LOCKER FOR YOU!":::"MANY LEAGUES OF TREASURE REMAIN LOST...";:A$::32777:32783JSC0:3278022:LOC6(40)(41)256:I03:SCSC((LOCI)176)(10(3I)):I110:SCS(I)FLI:I10::760:210I10FL1:S(I)S(I1):N$(I)N$(I1):L(I)L(I1):+94LLL̀LL3LLȱ ELT`a`(Q` vL(`ccccccc @Xp.4 p`  ˁ _ ǂ 1 # J g f 3)ĺ"CR":A$:r:"THIS DISK IS WRITE-PROTECTED"::"PLEASE REMOVE WRITE-PROTECTION":"AND TYPE RUN":A$:785,(A$)128:1450=x23:6:A$:786,(A$)128:1450b22:26:A$:787,(A$)128:145023:26:A$:788,(A$)128:1450I11000::210A$BA$ĺ"LA":A$FA$ĺ"RA":A$(10)ĺ"DA":A$(11)ĺ"UA": A$(1:H11:(769)203H25=<H:A$:A$FA$HH14:H25H11[FA$BA$HH14:H11H25oPA$(13)1340Z769,203:H11Ĺ769,202:1440d:21:1::"DEFINE KEY CONTROLS BY TYPING THE KEY"::"UP :"20)"LEFT :":"DOWN:"20)"RIGHT:"n22:6:SD((9H)4):770,SD5049^22:1:868:"SOUND:( ) ON ( ) OFF";:H8:(771)H17 H:A$:A$FA$HH9:H17H8A$BA$HH9:H8H17A$(13)1290(771,1:H17Ĺ771,0222:1:868:"CONTROLS:( ) JOYSTICK ( ) KEYBOARD";CO1::BYTEBYTE128::BYTEBYTE256:::21::"USE ARROWS TO SELECT, RETURN TO ACCEPT"::"SKILL LEVEL:1...2...3...4...5";H((770)49)50:HH1:H13(H4)H:A$:A$FA$HH4:H29H13A$BA$HH4:H13H29A$(13)1240 76:CO0:H02:BYTE31:I03:BYTEBYTE1:J01:K07:LOCCO,BYTE(4K):COCO1::::LOCCO,255:COCO1:CO2561170BYTE0:1210:BYTE40:1210:BYTE80:1210LOCCO,255:COCO1:CO5121190+I03:J01:K07:LOCCO,BYTE:CO1989"2.I050:Y(1)8152:X(1)279:X,Y:R810:"MINDCRAFT PUBL. CORP.`B5:1,147LI050.5:XI5.58:Y(I)1.5147:X,Y:V16368,0`24:8:"PRESS RETURN TO CONTINUE:";:A$j3100t~::"INITIALIZING..."\LOC245Y(1)40:X,Y:35481I,X1:35531I,Y:S::7:"CONCEPT BY ROBERT LAVELOCK"7:I06.283.1:(I)9260,(I)820260,20:7:"PROGRAMMING BY JOHN ROMERO"4:I06.283.1:(I)9265,(I)820260,20:7$:11:"COPYRIGHT (C) ET ON THIS LIST? JUST TRY!:";:::230,32:62450:9:11::": :":9:" TREASURE DIVE ":9:": :":: 20,5,1,4,and 20 spaces230,64:5:0,0:62454:230,326:0,45279,45*3:I049:X(1)254:79,(779)1:A:21:"FROGMEN:"20)"LEVEL:":"SCORE:"G::"FAMOUS UNDERWATER VOYAGERS:"::"SCORE WHODUNNIT"32)"LEVEL":"----- ---------"32)"-----"I110:"0000";:5((S(I))):S(I)" "N$(I);32);L(I):!::"CAN YOU G":"AGAIN OR 'C' TO CONTINUE:";:A$:21:1:958:A$" "A$"C"860WfA$" "840gpA$"C"850z:15::21:": "LL9)" :":15:" LEVEL "LL;LL10);LL9)" ":15:": "LL9)" :" LL5(LL5)0ĝ:14:LL9)"FREE FROGMAN!";:7 THIS CORRECT? (Y/N):";:A$:A$"N"Ė1:868:790=>860H:D$"DELETE TDSCORES":D$"OPEN TDSCORES":D$"WRITE TDSCORES":I110:S(I):N$(I):L(I)::D$"CLOSE"R:3100:216,0:210G\21:1::"I/O ERROR!";::" INSERT DISK & PRESS SPACE TO TRY0:1:1:868:"YOU GOT A HIGH SCORE !!!"c 17:1:868:"TYPE YOUR NAME IN (OR WHATEVER) !!!"FL4:5((SC)):SC;:7:868:32:LL;:6:">";:28:"<"; 7:"";N$(FL):(N$(FL))21ĺ(7):790*4FL:32:LL34L(FL)LL:S(FL)SC:20:1:"ISiخLp Ώ ,`0,`8Ω,`iг,`ɓ822 LAɛ,ɛLAɑѩ``Β` pm'&LD OF MUSHROOMS IN "C :"SEARCH OF APPLES. AFTER EATING TEN "s :"APPLES, YOU WILL BE TRANSPORTED TO THE" :"NEXT LEVEL. A 1000 POINT BONUS WILL BE" :"AWARDED FOR A PERFECT LEVEL." :"THERE ARE 19 LEVELS AND EACH IS MORE"! :"DIDARRELL FETZER":"** (C) 1986 MINDCRAFT PUBL. CORP.**":23:7:"PRESS TO CONTINUE";:A$: Z(4)"BLOAD VORATIO.BIN":(4)"BLOAD VORATIO.SHAPES" d::16::"VORATIO": n:" YOUR MISSION IS TO GUIDE A RAVENOUS" x:"WORM THROUGH A FIE *************************?* VORATIO *^* BY DARELL FETZER *}* COPYRIGHT (C) 1986 ** MINDCRAFT PUBL. CORP. ** CONCORD, MA 01742 **************************d P(21):::16:"VORATIO":11:"BY H  @@@@` @PHDDD  ԊѪĪժŪĪЪ~_~ <{ > !A E UUՊՂ"Eh:U8("E`KL` Γ`8魍8 ة p * W :  p pL.L ,S p 8  3(` `   `  `  L$%L"`|ΘL 2-PAUSES THE GAME"- :"-EXITS THE GAME"S :"L-ADVANCES TO THE NEXT LEVEL"{ :9:"PRESS TO PLAY";:A$ X((159))(((160))):24576 "CH(24829):CH19320 ," CONGRATULATIONS YOU MADE IT THROUGH" 6:"19 TOUGH LEVELS OF`px|~?cclx```px-xpe`w|p<x||<~8~p?`((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPP Li>>8|~~~|8px|||xp`pxxxp`@`ppp`@@```@@?@?@?gjkgoksows{w{ÿg0000X 000000  2  00PPn :0`nϦέ0in`n m` 寧)inn)i n 'mBm^mHm Mmnɮnn m`Obcc&``iRniSnnnnn`ffi nnfnnninϭnninnn П`@ΩDnnn n`1nȽ`1n` l m`I1`I1`e뽏d`Obecc` ;m mbQ`bb`n ;m mb1n+` 寧)i`)i n'mBm^mHm Mmnή`օȱօ l ʹaaȹaa HHllll lee ln? m ln1n n`Ωdnn n sm mi mllll slhh sl l m```n l msm m, ɛL+kɠ,,L.j 5k, kn` n nL.jLj Ωnn n/nLgj, XQ`e`e`ȱȱȱf`Gf`e`ȱȱȱf`%`8 ``ni ``'Obcc(࣐ݢ`` ( m,P,W,T,SӅ`!``aש֩nn``Jnn8n`n:02L+k m nn`g`e`j`f`  ȩ sl VORATIO!"J @:"WOULD YOU LIKE TO PLAY AGAIN? (Y/N)";:A$:A$"Y"100P JPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW33355 ######### 33355 ######### 33355 ######### 33355 ######### 33355 ######### 33355 ######### 33355 ######### 33355 ######### 33355 ######### 33355 ######### 643.2 VIP 1059.2 KJHH 33355 ######### 33355 ######### 33355 ######### 33355 ######### 33355 ######### 33355 ######### 33355 ######### 33355 ######### ### ##### TTT 50 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 T DISK AND PRESS RETURN ":K$::1702635 CCC 70\""ONES..:","TWOS..:","THREES:","FOURS.:","FIVES.:","SIXES.:","SMALL RUN..:","LARGE RUN..:","THREE DICER:","FOUR DICER.:","FIVER DICER:","THREE & TWO:","POT LUCK...:"):[M$(13):DP$(1)" "M$" O "M$" ":DP$(2)"O "M$" "M$" O":DP$(3)" O"M$" O "M$"O ":DICE PICTURE STRINGS[DP$(4)"O O"M$" "M$"O O":DP$(5)"O O"M$" O "M$"O O":DP$(6)"O O"M$"O O"M$"O O":3 CHARS. BETWEEN ""\1$"N"X$"n"İ50:DZ35,11:::13:958:ERASE ALL BUT HEADINGuZ24:X111::: PUT HEADING BACK AT VTAB 1{ZZ** VARIABLES **ZKB49152:CL49168:BZ49200:SC$(13,1),D(4,1),DP$(6),NM$(1),T(1),FL(13)[X113:SC$(X,0):SC$(X,1)SC$(X,0-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW-;IW 33355 ######### 33355 ######### 33355 ######### 33355 ######### 33355 ######### 33355 ######### 33355 ######### 33355 ######### 33355 ######### 33355 ######### LaLLLLLLLLLLLa 6mL9aL9L9L9L9L9L9L9L9)a 6m5a6aVS @7a8aaa1a2a Xʆ$ʆ% " kŠ ʆ$ʆ% " kӠԠ ʆ% "%ʆ$5a6a k  d',& ','  d$,%  dYHHvHHHv٩3L`L` "? J1:21:" "e TA121:1:A:" ":40:A:" ":A ^L` "? J1:21:" "e TA121:1:A:" ":40:A:" ":A ^#` 6m @~@@<<>b:^6`ffggggggghhhhhhhiii@@@@@@@@@@@!!888888<<    <<@@@@  !!!!!!!"""""""#######$$$$$$$%%%%%%%&&&&&&&'''''''""## !!""## BBCC@@AABBCC@ =p ? - ??) - ;;? ---;? - -)---3 - -1;3 13 )1??3 1;???----5????7----5????7----5????7----5????7----5????? ? )- ; -- ? )- ? -) 55 --- 60 FGFGGF 4 30 HFH 3 30 TE 3 0 ??? 0 0 ??? 0 0 ??? 0 0 ??? 0 0 ??? 0 0 ??? 0 0 ??? 0 # '# ,$ ',&$ ,% ',%%  d"- ("-' (',  aaaa/a0a \h d bL}c" d b daaa b d b daa b`aHIh0h0 a aaaHI Xi#iL0`ɳLɝ 0Lɡ  L ΐ5LԍL٭@A@&Ae@@eAA@e΅ȱ@eυ T 5LԪ&@A&e@eAee XP L٠EE EE 1 5 0 HISTORICAL HIGH SCORE INFORMATION ********************************* D = DIFFICULTY THAT WAS USED S = NUMBER OF BODY SEGMENTS REACHED M = NUMBER OF METAMORPHOSES ATTAINED . . NAME DATE D S M ....................................... 充内`NONi)OO i@ &N&O`憊Ƈ0L