' +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- ( G   Ϡ@跻~!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 ~(` F d ֠z# u`ӠŮԠӠ٠ԬĠŠҠӠ̮ŠԠӠϠŠȠƠŠŮŠӠŠϠŠԮӠӠ̠͠ΠŠŮŠҠŠӠԠŠӠ̮ŠӠŠϠŠԮՠĠΠ٬Ǡή٬ΠԠĠŭנ̠ԠӠŠӠĠĠŠӮՠŠŠϠŠȮĠԠŠŠҠƠŭǠοՠŠΠŠΧHEN READY":T$:19806REL2170,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 W2130& ER6ĺ"FILE NOT FOUND":2130HER8ĺ"DISK I/O ERROR":2130e ER9ĺ"DISK FULL":2130*ER10ĺ"FILE LOCKED":21304ER11ĺ"ILLEGAL FILE NAME":2130>ER13ĺ"FILE TYPE MISMATCH":2130H"ERROR #";ER" IN LINE ";(218)(219)25D$;"CLOSE SAV.";N$:216,0:;3288:216,0:D$"CLOSE":APEL3: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":9N2010XD$;"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:T$"U"18103RU%(R)ĺ"YOU CAN'T GO THAT WAY":GRU%(R):1460:fQR$"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:SQR$(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"QMAY":F(0)F(0)1:1630JW:T"YOU AREN'T CARRYING IT"N^R1TTV%(W)ThprQR$(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 6)"6 GET"QL$"6 TAKE"15808QR$(Q$,4):W1N1vR%(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:"OK ";T:(Z(7)(7)"ERROR IN LINE ";W:7dK2K0:GnQL$(Q$,7)`xQL$"6 INVE"1450p"YOU HAVE"|W1N1R%(W)0ĺO$(W)W:QL$"6 LOOK"1510D$(R)Q1N1R%(Q)RĺO$(Q);" IS HERE"Q (Q$,1N11:Q:FL2:)TT((T$,4))4 FL2:dXX$(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 IS%(Q):O$(Q)O$(N1):R%(Q)R%(N1):V%(Q)V%(N1):FL2:N1N11:F%(0)F%(0)1:VQ: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:NTER STRING" 790 ; 32,3: MOVE EDGE OF SCREENa 3:"TRY THIS LITTLE EXPERIMENT." :"FOLLOW ONE OF THE LITTLE ";::"^";::"'S" :"ACROSS THE SCREEN WITH YOUR" :"FINGER AT THE SAME SPEED. NOW" :"REVERSE YOUR FINGER AFL0:VFL1:$`XX$">"13706jFXFYFL0:AtFL1:U~(T$,4):FL2:aN1N11O$(N1)(T$,8):R%(N1)0:V%(N1)((T$,4,3)):F%(0)F%(0)1:TTV%(N1)FL2:N10FL2:XX$(T$,4):Q1N1HXX$(O$(Q),4)R%(Q)0TTVR((T$,2))FL0:"FL1:s((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$"<"1120LFXFYL0: fQpFL1:4zXX$(T$,4):FL0:Q1N1W(O$(Q),4)XX$R%(Q)0FL1:^Qd|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)P820A 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)0FW1C FL0CC%(W)P7007FL1CC%(W)P700UT$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 FL0LOSE SAV.";N$:610 2020/ ES$"OBJECTS"Y D$;"OPEN OBJ.";N$:D$;"READ OBJ.";N$a N1m W1N1 O$(W):V%(W):R%(W) &W 0D$;"CLOSE OBJ.";N$ :216,0 DW1N1:R%(W)1TTV%(W) NW XR1: b: l1460 vP0:FL3 NUP.";N$R r"DO YOU WANT TO LOAD A PREVIOUSLY SAVED GAME?";Q$:(Q$,1)"N"510] |2000t 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$;"CS" D$;"OPEN USR.";N$0 D$;"READ USR.";N$7 BB W1BU A$(W):CT%(W)\ Wt 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$;"CLOSED$"CATALOG":"PRESS ANY KEY WHEN READY":T$:110< 2020R 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 ACTION),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 BY MICROSPARC, INC **":12 n"ADVENTURE NAME (? FOR CATALOG): ":"";N$1 x(N$,1)"?"ė: **********************; * ACS.PLAYER *X * BY JENNY SCHMIDT *u( * COPYRIGHT (C) 1985 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************I PD$(100),N%(100),S%(100),E%(100),W%(100),U%(100       185,133,135,132h% 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 STRING INTO BUFFER/ nSS24630: SPINS STRINGO xSL24770: LENGTH OF STRINGx ST24771: FIRST CHARACTER OF STRING DIR8: DIRECTION OF SPIN :12:9)"A DEMO FOR THE SPINNER" DIR,0:790 A$"^ ":MS,A$ :12:7:"DEMO OF 2 CHARAC4  **********************; * SPINNER DEMO1 *X * BY STEVEN KEARNS *u( * COPYRIGHT (C) 1985 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************PZ(4)"BLOAD SPINNER" dMS24576: MOVES      SINCE LAST SAVE.":$ :"?";:10:"FOR HELP: THIS LIST!"c$ :"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,164,R .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:"CHANGEST 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 OY KEY TO CONTINUE":T$!!L 216,06!V ES290,850,1640I!` PE0ĺD$(W):e!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 OBJECER10ĺ"FILE LOCKED":2340C  ER11ĺ"ILLEGAL FILE NAME":2340j  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 AN POINT FOR DISK WRITE;EL2: ENTRY POINT FOR DISK READIER(222)qER4ĺ"DISK WRITE PROTECTED":2340ER5ĺ"FILE NOT FOUND OR EMPTY":2340ER6ĺ"FILE NOT FOUND":2340ER8ĺ"DISK I/O ERROR":2340ER9ĺ"DISK FULL":2340 )4K>H'R QUIT CHECKER5\SF2170Vf"QUIT WITHOUT SAVING? ";YN$pp(YN$,1)"Y"SF2:{zSF1: PAD LINE NUMBER N WITH LEADING 0'SNS$(W):NL(NS$):NL22210("00",3NL);NS$" ";:EL1:2240: ENTRY30,D$;"OPEN OBJ.";N$:D$;"READ OBJ.";N$4N1@W1N1YO$(W):V%(W):R%(W)`WxD$;"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$(KS2:2220]XD$;"OPEN OBJ.";N$:D$;"CLOSE OBJ.";N$:D$;"DELETE OBJ.";N$:D$;"OPEN OBJ.";N$ubD$;"WRITE OBJ.";N$lN11vW1N11(34)O$(W):V%(W):R%(W)WD$;"CLOSE OBJ.";N$216,0SF0:1690ES$"OBJECTS":ES3:22VALUE: ";V%(N):"SECTION: ";R%(N)+1670W:"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":E$.I, E66--.-%I6?lII ?L`$?n:7.I<($76-eg!?66- @?66.- $$?676--(-5366Eg-5)-66-%<6?6n $< $)66-I166?666M 666--766M!$l< 66.I$g$<66- $$?76E@+ ?6vm $?76M, ?- g?--66.66v- $$,66 $$6n.M!g$--\jr}'2?KWckt !27- $ %? 66-*(?6--*(- $I> 3--.r- $?D-6v- ?Dc---62v- ?2Re < ?63I--??q*(nn-   ` ߠ`ȱȱȱ? 8````'`` `( ``` &`( `` `( ``` `( `(``L`` `````ŠҠҠ٠Š0:SF0|N10NN1(N1NN1ND"OBJECT "N": ":768,Q$_(Q$)0N(Q$):1680sQ$"LIST"1800Q$"QUIT"İ2130:SF220,1680Q$"SAVE"1870Q$"LOAD"1970Q$"?"İ2450::1690Q$""1690O$(N)Q$:SF1!"YN$:YN$"Y"8504ES$TA$" ACTIONS":ES2:2230FD$;"OPEN";L$XD$;"READ";L$_Nj"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$1680rN6:Q:W:22300ES$TA$" ACTIONS":ES2oD$;"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(850/2I$"S"850><:N2850QFW1N:Q116oP((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) ".";:Q1LINE":"PRESS ANY KEY TO CONTINUE":T$:8509WNF1[A$(W1)A$(W):CT%(W1)CT%(W)hW:NN1yCT%(F)0:I0WF:2180768,I$ II1:(I$,I,1)" "(I$,I,1)"."1290CT%(F)I1:A$(F)(I$,I)"INSERT ANOTHER LINE? ";Q$:(TINUE":T$:850VF1F"`TT1-jWTNKtA$(F)A$(W):CT%(F)CT%(W)U~FF1\WiNNTF1r850I$"I"1330:"INSERT BEFORE WHICH LINE ? ";X$:F((X$)):N(TT1)ĺ"TOO MANY LINES":2540:850+(FN)(F1)ĺ"NO SUCH CT%(W)01030+Q1CT%(W):".";:Q6A$(W)=WLD$;"PR#0"U$840g.I$"D"1190o8: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 CON3,43,0,90,43,1,109,18,1,116,18,1,139,9,2,146,9:CLOCK #,X,Y^12,24,48,144,720:TIMES/LEVEL 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96:TONE ROUTINE153,80,153,30,153,30,102,175:MUSIC: LEN OF HANDSRX4:WX4/RXRX1:WXWX18640> "KEYWORD",":"," AFTER "," PAST "," QUARTER "," BEFORE "," TILL "," UNTIL "," HALF "," O'CLOCK";1,173,18,2,199,43,3,209,76,4,197,108,5,173,132,6,141,141,7,110,132,8,84,108,9,76,75,1,8)::J1:I19:KL$(I)(KW$(I),J,1):J2:ZI014:N%(I),XN%(I),YN%(I):N%(I)N%(I)1:nI15:X%(I):J770:IJJ20:T:I,T:I03:T%(I),D%(I):PI355113:DR2PI360 CX144:CY79:CR75:BR.90CR:LR.67BR:CLOCK CNTR,RAD AND354DT:110:CXDX,CYDY::RR1:DT30::CLOCK6BALSETUPpV255:::::16384:232,211:233,29:0:1` LOAD SHAPE FILEj(4)"BLOAD TUTOR.SHAPES"tKW$(10),KL$(9),N%(15),XN%(15),YN%(15),X%(5),C$(13),C%(9),T%(4),D%(4))~I09:KW$(IGE LEVEL":130:MSGn$Y0:J09:X232:T$(KW$(J),(KW$(J))(J1)):130:YY2(J0)::44238,Y9:KEYWORDS.R20:TH035415:110:257DX,129DY::Y122:T12:X250:I12:J123:XJ,Y:J:X263:I:Y124:T:HEAD08RCR:DT6:I14:TH045257,139:RANDOMIZEQ16368,0:I1108:J(1):OP(16384):OP128Ă_16368,0evDRAW BORDERX5:Y9:T$"TRIED":130:X5:T$"OK":130:X8:Y60:T$"LEVEL":130X5:Y124:T$"PRESS":130:X5:T$"ESC KEY TO":130:X5:T$"CHANX)(L5)(NWWX)(L1):NR0:NW0Pz620:950:TRTR1:RTRT(NT0):3:950:760bDRAW LEVEL #z((L))4722,73:BUZZZB1BZ:S(16336)::DRAW TALLYX50:Y9:T$(TR):130:NT0X50:T$(RT):130DRAW LIPS :930:::"NO"::NTNT1:32:980:NT1Ģ(37):11:"TIME IS "C$(C%((1)(JX1)))ZR820\:"OK"::NT0NRNR1:NW0:I03:768,T%(I):769,D%(I):770::980f:"PRESS ANY KEY TO CONTINUE";:T$: p0:980:0:OP6(NRRXNWWX)İ910:LL(NRRES T"!"X"$880(..8DBL1TB:" ";::^LY%(J,R,F)10ĺ" ";:dV~`" ";:: 4 SPACESI$"E"ĺ:840-I$"Q"ĺ:2130:SF220,850?I$"L"1070XI$:I$:I$"O"1520iI$"I"850:"LIST TO PRINTER? ";YN$:YN$(YN$,1)D$;"PR#";P(YN$"Y"):YN$"Y"ĺPR$;::N = N - 1TA$" ACTIONS:"W1N21800#>A$(N)(I$,I):CT%(N)I1:SF1@HNN1:(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$; zESE 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)"."82 v22304D$;"OPEN DES.";N$:D$;"READ DES.";N$<N1HW1N1}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:SF0Y"ARE THOPEN DES.";N$:D$;"CLOSE DES.";N$MD$;"DELETE DES.";N$:D$;"OPEN DES.";N$e&D$;"WRITE DES.";N$o0N11}:W1N11D(34)D$(W):N%(W):S%(W):E%(W):W%(W):U%(W):D%(W)NWXD$;"CLOSE DES.";N$bSF0:330lES$"DESCRIPTION":ES1TO PRINTER? ";YN$:YN$(YN$,1)KD$;"PR#";P(YN$"Y"):PE0:YN$"Y"PE1YW1N11"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$;" hQ$"LIST"4404 rQ$"QUIT"İ2130:SF220,320G |Q$"SAVE"510Z Q$"LOAD"620s 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"740M I$"O"1640^ I$"Q"2430o I$"D"220z TT100 :IL$I$320 "N0:SF0 ,N10 6NN1 @N1NN1N J"SECTION "N"-":768,Q$ TQ$""420 ^(Q$)0N(Q$):3209"Y$"A")I(N$)::200$ :210c "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:C **":12< "ADVENTURE NAME (11 CHAR MAX, ?-CATALOG)":N$N (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 BY MICROSPARC, IN1V MI720TX%(L)60HR:M1$(60MI):MI$(MI):MI0MI$MI$"0": MIN TILL & AFTERBH906MI:LH9030HRMI2:ANGLE OF HANDS MAIN LOOP*:NT0:OK1:3:0:910:620:600:330:214160:AN$""820>460:OK860QHNR0:NWNW1:BZ50000:T$(OP128):OP(T$)::(OP1OP6)T$"Q"710BOP1310iLOP:OP6L((1)5)1:NR0:NW0w16304,0COMPUTE TIMET((1)X%(L))1:TIME UNITS PAST 12:00HR(T12X%(L)):HR$(HR12(HR0)):H1$(HR112(HR12)):HR & HR+" 1 MINUTE":" AUTO":32,0:23:"** COPYRIGHT 1985 BY MICROSPARC, INC. **";:24:"PRESS ESC KEY TO RETURN TO THIS PAGE";LĖ11:21::"NOW WINDING UP CLOCK";::3:1040:60041:21:868:"WHICH LEVEL? (1-6 , OR Q TO QUIT) ";::" ";::1 EXAMPLE"T:6:"12:00";:19:"15"KW$(7)"5":6:"12"KW$(9);:18:KW$(4)KW$(5)"5"::"6 LEVELS OF DIFFICULTY ARE AVAILABLE."::11:"LEVEL TIMES EVERY";:32,12:I16:I::14:7:32,18:" 1 HOUR":"30 MINUTES":"15 MINUTES":" 5 MINUTES":"-";2 SUBROUTINE TO PRINT !'SRL17:" ";::"!";:F7ĺX ***SUBROUTINE FOR END OF THE WEEK***990470 ***SUBROUTINE TO PRINT ROWS OF !'S AND -'S***X161120:T06"! ";:9 SPAC *******08.06.85*******; * ACS.WRITER *X * BY JENNY SCHMIDT *u( * COPYRIGHT (C) 1985 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************: PD$(100),N%(100),S%(100),E%(100),W%(100),U%(100    28,81,67,78,81,187,31,77,134 C,89,66,23,89,96,151,91,118`= WICHITA,KS,5,132,135,87,161,0,142,76,35,201,109,35,158,162,0,175=( WILMINGTON,NC,3,85,-74,80,30,-17,170,106,-17,259=2 WINSTON-SALEM,NC,4,65,40,30,6,40,144,31,85,80,171,-52,83>< WYTHEVILLE,VA,5,170,-52,83,29,77,123,159&< TUCSON,AZ,2,26,10,63,52,10,317o< WASHINGTON,DC,5,127,95,114,10,95,37,67,270,64,133,-50,120,154,66,72< WEED,CA,4,130,5,227,126,-395,265,122,5,363,138,5,282< WHEELING,WV,4,119,70,57,25,70,48,20,70,148,98,79,79= WHITE RIVER JCT.,VT,3,40198,79,75,169K; TEXARKANA,TX,4,144,-71,70,58,-71,181,42,30,183,82,30,130; TOLEDO,OH,5,39,-23,135,44,75,147,36,80,112,48,75,60,148,90,126; TOPEKA,KS,3,76,70,60,168,0,142,132,70,114< TULSA,OK,5,58,0,116,152,44,180,168,0,175,109,0,103,76,-169,2ROUDSBURG,PA,5,142,380,51,4,-22,41,104,80,66,103,80,78,90,80,303o: SYRACUSE,NY,3,21,90,156,1,90,146,14,81,64: TALLAHASSEE,FL,6,158,-19,252,79,10,98,114,10,200,7,-27,275,97,-231,208,86,-319,190 ; TAMPA,FL,5,92,-41,266,111,4,84,157,-19,252,75,-301,,61,131,55,94H9t SPRINGFIELD,MA,4,167,91,118,19,90,92,1,90,85,69,91,309~ SPRINGFIELD,MO,4,131,44,214,82,-65,218,162,44,180,145,-60,2419 STAUNTON,VA,4,127,64,106,128,81,81,29,66,209,154,81,769 STRASBURG,VA,3,67,81,51,164,66,72,153,81,76@: ST,3,47,80,183,110,29,98,147,29,85i8L SIOUX FALLS,SD,5,2,90,168,146,29,85,55,29,261,118,90,222,125,90,3468V SOUTH BEND,IN,2,60,90,66,160,90,1268` SPOKANE,WA,4,95,90,201,113,-395,203,53,90,171,18,-95,391 9j SPRINGFIELD,IL,4,87,-51,290,28,72,86,17,5581,115,14,81,52,105,84,96,4,0,72,155,380,51,68,81,115[7$ SEATTLE,WA,2,53,90,103,122,5,1737. SHREVEPORT,LA,5,12,-71,236,74,20,213,159,-71,70,42,20,195,71,-59,22678 SIKESTON,MO,5,99,57,98,112,-60,59,131,55,152,89,55,142,152,-60,241 8B SIOUX CITY,IA,130,80,90,83,5,387,165,5,282]6SANTEE,SC,5,57,95,74,38,26,66,30,26,54,75,95,232,141,95,966 SAULT STE. MARIE,MI,4,61,-131,276,48,75,242,63,-41,285,49,-2,4226 SAVANNAH,GA,5,75,95,143,86,16,166,139,95,96,9,-25,133,30,-17,10557 SCRANTON,PA,6,68,Y,UT,5,41,15,178,33,80,457,108,15,34,64,-6,176,126,80,531w5SAN ANTONIO,TX,4,71,10,197,42,35,170,59,35,167,52,10,5525SAN BERNADINO,CA,4,117,10,334,11,15,74,83,10,40,137,15,1155SAN DIEGO,CA,3,26,8,356,136,15,115,83,5,1276SAN FRANCISCO,CA,3,227,83,5,382,126,80,134,138,80,90s4ST. LOUIS,MO,6,152,44,214,51,70,101,99,64,72,145,55,152,150,55,94,76,70,2544SALINA,KS,4,161,70,114,168,135,87,46,70,429,37,70,4154SALISBURY,MD,4,10,-50,111,164,-50,120,106,-13,129,8,-9,9595SALT LAKE CIT(I),YN%(I)::I11:CX1,CYICX1,CYI::=bDRAW HANDSzlTHBH:RBR:I12:110:CX,CYCXDX,CYDY:THLH:RLR::vINSTRUCTIONS:13:"APPLE TIME TUTOR":14:"BY FRANK SHIRK" 4:"GIVE THE TIME WHEN ASKED. USE NUMBERS AND KEYWORDS. 31,31,30,31,30,31n\ JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBERf "! SUN !"," MON !"," TUE !"," WED !"," THU !"," FRI !"," SAT !"p ***LINES OF DASHES***z1120:N171ATRICES***X112:X2Ă(NM(X).DLYNM(2)29:710QNM(2)28]X112hM$(X)nyX17DY$(X)X112 R1G1NM(X) Y%(X,R,F)G*FF14F8F1:RR1>:HR 31,31,30,31,30,USER ANSWER OK?'J0JX?T0:T1(C$(C%(J)))NI1(A$)`T1$(A$,I,1)zT$(C$(C%(J)),IT,1)T$T1$ĂI:(IT1T1)570:T$""&T$" "TT1:5300J:OK(T$T1$)DNDRAW #S AND CNTR-XI014:N%(I)XN%:C$(I)M1$KW$(I1)H1$:JJ1:C%(J)I:C$(I3)KW$(4)KW$(I1)H1$:JJ1:C%(J)I3::440z C$(1)HR$KW$(1)"0"MI$:440 I68:C$(I)M1$KW$(I1)H1$:JJ1:C%(J)I: JXJ: REMOVE BLANKSA$"":I1(AN$):T$(AN$,I,1):T$" "A$A$T$5(MI30MI45)6380,390,400,410,420,4304 r440\ |C$(13)HR$KW$(9):J1:C%(J)13:440 I45:C$(I)KW$(4)KW$(I2)HR$:JJ1:C%(J)I::440 I68:C$(I)M1$KW$(I1)H1$:JJ1:C%(J)I::C$(12)KW$(8)KW$(3)HR$:JJ1:C%(J)12:440X I686),2(37))16(36),2(37)1)128):R ARROWG ,B$;:AN$AN$B$:170U 6868::r @COMPUTE CORRECT ANSWERS JC$(1)HR$KW$(1)MI$ TI23:C$(I)MI$KW$(I)HR$: ^J11:C%(J1)J2:+ h(MI0)1(MI15)2(MI30)3(MI45)4(MI0MI10)2(B21)3(B24)4(B27)5(B28)6240,310,290,260,270,300` BZ10:930:170:DISABLED KEYS B$;:(AN$)1AN$(AN$,(AN$)1):170 160:L ARROW (92);B$:160:CTRL X OKĒ0:980:910:620::16303,0:640:ESC 230. "B$((3(AR):DYR(AR): xDRAW T$R I1(T$):N((T$,I,1)):N47N91ĔN47X,Yf XX7::YY9:{ GET USER ANSWER AN$"" B$ I19:B$KL$(I)B$KW$(I):300:KEYWORD B$"0"B$"9"300:#S B(B$)= (B8)1(B13) **********************; * TIME TUTOR *X * BY FRANK SHIRK *u( * COPYRIGHT (C) 1985 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************PZ1110dCOMPUTE X,Y nARTHDR:DXR                00001LY0:LY1&?0 ***ZELLER'S CONGRUENCE LAW***d:C(Y100):((Y),2)"00"CC1DD(Y(100C))1:D1D99NK1XM11bX((2.6M.2)KD(D4)(C4)(2C))7lG(X(X))vF(7G.00001)1  ***SET UP M960 Y%(J,R,F);:1100" 940) F2 9909 RD (12)S JJ1:230x  ***ROUTINES AND SUBROUTINES***  ***LEAP YEAR ROUTINE*** (((1980Y)4)((1980Y)4)).000001LY0: ((Y),2)"00"LY1: ((Y400)(Y400)).0))2:1090:Y5 :TB((80(M$(J)))2):1090:M$(J); D "880J ,[ 61120:T17h @DY$(T);n Jt T} ^880 h rR16 |1120:"!"; F17 Y%(J,R,F)NM(J)F7ĺY%(J,R,F);:1100:940:960 Y%(J,R,F)0ĺ" ";:940:F: 22:5::"CALCULATING DATES FOR ";Y:[ Z1012:Z206:Z307:Y%(Z1,Z2,Z3)0:::n 500:560:650| 22:958 (4)"PR#1":(9);"80N" JFJĺ(4)"PR#0"::: J13YY1:J1:FJFJ12::(4)"PR#0":180 Y$(Y) TB(80(Y$((J$)):J1J12130a 14:958:"HOW MANY MONTHS (1-12): ";FJ$:FJ((FJ$)):FJ1FJ12140o FJJFJ: "MAKE SURE THAT THE FORM FEED ON YOUR":"PRINTER IS SET TO STOP AT THE":"PERFORATED LINES.":"PRESS ANY KEY TO BEGIN PRINTING" Z$:)13:"PERPETUAL CALENDAR":14:"BY NEIL SPINDEL":e d"** COPYRIGHT 1985 BY MICROSPARC, INC. **": n10:958:"YEAR: ";Y$:Y((Y$)) xY1753ĺ"YEAR MUST FOLLOW GREGORIAN CALENDAR.":PAUSE12000::110 12:958:"START MONTH (1-12): ";J$:JЀ  **********************; * PERPETUAL CAL *X * BY NEIL SPINDEL *u( * COPYRIGHT (C) 1985 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************PM$(12):DY$(7):NM(12):Y%(12,6,7)3 Z::5:  ,NV,4,80,-395,446,134,80,531,130,80,134,165,-395,265q3RICHMOND,VA,4,115,95,24,153,64,106,106,64,99,164,95,1143ROANOKE,VA,3,65,-220,109,153,81,81,171,81,673ROCKY MOUNT,NC,4,124,-64,51,106,-58,136,115,95,101,85,95,126"4SACRAMENTO,CA,4,165,5ME,2,40,-4,95,19,95,109I2RPORTLAND,OR,3,113,84,211,165,5,363,143,5,173{2\PROVIDENCE,RI,3,101,95,102,19,95,51,69,-6,742fRALEIGH,NC,3,50,-70,27,129,-64,51,85,95,952pRAPID CITY,SD,5,147,90,346,118,90,192,22,90,207,33,-85,316,27,-18,25443zRENO;1 PHOENIX,AZ,4,26,10,58,136,10,334,56,17,135,77,-93,184y1*PIERRE,SD,4,16,-83,211,147,90,222,125,90,192,107,-83,26714PITTSBURGH,PA,5,166,70,57,36,76,129,90,79,61,20,76,121,98,79,691>POCATELLO,ID,3,108,15,132,24,15,261,18,84,2342HPORTLAND,0,262,84,0,220,145,-60,59Y0PENDLETON,OR,4,18,84,217,149,-395,203,53,82,233,122,84,2110PENSACOLA,FL,3,157,10,200,97,65,159,96,10,590 PETERSBURG,VA,3,127,95,24,50,85,131,129,95,1011PHILADELPHIA,PA,5,68,76,105,104,0,82,4,0,60,10,95,98,8,0,6320,15,132,18,84,323g/OKLAHOMA CITY,OK,6,168,35,158,162,0,103,58,40,179,42,35,205,59,35,203,5,40,267/OMAHA,NE,4,47,80,128,76,29,184,107,80,299,146,29,98/ORLANDO,FL,4,92,0,236,158,4,84,45,4,58,79,75,1600PADUCAH,KY,5,100,24,148,99,57,77,81,108,116,0,82,10,0,175X.NEWBURGH,NY,5,69,84,101,103,87,66,1,87,88,104,87,69,142,84,96.NORFOLK,VA,4,127,64,99,133,-13,129,129,-58,136,169,-17,259.NORTH PLATTE,NE,4,110,80,299,118,-83,267,46,76,269,33,80,223/OGDEN,UT,4,33,80,444,134,15,34,124,148,81,65,214B-NEW HAVEN,CT,3,103,95,70,69,91,40,123,95,102-NEW ORLEANS,LA,4,96,10,153,91,59,199,74,55,183,12,10,89-NEW YORK,NY,5,105,87,66,101,95,70,104,95,19,155,80,78,4,78,103.NEWARK,NJ,7,103,95,19,105,87,69,155,80,66,4,78,100,8,0,31,208,91,-80,160,114,65,159,96,65,171o,bMORGANTOWN,WV,5,20,-48,134,67,-48,133,119,79,69,29,79,156,166,79,79,lMT. VERNON,IL,5,145,57,98,112,57,77,84,64,190,51,57,71,131,64,72-vNASHVILLE,TN,7,32,24,133,78,40,170,15,65,192,84,65,180,89,40,219,112,3,43,116D+:MINNEAPOLIS,MN,4,2,35,93,87,94,271,49,35,156,55,94,240w+DMISSOULA,MT,3,70,-12,124,24,90,130,149,90,201+NMOBILE,AL,6,114,10,59,97,65,171,102,10,153,91,-45,129,74,-49,192,12,10,213&,XMONTGOMERY,AL,7,15,65,90,7,85,165,86,-80,180,157,-2,74,55,212,82,40,138,145,55,142a*MERCER,PA,5,119,79,61,155,80,303,54,79,66,36,80,94,39,71,203*MERIDIAN,MS,5,74,20,90,102,59,199,96,-45,129,15,59,144,97,-80,160*&MIAMI,FL,3,158,-41,266,111,0,236,45,95,270+0MILWAUKEE,WI,3,87,94,77,34,94,87,6,95,53,169,-74,80,129,95,126a)MACON,GA,5,7,75,82,141,16,166,79,75,199,97,-80,180,157,-319,190)MADISON,WI,6,93,94,77,34,90,140,150,-51,290,63,-151,131,2,90,262,94,94,271)MANCHESTER,NH,2,40,93,20,19,93,51*MEMPHIS,TN,5,15,-78,241,100,40,219ITTLE ROCK,AR,5,89,40,138,74,-65,267,152,-65,218,58,40,153,159,30,130(LOS ANGELES,CA,4,136,10,40,137,5,127,130,5,382,138,5,387(LOUISVILLE,KY,6,81,64,78,35,71,101,73,65,114,100,65,180,99,64,190,112,0,220)LUMBERTON,NC,5,124,95,95,31,-74,126,573:X(I1)3:(T(X1))(T(X2))(T(X2))(T(X3))230g (T(I))(T(I3))(T(I3))(T(I6))230 :(T(1))(T(5))(T(5))(T(9))230 (T(3))(T(5))(T(5))(T(7))230 10:(7);(7);"WINNER!": 1d1:1:"** COPYRIGHT 1985 BY MICROSPARC, INC. **"> nP12w x20:1:"PLAYER "(C(P))" MOVE? ";:AN$:AN$(13)Ā A(AN$):(T(A))186ĹT(A),C(P):180::110 (7):120 1081,1083,1085 1337,1339,1341 1593,1595,15978 I1 **********************9* TINY TTT *U* BY PAUL RAYMER *q(* COPYRIGHT (C) 1985 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************P:C(1)216:C(2)207ZX19:T(X):T(X),176X:X3  173,100,40,170,32,75,109,171,81,187j'LAKE CITY,FL,5,158,75,169,111,75,160,75,10,66,157,10,98,86,75,199'LAS VEGAS,NV,4,77,-93,103,41,15,251,126,-395,446,11,15,155'LEXINGTON,KY,6,35,75,78,72,64,112,78,75,173,84,64,78,112,0,262,100,65,214E(L58,-301,198,45,95,99,79,10,66,139,95,232,141,95,143,9,-1,253&KANSAS CITY,MO,6,131,70,254,47,35,198,110,29,184,162,-169,259,161,70,60,168,35,201&KINGMAN,AZ,4,56,40,159,80,-93,103,11,40,203,117,-93,184#'KNOXVILLE,TN,6,6,40,118,171,81,187,81,75,HUNTINGTON,WV,4,29,64,47,35,-52,161,81,64,112,39,-23,131%hINDIANAPOLIS,IN,6,44,70,104,35,74,110,84,65,114,51,70,136,28,74,114,60,65,145%rJACKSON,MS,7,96,-49,192,89,55,212,91,20,90,102,55,183,12,55,169,144,20,213,82,-65,267<&|JACKSONVILLE,FL,6,1HARRISBURG,PA,6,116,76,105,10,83,79,67,81,77,4,78,73,20,76,83,142,81,115$@HARTFORD,CT,5,123,-6,74,151,91,30,105,84,101,19,86,102,101,91,40$JHELENA,MT,3,62,15,91,95,-12,124,24,15,65$THOUSTON,TX,4,144,-59,226,42,45,245,12,10,253,135,10,1979%^RIVER,UT,3,41,70,158,134,-6,176,46,70,350g#GREENSBORO,NC,4,50,85,54,31,85,94,170,40,30,128,-220,109#"GREENVILLE,SC,5,7,85,151,9,-25,113,38,26,104,31,85,105,6,-25,62#,HAGERSTOWN,MD,6,10,70,75,164,270,64,68,81,77,20,70,47,98,-48,133,154,81,51J$65,167,109,35,203["GARY,IN,6,34,90,32,148,90,66,73,65,145,48,94,248,61,196,144,43,80,183"GRAND RAPIDS,MI,3,48,96,148,140,-131,276,60,196,144"GREAT FALLS,MT,2,70,15,91,13,-89,287"GREEN BAY,WI,3,93,43,116,87,-151,131,140,-41,285)#GREEN ARGO,ND,3,94,94,240,147,29,261,16,94,191Z!FLAGSTAFF,AZ,3,117,17,135,3,40,323,77,40,159!FLORENCE,SC,4,30,-52,112,38,20,80,139,95,74,85,95,53!FT. SMITH,AR,4,82,40,153,159,-71,181,162,0,116,109,40,179"FT. WORTH,TX,4,42,20,32,52,20,588,135,3C,3,65,85,54,124,-70,27,115,85,131] EFFINGHAM,IL,4,99,57,71,73,70,136,28,57,70,131,70,101 EL PASO,TX,4,135,10,552,59,20,588,3,25,257,163,10,317 ELLENSBURG,WA,3,149,90,171,113,82,233,143,90,103 ERIE,PA,3,21,90,108,36,90,80,90,79,66(!F,95,99IZDENVER,CO,5,37,25,67,132,70,429,33,25,98,64,70,350,107,76,269dDES MOINES,IA,5,43,80,160,76,35,198,110,80,128,146,80,183,2,35,148nDETROIT,MI,4,160,75,60,61,96,148,140,75,242,60,94,248xDULUTH,MN,2,94,35,156,140,-2,422" DURHAM,N,178,80,15,251^2DALLAS,TX,6,109,35,205,59,20,32,159,30,183,135,35,170,71,45,245,144,20,195<DAVENPORT,IA,4,17,74,140,60,80,183,34,80,177,47,80,160FDAYTON,OH,4,160,75,147,39,70,71,35,75,54,73,70,104PDAYTONA BEACH,FL,3,92,95,270,111,4,58,7546,25,67R COLUMBIA,SC,6,9,20,79,57,20,80,139,26,66,66,26,104,31,77,95,6,26,156COLUMBUS,OH,7,36,71,140,35,71,109,72,-23,131,160,-23,135,44,70,71,25,70,80,90,71,203CONCORD,NH,3,88,93,20,167,89,66,121,-4,95(COVE FORT,UT,3,64,70,158,134,1587,90,140,28,57,133,17,55,133,60,90,32,43,80,177CINCINNATI,OH,6,39,71,109,81,75,78,84,71,101,44,75,54,73,74,110,72,-52,161CLEVELAND,OH,6,119,76,129,39,71,140,160,80,112,54,90,80,90,80,94,25,77,116COLORADO SPRINGS,CO,3,3,25,365,132,70,415,HARLOTTE,NC,7,65,85,94,66,85,105,170,85,80,6,-74,118,85,-74,126,38,77,95,171,77,134CHATTANOOGA,TN,4,78,75,109,100,24,133,7,75,109,15,59,146CHEYENNE,WY,6,46,25,98,27,25,184,108,80,444,134,80,457,125,-85,316,107,80,2230CHICAGO,IL,6,93,94,87,CASPER,WY,3,22,25,305,33,25,184,125,-18,254oCHAMPAIGN,IL,5,51,57,70,17,74,52,34,57,133,150,72,86,73,74,114CHARLESTON,WV,5,72,64,47,171,77,123,98,79,156,25,77,131,153,64,209CHARLESTON,SC,4,141,-17,105,139,26,54,57,-52,112,169,-17,170SCBUFFALO,WY,3,27,25,305,125,90,207,13,90,161StBURLINGTON,VT,2,167,89,96,1,-7,154~BUTTE,MT,4,13,90,237,120,15,261,95,90,130,70,15,65CAMBRIDGE,OH,4,29,77,131,39,70,80,36,77,116,166,70,48CASA GRANDE,AZ,3,163,10,63,117,10,58,137,8,356+0,150,55,61HBBOISE,ID,4,120,84,234,113,84,217,149,-95,391,108,84,323LBOSTON,MA,5,123,95,51,69,86,102,151,90,92,88,93,51,121,95,109VBREEZEWOOD,PA,5,68,76,83,67,70,47,119,76,121,166,70,148,98,-48,134`BUFFALO,NY,2,54,90,108,156,90,156+j0,161,16,94,418,24,90,237KBINGHAMTON,NY,3,1,88,142,156,81,64,142,81,52$BIRMINGHAM,AL,6,7,20,149,97,65,90,91,59,144,100,65,192,32,59,146,89,-78,241.BISMARK,ND,3,55,94,191,13,94,418,118,-83,211 8BLOOMINGTON,IL,4,28,74,52,34,55,133,43,74,1438,20,79,66,-25,113cBALTIMORE,MD,6,164,95,37,67,70,75,68,83,79,133,-50,111,116,95,98,104,0,175BARSTOW,CA,3,77,40,203,80,15,155,136,15,74BATON ROUGE,LA,5,102,10,89,96,10,213,74,55,169,144,-71,236,71,10,253BILLINGS,MT,4,62,-89,287,22,9ASHEVILLE,NC,5,170,40,144,66,-25,62,31,-74,118,78,40,118,38,26,156ATLANTA,GA,7,157,-27,275,9,20,144,86,75,82,32,75,109,15,20,149,66,85,151,97,85,165ATLANTIC CITY,NJ,3,133,-9,95,116,0,63,104,0,108AUGUSTA,GA,5,7,20,144,141,25,133,75,-1,253,14,88,142FALBERT LEA,MN,4,87,90,262,94,35,93,147,90,168,47,35,148ALBUQUERQUE,NM,4,5,40,284,56,40,323,37,25,365,52,25,257ALLENTOWN,PA,6,104,78,100,142,0,72,68,78,73,116,0,60,155,-22,41,103,78,103AMARILLO,TX,2,109,40,267,3,40,284B,I):790fJ135:"-";:J:YpCITY$(NF);", ";ST$(NF);:26((T%(0,NS))):T%(0,NS)rzPRĺ::(4);"PR#0"23:"HIT 'Q' TO QUIT, ANY OTHER KEY TO":"CONTINUE ";:Z$:Z$"Q"ī240 ALBANY,NY,5,156,90,146,151,90,85,105,87,88,23,-7,154,3::"HIT ANY KEY TO CONTINUE";::Z$:L1:6:1:958t*J1NDST%(I):DEST%(I,J)T%(1,I)KRT%(I,J):MDDIST%(I,J){4J>K0RT$"I-"(K)HK0RT$"US-"(K)RCITY$(I);", ";ST$(I);:26((MD)):MD;:36(RT$):RT$\T%(1,I)NFIT%(1 ROUTE**49168,0 :INS5PRĺ(4);"PR#1"h"SHORTEST ROUTE FROM ";CITY$(NS);", ";ST$(NS)"TO ";CITY$(NF);", ";ST$(NF):"CITY";13);"DISTANCE ROUTE" J135:"=";:J::L0RT$"TURNPIKE":K0:MD0:LL15 L15PRĢ25,76,234,3,201,135,208,18,152,72,160,64,169,16,32,168,252,173,48,192,136,208,245,104,168,96,76,240,253n: Q300) ---=> ";LCT$-:LCT$""LCT768:590=DLCT(LCT$)YN:"LOCATION IS ";LCT:XLCTLCT11:BLCT(LCT256)256:HI(LCT256):A(2)B:A(6)HIbLCTLCT11lX0vLLCTLCT35XX1L,A(X):f169,11,133,54,169,3,133,5.BEEP,A";LCT;",L37"6 :"BEEP SAVED ON DISK"::530? 190] :"QUIT PROGRAM:"::560 :"BEEP INSTALLED.":LCT:680 PUT BEEP IN MEM AT & LOCATION "LCT"0:"ENTER A LOCATION TO PUT THE BEEP MODIFIER ROUTINE (DEFAULT=768, $ A(19)(LNGTH$)% A(21)(TNE$). 190? OUTPUT BEEPV :"LISTEN.... "e L1100: "CALL 750" TEMPORARY BEEP L750767:L,A(L734)::750:L1300::190 SAVE BEEP ::"SAVE CURRENT BEEP: "::560::(4);"BSAVE APPLE:" TO ACCEPT CURRENT VALUE; ENTER (0-255)":s T"ENTER NEW LENGTH => ";LNGTH$:LNGTH$""LNGTH$(A(19)) ^(LNGTH$)0340 h(LNGTH$)255340 r"ENTER NEW TONE => ";TNE$:TNE$""TNE$(A(21)) |(TNE$)0370 (TNE$)255370:"(A) MODIFY CURRENT BEEP"8 "(B) HEAR CURRENT BEEP"Z "(C) SAVE CURRENT BEEP/QUIT"j "(D) QUIT" :"ENTER => ";:R$ R$"A"330 R$"B"440 R$"D"520 "R$"C"490 ,R$(27)ĺ(92)::680 6190 @MODIFY BEEP5 J:3:"* BEEP CUSTOMIZER BY JOHN BAUMBACH *"Z 3:"* COPYRIGHT 1985 BY MICROSPARC INC *"e 3:A$k u 34,7 READ A.L. INTO "A" L136:A(L): 6:1:958:"CURRENT LENGTH: ";::A(19): "CURRENT TONE : ";::A(21): ::p **********************9* BEEP CUSTOMIZER *U* BY JOHN BAUMBACH *q(* COPYRIGHT (C) 1985 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************PA(36)Z:dL136:A$A$"*":Ln3:A$+ x   "INCREASE BY 5000!"(4'HPHP5000:450** PLAYER BOXED IN? **3 MP(PY,PX1)1MP(PY,PX1)1MP(PY1,PX)1MP(PY1,PX)1ġ:::" YOU BOXED YOURSELF IN!"::" YOU DIED FROM STARVATION.":HP0:DL0:TR0:2390:2200:16603 4'"YOU FOUND A BOTTLE OF":"VITAMINS! YOUR STRENGTH POINTS":770:768,J2:769,3:770:768,J4:769,3:770:768,255J:769,3:770::n2 *** SUBROUTINE TO PLAY TUNES ***2 J0N:T((D$,J61,3)):D((D$,J64,3)):768,T:769,D:770::2 * DID PLAYER WANT ANY SOUND ? *2 S$"N"āJ11000::2 3 14:K2030:768,K:769,2:770::K30201:768,K:769,2:770:::s1 *** TUNE WHEN PLAYER WINS THE IDOL **1 2530:D$"064128064128071032077064077128081040077040077128":N7:2510:1 **EXIT FOREST SOUND**H2 2530:J25555:768,J:769,3:52555:768,J:769,20:770:768,J10:769,10:770::P0` *** CONDOR SOUND ***0j 2530:J2553015:768,J:769,25:770::0t *** "BONUS" SOUND ***0~ 2530:J115:768,175:769,8:770:768,100:769,8:770::0 *** IDOL SOUND ***G1 2530:J8,J:769,3:770::*/$ *** PIT SOUND ***h/. 2530:J10024015:KJ10J1:768,K:769,5:770:::/8 **** TUNE WHEN PLAYER KILLS A MONSTER ***/B 2530:D$"255045235045220040148110185035148110":N5:2510:/L *** DEATH SOUND ***60V 2530:J17TR;::" ":33,32:m.33,40:18:35:" N ":35:" ! ":35:"W-+-E":35:" ! ":35:" S ":33,32:.** RASPBERRY SOUND **. 2530:J112:768,200:769,2:770:768,150:769,2:770::. ** HIT A TREE SOUND **/ 2530:J1703030:764):KB1602210 -16368,0:<-*PLAYER EXIT FOREST ?*_-TY1TY14TX1TX31ġ:1580e--*** PRINT STRENGTH AND TREASURE POINTS ***-33,40:6:34:"STREN.":34:"POINTS:"::34:HP;::" ".11:34:"TREAS.":34:"POINTS:"::34:SV,fJ1800::100:15:12:"BY GLENN ARCHER":255:20:10:"DO YOU WANT SOUND ? ";r,p**PLAYER WANT SOUND?**,z16368,0:S$:S$"Y"S$"N"2170,,* WAIT FOR SPACE BAR *,23:"PRESS THE SPACE BAR TO CONTINUE":16368,0-KB(1638,J25:769,5:770:J1:18:" "::1:"** COPYRIGHT 1985 MICROSPARC, INC. **":J11000:+RJ218:9:J:" O";:38J:"F ":S(16336)::J11000:,\A$"MONTEREY":B$" ":J22111:J:16:A$:768,J10:769,5:770:J1:16:B$::8 SPACERACELET,60,A TREASURE EATER,-75,A WORTHLESS COIN,0,A PILE OF GOLD,300a* **POKE SOUND ROUTINE**z**J770790:K:J,K:*4173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96*>*** DISPLAY TITLE ***\+HA$"IDOL":J27:J:18:A$:768D CROWN,150,MAGIC POWDER,100,AN AMULET,75,A DIAMOND RING,100,A TREASURE CHEST,200,A PEARL NECKLACE,50,A STRENGTH POTION,100,A GOLD CROSS,65E* A SILVER PLATE,100,RED RUBIES,85,20 SMALL GEMS,20,35 GOLD PIECES,35,A NICKEL,5,A JEWELED DAGGER,175,A GOLDEN B,350,SKELETON,200,MINOTAUR,100,GRIFFIN,150,HARPY,75,DRAGON,500,TROLL,125,GOBLIN,175i(J110:ME$(J):( UH-OH!,OOPS!,WHOOPS!,EEEK!,OH NO!,AAARGH!,AAAK!,ZOWIE!,OUCH!,DARN!( J120:TR$(J),TV(J):)10 GOLD PIECES,10,A GOLD SCEPTRE,55,A JEWELETO QUIT ? ";;'16368,0:A$:A$"Y"A$"N"İ2310:1970N'A$"N"ĺ:450g'TR0:DL0:HP0:1660'*** INIT. VARIABLES ***'MN$(10),MS(10),ME$(10),TR$(20),TV(20),KM(10),MP(15,32)'J110:MN$(J),MS(J):S(CYCLOPS,50,WYVERN,300,BASILISK 14:GR]hu~!%'?7756?6.5.-$-$<'%'!$$4'-- - ?p- /, ??I$=$$>.5p- $?',-5v- ?' -$$$-u?)=$$$/5 $$$?-----$$???6.--$??.------$$$?????66n   0 ING IT."::"DO YOU WANT TO ";::"F";::"IGHT OR ";::"R";::"UN ? ";e&v*** FIGHT OR RUN ? ***&16368,0:A$:A$"F"A$"R"İ2310:1920&A$:A$"F"X12:1150&1350&*** PLAYER QUITS *** '::10)"ARE YOU SURE"::6)"YOU WANT )5H15INC:768,J:769,4:770::18605%:J110:b%DH1H1INC:H2H2INC:H14H120INCINCl%N1820%X** PLAYER FOUND IDOL **%b::5:"YOU FOUND THE IDOL!!!"::FL1:2450I&l:"UNFORTUNATELY, THERE IS A LARGE"::"DRAGON HERE WHO IS GUARD";::1810:$A$:A$"N"Ģ23:1:958:17:"SO LONG!";:L$A$"Y"1770U$100p$*** HIGH SCORE!!! ***$A$" NEW HIGH SCORE! "::H120:H24:INC1$17:H1:A$:21:H2:A$$&J15:X(16384):X217X206ĝ:1770'%0:S$"Y"āJ(H1INCTR:3#:5)"BONUS FOR FINDING IDOL = ";::DL:#::4:J133:" ";:::J13:4:" ";:36:" "::4:J133:" ";:::#19:9:"YOUR FINAL SCORE = ";::SCTTTRDL:SC:#23:" WOULD YOU LIKE TO PLAY AGAIN ? "; $SCHIHISC::" MN$(J3)23)" = ";::KM(J3);::29);MN$(J6)35)" = ";::KM(J6)"::15);MN$(10)23)" = ";::KM(10)::J139:"-";::":7)"TOTAL = ";:J110:TTTTKM(J)::TT;" X 10 = ";:TTTT10::TT;::" BONUS!"#:10)"TREASURE POINTS = ";:: RAN OUT OF STRENGTH!"::8)"YOU ARE DEAD.":HP0:TR0:DL0:2390:2200:1660i!r** FINAL STATISTICS **!|::9:"*** ";::"FINAL STATISTICS";::" ***"!3:14)"MONSTERS KILLED":J139:"-";::D"J13:1:MN$(J)9)" = ";::KM(J);::15);OL SO YOU WERE SENT TO"::"THE MINES OF MONTEREY.":2200:1660Y J** BONUS FOR IDOL ** T:DL1000:"YOU FOUND THE IDOL! THE DWARVES":"DECLARE YOU THEIR HERO AND AWARD":"YOU 1000 TREASURE POINTS!":2200:1660 ^*** PLAYER DIES ***M!h::" YOUPXTX8XMP(PY,PX):MP(PY,PX)2:PY:PX::"^"::260T"** YOU MADE IT OUT! **,::"CONGRATULATIONS!!! YOU MADE IT"::"OUT OF THE FOREST ALIVE!!!":2490:22006** DIDN'T FIND IDOL **? @:DL0ĺ"UNFORTUNATELY, YOU DIDN'T FIND"::"THE IDX:PY:PX:":":RN(4(1)1):RN1450,1470,1490,1510MMP(PY,PX1)11440_TXPX1:1530wMP(PY,PX1)11440TXPX1:1530MP(PY1,PX)11440TYPY1:1530MP(PY1,PX)11440TYPY12240RN3RN4PYTY:1560"!"::1150$n*** PLAYER DIES ***x(1).85ĺ" THE "MN$(X4)" KILLED YOU WHILE"::6)"YOU WERE RUNNING AWAY.":2390:2200:HP0:DL0:TR0:1660*** PLAYER MAKES IT ***11)"YOU MADE IT!":J11500:*** MOVE PLAYER ***5MP(PY,PX) ";::"FIGHT!"::11501<*** PLAYER RUNS! ***dF:::7:"RUN FOR YOUR LIFE!!!"::J11500:P2560:FL1FL0::1400Z** MUST FIGHT ANYWAY ** d::(1).37ĺ7)"YOU DIDN'T MAKE IT."::7)"NOW YOU MUST "::7);::"FIGHT THE "MN$(X4)** MUST FIGHT ANYWAY **x2270::"THE "MN$(X4)" TOOK YOUR MONEY BUT"::" YOU DID NOT GIVE IT ENOUGH.":J11500:*** PLAYER DIES ***(BANB.75ĺ::5:"THE "MN$(X4)" KILLED YOU."::TR0:DL0:HP0:2390:2200:16602:6:"NOW YOU MUST*** BRIBE MONSTER ***i::"HOW MUCH TREASURE WILL YOU"::"GIVE THE "MN$(X4);:" ? ";BA$:BA(BA$)BA0BATRİ2310:1240NB((MS(X4)2)200(1)1):TRTRBA*** MONSTER ACCEPTS ***BANBĺ:"IT ACCEPTS YOUR BRIBE.":450 PNDFMP1220'*** PLAYER DIES ***HP0:::4:"THE "MN$(X4)" KILLED YOU.":::" YOU LOSE EVERYTHING!":2390:2200:TR0:DL0:1660*** MONSTER DIES ***4::"YOU KILLED THE "MN$(X4)"!":2370::KM(X4)KM(X4)1:HPHPPN:810`W$"WEST"<j:"THE IDOL IS TO THE "W$"."::255:450Yt** FIGHT THE MONSTER **~:"HOW MANY POINTS TO USE ? ";PN$:PN(PN$)PN0Ģ19:1:958:380PNHPPN1İ2310:1150MPMS(X4)((MS(X4)10)(1)1):DF((1)25)1:PLAYER A CLUE**;75:::"YOU HEAR THE WIND WHISPER..."KPYDY1110[PYDY1080~W$"NORTH":PXDXW$W$"EAST"$PXDXW$W$"WEST".11308W$"SOUTH":PXDXW$W$"EAST"BPXDXW$W$"WEST"L1130VPXDXW$"EAST":1130(1).85ė:17:" THE CHEST WAS TRAPPED!"::"YOU DIED WHEN YOU OPENED IT.":2390:2200:HP0:DL0:TR0:1660v840** PLAYER WON IDOL **:" CONGRATULATIONS! YOU JUST":9)"WON THE IDOL!!!"::DL1:2470:450DL1780**GIVE 0zA7840+** A TREASURE CHEST **P" DO YOU WANT TO OPEN IT ? ";w16368,0:A$:A$"Y"A$"N"920A$::A$"N"840(1).75ė:17:"THE CHEST CONTAINS A SWORD. IT"::"WILL KILL ANY DRAGON YOU MEET!"::MR1:2430:450mH" YOU GAIN "TV(A)" TREASURE POINTS.":TRTRTV(A):450UR*** MAGIC POWDER ? ***\A4(1).6ĺ" YOUR STRENGTH POINTS":8)"JUST DOUBLED!":HPHP2:2430:450f** STRENGTH POTION ? **pA9ĺ" YOU GAINED 300 STRENGTH POINTS!":HPHP300:45)2:PY:PX::"^"::260+(1).75800=(1).51000X*** NOTHING THERE *** :" THERE'S NOTHING HERE."::450** FOUND A TREASURE ** A(20(1))1*FL1FL0:9804:" YOU FOUND ";TR$(A)"!":>A4A7A986090:1660450**** GIANT CONDOR ***v:"A GIANT CONDOR GRABBED YOU"::"AND MOVED YOU TO A NEW SPOT!":2410MP(PY,PX)50:PY:PX:":"J((1)14)1:K((1)31)1:MP(J,K)1(JPYKPX)730PYJ:PXK:TXPX:TYPY:XMP(PY,PX):MP(PY,PXMP(PY,PX)2:PY:PX::"^"::2602(1).4710V*** PLAYER FELL INTO A PIT ***}:6:"YOU FELL INTO A PIT!":2350LS((20(1))1)10:HPHPLS::" YOU LOSE "LS" STRENGTH POINTS.":HP0HP0:DL0:TR0:10)"YOU ARE DEAD!":2390:220580&A$"W"TXPX1:580.0A$"Q"1960::TXPX1DD2240^N*** HIT A TREE ? ***XMP(TY,TX)1İ2330::10::"YOU HIT A TREE!"::TYPY:TXPX:450bMP(PY,PX)50:PY:PX:":":A$"N"A$"S"PYTYlA$"E"A$"W"PXTX!vXMP(PY,PX):1640HP10000HP100006CV(37):2270:37,CVQ** GET A DIRECTION **:"WHICH DIRECTION (";::"Q";::" TO QUIT) ? ";16368,0:A$:A$"N"A$"W"A$"E"A$"S"A$"Q"İ2310:520A$:A$"N"TYPY1:580A$"S"TYPY1: YOU WANT TO DO ? ";J16368,0:A$:A$"F"A$"B"A$"R"İ2310:390g** GOTO THE ROUTINES **A10:J13:A$("FBR",J,1)A1J:J3JA$:A11150,1240,1350**IS PLAYER BOXED IN?**2560** IS PLAYER DEAD ? **HP1)1:TR$(A)"!"> ^** IF PLAYER HAS SWORD, KILL THE DRAGON ** hX48MR1Ğ:"YOUR SWORD KILLED THE DRAGON!"::2370:KM(8)KM(8)1:810 r** PRINT THE OPTIONS **|19:"YOU MAY DO ONE OF THE FOLLOWING:";:"F) FIGHT B) BRIBE R) RUN"::"WHAT DO2270:2290:34,15 0 ST1ST0:17:450M *GOTO VARIOUS ROUTINES*Z "X3640g ,X4750u 6X50780 ;X7510000 @X1001890 J*PLAYER FINDS A MONSTER* TME$(((1)10)1)" THERE'S A "MN$(X4)" HERE":"GUARDING ";:A((1)20MP(J,K)1205 MP(J,K)75X J((1)14)1:K((1)31)1:(J8K16)MP(J,K)1210 DYJ:DXK:MP(J,K)100:PY8:PX16:TXPX:TYPY:PY:PX::"^": **SET UP SCREEN DISPLAY** 1:35:"HIGH":34:"SCORE:" 4::HI$(HI):39(HI$):HI$::.465L3:170! L((1)10)5D MP(J,K)L:J:K:L1ĺ"X":190M "." ::MP(8,16)2:ST1:HP3000:TR0:MR0:TT0:SC0:J110:KM(J)0::DL0:FL0 ** SET X/Y CO-ORDINATES OF IDOL'S POSITION ** J((1)141):K((1)311):(J8K16):K::" ":J15:17J:K:" ";:K18:" "::K:" "::19 SPACES n19:K2:"CREATING FOREST":21:K4:"PLEASE WAIT" x* CREATE RANDOM FOREST * J114:K131:X(1):X.8L1:170 X.5L4:170 X), **********************9* IDOL *U* BY GLEN ARCHER *q(* COPYRIGHT (C) 1985 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************P::2010Z** TELL PLAYER TO WAIT **f d:K7:17                   0650vDTDIST%(J,I)LDTT%(0,J)T%(0,D)T%(0,D)DTT%(0,J):T%(1,D)JSIaI1NCITT%(1,I)0T%(0,I)MDMDT%(0,I):KII:JK:T%(1,J)T%(1,J)20:8:T%(0,J)JNSī610I1NCIT:T%(1,I)(T%(1,I)):I **WRITE OUT (Y/N)? ";:Z$(0Z$:Z$"N"NSNF250I: **COMPUTE SHORTEST ROUTE**rDI1NCIT:T%(0,I)9999:T%(1,I)NF:INI1NDST%(NF):T%(0,DEST%(NF,I))DIST%(NF,I):IXT%(1,NF)NF:JNF:20:"MILES:"bMD10000lI1NDST%(J):DDEST%(J,I):T%(1,D)LINEMCITCLINE03706Z$(8)Z$(11)380\CLINECLINE1:CLINE0CLINEMCITe370 **CHECK SELECTED CITIES**::"STARTING CITY IS ";CITY$(NS);", ";ST$(NS):"ENDING CITY IS ";CITY$(NF);", ";ST$(NF):&"IS THIS CORRECT13)KBCITCLINE:\ 5CLINE:1:CITY$(CLINEBCIT);", ";ST$(CLINEBCIT);:Z$(27)ė:900o Z$(78)430 CPGCPG1:CPGNPGCPG1 350 Z$(80)460 CPGCPG1:CPG1CPGNPG 350 Z$(21)Z$(10)490CLINECLINE1:C;:I:$ TNPG((NCIT18)19):CPG1d ^CLINE0:BCITCPG1918:MCIT18:BCITNCIT19MCITNCITBCIT h5:958:I0MCIT:I5:1:CITY$(IBCIT);", ";ST$(IBCIT);:I r5CLINE:1:868::CITY$(CLINEBCIT);", ";ST$(CLINEBCIT);: |1:40:Z$:Z$(::300:NFK 530+ " **CITY LISTER**i ,1:16::"RET";::" SELECT CITY ";::"ESC";::" QUIT" 6:"N";:21:"P";::3:"- NEXT PAGE";:23:"- PREVIOUS PAGE" @:"->";:21:"<-";::4:"- NEXT CITY";:24:"- PREVIOUS CITY" JI139:"="1NDST%(I). DEST%(I,J),RT%(I,J),DIST%(I,J)8 J:IT **CHECK FOR PRINTER**] PR0 :5:"DO YOU HAVE A PRINTER (Y/N)? ";:Z$:Z$: Z$"Y"PR1 **CHOOSE START & STOP** ::"STARTING CITY": 300:NSK ::"ENDING CITY"%(171,7),DEST%(171,7),T%(1,171),NDST%(171)f x:5:13:"APPLE HIGHWAYS":10:12:"BY VIC HASSELBLAD" 24:1:"** COPYRIGHT 1985 MICROSPARC, INC. **";:15:10::"READING IN DISTANCES": NCIT171 I1NCIT CITY$(I),ST$(I),NDST%(I) J6**********************9* HIGHWAYS *U* BY VIC HASSELBLAD *q* COPYRIGHT (C) 1985 ** BY MICROSPARC, INC ** CONCORD, MA 01742 ***********************d **HEADING*** nCITY$(171),ST$(171),DIST%(171,7),RT                             ÍύĠӠӠŠĠƠŠŮٍÍ׍ÍˍÍɍӍӍ͍ӍʍȍՍč׍Ǎڍƍ΍׍֍͍֍z #?ƠĠ̠Ϡ"ҠƠĠ̠ҠԠҠӠԠҠҠ  ӠӠϠҠҠӠ̠ҠŠ ̠ҠŠҠ ƠĠ̠! ʮϠЮϠҮϠӠҠǠŠ Ӡ" ӮӠ! ٠ííŠ  ŠŠҠ ҮӠ ŠӠ8ӮҠ ӮҠӮϠ  ҠϠҠӠ ԠҠ ԠҮ̠ԠҮŠ" ̠.РҠ  ̠Ҡ ҠҠϠ ҠϠ ŠΠˠҮР ҮİϠӠǠӠǠӠӠŠ,ҮӠ ӡՠĠŠ΍ĠԠԠƠŠŠŮϠŠĠŠЮҠӠŠŠϠčōӠӠŠΧӠҮԠӠ٠ԬĠŠҠӠϠĠԠӠԠϠŮZ(B$)ASTX1,Z:,SL,(A$)2 1E SPACE BAR TO CONTINUE"/4PAUSE160:PAUSEI>X(16384):16368,0VHX160ıcRSS:820i\:f ENTERS FLASHING ANDp NORMAL MESSAGESz:N1A64F1A0X1(A$)B$(A$,X,1)B$"?"960Z(B$)64A:97060.:12:8:"EVEN COMBINATIONS ARE EASY!"7790gA$"** THE SPINNER BY STEVE KEARNS ":MS,A$:12:13:"HAPPY SPINNING!"790: : SPIN SUBROUTINE :*20:5:"COPYRIGHT 1985 BY MICROSPARC, INC";::22:6:"PRESS THLASHING MESSAGEv:KN1:F0:A$"/ 31 CHARACTER NORMAL STRING //":860j12:13:"NORMAL MESSAGES"s790N0:F1:A$"FLASHING MESSAGES ARE POSSIBLE-":860:12:13:"FLASHING MESSAGES"790A$" COMBINE MODES ":MS,A$ST,1R FLOAT ROUTINE"m20:5:"COPYRIGHT 1985 BY MICROSPARC, INC";::22:6:"PRESS THE SPACE BAR TO CONTINUE"}X(16384)X160Ĺ16368,0:560&5300:: SPECIAL MESSAGESD:NX:b N = 1 FOR NORMAL MESSAGEl F = 1 FOR F TOP"/ 12:7:"WITH 124 CHARACTER STRINGS!"B 790:22:868H :\  FLOAT ROUTINEb : A$"CENTERED TITLE":L(A$)2 X1124(A$):A$A$" ":X DIR,1:MS,A$ R1104L:PAUSE160:PAUSE SS:R14:5:"LIST 440-500 FO1 CHARACTER STRING" ^790k hA$"THIS MESSAGE IS EXACTLY SIXTY-TWO CHARACTERS IN LENGTH ++++++ ":MS,A$ r:12:7:"DEMO OF 62 CHARACTER STRING" |790  SET STRING = TO NORMAL SPACE A$" ":MS,A$:ST,160 :10:9:"FLOAT TITLES TO THEND TRAVEL THE": :"OTHER DIRECTION AT THE SAME SPEED."e :"WELL, WHICH WAY IS IT SPINNING?":n "790 ,A$"! * ":MS,A$ 6:12:7:"DEMO OF 4 CHARACTER STRING" @790 JA$"** THE SPINNER BY STEVE KEARNS ":MS,A$ T:12:7:"DEMO OF 3>"; <16368,0:A$:? F22:"CATALOG":998:(4)"CATALOG"E P AG 4/12/08 255:::F"NIBBLE PROGRAMS - VOL. 6, PART 1"n"================================"(6:"THIS DISK CONTAINS PROGRAMS FROM NIBBLE MAGAZINE, VOL. 6 (1985), ENTERED AND COLLECTED IN 2008." 219:"";NTCN0N(N)200C::" N SHOULD BE A POSITIVE INTEGER. PLEASE TRY AGAIN.":170CN2000Ģ5:5::"YOU ARE IN FOR A LONG, LONG WAIT!!":230DN500Ģ15:7::"THIS MAY TX), YOU MAY USE 'PI' IN YOUR FORMULA."::"Y=";F$ABdZ$F$:Z$UBn:3:" Y=";F$cBxPI(1)4B::"GIVE LEFT END POINT->";L$:T$L$:T$:T$LB::"GIVE RIGHT END POINT->";R$:T$R$:T$:T$RBSG(RL):LR170BLLR:RL:LLL@C:0:L0:D0:I0:J0:N02A(4)"BRUN DEF AND VAL"NA(:2:9::22)::400oA29:" NUMERICAL INTEGRATOR "~A<9:22):AFAP:8)"(SIMPSON'S RULE ROUTINE)"::"* COPYRIGHT 1985 BY MICROSPARC, INC. *"2BZ10:1:958:"ENTER YOUR FUNCTION F(M@**********************9@* INTEGRATOR *U@* BY GLEN BREDON *q@* COPYRIGHT (C) 1985 *@* BY MICROSPARC, INC *@* CONCORD, MA 01742 *@**********************@ *** INITIALIZE VARIABLES FOR MORE SPEEDAS0:X0:Y` @S  ` `i Lh` `&H'H  `  `  `h'h&L2`  ` `i0 L ` `&H'H ` ` `h'h&L}`&H8' 'h&'i '`&P'Bhh`čՠŠϠήčՠԠŠήՠĮϠԍԍōŠҍŠҍԠҍՠ٠ĠԮٍԠ΍̠΍ˠ΍Ԡ΍ŠΠӠ٠BG1BG0:200#410:10208:SHOOT AT BOMBSkX5,169X5,Y11:680:0:X5,169X5,Y11:3J1B:XB(J)2.5XB(J)2.5IJ:JB:EX1EX1EX0:12503:K13:K:13B(I),Y1:650:0:K23:K:13B(I),Y1:6508I1B:B(I)X1:X1X15:7BI1B:13B(I),Y1:^LZ(16384):Z160Ĺ16368,0:1190eV0~`I1B:13B(I),Y1:j11X,179:L168170:X3,LX6,L::410:Y1Y110tI1B:Y1179İ1360:BIBG1:Y19:410~EG1EG0:BG0:880B((1)31).S((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):X1(R20)2:X1MIX1(MA)107(4)"WRITE HIGH.SCORE":HS:PL$:(4)"CLOSE"5970g12:"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)" ";::23::BOMB SEQUENCEXX13XX14XX15880fAp3:I15:I:650:11X,179:fz0:I15:I:650:11X,179::1zI11000:::SCHS96012::"NEW HIGH SCORE :"SC:HSSC::"PLEASE ENTER YOUR NAME :";PL$:PL$""930,(4)"OPEN HIGH.SCORE":80,790,800,810,820::'C233,188:8 C240,188:IC247,188:Z C254,188:k*C261,188:|4C268,188:>11MI,179HI91795:12MI,I:16336,(16336):RXMI:880\XX1XX11XX12XX13XX14XX15XX11XX12PBp "1~FL)*5{oMR B,)*;-iu\~ (! "@B )4~`OUgmdja"}{~O$k*+/PP !`@!@J@? `H B TR$~%" FU7w~?( !H@@! @`?B$* xpi|")AJv?kU @Q~?+Ww{ @ @ D$0 (UBI$d|>|~[oxj~xA!}uN?nn !D~` D$At@KA B J`}{}x_yG0|G\[_o12:"ERROR "E" IN LINE "EL"."KF:"PRESS ANY KEY TO CONTINUE.":Z$::40 GRAL OF ";F$::"FROM X="L$" TO X="R$" IS"::5)SE^20:"PRESS 'S' TO REUSE THE SAME FUNCTION."::"PRESS 'E' TO EXIT OR 'R' TO RERUN.";EhA$:A$"E"ĀErA$"S"ĺ:110E|A$"R"360EE3288:E(222):EL(218)256(219):216,0F:P UNTIL KEY PRESS% 16368,0::: :RE FILE? ":NA$/ d(4);"BLOAD";NA$;",A$4000"f n::22:"** COPYRIGHT 1985 BY MICROSPARC, INC **"u x3: WHITE~ 0,0 62454:I11000:: CLEAR SCREEN TO WHITE AND PAUSE 24576: CALL IRIS ($6000) (16384)128āI11000::110: LOO' **********************; * IRIS DEMO *X * BY IVER P. COOPER *u( * COPYRIGHT (C) 1985 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************P(4);"BLOAD IRIS" Z:"NAME OF HI-RES PICTU(A$)2:"NOT FOUND...SORRY!"U 255:24:"PRESS A KEY TO RE-START";:K$:FLAG0:190(Y140a J(A$,A,1)(A$(X),Y,1)ĢX:Y::(A$,A,1);::AA1:A(A$)ĺ(7):X22:Y40:::380h TYz ^X:1:A$(X); hX rX122:X::(A$(X),1):X::FLAG1 |X10242039 (X)90ĹX,160 (X)90ĹX,(X)128 X FLAGĢ23:E"; :22:"** COPYRIGHT 1985 BY MICROSPARC, INC. **":1G V122[ A$(V)(N$,V,1)g X240{ R(26(1))65 A$(V)A$(V)(R) X V:A$(V); V 23:1:"WHAT NAME? ";A$:23:1:868::A$: "A1 ,X122 6A1 @W **********************; * NEEDLE *X * BY PAUL RAYMER *u( * COPYRIGHT (C) 1985 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************::A$(22) N$"NIBBLETHEAPPLEMAGAZIN    B3B(I)B(I1):B2:RPXB(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::3:1nB(I)20(B(I)20)0::1FL1:710:FL01SCSC150:SC$(SC)Q (SC$)6SC$"0"SC$:1290Z760IBB1Y19:0:11X,179:L168170:X3,LX6,L:::200(IBBB1:2I1B2B(I)B(I1):B1:<I1B3B(I)B(I1):B(I1)B(I2):B2:FI2ER PROGRAMMERS?": BADJECTIVES ===! A$" FASTER":C A$" NICER AND MORE POLITE":V A$" KINDER":i A$" NEATER":| A$" SEXIER": === NOUNS === A$" PROFESSIONAL ATHLETES.": A$" LOVERS!": A$" PARENTS.": &A$" FARMERS!": 0A$" COMPUTSOME SKINNY":) rA$"EXTREMELY SHORT":K |A$"ALMOST ALL OF THE TALL":^ === NOUNS ===| A$" PEOPLE FROM ITALY": A$" FOLKS FROM SASKATCHEWAN": A$" NATIVES OF GERMANY": A$" SPANIARDS": A$" PLAIN OLD AMERICANS":  === 560 B$B$A$:A$B$ D394 (A$)Dĺ:A$:C X1(A$)T L$(A$,X,1)s (A$,D,1)" "DD1:270z X "W$(A$,D) ,N$(A$,(A$)D) 6:W$ @A$N$:230 J=== ADJECTIVES === TA$"MOST BIG": ^A$"VERY FAT": hA$"WS THAT " dR1(5(1))18 nR1340,350,360,370,380E xB$B$A$X R2(5(1))1t R2400,410,420,430,440 B$B$A$ B$B$" MAKE MUCH" R3(5(1))1 R3460,470,480,490,500 B$B$A$ R4(5(1))1 R4520,530,540,550, **********************; * CHOPPER *X * BY PAUL RAYMER *u( * COPYRIGHT (C) 1985 *2 * BY MICROSPARC, INC *< * CONCORD, MA. 01742 *F **********************P:: ZB$"DON'T YOU AGREE THAT EVERYONE KNO Z Zɍ@=O?ЅC<>B,,, ,,v`ĠҮİ, ,L, ,`,L, ,`,L, ,`, ,`, g,`, R,`7MANUAL."N$::: ERROR ROUTINEE"ER(222):EL(218)(219)256:216,0,ER6ĺ(4)"OPEN HIGH.SCORE":(4)"WRITE HIGH.SCORE":0::(4)"CLOSE":6ER255ĉ:980@::12:"ERROR #"ER" HAS OCCURRED IN LINE "ELJ:"PLEASE REFER TO YOUR APPLESOFT 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 FIRE."::"PRESS ANY KEY TO BEGIN":Y.":" THREE COLUMNS IN"28)"10 PTS.":" FOUR COLUMNS TO CENTER"29)"5 PTS.":"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 OF THE PLAYING AREA, IT WILL REDUCE THEA 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:":O" OUTSIDE COLUMNS"27)"100 PTS.":" ONE COLUMN IN"28)"50 PTS.":" TWO COLUMNS IN"28)"25 PTSHS0ĺ:"PRESENT HIGH SCORE IS "HS" BY "PL$H(4)"BLOAD PHOBIA.S"[232,0:233,9622:"DO YOU NEED INSTRUCTIONS ?";YN$:(YN$,1)"N"ı:14::"CLAUSTROPHOBIA"::R"THE OBJECT OF THE GAME IS TO SHOOT THE DESCENDING ALIENS IN SUCH B(I)B(I)1:1390%xX1B(I):420:(4)"VERIFY HIGH.SCORE":(4)"OPEN HIGH.SCORE":(4)"READ HIGH.SCORE":HS,PL$:(4)"CLOSE":12:13::"CLAUSTROPHOBIA"::12:"BY: RUDY A. GUY"::"** COPYRIGHT 1985 BY MICROSPARC, INC. **":.T WILL EVALUATE TO 0-159 OVER THE RANGE X = 0 TO 279.":k "EXAMPLE: F(X) = (1 + SIN(X / 25)) * 79": "F(X) = ";F$:F$""ė: (F$ 2::3 <X0279 FF$Y PY0Y159Ĺ16336,(16336):100 ZX,159Y d n22:""&*.26:>#'+/37;?#'+/37;?((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPIif8Ъх Ѧ8e҅ԥՆ U(IӰ׆ ҦeЅԥeL+ r8 Í` r Í` =` $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/3Q$00H0OL100 8Յ`Յ0$O8Յ)e`$0000PL1 0 8Յ`Յ0$P8Յ)e`Ӆ'Gԅ&`Ӆ'Gԅ&`H8HӰ hIiHӅхhЅhᨹGԅ&Ӆ'8 #i Hi8i0)e$0`Te0Յ08Յ` ХJUQ&0=Q&&T$$0p`F0 U0`F0 U0`L  L `  L`  QP0HH,  hh`@Xɑ d`ɒ `ɓ =`ɽ `ɠ `ɶ V`ɷ d`hhL R   ф LJ`  W^SP 䪽ЍUTБȽЍUЍT)`"DD"L3f"D*U*UfL3n];w"D3fLU*U*];wn3fL;wn]wn];   (Mv616M - #d- 6v- $ v6%, (- ?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-`&5>JVamyt)- $$;?26.(( --$$--d- ?'- g!?I$8?' 5&- ?'$--)- ?$ !d |@IPPRmW$DZ_n`OA8!% (UB "a_i%{do B@!$!0p@a)@|oIu~{H%5Y_[gW}D$(@@@!@``0$RR~@Wf\_}V}wOVc-mkP*!H@@! `x@0)%`_MU*(2/JIau_n_w @Bp`Tx`o8LIB*inWUD`R|f:]<=?"DCU !$T* Qn{s~?`=}fxg1|=~w_;}@B$$ D `B*>@]y?"%Hx&a}{w`>G|H_~NY KEY...>";:Z$ x::20P ::3288:E(222):EL(218)256(219):216,0l :"ERROR IN FUNCTION!" :"PRESS ANY KEY TO TRY AGAIN.";:Z$::201L`!67  L<ɍɠLiL)5: 9(64435)6ĺ:"MEMORY SIZE IS AT LEAST 64K":210[ :"MEMORY SIZE IS ";((978)35)4;"K" 19:1:"PADDLES SET (0)= (1)= " 19:17:(0):19:27:(1) :8::"PRESS SPACE BAR TO END": (16384)160260 16336,0:210 25(104)256)Q 768,(129):769,(130):V1(768):V2(769):VT(V1127)(V2127) :"MOST RECENTLY USED VARIABLE IS ("(V1)(V2)C$(VT)")" :"SPEED = ";256(241) :"DISK VOLUME ";(46017);" BOOTED IN SLOT ";(43626);"/DRIVE ";(43624);0 **";/ dC$(0)"":C$(1)"$":C$(2)"%":PR1:200` n2:10::" STATUS ";::" BY PAUL RAYMER": x:"THIS PROGRAM STARTS AT ";(103)(104)256 :"THIS PROGRAM ENDS AT ";(175)(176)256 :"THE PROGRAM LENGTH IS ";((175)(176)256)((103) **********************9* STATUS SEEKER *U* BY PAUL RAYMER *q(* COPYRIGHT (C) 1985 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************P:: Z23:"** COPYRIGHT 1985 BY MICROSPARC, INC      PPP @p`<@x PP@P@@:540 vPTPT21Y:870* Y1:X:" "A NLNL1:NLLL510[ LELE1:NL0:DEDEDDj LE10390s 510} (7) 20:X:" " PTPTPS:TSTS1 870:TSNS650 6:16:"GAME OVER" I12000: :4:"DO YOU WISH TO PLAY A17:7) 8:16:10)0 Y3:X((1)35)3F L((1)(Z$))1W V$(Z$,L,1)h Y1:X:" "v &Y:X:V$ 0I1DE: :YY1:Y21690 DKE(16384):KE128540 NKEKE128 XKE(V$)630 bI13:S(16336): lPTPTPW:870::39)" |I119:40:" ";:/ :20:1C J140:"-";:\ *******************p * MAIN PROGRAM ******************* 6:17:"LEVEL "LE LE1480 BN(5TS)5::16 "BONUS: "BN:PTPTBN 870:TS0:I12000: 6:Z$ ********************3 * MAIN VARIABLESM ********************^ "LL15:DE100r ,PW3:PS10:NS5 6Z$"ABCDEFGHIJKLMNOPQRSTUVWXYZ" @DDDE5 JPT0:NL0:LE1 T******************** ^* SET SCREEN h******************** r :Z$"PROUDLY PRESENTS..."' 820M Z$"CHICKEN LITTLE'S TYPING GAME"\ I1(Z$)g J59x J1:I:" " J:I:(Z$,I,1) DE110: : 22 "** COPYRIGHT 1985 BY MICROSPARC, INC. **":10:"PRESS ANY KEY TO START";  **********************9* TYPING GAME *U* BY GREG VAN HOLLAND*q(* COPYRIGHT (C) 1985 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************Z OPENING DEMOdn:xZ$"NIBBLE"82023:"Your choice, please? ";Q$:Q(Q$):Q8ė:(21):I Q1Q7240l Q270,270,270,730,750,770,850 D6:E6:C0:A1 ::DF1:16302,0:Q300,380,540:160 "COLOR BARS ,SC(231):1:X052635:X35:YXX324:Y,0Y,191:::2" 7. BLOAD Demonstration":" 8. Quit"h :"Current resolution mode is ";:(231)127ĺ"Medium.":220u "High." :" Some of these patterns take a minute or two to develop. Have fun watching!" "Press any key to return to this menu.":8 7150  16368,0:G ::" Double Hires Demonstrations"` :" Your choices:" " 1. Color bars":" 2. Double Cross":" 3. Perspectives":" 4. Set Medium Resolution mode":" 5. Set High Resolution mode"& " 6. BSAVE Demonstration":E //E";:"WITH AN EXTENDED 80-COLUMN CARD OR":"AN APPLE //C."{ P::"DO YOU HAVE ONE OF THE ABOVE?(Y/N)";:K$:K$"N"Ā Z:(4)"PR#3" d(4)"BLOAD AMPERDHR.SETUP":790 n:16298,0: x0:16385:160: SET HI-RES MODE K(16384):K122  **********************; * AMPERDHR DEMO *X * BY STEVE MEUSE *u( * COPYRIGHT (C) 1983 *2 * BY STEVE MEUSE *< **********************> F:8:10:"AMPERDHR DEMONSTRATION":::"THIS DEMONSTRATION REQUIRES AN APPL        紅D贅E B ƴ  / 0 d@ L  ``L` ``)`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF ܫ / uƴk0bȴ) vvCwɴɠ7(  "D@` FHTJ`aI$ PI$ D~@c3v7>}wGq?D_.s;]=g$ DB`D$*PM  *P JID|_|3w_w}@_{6fqa`0d{g{ou{@A!B(@@ !`FHZ}@?W~Vww_ogh_w>/r57o[!A `@C)  I@ !IDDb8p8 Y\x{U}cG0>}_7i6[0: 4GAIN ";16368,00Z$:Z$"N"2908 :Q*******************d * SUBROUTINES}********************4I1(Z$)>J15HS(16336):R(Z$,I,1);\::fPT0PT0p22:16z"POINTS="PT;1)16368,(4)"BLOAD PIC":LOAD MAIN MEMORY0K$::160 :12:"Have you already created the files PIC":"and PIC.1X on this disk? (Y/N)";:K$::K$"Y"K$"y"880\K$"N"K$"n"160f850p:16302,0z(4)"BLOAD PIC.1X": LOAD AUX MEM IMAGE INTO MAIN MEM: TRANSFER IT TO AUX MEMORY!16302,0@(4)"BSAVE PIC,A$2000,L$2000": SAVE MAIN MEM IMAGEf : TRANSFER AUX MEM TO MAIN MEM*(4)"BSAVE PIC.1X,A$2000,L$2000": SAVE AUX MEM IMAGE4(4)"BLOAD PIC": IF YOU WANT TO RESTORE THE PICTURE>K$::160HBLOAD.DEMOjRX280:MY96610-SET MEDIUM RES MODE:1:160QSET HIGH RES MODE^0:160o BSAVE DEMODF0ė:12:" Use options 1-3 to draw a picture":"before trying to BSAVE.":"Press any key to return to menu.":K$::160 16304,0:I105NCX280:CY96X6200bI19000:ITlDA360(1)1:(1)15::15ivA030P2DAD1RX280140API(A):RY9650API(A)0G1A22:MXG,MYGRXG,RYG::1515MX,MYRX,RY:MXRX:MYRY:130 M95X,0:Y,95X,189:380,130:450;(7):450HC1490`C1:15:SP70:520xC0:0:SP140:520DDA:EEA:D189D189E558460PERSPECTIVESMX280:MY96&150P223.1415926535:D1P2360DPT24:X,15:"ORANGE";:X,35:"YELLOW";:X,55:"PINK";:X,74:"WHITE";U^16301,0ch130:360urDOUBLE CROSS|Y559130:470:500X0559E:YYE:Y0Y0Y,95X,0:Y,95X,189:FE1:X5590F:YYE:Y559Y559Y,31,SCb 6X1403:21:X,0:"BLACK";:X,20:"DARK GREEN";:X,40:"DARK BLUE";:X,60:"MEDIUM BLUE"; @22:X,5:"MAGENTA";:X,25:"GREY1";:X,45:"VIOLET";:X,65:"LIGHT BLUE"; J23:X,10:"BROWN";:X,30:"LIGHT GREEN";:X,50:"GREY2";:X,70:"AQUA";GTYPES. THEN OPTIONALLYENTER A LETTER TO SPECIFY THE STARTING LETTER OF THE FILENAMES YOU WISH TO"p 2"LIST."v < F"EXAMPLES:" P Z" CATALOG" d" CATALOGA" n" CATALOG C" x" CATALOGAC"C 4/12/085 INSTRUCTIONS BY SAMUEL STODDARD; "'BRUN CATALOG PLUS' TO LOAD NEW FUNCTIONALITY INTO THE CATALOG COMMAND."c ("THEREAFTER, TYPE 'CATALOG', FOLLOWED BY A FILE TYPE (A, B, T, ETC) OR A SPACE TO LIST ALL FILE  YNTAX, EXCEPT THE X RANGE IS 0-559 INSTEAD OF 0-279."n :"&LOAD - TRANSFER PAGE 1 TO PAGE 1X" :"&SAVE - TRANSFER PAGE 1X TO PAGE 1" :"YOU CAN ALSO USE THESE NORMAL APPLESOFT COMMANDS:" :"TEXT - DISPLAY THE TEXT SCREEN". DOUBLE MEDIUM MODE"b n:"&CLEAR - CLEARS THE SCREEN TO THE MOST RECENT HCOLOR." x:"";:A$:998:" "B "&HPLOT - PLOT A POINT OR LINE(S) ON THE SCREEN. USE APPLESOFT HPLOT S <"COMMANDS:" F P"&HGR - DISPLAYS THE DOUBLE HI-RES SCREEN IN MIXED TEXT/GRAPHICS MODE AND SETS THE COLOR TO BLACK." Z"&HCOLOR= - SETS THE COLOR (0 TO 15)" d:"&COLOR=0 - SETS DOUBLE HI-RES MODE &COLOR=1 - SETS 4/18/085 INSTRUCTIONS BY SAMUEL STODDARD; "AMPERDHR LETS YOU USE DOUBLE HI-RES GRAPHICS WITH APPLESOFT-LIKE COMMANDS."("TO INITIALIZE, BLOAD AMPERDHR.SETUP AND CALL 790. NOW YOU ARE READY TO START PLOTTING."2 97,12097,95142,50125,3:155,159132,120132,95177,50155,3:2((FL)27)99,100:FLFL:I125,159122,14087,90122,40125,3:155,159157,140192,90157,40155,3:140,110125,90140,70155,90140,110:1((FL)27)124,35:FLFL:YJ125,15987,^CTR%37LAP3Ē0:12165,12:3:13165,123HhHr125,159122,110102,70125,3:155,159157,110137,70155,3:1((FL)25)125,120:FLFL:H|125,159165,100165,60125,3:155,159200,100200,60155,3:2((FL)27)167,70:FLFL:]I125,159I125,50I:0G6990,57:1090,66:1190,75:EG@*** LEVEL 2 ***GJ0:CTR%2105,155:CTR%370,380,390,400,410:CTR%15LAPLAP1:22:39:LAP;:CTR%0:LAP4ġ:780GT3:CTR%3105,155:(CTR%1)370,380,390,400,410:CTR%37LAP2Ĕ12165,12-H59180,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,61125,61:I03:100,50FLFL:{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:?F125,159150,110150,100175,60125,3:155,1D125,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)103,110((0)30):;:CTR%0:LAP10ġ:780kC3: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:KEY%160DIR%2%BxKEY%149DIR%3=BDIR%140,150,160:bBXX3(SP%3)(SP%4):X85X85hBBXX3(SP%3)(SP%4):X205X205BB*** LEVEL 3 ***C0:CTR%2110,155:CTR%230,240,250,260,280,290:CTR%16LAPLAP1:22:39:LAP(PK%PD%)127SP%SP%1:SP%5SP%1VA2(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%1AdKEY%136DIR%1Bn *@**********************9@* NIBBLE 500 *U@* BY MIKE ROHRER *q@* COPYRIGHT (C) 1985 *@* BY MICROSPARC, INC *@* CONCORD, MA 01742 *@**********************@ ::2140@950:590@*** PADDLE MOVES ***&A(                   !!! ! ! ! ",AY%(30)148975:EARTHAX%(30)201,AY%(30)1489eSOUNDāD12522510:768,D:769,8:770:AX%(30)1:AY%(30)1:A129:AX%(A)17204:BLKAX%(A)20,AY%(A)14895:EARTHAX%(A)201,AY%(A)1489:E%(AX%(A),AY%(A))0AX%(A)AY ANTS-:A1NANT9D4:BLKAX%(A)20,AY%(A)1489^N5:ANTAX%(A)201,AY%(A)1489oXA:TCLANT:b**** RESULT OF BUTTON PRESS ****lX(XM19)vREPAIR840 -CHECK FOR KILLING LEADER-XAX%(30)7404:BLKAX%(30)201)6)) SOUNDĹ768,170:769,A51:770F E%(AX%(A),AY%(A))0530S F1460r FF1:Y501:X1301 E%(X,Y)0ĂX,Y:"ERROR IN 570": AX%(A)X:AY%(A)Y ANANTAX%(A)1:AY%(A)1:550 E%(AX%(A),AY%(A))A &A0 -DISPL BLOCK- rNANTNBLK:A1, |Y05:X013@ E%(X,Y)0420r E%(X,Y)A:AX%(A)X:AY%(A)Y:AA1:ANANT560 SOUNDĹ768,170:769,A51:770 X,Y 560  -TRY TO RANDOMLY CHOOSE BLOCKS- A129:F0 AX%(A)((1)14):AY%(A)(((A)20,AY%(A)14893 SOUNDĹ768,20:769,35:770N "AX%(A)1:AY%(A)1:Am ,1160: -CHECK FOR LOSING- 6 -INIT ANT POSITIONS- @LEVLEV1:NANTLEV:NANT29NANT29 JNANT12NANT12 T23:9:LEV ^NANTNBLK440 h -ONE ANT FOR EACH+ (ACT)Ē1:MAN(ODIR,OMOVE)OX,YM:100M ACTACTINC:(ACT)İ610:160p SOUNDĹ768,ACT7:769,50:770y 160 **** TIME UP **** ACT0:REPAIRREPAIR0:310 A129:AX%(A)1290 E%(AX%(A),AY%(A))1:NBLKNBLK1 4:BLKAX%3:MAN(DIR,MOVE)XM,YMB nODIRDIR:OMOVEMOVE:OXXM:MOVE(MOVE)T xMD2330,2380l XMXM(DIRTWO)SPD{ XM0XM0 XM260XM260 TCTCINC:(TC)İ230:16368,0 TCLANTTWOİ910: -LEADER APPEARS?- LDRLDRLDRINC:(LDR)İ1100[  **********************9* ANTS *U* BY COLIN FRENCH *q(* COPYRIGHT (C) 1985 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************P1550: -INITIALIZATION-Z**** MAIN LOOP **** d "POKE -16302,0 - DISPLAY FULL SCREEN MODE";X "POKE -16301,0 - DISPLAY MIXED MODE"^ "RUN/LIST THE AMPERDHR DEMO PROGRAM FOR EXAMPLES OF HOW TO USE AMPERDHR." AONMODE%40,90cOXYY2SP%: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ĺ" ";OMIN%;":";:SEC%10ĺ"0";OSEC%10137,70155,3:3105,155:iN&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:ND*** MAIN LOOP ***29)146,105:FLFL:3M*** 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:N125,159122,110102,70125,3:155,159157,125,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,100205,60155,3:2((FL)500:CTR%36LAP1Ĕ12165,12NKCTR%36LAP2Ē0:12165,12:3:13165,12TKKRDM((FL)22)119:125,159120,135120,25125,3:155,159160,135160,25155,3:I13:2RDMI5,12020I::FLFL:8L125,15985,10085,90105,50125,3:155,159110087,90107,50125,3:155,159122,100122,90142,50155,3:2((FL)27)88,95:FLFL:nJ*** LEVEL 1 ***J0:CTR%2105,155:CTR%470,480,490,500:CTR%14LAPLAP1:22:39:LAP;:CTR%0:LAP3ġ:780K3:CTR%3105,155:(CTR%1)470,480,490,"":N13:Z$:Z$(13)1420@n(Z$)65(Z$)90NN1:1410dxZ$;:TN$TN$Z$:N1ĺ" ";:30kN~(TN$)01440TN$TN$" ":NM$(TN$,3):D$;"OPEN ANTS.HS":D$;"CLOSE ANTS.HS":D$;"DELETE ANTS.HS" D$;"OPEN ANTS.HS":D$;"WRIT9N0:ANTOX,YM8=( -CHECK FOR NEW HIGH SCORE-O2SCRHS1480x<21:9::"!! A NEW HIGH SCORE !!":FSOUNDāN13:P1505010:768,P:769,7:770:P,NPHSSCR:D11000:DZ:22:8);"ENTER YOUR INITIALS: ";NM$;:29dTN$13:Y05E%(X,Y)0ĂX:(Y::: -LOST GAME-ON13:Y501h5:BLKX20,Y1489SOUNDĹ768,Y1520:769,10:770N312604:BLKX20,Y1489Y,N -DRAW ESCAPING ANTS-4:N501 ANTX201,N148MIT FOR LEADER-8LDR16 BAL**** LEADER DISAPPEARS ****qVE%(AX%(30),AY%(30))1:(NOBLK)BLKNBLK1`4:BLKAX%(30)20,AY%(30)1489jSOUNDĹ768,20:769,35:770tAX%(30)1:AY%(30)1~**** CHECK FOR LOSING **** X0'4:ANTAX%(30)201,AY%(30)1489\SOUNDĹ768,10:769,10:770:768,15:769,15:770 -CHECK IF BLOCK OCCUPIED/EMPTY-AE%(AX%(30),AY%(30))NOBLK0:A1NOBLK1A0AX%(A)1:AY%(A)1$E%(AX%(30),AY%(30))0. -SET TIME LI**** LEADER APPEARS? ****1((1)LEV)81090O -TRY TO PUT BEHIND MAN-zAX%(30)(XM19)(((1)13))(DIR2)AY%(30)((1)6)AX%(30)0AX%(30)0AX%(30)13AX%(30)13 -DISPLAY LEADER-5:BLKAX%(30)20,AY%(30)14898:SCR"*NANTNANT1:NANT0900K4 -ALL ANTS KILLED, ADVANCE A LEVEL-T>310yH -NO ANTS,TRY TO REPAIR GROUND-RY05\E%(X,Y)1ĂY:900f5:EARTHX201,Y1489pSOUNDĹ768,250:769,15:770zE%(X,Y)0:NBLKNBLK11:AY%(A)1:A2REPAIR1:TCLREPAIR:LDR0:900S -CHECK FOR KILLING AN ANT-uY05:AE%(X,Y):A1ĂY:8404:BLKX20,Y14895:EARTHX201,Y1489 SOUNDāD18:SD,(SD):E%(X,Y)0:AX%(A)1:AY%(A)1 SCRSCR5:23:2"ERROR #"(222)" IN LINE "(218)(219)256:KEY187āI112:4205:5 TKEY175āI112:4304:F ^KEY206130X hKEY208İ390x rKEY155300: ESC TO QUIT |: D$"PR#1":(9)"80N":4507:D$"PR#0": D$"CLOSE":(222)5ĺ"NO SUCH FILE":"PRESS ANY KEY TO TRY AGAIN":K$::1300 D$"OPEN"F$ D$"READ"F$# K$: D$"CLOSE"F$:250J D$"OPEN"F$Z D$"READ"F$d 4107u D$"CLOSE"F$ 4139 6,1:7,(215) I124:4205: "6,1:7,(215) ,KEY(16384):16368,0 6KEY149Č4205 @KEY136Č4304 J120 n(4099)74130: xD$"BLOAD TEXT VIEWER.SCROLL"D 4096 :3:14:"TEXT VIEWER":14:"BY CHET PAGE":"* COPYRIGHT 1985 BY MICROSPARC, INC. *":10:"ENTER FILE NAME (? FOR CATALOG)" F$ F$"?"ĺD$"CATALOG":A$::140 400 2 **********************; * TEXT VIEWER *X * BY CHET PAGE *u( * COPYRIGHT (C) 1985 *2 * MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************PD$(4)Z(4096)160120 d(4098)132    (CC%)24Y53FUELFUEL35:I12000::FUEL50FUEL50BQ590[Q*** RACE ENDING ***Q :::10:16::J111:(OVER$,J,1);QI15:SND(BZ%)::::I12000:Q I110:912:Q*1:14::" RACE RESULTS ":Q4TIMETIME.2R>MIN%(P21:8:SP%;KPFUELFUEL0.02SP%:23:7:FUEL10ĺ(10FUEL)10:710pPFUEL1ĺ" ";(10FUEL)10:710PFUEL0ĺ" ";(10FUEL)10:710P570P1OX,OYP1X,YPOXX:OYYP(CC%)38āI14:SND(BZ%)::TIMETIME5:SP%19Q RIGHT":"PRESS BUTTON 0 TO FIRE. ";:Z$:Z$;: f:23:"USE ARROW KEYS TO MOVE LEFT AND RIGHT,":" TO STOP, AND TO FIRE.";:Z$:Z$;: p -DISPLAY INSTRUCTIONS- z::13:"*** ANTS! ***"!:" MUTANT KILLER ANTS ARE GNAWING AT :23:" DO YOU WANT SOUND EFFECTS? ";K Z$:Z$"Y"SOUND1:2110]*Z$"N"2080i4SOUND0>:23:3:"P)ADDLE OR K)EYBOARD? ";:Z$:Z$"P"Z$"K"2110HZ$;:MD1(Z$"K"):MD2140,2150R/ \:23:"USE PADDLE 0 TO MOVE LEFT AND HIGH SCORE: BY ";NM$;:28:HSM" LEVEL: 1 YOUR SCORE: ";SCRU90q**** INTRODUCTION ****:21:"** COPYRIGHT 1985 BY MICROSPARC, INC.**"" WOULD YOU LIKE INSTRUCTIONS? ";Z$:Z$"Y"İ2160:2070 Z$"N"2050-X,Yv -INIT ANT ARRAY->A130:AX%(A)1:AY%(A)1:AP -VARIABLES-zLEV0:DIRST:XM10:YM72:MOVE1:SCR0NBLK84:LANT110:LREPAIR40:TCLREPAIR2 -FLAGS-ACT0:REPAIR1:LDR0 -INIT MAN & SCORE-&:22:"***ANTS!*** ANT6:EARTH7:BLK82 -CREATE BACKGROUND-<2440Q -INTRODUCTION-[&2020}0 --- GAME INITIALIZATION ---: -INIT EARTH ARRAY & DRAW GROUND-DY05:X013N4:BLKX20,Y1489X5:EARTHX201,Y1489bE%(X,Y)0lANTS.HS"(216,0: -RESET ERROR FLAG->NM$""NM$"---"P -CONSTANTS-uBUT16287:PRESSED127:SD16336ZERO0:INC1:TWO2MULT1.033:SPD8LFT1:ST2:RGT3MAN(1,0)1:MAN(1,1)2:MAN(2,0)3MAN(2,1)3:MAN(3,0)4:MAN(3,1)5I,X:rT 173,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,96^ -SET SHAPE TABLE POINTER-h232,0:233,9:1:0r1690|D$;"OPEN ANTS.HS"D$;"READ ANTS.HS"HS:NM$D$;"CLOSE 1840%**** INITIALIZATION ****F -RELOAD PROGRAM ABOVE HGR1"(103)1(104)64(16384)0Ĺ103,1:104,64:16384,0:(4)"RUN ANTS",E%(13,5),AX%(30),AY%(30),MAN(3,1)6D$(4)::@D$;"BLOAD ANTS.SHAPES,A$900"JI770801:X:E ANTS.HS"HS:NM$/D$;"CLOSE ANTS.HS"C -PLAY AGAIN?-y:22:"YOUR SCORE: ";SCR;:20:"HIGH SCORE: ";HS"PRESS P TO PLAY AGAIN, Q TO QUIT ";Z$:" "(8);:Z$"Q"Z$(27)ĉ::Z$"P"15101:BLKOX,YM:BLKOX,YM8"0 $8`hhȱ(ɍΩ(!  ɍЉ `ȱhh`ɍe ` hh`ɍ`Υ ( ( L`JׅK`JJ ɠɍJJKLJJJׅKJ"ɍ !JɠJeJJKL<ׅ ` I" $ !(* Lz(*)+i# $`hhȱ(ɍΩ(!ȱɍe` e#8 $ !(* L(*)+8  55,I279,I::279,0279,159155,1597UBA%550,540,520UL21:1::"SPEED=";::" 1":23:1::"FUEL=";::" 50.0";:12:"GAL";UV22:20::"TIME=";::" 0:00";::33:"LAPS=";::" ";0V`1OX,OY:24:18:"";:MODE%SHIP TRACK"0T5:30:A$::A$"1"A$"3"1000=TA%(A$)RTA%1FL$"BREC"hTA%2FL$"WUREC"}TA%3FL$"CREC"T32,0::NR0A%T%İ1710:1070T$1620T.:3:1:0:X140:Y150:OX140:OY150#U8125,1590,1590,0:I02:0,I125,I:1"Y"20SA$"N"9102S23:33::"BYE";::LS*** 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 - CHAMPIONTIME60):SEC%(TIME(MIN%60))=RH5:10:"YOUR TIME WAS ";PRRMIN%10ĺ" ";nR\MIN%;":";:SEC%10ĺ"0";|RfSEC%;"."Rp7:10:"FUEL REMAINING: ";(FUEL10)10;" GAL."RzI13000:R1860S23:9:"RUN ANOTHER RACE? (Y/N) ";:A$:A$;:A$&n X,Y2X35,Y2'&x X,Y3X35,Y3=& X7,Y4X28,Y4T& X14,Y5X28,Y5k& X14,Y6X21,Y6q& & -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,2,11,2,8,4,1BLKX20,Y1055% X,Y8% 28,4169,41:35,4055,40Z% 140,41209,41:154,40195,40i% -CLOUDS-p% 7%( X60:Y12:2640%2 X100:Y16:2640%< X185:Y18:2640%F 2730%P -CLOUD DRAWING SUBROUTINE-%Z X7,YX21,Y%d X,Y1X35,Y1Z136DIRLFT!$` Z149DIRRGT2$j Z160ACT4D$t Z141DIRSTJ$~ Z$ SKY7:BLK8w$ *** DRAW BACKGROUND ***$ -SKY-$ Y02:X013$ 7:BLKX20,Y1413$ 6:SKYX201,Y1413$ X,Y$ -GRASS-$ 1$ Y02:X013% I# 23:7:"PRESS ANY KEY TO START GAME ";:Z$:Z$:16301,0:16304,0:_# PADDLE ROUTINES# DIRST:(BUT)PRESSEDACT4#$ P((ZERO)MULT):P75DIRLFT#. P180DIRRGT#8 #B KEYBOARD ROUTINES#L Z(16384):Z1282430$V 16368,0:"1":" THE ANTS' LEADER, A DARK FIGURE AMID"^""A HELL-LIKE ORANGE GLARE, MAY BRIEFLY"""APPEAR. DESTROY HER AND THE ANTS WILL"""WANDER OFF FOR A WHILE, GIVING YOU A"""CHANCE TO REPAIR THE HOLES AND PASSAGES"""DUG BY THE ANTS."THE"2!"UNDERSIDE OF THE EARTH'S CRUST, TRYING"`!"TO BREAK THROUGH AND INVADE OUR WORLD."!:" ARMED WITH YOUR TRUSTY ELECTRO-SONIC"!"DISRUPTER, YOU MUST STOP THE ANTS FROM"!"COMPLETING A PASSAGE UP TO THE SURFACE"""OF THE EARTH.VEMENT":3)" = CHANGES SPEED (1 TO 5)";_: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 TOUCH.":32,0`:10)OR MORE>";^xA$:1^1:16::" CONTROLS ":^:"WITH PADDLES:"::3)"DIAL = MOVES RACER LEFT AND RIGHT":3)"BUTTON = CHANGES SPEED (1 TO 5)"/_:"WITH KEYBOARD:"::3)"<- -> = MOVE RACER LEFT AND RIGHT":3)" = STOPS LATERAL MOHEN 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!!!" ^n22:10)" KEY TO END A":"RACE EARLY AND THEN RESTART.":f]Z" AT ALL THREE LEVELS, WAMPIONSHIP TRACK. USE THE PIT"[("STOP TO GET UP TO 35 MORE GALLONS OF":"FUEL. DON'T RUN OUT!!!"::10);"";[2A$::\<" THE BEGINNER'S GAME LASTS FOR THREE":"LAPS THROUGH A SEQUENCE OF FOUR LAYOUTS.";:"THE WARM-UP GAME TAK,";:"TRY TO AVOID THE OBSTACLES OR DRIVING":"INTO THE SIDES OF THE TRACK. DOING":"EITHER SLOWS YOU AND COSTS TIME."[:" A DISPLAY OF FUEL REMAINING WILL":"APPEAR ON THE SCREEN UNDER ALL LEVELS,":"BUT WILL NORMALLY ONLY BE A FACTOR ON":"THE CHBSTACLES. 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.";wZ:" AT WHATEVER LEVEL YOU CHOOSE TO PLAY. **":20:3:"WOULD YOU LIKE INSTRUCTIONS? (Y/N) ";KXA$::A$"N"1560]XA$"Y"1250tX:1:11::NAM$:%Y" PLAYERS ARE OFFERED A CHOICE OF THREE";:"LEVELS OF PLAY. A 'BEGINNER'S TRACK'":"HAS WIDE ROADWAYS, SWEEPING TURNS, AND":"FEW O0:DIR%0:CTR%0:A%0WKB%16384:BZ%16336:PK%16287:CC%234:NAM$" THE NIBBLE 500 ":OVER$" GAME OVER ":NBR%10:MODE%0WLN$"-":I139:LN$LN$"-":WD$"BLOAD RACER.SHAPES"W232,0:233,164X22:"** COPYRIGHT 1985 BY MICROSPARC, INC2Ģ20:A$::24:17:958:;Vj(PK%PD%)127Ė17:958:EVt1130^V~*** INTRO/INSTR ***V8:11::" THE NIBBLE 500 ":V:100:19)"BY"V:15)"MIKE ROHRER":255WX0:Y0:OX0:OY0:TIME0:PK%0:PD%0:KEY%0:KB%0:MIN%0:SEC%0:MODE%$!|w!$ pD !HDa?`nj{|*sp/X_ea}{"&oy@!I@D "Ef2xBH)P$Y @clo}~#|?w^ `00L`HH(H$B `x@!$Bl}y;:~o~?MI.knVA0@ DU@cH$BP Ba`@cdovp{7m?~xoGo;onuRmf?P*!!` B$B|@S@ m}wWU  BCjdo-+uTw$ T @ @DA@ "Rjxxws1RTm?IjHDB?K5]nu}?). BE SURE TO DISCONNECT THE" P"ROUTINE WHEN YOU ARE DONE. IT CAUSES ALL TYPED CONTROL CHARACTERS (EXCEPT U AND M) TO PRINT IN" Z"INVERSE, RATHER THAN PERFORMING THEIR USUAL FUNCTIONS."A NOTHING APPEARS TO HAPPEN WHEN YOU BRUN IT. TO CONNECT THE CHARACTER MODIFIER ROUTINE, PRESS & . THEREAFTER," F"CONTROL CHARACTERS ARE SHOWN IN INVERSE.TO DISCONNECT THE MODIFIER PRESS (OR , DEPENDING ON YOUR COMPUTERHARACTER DETECTIVE AT WORK, NON-PRINTING CHARACTERS CAN'T HIDEOUT IN YOUR DISK CATALOG -- INVERSE MAKES THEM STAND OUT." 2:"";:A$:1:868y <"THE PROGRAM IS BRUN FROM APPLESOFT. THEBRUN ONLY SETS THE AMPERSAND VECTOR SO THE FILE. THIS HAS HAPPENED TO" "ME MORE TIMES THAN I'D LIKE TO REMEMBER,SO I DECIDED TO INVENT A CURE. THE ASSEMBLY LANGUAGE ROUTINE LISTED HERE PRINTS CONTROL CHARACTERS AS THEIR" ("ALPHABETIC EQUIVALENTS, BUT IN INVERSE. WITH CONTROL C 4/19/08 S"CONTROL CHARACTER DETECTIVE"::"BY MICHAEL JAY HEAD":! "HAVE YOU EVER BUTTER-FINGERED A NON-PRINTING CONTROL CHARACTER INTO A DOS 3.3 FILE NAME? TRY AS YOU WILL, YOUCAN'T SEEM TO FIGURE OUT WHAT TO TYPE TOACCESS      14,3,17,3,17,5,17,7.(T 21,3,22,3,20,6,21,6S(^ 26,2,26,4,26,6,26,8,25,9,-1,-1Y(h 1,4,8,6,11,6,8,7,11,79' 14,2,16,2,17,2,16,4,16,6,16,7b' 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,9,7,10,7(J EADER ***cT:+c^T%A%:FLAG, SEE 2090>chD$;"OPEN "FL$QcrD$;"READ "FL$_c|I1NBR%jcOS(I)vcOS$(I)|ccD$;"CLOSE "FL$c32,10:c1:3::NAM$:c3:1:NBR%" TOP SCORES - LEVEL "A%cI1NBR%:I$" "dOS(I)0OS$("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"1570b@MODE%2:BEG$"ANY KEY": cJ*** RECORD RHEN 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!!!"a22:10)"";aA$^b:5:10:"";`A$:=`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."`:LN$:15::" REFUELING "::sa" W@A!B(@@ !`FHZ}@?W~Vww_ogh_w>/r57o[!A `@C)  I@ !IDDb8p8 Y\x{U}cG0>}_7i6[ @I "D` H*9`?a"$)Uso**( H!P+_[u:kz? ((@$ DB @0Dg|ZF$)G'!"Jp~5Z.w.oIDB @B)Px=@+ @P* {_H`hw/w( $  B@?  J_>|@IPPRmW$DZ_nA8!% (UB "a###''%')-:7.,6; )-;,<,<,,%?7',-%??,---.,2 $$?<>?,%<<,< 56%$6 5!5%5%-,<,%?,%5%5!$<''#' :>:>6%5%5?.5 ( ( ( ( ($$$$$$,666666.$$$$$$,666666.$$$$$ hZ V)-%?,%? - 55-5%$$5 ) .---61%$??'<<,< 56%$6 -%'%'%'%%?>'%'-.%'%<>><>?><2$$ %)%<<,< 56%$6 )-<,<,<,-)666-%$$$;?'--<2$$ -,%<<,< -?6%5(<,5% 6 -116--;,<<$!!!!RIFY ";FL$(I)iI3.iD$;"VERIFY ";FL$(I)9i216,0Ei1160:yi3288: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)i$ 2180 j. "BREC","WURSND(BZ%)::13:8)"SORRY,":8)"YOU DIDN'T MAKE THE TOP "NBR%Mh>::LN$]hHI11000:chRoh\D$(4)hf(104)64Ĺ103,1:104,64:16384,0:D$"RUN NIBBLE 500"hp2260hzI13:FL$(I):hI1hD$;"VERIFY ";FL$(I)hI2 iD$;"VELEASE"::1950g:2010@gNS(I)OS(I):NS$(I)OS$(I)::2010dgNS(I)OS(I1):NS$(I)OS$(I1):sgNR02100gD$;"OPEN "FL$gD$;"WRITE "FL$gI1NBR%gNS(I)g NS$(I)gg D$;"CLOSE "FL$g*::LN$:2130@h4:LN$:I110: TOP ";NBR%;" ***" f16368,0f14:5)"PLEASE TYPE YOUR INITIALS AND":5)"TODAY'S DATE (MMDDYY): ";:18:6:"(HIT WHEN FINISHED)"f15:28:"";NS$(I):NS$(I)""1960g(NS$(I))10ĺ(7):15:27:958:17:7::"LIMIT TO 10 LETTERS P)e24:"HIT ANY KEY TO CONTINUE";:A$7e&32,0::=e0Ye:*** RECORD UPDATER ***peDTIME(TIME10)10eNNR0:NEW RECORD FLAGeXI1NBR%ebTIMEOS(I)1990elNR12000evNR1:NS(I)TIMEe:LN$f:"*** YOUR SCORE IS ONE OF THEI)"---------":9 -'S'dI10I$" "ZdMIN(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)d4I:I$(I)". "MIN$(I)":"SEC$(I)" "OS$(I)eA  "&$!U*!$ DA`0)9Ww{w|yoW;IR]=~"D`0"R*`$*UB$"||`]}`no^Lm}8gzI4{?P A$ DB0`p1U\3@/q?LIBJ2~?-Z@$.8w;zWn+I $  ppB sx_.L)jvW&&%x>):]{~ !$"@``  R*|>@/b0D$(P$Y$&DpA)_ @@H$"0`@! (Eo|~"!*J|_VBB$ x}{?[nV{$!|w!$ pD !HDa?`nj{|*sp/X_ea}{"&oy@!I@D "Ef2xBH)P$Y @clo}~#|?w^8:E(222):EL(218)256(219):216,0KB:12:"ERROR "E" IN LINE "EL"."xB:"PRESS ANY KEY TO CONTINUE.":Z$:100 PGHT 1985 BY MICROSPARC, INC. *"::2109An"F(X,Y)=";F$?AxHAF$aA"X=";X$:X$:X$XzA"Y=";Y$:Y$:Y$YAF$VA"VALUE="VA:"N)EW FUNCTION, O)LD, Q)UIT ->";:A$:A$"N"ĺ"NEW":100AA$"Q"ė:A"OLD"::140&B328z@ **********************9@* DEF VAL DEMO *U@* BY GARY BREDON *q@(* COPYRIGHT (C) 1985 *@2* BY MICROSPARC, INC *@<* CONCORD, MA 01742 *@F**********************@P(4)"BRUN DEF AND VAL"@ZPI(1)4'Ad:"* COPYRI"""̍ō؍ˍ΍ύԍЍЍ΍эύ͍ӍӍЍˍ֍ԠԠŮƍ؍Íˍ͍ʍנӠύ̠ȠŠŠŠŠԠŮŠϠ̠ΠƠōĠϠ̠РƠŮŠЧ٠̠РŠԠ΍٠ϠŠҮŠΧ٠̠ΠՠϠōŠԬϠՠΠ٠ӠӠԠŠҠԠҮԠҠӠՠ̠ȠōӠƠԠӮϠŠӠȠƠ͠Ԡύ̠РŠŠȠΠԍΠŠĠȠȠŠԍҠͮŠŠԠĠԠ" " " " " "    EC","CREC"