L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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 iõ`  \ 濭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- ( t Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`3000I13000:(I13000:434,0:?4450RDE$(LO):A$""oLO11LO13LO16GB10LO6LO10GB30LO12GB25LO52090J0:I1PL:SO(I,1)LO2070J0J1::"YOU SEE....":A$O$(I):2070 (A$)SCSCSO(I,2)]Itb:"OUT OF A POSSIBLE ";TS;" POINTS, YOU HAVE ";SC;" STORED IN THE CORRECT LOCATION."gLO21900jI11000::lSC60ĺCD$(33)vSC30ĺCD$(34)SC90ĺCD$(35)SC90ĺCD$(36)SC30SC0ĺCD$(37))DI0:6DC$(OE$,((OC$)2),((OE$)((OC$)1)))X!SL1DR:DC$DI$(SL)DISL:`&SLk0DI0:q:DH0:I1PL:SO(I,1)1HHSO(I,2)NI:"OUT OF A MAXIMUM OF ";TS;" POINTS, YOU ARE CARRYING ";H;" POINTS"XSC0:I1PL:SO(I,1)2:(OE$)0ıI1(OE$)G(OE$,I,1)" "OC$(OE$,(I1)):1760NI_OC$OE$:DI1mOO(OC$)SL1MT:YY$(VE$(SL),OO):YY$OC$VESL:1800SLDI11810 (VE$(SL))1(OE$)DI0:1820(VE$(SL))(OE$MAND? ";OE$*OE$"GO N"OE$"GO NORTH"HOE$"GO E"OE$"GO EAST"gOE$"GO S"OE$"GO SOUTH"OE$"GO W"OE$"GO WEST"OE$"GO U"OE$"GO UP"OE$"GO D"OE$"GO DOWN"LO1OE$"BLAST OFF"3000 VE$(0)"":DI$(0)"":VE0:DI0)U(7):Z U(8)U(8)U:M(Z)M(Z)(U400):M(Z)0ĺM$(20):M(Z)M(Z)(U400):U(8)U(8)U:x H%(37)U(8):H%(39)U(8):L(1)L0L.1ĺZ$(1):M(Z)M(Z)100:L.1L.2ĺZ$(2):M(Z)M(Z)100: L.2L.3ĺZ$(3):M(Z)M(Z)20: L.5):H%(24)U(5):b U(6)U(6)U:M(Z)M(Z)(U450):M(Z)0ĺM$(20):M(Z)M(Z)(U450):U(6)U(6)U: H%(26)U(6):H%(27)U(6):H%(29)U(6): U(7)U(7)U:M(Z)M(Z)(U600):M(Z)0ĺM$(20):M(Z)M(Z)(U600):U(7)U(7)U: H%(31)U(7):H%(32)U(7):H%(34%(13)U(3):H%(14)U(3):j U(4)U(4)U:M(Z)M(Z)(U300):M(Z)0ĺM$(20):M(Z)M(Z)(U300):U(4)U(4)U: H%(16)U(4):H%(18)U(4):H%(19)U(4): U(5)U(5)U:M(Z)M(Z)(U450):M(Z)0ĺM$(20):M(Z)M(Z)(U450):U(5)U(5)U: H%(21)U(5):H%(23)U((1)U:# H%(1)U(1):H%(3)U(1):u U(2)U(2)U:M(Z)M(Z)(U150):M(Z)0ĺM$(20):M(Z)M(Z)(U150):U(2)U(2)U: H%(6)U(2):H%(8)U(2):H%(9)U(2): U(3)U(3)U:M(Z)M(Z)(U150):M(Z)0ĺM$(20):M(Z)M(Z)(U150):U(3)U(3)U: H%(11)U(3):H"HOW MANY HOUSES AT $200 DO YOU WANT ON":G$(31);" ";G$(32);" ";G$(34);:U:3262 L%(37)ZL%(39)Zĺ"HOW MANY HOUSES AT $200 DO YOU WANT ON":G$(37);" ";G$(39);:U:3264  U(1)U(1)U:M(Z)M(Z)(U100):M(Z)0ĺM$(20):M(Z)M(Z)(U100):U(1)UL%(21)ZL%(23)ZL%(24)Zĺ"HOW MANY HOUSES AT $150 DO YOU WANT ON":G$(21);" ";G$(23);" ";G$(24);:U:3258 L%(26)ZL%(27)ZL%(29)Zĺ"HOW MANY HOUSES AT $150 DO YOU WANT ON":G$(26);" ";G$(27);" ";G$(29);:U:3260Q L%(31)ZL%(32)ZL%(34)Z1449}940,4:941,138:942,240:943,1:944,202:945,198^}946,7:947,208:948,232:949,96d}R96p}R1:911,48:912,192:913,165:914,2:915,133a}916,7:917,164:918,0:919,136:920,208:921,253}922,141:923,48:924,192:925,164:926,0:927,136}928,208:929,253:930,24:931,165:932,0:933,240}934,6:935,101:936,6:937,133:938,6:939,2389}883,119:884,3:885,173:886,10:887,224:888,76m}889,130:890,3:891,74:892,74:893,74:894,74}895,74:896,74:897,74:898,24:899,105:900,1}901,133:902,0:903,32:904,142:905,3:906,138}907,208:908,224:909,96+}910,143:854,5<P}855,32:856,48:857,3:858,230:859,0:860,198aZ}861,5:862,208:863,247:864,96d}865,166:866,1:867,169:868,224:869,141:870,119n}871,3:872,169:873,0:874,141:875,118:876,3x}877,238:878,118:879,3:880,208:881,3:882,5}825,216:826,165:827,3:828,133:829,0:830,56j(}831,229:832,4:833,144:834,14:835,105:836,02}837,133:838,5:839,32:840,48:841,3:842,198<}843,0:844,198:845,5:846,208:847,247:848,96F}849,73:850,255:851,105:852,2:853,13 YOU'RE IN THE PASSENGER COMPARTMENT OF YOUR SHIP. THERE'S A SIGN HERE THAT SAYS *** LEAVE ALL VALUABLES HERE ***,YOU'RE ON A LEDGE OUTSIDE THE CASTLE, YOU'RE IN A HALL. NO HIDING PLACES HERE,YOU'RE IN A STORAGE ROOM. MANY INTEREST-ING ITEMS ATH,EAST,SOUTH,WEST,UP,DOWN,PHASER,CHARGER,DISKETTE,KEYS,RUBIES,PRINCESS,DOOR,SIGN,NOTE,COMPUTER,SHELVES,ALIEN,WALL,DEAD ALIEN* YOU'RE IN THE COCKPIT OF YOUR SHIP. YOU ARE HOVERING NEAR A LEDGE ABOUT HALFWAY UP THE SIDE OF ONE OF THE CASTLE TOWERS+ SS RETURN TO START A NEW GAME":3330L)\ EE6ĺ"NO FILE NAMED ";NA$:3330)^ 15:"THERE IS NO FILE SAVED UNDER THE NAME ";NA$)a 2760)f 70) GO,GET,INVENTORY,SCORE,LEAVE,HELP,SAVE,MOVE,QUIT,UNLOCK,SHOOT,LOOK,READ,CHARGE,BOOT,PUSH}* NORAD"NA$(* I0PL:K02+(4 SO(I,K):K,I[(> TB:ST:CM:PM:PH:CN:GB:GD:IN:LO:CH(@ SS(4,3):NO:BO:SS(3,1):SS(12,3):DL:AL(H (4)"CLOSE"NA$(M 2000&)R 216,0:(4);"CLOSE"NA$:EE(222):EE2EE3EE11ĺ"BAD NAME: TRY ANOTHER (OR PRE' I12000:' 4300`' :"DO YOU WANT TO USE A PREVIOUSLY SAVED GAME (Y/N)? ":S$:S$o' I1500:' (S$,1)"N"ī70' (S$,1)"Y"3300' :"WHAT NAME DO YOU WANT TO LOAD? ";NA$:3410' NA$""70' (4);"OPEN"NA$( (4);"RE"YOUR PREVIOUS SCORE ON THIS GAME WAS ";SA:c& SA125ĺ:"THAT WAS A PERFECT SCORE":I13000:o& FG0ıy&X SATX&b (4);"OPEN";NN$;",L2"&g (4);"DELETE";NN$&l (4);"OPEN";NN$;",L2"&q (4);"WRITE";NN$;",R1"&v SA' (4);"CLOSE";NN$INCESS IS BEING HELD."9%@ :::14:" GOOD LUCK!! ":C%B 2760_% "YOUR SCORE WAS ";SC:j% 3160y% I1500:% TXSC% SC0% FG1% D$(4)% (4);"OPEN";NN$;",L2"% (4);"READ";NN$;",R1"% SA% (4);"CLOSE";NN$% -& $= 12:"ANY VALUABLES STORED IN THE PROPER PLACEWILL COUNT IN YOUR TOTAL ACCUMULATED SCORE."j$> 2760%? 11:"YOU HAVE SUCCESSFULLY MANEUVERED YOUR PATROL JET INTO THE UNDERGROUND REALM AND HAVE APPROACHED THE TOWER OF THE CASTLE WHERE THE PRSAND WERE ACCIDENTLY ENCOUNTERED BY ONE OF OUR MINING EXPEDITIONS)"#9 :"IN THE VAST UNDERGROUND ATMOSPHERE OF MARS THE MODE OF TRANSPORTATION FROM PLACE TO PLACE IS BY JET. THE MARTIANS WILL FURNISH YOU WITH THE LATEST JET MODEL."#; 2760`ESCUE THE PRINCESS OF A FRIENDLY MARTIAN NATION FROM ALIEN INVADERS WHO HOLD HER IMPRISONED IN A CAPTURED CASTLE.""7 2760D#8 "(IN 2018 IT WAS DISCOVERED THAT MARS IS INHABITED BY HUMAN-LIKE BEINGS. THEY LIVE IN FABULOUS UNDERGROUND COMMUNITIEENTORY TO END THE GAME, SAVE A CURRENT GAME, TELL YOUR SCORE OR GET A LIST OF YOUR POSSESSIONS."l! 2760!" :"YOU ARE IN THE FUTURE. THE YEAR IS 2026.x"6 :"YOU'VE BEEN ASSIGNED BY THE U.S. INTER- PLANETARY COUNCIL TO ATTEMPT TO R:6/  "USE N, E, S, W, U OR D AS DIRECTIONS"  :"USE VERBS SUCH AS GET, PUT, CHARGE, READ, LOOK, SHOOT, BOOT AND UNLOCK WITH NOUNS SUCH AS PHASER, CHARGER, SIGN, PRINCESS, ETC."b! ::"ALSO, USE VERBS SUCH AS QUIT, SAVE, SCORE, AND INVESS THE SPACE BAR TO CONTINUE...>"P (16384)1552820: GO TO END ROUTINEi (16384)1602760 936:16368,0: RESETS KEYBOARD   16289,0:16300,0 16368,0::936:16298,0 10:10:"* * * THE END * * *":  SO(SL,0),SO(SL,1),SO(SL,2):)( SU$(CO)?2 I1CO:SU$(I):R< CD40:CD$(CD)hF I1CD:CD$(I):nx  16298,0::936 5:12:"ALIEN ESCAPADE" :12:"BY JACK WILCOX" 12:"LAFAYETTE, CA." 21:"PRESS 'ESC' TO END"" "< PR-----------":80#MT16:VE$(MT)9I1MT:VE$(I):LDR20:DI$(DR)bI1DR:DI$(I):u$ CO16:DE$(CO). I1CO:DE$(I): PL13:O$(PL) I1PL:O$(I): SS(CO,5) SL1CO:SD05:SS(SL,SD):SD,SL SO(PL,2):SL1PL:5(O$(I))ZLĺA$:A$O$(I):20708 A$A$" "O$(I)?IO A$""ĺA$v*:"OBVIOUS DIRECTIONS ARE ";:J04I05:SS(LO,I)02130>J0ĺ",";HDI$(I1);:J1RI\J0ĺ"NOT AVAILABLE"f". ":"-----------------------------7:"YOU HAD -=+* ";FE;" *+=-";" FUEL UNITS LEFT ."{24:34,23:"PRESS THE SPACE BAR TO CONTINUE .";:AN$:AN$" "1430:1410:::255XXHSī1620"DO YOU WANT ANOTHER TRY ? ";:B$(B$,1)"N"Ā(B$,1)"Y"ė:4501DFG4:BB1COA,B)+ CO15İ1540=ACBD1380F970\(CHENFG1:AA1r2CHENFG2:AA1<DBFG3:BB1FDBFG4:BB1PXX1500Nī500ZACBD1380d:n4:3:"YOUR FINAL SCORE WAS -=+* ";XX;" *+=-"3x"M"DD1~Q$"J"CC1.Q$"K"CC1[Q$"I"Q$"J"Q$"K"Q$"M"FEFE4hCLC,D)yCL15İ1490CL12XXXX10:1:1780ACFG1:AA1ACFG2:AA1CRA,B)CR15İ1540FG0BDFG3:BB1 B(A$,1)"Q"2820808:"YOU DON'T HAVE A PREVIOUS SCORE ON THIS DISK. UNLESS YOU HAVE SAVED YOUR SCORE ON A SEPARATE DISK, THIS IS YOUR FIRST TIME.... GOOD LUCK!"8D27608N338b27608l2000A THEN.... COLLAPSES ONTO IT,YOU GOT HIM !!!V7::::"DO YOU WANT TO TRY AGAIN? "7:"YOUR PRESENT SCORE OF ";SA;" HAS BEEN SAVED UNDER THE NAME OF ";NN$7::"PRESS 'C' TO TRY AGAIN OR 'Q' TO QUIT.":A$:A$7(A$,1)"C"ė:338INCESS....THE RUBIES AND FOUND SOME EXTRA VALUABLES. EXCELLENT!!,YOUR MISSION IS A FAILURE. HOWEVER YOU DID EARN A FEW POINTS WHICH WILL BE ADDED TO YOUR ACCUMULATED SCORE,78 O.K....THERE'S SOMETHING THERE ALRIGHT!!,THE ALIEN DROPS SOMETHING ANDLL OPENS. SECRET STAIRS LEAD TO THE LEDGE WHERE YOUR SHIP IS HOVERING5) YOU SAVED THE PRINCESS. THIS WAS YOUR MAIN OBJECTIVE,YOU SAVED THE RUBIES ONLY. THIS IS ONLY PARTIAL SUCCESS,YOU SAVED THE PRINCESS AND THE RUBIES. GOOD!!6.YOU SAVED THE PROWNS BUT SHE'S AN EXPERT BOOTER',YOU DON'T HAVE A PHASER TO CHARGE 4 YOU DON'T HAVE A DISKETTE TO BOOT,IT'S NOT AN APPLE. I DON'T KNOW HOW TO BOOT THIS COMPUTER,THE CRT PRINTS 'THERE'S A SECRET STAIR- WAY IN THE WALL. PUSH ON THE WALL'G5$ THE WAOU CAN'T. YOU DON'T HAVE A PHASER,YOUR PHASER IS DISCHARGED,I DON'T SEE ONE HERE,ZZZ!! THE ALIEN DISINTEGRATED!!,THERE'S NOTHING TO READ HEREE4 IT SAYS 'WHEN ON SHIP STORE ALL VALU- ABLES BEFORE SCORING,IT SAYS 'THE PRINCESS DOESN'T SCORE TOUCHD'RE ALREADY CARRYING IT, IT'S NOT HERE2 THIS PLACE IS FILLED,YOU'RE NOT CARRYING IT,I DON'T KNOW WHAT YOU SHOULD DO,THE DOOR IS OPEN. PROCEED WEST,THE DOOR IS LOCKED...,THE ALIEN SOUNDED THE ALARM3 YOU ARE CAPTURED...AND BANISHED FROM THECASTLE,YS ROOM HAS BEEN PERMANENTLY SEALED SHUT!!, AN ALIEN IS APPROACHING,YOUR PHASER IS COMPLETELY DISCHARGED,&2  YOU DON'T KNOW HOW TO DO THAT,NOTHING HAPPENED,YOU CAN'T GO THAT WAY!,THE DOOR IS LOCKED,,YOU'RE NOT STRONG ENOUGH,YOU CAN'T CARRY ANY MORE,YOUALL VALUABLES HERE,,,YOU NEED A PHASER AND A CHARGER,MAYBE THE COMPUTER CAN GIVE YOU INFORMA-TION,A DISKETTE MIGHT GET THE COMPUTER GOING,LOOK ON THE WALL0 ,,,NO PROBLEM...IF YOU HAVE KEYS,,,A GOOD ALIEN IS A DEAD ALIEN,j1 THE WEST DOOR FROM THI,0,0,9,0,11,0,0,0,9,13,16,13,13,15,0,8,0,0,0,0,0,14,0,0,0,0,13,0,0,6,0 / 7,5,5,9,7,0,15,0,0,10,8,0,8,5,5,12,11,60,13,12,0,14,8,0,11,0,30,16,6,0,17,5,0,18,15,0,20,0,0/ WHEN ALL VALUABLES ARE STORED... RETURN HERE AND 'BLAST OFF'0 LEAVE TAIRSe. PHASER,DISKETTE,A NOTE,KEYS,CHARGER,PRINCESS,DOOR,SIGN,RUBIES,COMPUTER,,ALIEN,DEAD ALIEN. 0,3,0,0,0,2,0,0,0,0,1,0,0,4,0,1,0,0,5,7,0,3,0,6,0,0,4,0,0,0,0,10,0,0,4,0,0,8,0,4,0,10,14,8,0,7,0,0 H/ 8,9,0,12,0,0,0,10,10,10,7,9,0,12,0,13,0A JAIL CELL- YOU'RE IN A GUARD ROOM. A DOOR BLOCKS YOUR PATH,YOU'RE ON A FLIGHT OF STAIRS,YOU'RE IN AN ENTRANCE WAY... THERE'S A HEAVY..STEEL DOOR.. IT'S OPEN,YOU'RE IN A ROOM CONTAINING MANY VERY HEAVY LOCKED BOXES. YOU'RE ON A FLIGHT OF SRE ON THE SHELVES., YOU'RE IN A COMPUTER ROOM. THERE'S A NOTE HERE. IT SAYS 'PRISON'S BELOW',YOU'RE IN THE DATA STORAGE ROOM - YOU'RE IN A LONG CORRIDOR. YOU HEAR VOICES BEHIND YOU,YOU'RE AT THE JAIL,YOU'RE IN A MAZE OF PASSAGEWAYS,YOU'RE IN 2450" 2360," :"AGAIN (Y/N) ===>";N$:" N$"N"ĀI" N$"Y"10S" 2460]"r 3190g" 2410z" 936:S16336" " 3060" 1:1::210:3070" 1:1::3070" 3170" 35,24:936" 35,24# "***** ******* ******* ** *::"ENEMY IS VICTOR"5!B S$"LIFE SUPPORT FADING..."c!L X122:(S$,X,1);:Y1X50:Y:X:2450!V 175::"ENEMY'S SHIP IS WITHOUT POWER.":"SENSERS DO NOT PICK UP ANY LIFE FORMS."!` !j "MISSION SUCCESSFUL!!!!"!t "~ "CONGRATULATIONS ";N$:NEMY SHIP APPROACHING"::"CURRENT RANGE :";AH X175:X:A03000R 2190  B(1)2000010000:AAB:P(1)P(1)B1000:A200000A200000  "ENEMY SHIP RETREATING"::"CURRENT RANGE :";A:2190  P0A02350 $ 2190 . A03000!8 )F(1)1:6000P12440-F(1)11200?X((3)3)1UX2240,2260,2310jP(1)100002220P(1)P(1)500:"ENEMY SHIP RESTING AND GAINING 500 UNITS OF ENERGY":2190A240002220B(1)2000010000:AAB:P(1)P(1)B1000. "EON TORPEDOES";:3600"4O121207>"MISSED!":2180^HPP1500:"DIRECT HIT":3900:2180pRA250002000\P(1)P(1)10:"ENEMY FIRES":"HEAVY GUNS";:3500fO12170p"MISSED!":2180z"DIRECT HIT":3900P0P0CV15:::F(1E1(P(1).1(A5000)):P(1)P(1)E1E"ENEMY FIRES LAZERS";:3700SO12060h"MISSED!":2180 "DIRECT HIT":LLA12000001.5:PPLLE1:3900LLE1;" UNIT LOSS FROM ENEMY":2180 PT(1)02000*PT(1)PT(1)1:"ENEMY FIRES":"PHOT CANNOT HOLD ANY MORE ENERGY":P10000:1920A:P(1)0P(1)0SC(1)1İ5500iF(1)0:CV7:6000y:C82180P(1)12390P(1)5002250Z((1)2)1:F(1)0:Z22220O((1)2)1X((1)3)1X2020,2080,2130$B1000&A13000:1920%01920M:B(1)2000010000:AAB:PPB1000`DA2000001880jN1920X"CAPTAIN, AT THIS RANGE WE CANNOT REACH THE ENEMY WITH ANY OF OUR GUNS":1920bP100001910lPP500:1920+v"CAPTAIN, OUR FUEL TANKS1750PPE:1760;"CAPTAIN, WE ONLY HAVE ";P:1200V"LAZERS FIRED";:3700dO11790x"MISSED":1920"DIRECT HIT":LLA12000001.5:3900"ENEMY LOSSES ";LLE;" UNITS"P(1)P(1)LLE:1920B(1)2000010000:AAB:PP TORPEDOES"::"WITHOUT DAMAGE TO OUR SHIP":1200ZrPTPT1:"TORPEDOES LAUNCHED";:3600h|O11680|"MISSED":1920"DIRECT HIT":3900"ENEMY LOSSES 1500 UNITS"P(1)P(1)1500:1920"ENERGY TO FIRE?";EE01210PE011570"MISSED":19203""DIRECT HIT!":3900I,LLA11000072q6"ENEMY LOSSES ";(LL100);" UNITS"@P(1)P(1)LL100:1920J:PT01630T"CAPTAIN, WE HAVE NO MORE TORPEDOES":1200^A100016501h"WE ARE TOO CLOSE TO USE OURO((8)2)1#C1C91230-9366 CV1iC1510,1610,1710,1820,1850,1890,410,1940,4500~:A250001540:"RANGE HAS TO BE 25000 MILES OR LESS"::"CURRENT RANGE IS ";A;" MILES"1200PP10:"GUNS FIRED ";:3500O:BJ14:X(16336)(16336)(16336)(16336)::dF\9:10,1916:10,1917:10,1924:10,1925:12:10,1918:10,1919:10,1922:10,192313:10,2920:10,2921:18,2322:18,2323:18,2326:18,2327:16,2524:16,25259:20,24:21,24:20,25:21,25BJ13000:BJ1450QT0ı;CHAMP$.hD$;"OPEN SPACE CHASER HIGH SCORE"VrD$;"WRITE SPACE CHASER HIGH SCORE"^|XXjCHAMP$D$;"CLOSE SPACE CHASER HIGH SCORE"22:"YOU HAVE DONE WELL , CHAMP ."23:"HERE IS YOUR MEDAL -""ADMIRE IT FOR A WHILE ..."430Q$"I"DD1'Q$"M"DD19Q$"J"CC1KQ$"K"CC1QaFG1AA1qFG2AA1FG3BB1"FG4BB1,FG06@*STOP CHASER PICKING UP DOTSJ1050TD$(4):*CTRL-D^"YOUR NAME , CHAMPION !!"REYOU CAN BUY USED APPLE SOFTWARE AT" d"ANAZING PRICES OR SELL YOUR OWN UNNEEDEDUSED SOFTWARE. WE HOPE THAT YOU WILL ENJOY OUR PRODUCTS AND SERVICES.":23A ANDEXCHANGED."::"WE ALSO SELL MAPS/CLUES/SOLUTION/TRIVIA BOOKS TO MANY POPULAR COMPUTER ADVENTUREGAMES FOR ONLY $2.65 PER TITLE POSTPAID.OUR HINT BOOKS ARE THE BEST!"% Z:"WRITE US FOR INFORMATION ABOUT THIS OR ALSO ABOUT OUR USED SOFTWARE LISTS WHE PER DISK WHICHINCLUDES RETURN POSTAGE. OR WE CAN SELLYOU THE BLANK DISKS NEEDED FOR AN" F"ADDITIONAL FEE OF $1.10 EACH. WE CAN COPY SINGLE-SIDED OR DOUBLE-SIDED. ALL OUR THOUSANDS OF PROGRAMS ARE IN THE" P"PUBLIC DOMAIN AND CAN BE FREELY USED PRESS THE ";.T%.^"SPACE BAR";+.hD.r(16384)1608050R.|16368,0X.^.S)10000P(1)10000 -22:868W-22:"POWER";12);":";P(1);20);"POWER";32);":";Pe-23:868-23:"TORPEDOES";12);":";PT(1);20);"TORPEDOES";32);":";PT-CV1-35,18--X(40(A$))2);A$-b-@24 .J"TO CONTINUE, PLEASE:PP15:ARR5570",ARR:C(1)0A,"SHIP RETREATING TO ";A:V,p35,24:19:868o,z19:13:"RANGE: ";A,20:"ENEMY SHIP REPORT";20);"VOYAGER REPORT",21:LG17:3800:21:20:LG14:3800,P(P):P(1)(P(1)),P10000P10000-P(1PLANET..."+B3190B+V:"NOT ONLY DID YOU DESTROY THE ENEMY, "q+`:"BUT YOU SAFELY GUIDED YOUR PASSENGERS"+j:"TO A PLANET."+t2430+|ARR5550+AA15000:PP15:ARR5530+ARR:C(1)0+"SHIP ADVANCING TO ";A+,AA15000 HAS POWER":X1200+*:"FIRES LASERS";5*3700M*"DIRECT HIT":3900i*:"ALL PODS DESTROYED"s*3190*$DI((8)20000)1*.PDI4950*8N$;" YOU DESTROYED THE ENEMY, BUT YOU "*=:"DON'T HAVE ENOUGH FUEL TO MAKE IT TO" +@:"A ARE A SAFE DISTANCE FROM SHIP"P)R:"PRESS KEY '9' AND THE SHIP WILL DETONATE"a)\CC(16384)r)fCC1854740|)p4200)z4700)16368,0:936:3060)LLA.62000001)ELLL(PPT500))P(1)P(1)EL:P(1)04900*::"ENEMY STILL ":3::6( "PODS WILL LAUNCH IN T-MINUS ";20YX@(4650( 3:::" ":3:::13:"PODS LAUNCHED"(*4200:YX(413:2:"SHIP EVACUATED":(>:"ALL PASSENGERS ARE LOADED IN EMERGENCY")H:"PODS AND RUCT PASSWORD";SD$$'SD$SF$4530.'12008'::]'YX130:13:2:"EVACUATE SHIP"l'YX44590}'YX214640'YX154610'4650'3::"ALL PASSENGERS TO EMERGENCY PODS"'4650 (3:::" (S)(S)(S)(S):X:W&X115:XX110:SO(S):XX:YY120:YY:SO(S)(S):X:&XX110:SO(S):XX:YY150:YY:SO(S)(S):&hX140:SO(S)(S):X:X130:X&rY130:Y&|X135:SO(S):X&Y120:Y:'"ENTER SELF-DEST)(S)(S)(S)(S)(S):X:<%X110:Y190:Y:"#";r%YY15:S0(S)(S)(S)(S)(S)(S):YY:X:%tX110:Y130:Y:"-";%~YY18:SO(S)(S):YY:X:%X1LG:"-";:X::&<X110:XX110:SO(S):XX:Y120:Y:SI(S)00$X +$b 255:::"*** COLLISION ***"I$l :"BOTH SHIPS DESTROYED"z$v :"THAT WAS A DUMB THING TO DO ";N$;"!!!":$ "YOUR MISSION WAS TO PROTECT YOUR"::"PASSENGERS, NOT GET THEM KILLED"$ 2450$ % X110:Y116:Y:".";:SO(S)(S*"+# "** ** ** ** ** ** *** ***"T# "** ** ** ** ** ** ** * **"}#& "***** ** ** ** ** ** **"#0 "** ** ** ** ** ** ** **"#: "** ** ** ** ** ** ** **"#D "***** ******* ******* ** **"$N 40 45,45,60,63,63,39,45 Oi 45,45,60,63,63,39,45,45,45,60,63,63,39,45,45 ci 45,5,0 q@j -1e,5,200,252,219,51,7,0 T$b 73,36,36,77,216,31,31,200,105,9,5,200,252,219,51 e&b 7,0 (b 45,45,45,220,219,99,77,9,200,219,251,72,105,193,251 *b 27,200,73,9,5,200,223,219,40,45,45,45,0 i 45,45,45,60,63,63,39,45,77,216,31,31,200,105,9,5,200,36,36,252,219,51 Eb 54,54,6,0 b 77,73,60,223,59,108,13,13,252,251,35,77,77,252,251 b 35,36,77,73,54,7,0  b 77,73,252,219,99,77,41,200,27,31,31,200,73,77,216 "b 31,31,200,105,9,219,44,45,45,5,0 Mb 168,45,45,5,200,36,28,63,63,7,200,36,12,45,45 ^b 5,0 b 200,200,200,200,200,200,200,200,45,45,45,222,51,54,54 b 54,7,0 b 41,45,45,200,36,36,36,252,219,51,54,54,54,5,0 .b 73,200,24,63,63,76,73,36,28,63,63,55 =b 54,54,54,62,0 {b 9,45,13,28,223,59,200,77,105,36,36,196,59,255,10 b 77,241,219,51,54,7,0  b 77,73,28,223,27,108,9,13,200,219,223,44,45,45,5  b 200,223,219,108,73,33,2236,36,36,36,77,73,54,54,54,54,223,27,200,200,200 ra 200,200,200,200,140,178,1,200,200,68,146,86,32,200,0 a 9,45,13,200,251,27,7,200,77,73,252,219,35,77,73 b 252,219,35,77,73,28,223,59,200,9,45,13,0 "b 77,73,200,200,35,45,5,200,223,108 @a 9,5,200,223,27,108,73,177,18,0 a 45,45,45,4,200,200,200,200,200,192,219,27,54,54,54 a 62,0 a 36,36,36,36,77,73,54,54,54,54,223,200,200,200,32 a 12,5,200,223,115,1,0 0a 3774,198:775,7:776,240:777,8l$'778,202:779,208:780,246:781,166:782,6:783,76:784,0:785,3:786,96r8'Q4,63,63,87,9 a 54,54,54,7,0 a 41,45,200,36,36,36,13,200,63,63,159,146,146,13,0a 77,73,28,223,27,108,9,197,251, "HARVEST" TIME 4 DON'T YA KNOW!) P l -PUBLIC DOMAIN-  OCTOBER, 1980   ** BY JIM GANZ **  < 8 REQ: JOYSTICK (OR T GAME PADDLES) p AND APPLESOFT   OBJECT:USE PDL(0)  TO CATCH AS MANY  FALLING APPLES  AS YOU CAN (IT'S Y"ė:130A$"N"710::"QUIT SCREWING AROUND!!!"J(7);:660R:[100"BETTER LUCK NEXT TIME.......SUCKER!!!!!"255***********";=b"****************************************"Pl"";v:"YOU'VE JUST BEEN BLOWN UP BY THE ENEMY!!"15);"YOU LOSE!!":"THE TARGET'S COORDINATES WERE ";A;", ";B:"WOULD YOU LIKE TO PLAY AGAIN?";:A$ A$"0 "****************************************"; J13I "";X &K170:K_ 0Jx ::16);"YOU WIN!": D"YOU HIT THE TARGET IN ";S;" TRIES!"::660 N:"****************************************"; X"*************** BOOM!!! *****(P): AX450 470( BY490W "ONE OF YOUR COORDINATES WAS RIGHT.":300d BY460 "NEITHER OF YOUR COORDINATES WERE RIGHT.":300  "****************************************"; "************ DIRECT HIT!!! *************";E 1 THROUGH 5":320A h"WHAT IS THE VERTICAL COORDINATE";:Y:YR rY5Y1390[ |400 "THE COORDINATES MUST BE 1 THROUGH 5":360 P16336 D020:SD(P)(P)(P):E0D2:: F15:SD(P)(P)(P)(P)(P)(P)(P)(P)(P)4 5" / "YOU CAN AIM BY TYPING IN THE"V "COORDINATES OF POINT OF IMPACT."h A(5(1)1)z "B(5(1)1) ,NN1:SS1 6N8590 @:"WHAT IS THE HORIZONTAL COORDINATE";:X:X JX5X1350 T360 ^"THE COORDINATES MUST BNYWHERE ON THE GRID." x' N0:S0? "5 . . . . ."E ] "4 . . . . ."c "3 . . . . . I WILL GIVE YOU" "2 . . . . . 8 CHANCES TO HIT " "1 . . . . . THE TARGET"  "0 1 2 3  :10:80'16);"T A N K"I15:11);"BY BRIAN SCHWINCK"R(255]2""m<A11000:uF:P"THIS IS A COMPUTERIZED TANK GAME."Z"THE BATTLEFIELD IS A 5 BY 5 GRID."d"YOUR TANK IS AT ZERO. THE TARGET." n"CAN BE A       96:. 98*********************TB* CRYPTOLOGIC *oL* BY:RUDY A. GUY *V* P.O. BOX 1733 *`* ERIE, PA. 16507 *j* PH:(814) 455-1505 *t*********************SZ9:776,W:777,Z:778::= APPLESOFT SOUND ROUTINE 776,255:777,255:778,173:779,48:780,192:781,136:782,208:783,5:784,206:785,9:786,3:787,240788,9:789,202:790,208:791,245:792,174:793,8:794,3:795,76:796,10:797,3:798,  936:4A(AK)&A4A>L(I100B)01120QQI100501700ZS:3V(B(I100))" CITIZENS DIED FROM STARVATION."`F1((1)(2000D))aD2000F10b(K25)1130eF1(F1(K25))j(F10)1150tF1" CITIZENS KILL,READ,ENT,OPEN,HIT,YELL95 SAY,^ ,LOAD,FEE,CUT, UNLOAD,$F ,CLIMB,FIRE,EAT, TAKE,SWI,DROP,SCRAPE,JUMPO5I939:OB$(I):f5I41LO:OB$(I):5I939:OB(I,0),OB(I,1):5I41LO:OB(I,0),OB(I,1):5190 NK,SIGN,PICK,SPEAR, CHEST,OCTOPUS,STATUETTE, NOTE,PEARL,GATE,APPLE, MINOTAUR,SCROLL,FLEECE4VV$"GO GETLOOINVSAVRESSCOQUITHRKILREAENTOPEHITYELSAY^ LOAFEECUTUNL$F CLIFIREATTAKSWIDROSCRJUM"4GO,GET,LOOK,INV,SAVE, RESTORE,SCORE,QUIT,THROW, SPECHEOCTSTANOTPEAGATAPPMINSCRFLE"E3NORTH,SOUTH,EAST,WEST, NORTH,SOUTH,EAST,WEST, THROWER,EEL,BOOK,PAPER,TRA, CLAM3MEDALLION,MANTA,PLAQUE,SQUID,COINS,SHOT,JOURNAL, PIRANHA,PIRANHA,TEETH, SCISSORS,KEY-4POST,NEWSPAPER,CANNON, CUP,TAN1>P$(38)P$(37):P$(39)P$(37)2HI4250:P$(I)P$(41):#2RI1NP:J03:P(I,J)::]2D$(0)"NORTH":D$(1)"SOUTH":D$(2)"EAST":D$(3)"WEST"2NN$"N S E W NORSOUEASWESTHREELBOOPAPTRACLAMEDMANPLASQUCOISHOJOUPIRPIRTEESCIKEYPOSNEWCANCUPTANSIGPIC<<<,A FIERCE MINOTAUR,AN ANCIENT SCROLL,>>>A GOLDEN FLEECE<<<127,0,29,0,23,0,24,0,0,0,26,0,20,10,19,0,19,15,18,0,18,20,16,0,13,0,14,0,0,0,0,15,15,5,8,5,9,0,11,0,12,0,1,0,1,0,1,0,3,7,3,0,4,0,4,0,0,0,0,0,0,12,33,10,51,0,40,0,51,4414I1NP:P$(I):ORS<<<,>>>A SILVER KEY<<<,A TALL POST 0NAN OLD NEWSPAPER,AN OLD CANNON,A PEANUT BUTTER CUP,AN AIR TANK,A SIGN,>>>A PLATINUM PICK<<<,A STEEL SPEAR,A TREASURE CHEST,A FIERCE OCTOPUS,AN IRON STATUETTE,A NOTE,>>>A GLISTENING PEARL<<<1X>>>A GOLDEN APPLET,A,A GIANT CLAM,>>>A JADE MEDALLION<<<,A BLACK MANTA,>>>A PLATINUM PLAQUE<<< ,A GIANT SQUID,>>>MANY COINS<<</D AN IRON SHOTPUT,CAPTAIN AHAB'S JOURNAL,SOME FIERCE PIRANHAS,SOME HELPLESS PIRANHAS,>>>SOME VALUABLE PIRANHA TEETH<<<,>>>A PAIR OF GOLD SCISS0}.0 37,38,39,34,37,38,38,38,40,39 ,39,37,42,39,0,0,43,41,42,41,44,40,42,41,47,41,43,43,48,42,45,44,49,45,45,44,50,51,0,0,47,43,48,47,48,44,48,47,0,45,50,0,0,46,0,49,46,0,0,0 7/: A SPEAR THROWER,AN ELECTRIC EEL,A SMALL BOOK,A PAPER WITH WRITING ON I  2,10,0,0,0,11,16,6,0,0,17,0,15,0,0,9,0,14,22,13,17,0,23,14,18,16,24,0,19,17,25,0,20,18,0,0,21,19-&26,0,0,20,27,16,0,0,0,17,24,0,29,18,0,23,30,19,0,0,32,21,0,0,0,22,28,0,0,0,0,27,0,0,30,0,0,25,0,0,0,0,0,0,0,26,0,33,0,34,32,0,33,36,37,35,0,0,34,0,34,0,5,AME",X,X,"AN AWKWARD PASSAGE"F,  "A LABYRINTH OF PASSAGES. THEY LOOK LIKE THE SORT THAT WOULD ATTRACT MINOTAURS"i,X,X,X,X,X,X,X,X,X,"*DEAD END"*-0,0,2,0,8,0,3,1,9,0,4,2,10,0,5,3,11,0,0,4,13,0,7,0,0,8,0,0,8,2,9,0,15,3,10,8,0,4,11,9,0,5,1 OLYMPIA,A STRANGE ROOM WITH WALLS THAT SEEM TO RIPPLE AND COME ALIVE AS YOU MOVE ABOUTL+ *YOU ARE ON THE EDGE OF A CLIFF+"A DEEP, DARK CORRIDOR. THE WATER SEEMS TO BE MOVING EAST OF YOU","THE HALL OF MIRRORS. ALL DIRECTIONS LOOK THE SA RAIL STATION,THE CLAM ROOM,THE KITCHEN,THE DINING HALL,THE ELECTRIC EEL'S ROOM,THE JAIL. THERE IS A GATE TO THE SOUTH&+ *YOU ARE AT THE TOP OF THE POST. YOU SEE THE STREET BELOW YOU,THE PILLARS OF HERCULES,PROMETHEUS' CHAMBER IN OF THE STREET) A DARK CAVE,THE FORTRESS OF ATLANTIS,"CAPTAIN AHAB'S QUARTERS",A BARREN CHAMBER,A BARBER SHOP,AN OLYMPIC FIELD,A SUPPLY ROOM,THE SQUID'S CHAMBER,THE DRAWING ROOM,THE ROYAL COLISEUM,A TEMPLEN* A HALLWAY,AN OLD LIBRARY,THE TOWN HALL,:NN44:NV30:P$(NP),P(NP,3),OB(LO,1),OB$(LO)(XX(9)( YOUR SUBMARINE DOCKED AT THE CITY OF ATLANTIS,A CORRIDOR FILLED WITH WATER,AN ALCOVE,A CORAL REEF,A WHIRLPOOL,A GRAVEYARD,*DEAD END,A DINING HALL,*YOU ARE ON THE STREET,*YOU ARE AT THE ENDFSFS10!':6:"YOU SCORED "FS" POINTS OUT OF A","MAXIMUM OF 200 POINTS POSSIBLE."]'h:"DO YOU WANT TO PLAY AGAIN? ";A$:A$"N"A$"NO"ė:u'rA$"Y"A$"YES"10'|1640'F1FSFS2'F2FSFS4'F3FSFS4''CP1:NP51:LO44>A GOLD STATUETTE<<<":OB(37,1)16:190&CP31ĺ"WHEE... FUN!":40,&X(4(1))1:X215009&CP9:30b&"THUD... YOU ARE DEAD.":I12000:&FS0:1700::I1LO:(OB(I,0))1FSFSOB(I,1)&:T500FSFS5&T400FSFS5&T310ZZZZ1:DM$M6$:OB(NO,0)CP:CP1OB(NO,0)0TSTS1%190/%OB(NO,0)1OB(NO,0)CPĺM0$:40X%NO37ĺM6$" NOTHING HAPPENED.":40%DM$"THIS IS STRANGE. THE STATUETTE SEEMS TO BE MADE OF SOMETHING OTHER THAN IRON. IT IS GOLD.":OB$(37)">>29ĺ"HOW?":40#FCP12ĺM0$:40$POB(20,0)0ĺ"IT IS NOT LOADED.":40F$ZM6$"...POW!":OB(20,0)29:OB(10,0)0:40[$dNO30ĺM3$:40v$nOB(30,0)1ĺM1$:40$x"CHOMP, CHOMP... GULP.":ZZZZ1:OB(30,0)0:40$OB(NO,0)1ĺM1$:40$"NO35ĺ"TRY OPEN.":40#CP25CP30ĺM0$:40&#GF1ĺ"IT IS ALREADY OPEN.":40V#OB(26,0)1ĺ"YOU DO NOT HAVE A KEY.":40h# M6$:GF1:40#NO27ĺ"HOW?":40#CP9CP31ĺM0$:40#(CP9CP31:190#-CP9#2190#<NO  MAKE A CONFRONTATION BECAUSE"," PART OF THE CRIME IS NOW SOLVED."::AX$:AX$"1"AX$"2"AX$"3"630xA(AX$)CC1:A720,990,1200:S$(S)", WHERE WERE YOU AT PM?":(37):25:TX$(37)1:25:TX$:TX$"1"TX$"2"TX$"3")"SOLVED"(S1$,6)"SOLVED"1200@lZA$S1$:120:SPP:S0610Fv"WHICH NUMBERED QUESTION WILL YOU ASK",S$(S)"?"::"1. WHEREABOUTS AND WHAT "S$(S)" SAW AT A"," CERTAIN TIME?",,"2. WHEN "S$(S)" WAS EVER IN A CERTAIN ROOM?"21k"3. YOU" ^:34,(37)> h1:33:"SUSPECTS":AA15:35:S$(AA):D r K15:P(K,1)(6(1))1::L29:K15 A(6(K))1:AP(K,L1)510 P(K,L)A:: DM(5(1))1:T(9(2))1:RP(M,T) b:"WHO WILL YOU QUESTION? ";S1$!g(S1$,6------!":"!--O----------! ! !":"! '--,":"! LIVING !- ----! !" J"! ,--' ! LOUNGE !":"'-, ! O !":" ' O ATRIUM ! ,---'":" '--------'---------'-----'MISLEAD YOU."- :"PRESS ANY KEY. ";:A$:N "HOUSE DIAGRAM: O=WINDOWS" 6H0:C0:C10:",---------------------------,":"! ! TROPHY O !":"! DINING O ! GARAGE !":"! '---,- --! !"q @"! ! GUESTS. THEIR HOST WAS MURDERED","BETWEEN THE HOURS OF 1 PM AND 9 PM." "YOUR TASK IS TO DETERMINE THE KILLER,","TIME, AND ROOM LOCATION OF THE CRIME.","YOU HAVE A HOUSE DIAGRAM AND A LIST OF QUESTIONS FOR THE SUSPECTS. THE GUILTY PERSON MAY TRY TO ZA$(S$(AA),1)Ă:PP0:% kPPAA:R xZA$(ZA$,4):AA15:ZA$S$(AA)Ă:105^ PPAA: ZA$(ZA$,6):AA16:ZA$R$(AA)Ă:PP0: PPAA: :5:4)"***** INSPECTOR CLOUSEAU *****":9G "BILL, MARY, PAUL, SUZY, AND JOHN WERE","HOUSE ::( S$(5),R$(6),P(5,9),Q(9)FD19:Q(D)((1)61):ZS$(1)"BILL":S$(2)"MARY":S$(3)"PAUL":S$(4)"SUZY":S$(5)"JOHN"dR$(1)"LOUNGE":R$(2)"ATRIUM":R$(3)"LIVING":R$(4)"DINING":R$(5)"TROPHY":R$(6)"GARAGE"g160 iAA15:S YOU.":I13000::1510I"DM$"THE MANTA SWALLOWS ALL THE PIRANHAS AND THEN SWIMS AWAY.":ZZZZ1:OB(16,0)0:OB(23,0)0:190x"OB(25,0)1ĺ"YOU HAVE NO SCISSORS.":40""THE SCISSORS ARE TOO DULL TO CUT WITH.":40"NO40NO35ĺ"HOW?":40P!DM$"THE PIRANHAS EAT THE PEANUT BUTTER CUP AND THEN THEIR TEETH FALL OUT.":OB(22,0)0:OB(23,0)CP:OB(30,0)0:ZZZZ1:OB(24,0)CP|!NN$(NN$,63)"' "(NN$,66):PA1:190!"YOU DO NOT SEE THEM.":40!OB(23,0)1ĺ"HE LIKES THE IDEA AND EATOB(20,0)1ĺ"YOU HAVE NOTHING TO LOAD.":40 t"OKAY.":OB(20,0)0:ZZZZ1:40[ ~NO10NO14NO16NO18NO22NO23NO36ĺM3$:40w NO22NO16ĺM7$:40 NO161200 OB(30,0)1ĺ"YOU HAVE NO FOOD.":40 OB(22,0)CP1195M THEN SHUTS.":OB(37,0)CP:190."YOU ARE NOT THE DESTRUCTIVE TYPE.":40@8OB(18,0)CPĺ"NOTHING HAPPENS.":40BDM$"THE SQUID IS STARTLED AND SWIMS OFF.":OB(18,0)0:190L"OKAY... ";N1$:40VNO29ĺ"WHAT?":40`CP12ĺM0$:40jIS NOW EMPTY.":40DM$"TWO THINGS FALL OUT.":OB(38,0)CP:OB(39,0)CP:190ROB(33,0)1ĺ"YOU DO NOT HAVE THE RIGHT TOOLS.":40OB(37,0)0ĺ"THE CLAM OPENS AND SHUTS. IT IS EMPTY.":40$DM$"THE CLAM OPENS AND SOMETHING FALLS OUT. THE CLA40"USE COMPASS POINTS.":40NO40NO35NO14ĺ"HOW?":40:NO40ĺ"TRY 'UNLOCK GATE'.":40KNO351040OB(26,0)1ĺ"YOU DO NOT HAVE THE NECESSARY RESOURCES":40OB(36,0)CPĺ"THE OCTOPUS"M2$:40OB(38,0)0ĺ"IT TTMLī35800D$;"READ ";F$;",R";RE:TT1@XP:TTTT1jTR(TT)0XP(XP11)10:RERE1:3680t$3600.CICI1VXP(LG(CI)11)10`AB(XP10)0ī3500s' SOUND ROUTINE'768,173:769,48:770,192:771,136:772,208:773,4:37I1,I2 I2 I1" 3:2 CI4ī3530> CICI1Z XP(LG(CI)11)10:3680k DR1ī3510 D$;"OPEN ";F$;",L";BY RERE1:TT1 RERNī3630 D$;"READ ";F$;",R";RE XP:TTTT1:AB(XP11)1(TR(TT)0TR(TT)XP)ī3550TCTC1:CG(TT)RE3 "TO STOP-ENTER A 0"d "TO RESTART WITH NEW LETTER SIZE-ENTER A 1" "TO RESTART WITH SAME SIZE-ENTER A 2 ";DR DR0ī2799 DR1ī8 20  0 I1851807 6,I1:7,80:768 I251257  3,75:1100%$WG6ĔWG143,75:1100A.WG7ĔWG100,112:1100\8WG8ĔWG174,10:1100BWG9ĔWG102,10:6,200:7,160:768:768:6,160:7,255:768L232,0:233,64TC1TC0:CG(TC)RE:2000TT0TCCG(TT)REī940TTRE(1)(RN1):RE(RE)1(1500CD$;"READ ";F$;",R";RE\TT0ML:WA(TT):TTlD$;"CLOSE"r232,0:233,86WG1ĔWG120,16:1100WG2ĔWG115,39:1100WG3ĔWG90,42:1100WG4Ĕ4148,40:1100 WG5ĔWG11EM THIS LINE IF YOU DON'T WANT THE COMPUTER TO LEARN NEW WORDSJ*RNRN1f4D$;"WRITE ";F$;",R";REn>RNHD$;"WRITE ";F$;",R";RNRTT0ML:WA(TT):TT\D$;"CLOSE"D$;"OPEN ";F$;",L";BYRE0D$;"READ ";F$;",R";RERN0,23:1239,2320:I0ML:37I25,140:I:3:MD$;"OPEN ";F$;",L";BYVRE0qD$;"READ ";F$;",R";REyRNTT1RND$;"READ ";F$;",R";TTT20MLTR(T2):TR(T2)WA(T2)ī800 T2860 TT>% GOTO 860:REM UN RQ2ī430700100$XFL00]I0MLJbWA(I)XP1011ī630}lLLLL1:FL1:6,20:7,255:768:WA(I)I25,140qCP1DR1:TR(I)XP1011vIFL1ī660WGWG1:6,100:7,255:768:10000:3730,23:37239,23:3:13:355aAB(XP10)2#cLL03752hWG9ī307<rQ3Q[tI0ML:WA(I)I25,140:Iew3000s|Q2ī400P1P11:0:3730,23:3:P1130,23:P19ī2700420P2P21:0:37239,23:3:P21239,23:P29ī2700WG9Q3Q CP1Q2ĺD$;"OPEN ";F$;",L";BY:D$;"READ ";F$;",R0":RN:D$;"CLOSE":CI1:DR0:RE0h 3CP1Q2İ3500:340 6A$:XP10((A$)("A")) 7A$;:(A$"A")(A$"Z")310 8XP250310 ;AB(XP10)0ī310 T0:37XP,159:3 ^600`FL0AB(XP10)1A")) A$; XP2501303 6,20:7,255:768V WA(I)XP1011:WA(I)I25,140` II1p IMLī130v  690 I0ML TR(I)0 I ,WG0:LLML1:I025:AB(I)0:I -21:"SELECT LETTERS USING THE KEYBOARD" .O 1CP1͔3269,10:28259,10:15249,10:35239,10:11229,10:22219,10:26209,10o cI0ML:I25,143I257,143:I| dI1136 nI(I11)10,159:I pWL0 q s690 |CP1Q1İ900:195 22:"ENTER YOUR WORD" I0 A$:XP10((A$)("EAD FREQS,R0":CI025:LG(CI):CI:D$;"CLOSE"D :P10:P20:TC1M Z680 [260,10:2210,10:1120,10:3530,10:1540,10:2850,10:260,10 \CP1Ĕ28269,10:15259,10:30249,10:31239,10:26229,10:23219,10:25209,10:13199,10:99K ]8ī8 1:0:MLML14 ML4F$"LT5":BY15:15Q ML5F$"LT6":BY18:15n ML6F$"LT7":BY21:15 ML7F$"LT8":BY24 "DO YOU WISH TO PLAY AGAINST THE COMPUTER? (Y/N) ":A$:A$:CP1:A$"Y"CP2. CP1ĺD$;"OPEN FREQS,L78":D$;"Rt= COPYRIGHT 1981 - UNIV. OF SCRANTON - COMPUTER SCIENCE UN-REM LINE 805 TO KEEP THE COMPUTER FROM LEARNING NEW WORDS23WA(8),TR(8),AB(26),LG(26),CG(9)Q1:CP0:I0:D$""10000:3 "ENTER WORD SIZE (5 TO 8) ";ML:ML5ML             TX$"4"TX$"5"TX$"6"TX$"7"TX$"8"TX$"9"720HT1(TX$)NgR1P(S,T1):SM865x(2).7865 R1(6(3))1:(3).16865*"I WAS WITH OUR HOST.":(4)T1.1.18404"OUR HOST WAS DEAD.":910 H"OUR HOST WAS STILL-+--------+-----m----------+M-VIIIIIIIIIIIII  +--mMIIIIIIIII MIIIIi+--------------+--+ ---- --+----+--+--+---+--- k k k k k k k k k k k k k k k k k k    k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k kMIII MIIi N k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k - +-J    ۵IIII KI --m m -- + -+ + -+ -+ -+ -+ + + + + + -+ -- -+ -+ -- - +- + -  - -m m - - +IIIII--- -+- + + -+ -- -  -  - -     - - - - + + + - +m -- m -+ -- -M+------------------------------------+-------m+---NIIIIIIII -----+---------+-----+-----------+-----+-----+-----------+---------+----+---m--VIIK k +m +m m - - +m --m ------IIIIIIIIIIIIII)-+--+------ +---------------------------------+-- - + -+ -+ + - - m m k k - +m m m m m m  I+M ---mI-MIII -MII -MI mI)MI+ ---IIIIIKIIIIIII ------- -------m - + + m m V< L^ L Z < III------mI)--MIII)kIIIIImIIIIIMIII Mm -mI)-MM-mM --M)m)--M -mI+M -MIIIIMIIIIII+MIIIIIIMIIIIII+MI ---MI mI)MImI)kIiI m      i 45,5,0 #@j -1D19,51 &b 7,0 X(b 45,45,45,220,219,99,77,9,200,219,251,72,105,193,251 *b 27,200,73,9,5,200,223,219,40,45,45,45,0 i 45,45,45,60,63,63,39,45,45,45,60,63,63,39,45 i 45,45,60,63,63,39,45,45,45,60,63,63,39,45,45 77,73,60,223,59,108,13,13,252,251,35,77,77,252,251 Wb 35,36,77,73,54,7,0  b 77,73,252,219,99,77,41,200,27,31,31,200,73,77,216 "b 31,31,200,105,9,5,200,252,219,51,7,0 $b 73,36,36,77,216,31,31,200,105,9,5,200,252,2b 5,0 Sb 200,200,200,200,200,200,200,200,45,45,45,222,51,54,54 gb 54,7,0 b 41,45,45,200,36,36,36,252,219,51,54,54,54,5,0 b 73,77,216,31,31,200,105,9,5,200,36,36,252,219,51 b 54,54,6,0 7b ,13,28,223,59,200,77,105,36,36,196,59,255,10 Ob 77,241,219,51,54,7,0  b 77,73,28,223,27,108,9,13,200,219,223,44,45,45,5  b 200,223,219,108,73,33,223,219,44,45,45,5,0 b 168,45,45,5,200,36,28,63,63,7,200,36,12,45,45 40,178,1,200,200,68,146,86,32,200,0 aa 9,45,13,200,251,27,7,200,77,73,252,219,35,77,73 b 252,219,35,77,73,28,223,59,200,9,45,13,0 b 77,73,200,200,200,24,63,63,76,73,36,28,63,63,55 b 54,54,54,62,0 -b 9,455,45,45,4,200,200,200,200,200,192,219,27,54,54,54 Da 62,0 a 36,36,36,36,77,73,54,54,54,54,223,200,200,200,32 a 12,5,200,223,115,1,0 a 36,36,36,36,77,73,54,54,54,54,223,27,200,200,200 $a 200,200,200,200,1 41,45,45,200,200,200,200,200,200,200,24,63,63,87,9 Pa 54,54,54,7,0 a 41,45,200,36,36,36,13,200,63,63,159,146,146,13,0a 77,73,28,223,27,108,9,197,251,35,45,5,200,223,108 a 9,5,200,223,27,108,73,177,18,0 2a 4a 54,45,245,27,54,7,0 Ka 36,36,45,229,27,36,44,45,45,45,0 a 9,45,45,200,223,27,7,200,77,73,60,255,27,36,100 a 77,9,28,63,255,0 a 77,73,36,36,36,36,223,219,54,54,45,45,245,219,51 a 62,0 6a ,27,71,77,9,252,219,7,200,45,45,45,0 _ a 9,45,45,200,223,27,7,200,36,36,12,77,9,28,63 r a 255,0 a 45,45,45,200,36,36,36,28,63,63,119,54,54,54,7 a 0 a 45,45,45,4,200,200,200,200,200,200,200,63,63,63,54 36,36,36,60,63,63,23,54,150,42,200 B [ 200,200,45,45,5,0 a 77,73,252,219,35,77,73,252,219,35,45,45,45,252,219 a 35,77,73,28,223,59,200,9,45,13,0 a 45,45,45,200,223,27,71,77,9,252,219,71,45,45,5 % a 200,223 32,36,36,100,45,45,21,150,50,246,63,63,4,200,200 P Z 40,45,45,0 Z 73,36,44,200,5,200,5,200,228,63,63,55,150,0 [ 41,45,45,200,36,4,200,36,28,63,63,23,54,22,54,5 [ 200,200,40,45,45,0 # [ 41,45,45,200,Z 228,63,63,23,6,0 W Z 41,45,45,200,36,4,200,36,28,63,63,23,150,146,6 y Z 200,76,64,200,45,5,0 Z 73,9,36,36,36,36,62,23,23,23,62,45,45,45,5 Z 0 Z 45,45,45,200,36,28,63,63,39,36,44,45,45,45,0 8 Z256(T2TK1):20002 $N, %N 16384,37i Z 41,45,45,200,36,36,36,28,63,63,23,54,54,54,44,5 Z 200,5,200,5,200,5,200,4,0 Z 41,45,45,200,219,36,36,36,188,6,0 Z 45,45,45,220,219,43,200,5,200,5,200,45,200,5,200  %  D$""20000+D$;"BLOAD HMS">D$;"RUN ARTP"D(W N SHAPE LOADER!NT,TN:233,T256:232,T256(233):TLT2TN1:TK0:T1,0:T,TN:20003"NTD:TLTL1:TL,TD:TD020002 #NTKTNTKTK1:T2TK1,(TL1T)256:T2TK,TL1T     OLD.":"SCRAPE IRON."NO21ĺ"LEE SAID POW AND DIED."aNO28ĺ"USE CRUST TOOTHPASTE FOR SHARPER TEETH. SQUIDS HATE LOUD NOISES (W O P T O N)."NO32ĺ"DEPOSIT TREASURES HERE."NO43ĺ"BEWARE OF MINOTAUR."NO38ĺ"PUT SHOT IN GUN."NO,0)CPĺM0$:40;RNO43NO11NO12NO17NO21NO28NO32NO38ĺ"THERE IS NO WRITING THERE.":40K\"IT SAYS:"fNO11ĺ"WHAT IS THOUGHT TO BE,":"ISN'T WHAT YOU ALWAYS SEE."pNO12ĺ"CAPTAIN AHAB WAS HERE."zNO17ĺ"GOOD AS G PLUNGES INTO THE MINOTAUR AND HE DISAPPEARS INSTANTLY. THE SPEAR SEEMSTO HAVE TURNED INTO SOLID PLATINUM.":OB(42,0)0:OB$(34)">>>A PLATINUM SPEAR<<<":OB(34,1)11:OB(34,0)CP:ZZZZ1:190>"YOU WILL HAVE TO BE MORE SPECIFIC.":40HOB(NO,0)1OB(:403OB(9,0)1(OB(36,0)CPCPOB(42,0))ĺ"THE SPEAR VANISHED IN MIDAIR.":ZZZZ1:OB(34,0)0:40B CP4820*DM$"THE SPEAR PLUNGES INTO THE OCTOPUS AND THEY BOTH DISAPPEAR INSTANTLY.":OB(36,0)0:OB(34,0)51:ZZZZ1:1904DM$"THE SPEARB(I,0)1610N2(0)(OB$(I))39ĺXOB$(I)". ";b::40:SC0:I1LO:OB(I,0)1SCSCOB(I,1)::"YOU HAVE SCORED "SC" POINTS OUT","OF A MAXIMUM OF 200."::40OB(NO,0)1ĺM1$:40 NO34ĺ"YOU CAN ONLY THROW THE SPEAR.""M2$:40NO32ĺ"IT IS BEYOND YOUR POWER TO DO THAT.":40;&ZZ17ĺ"YOU CANNOT CARRY ANYTHING MORE.":40X0OB(NO,1)0CP1TSTS1}:ZZZZ1:OB(NO,0)1:DM$M6$:190DZZ0ĺ"YOU DO NOT HAVE ANYTHING.":40I"YOU NOW HAVE: ";:I1LO:O36ĺM5$:40NO27NO29ĺ"IT IS TOO HEAVY.":40)NO17OB(16,0)CPĺ"THE MANTA"M2$:40TNO19OB(18,0)CPĺ"THE SQUID"M2$:40NO35OB(36,0)CPĺ"THE OCTOPUS"M2$:40OB(10,0)CPĺ"THE EEL"M2$:40NO44OB(42,0)CPĺ"THE MINOTAUR4NONO1:P(CP,NO)0ĺ"YOU CANNOT GO THAT WAY.":40-CP30GF0ĺ"THE GATE IS LOCKED.":40mCP25NO0GF0ĺ"THERE IS A LOCKED GATE IN YOUR WAY.":40CPP(CP,NO):190CPOB(NO,0)ĺM0$:40NO10NO13NO14NO16NO18NO22NOB390,460,190,580,380,380,740,1510,770,830,840,960,970,1070,1080,1100,1510,1110,1150,1220,1240,1510,1300,1340,1380,460,390,1410,1440,1470s|"HOW CAN YOU DO THAT?":40NO0ĺ"YOU MUST SPECIFY A DIRECTION.":40NO8ĺ"WHAT?":40NO4NONOK0ĺ", ";@D$(I);:KK1J:".":ZZ2CP5360 OI1LO.TOB(I,0)1I31OB(I,0)29^:"THE WHIRLPOOL SUCKS ALL OF YOUR","POSSESSIONS AWAY. YOU BARELY ESCAPE.":ZZ1h"----------------------------------------":DM$:DM$"":40SrVHAVE NO AIR... YOU ARE NOW DEAD.":I12500::1510':P$".":K0:I1LO:OB(I,0)CP280DK0ĺ"VISIBLE ITEMS: ";_2(0)(OB$(I))39ĺvOB$(I)". ";:KK1:K0ĺ"CP31360,K0:"OBVIOUS EXITS: ";:I03:P(CP,I)03306$"":I1NN:NO$(NN$,(I1)31,3)NOI::NO0:NO$"":CP29F11/CP31F21>CP6F31NCP51F41P$P$(CP):(P$,1)"*"P$(P$,(P$)1):230CP6F31P$"YOU ARE IN "P$CP1OB(31,0)1ė:6:"YOU 1(CM$)NO0:132NO$(CM$,LCI)(NO$)3NO$NO$" ":1310(VB$)3VB$VB$" ":132N1$NO$:V1$VB$:VB$(VB$,3):NO$(NO$,3):I1NV:VB$(VV$,(I1)31,3)VBI:170:VB0N1$""NO$VB$VB0:180VB$CM$NO0:NOMAND? ";:CM$""QGT$:(GT$)1386R(GT$)8CM$CM$GT$:85)S(CM$)1CM$"":85ATCM$(CM$,(CM$)1)OUGT$;:81WV:hZ(CM$)080dVB$"":NO$"":VB0:NO0nLC(CM$):I1LC:A$(CM$,I,1):A$" "VB$VB$A$:x(VB$)IS NOT HUNGRY.":1750 (80:NO9NO0(VB0VB1VB27)VB1V2VB15VB16VB5VB6(N1$)0NO0ĺ"WHAT DOES '"N1$"' MEAN?":40<N1$""(VB8VB2)VB15VB30ĺ"YOU NEED TO SPECIFY AN OBJECT.":40F370PTT1::"WHAT IS YOUR COM( BY GREG HASSETT :::6:" ***** EXPEDITION TO ATLANTIS *****" M0$"YOU DO NOT SEE IT HERE.":M1$"YOU ARE NOT HOLDING IT.":M2$" WILL NOT LET YOU.":M3$"DON'T BE SILLY.":M4$"YOU CANNOT BE SERIOUS.":M5$"VERY FUNNY.":M6$"OKAY.":M7$"IT z#0XǴ  Ӡ  ŠӠŠҠŠҠȠŠ ˠ Ϡɠ( Ե Զ ԷԸ"ӧ͠٠!Ϋ̠ Ӡ ΠήؠӠ ԠӠ!ҠՠҠ  àĠҠҮӠŠҠΠϠӠ*"ҠΠΠˠǰΠŠ2!٠Š РǠ̠ҠҠӠ DETERMINED THE MURDER ROOM.":HH4:WSĺ:"INSPECTOR, YOU DO REMEMBER THAT YOU","DETERMINED THE MURDER ROOM EARLIER?":HH4WS1:H76100XT13300:::"INSPECTOR CLOUSEAU, YOU SOLVED THE CASE.IT TOOK YOU "C" QUESTIONS AND "C1,"CONFRONTATIONS. MBER THAT YOU","DETERMINED THE MURDER TIME EARLIER?":HH2hiRT1::UI(37):9:34::"TIME:"T1::UIvnH71500x610:"WHERE WAS THE HOST MURDERED? ";ZA$:140:PP1420PPRĺ:153011:34::R$(R):35:"ROOM"::|"YOU HAVEMURDER? ";:AX$:(37)1:34:AX$" PM."IAX$"1"AX$"2"AX$"3"AX$"4"AX$"5"AX$"6"AX$"7"AX$"8"AX$"9"ĺ:1350KT1(AX$)PT1Tĺ:1530Z:d"YOU DETERMINED THE CORRECT MURDER TIME.":HH2:RTĺ:"INSPECTOR, YOU DO REME120:PPė:1270#PPMĺ:1530=M2:35::S$(M):: "YOU HAVE DETERMINED THE KILLER.":HH1:EGĺ:"INSPECTOR, YOU DO REMEMBER THAT YOU","DETERMINED THE KILLER EARLIER?":HH1EG1H71500<610'F:"WHAT WAS THE TIME OF THE VE YOU FOUND?""1. THE KILLER.",,,"2. THE MURDER ROOM.",,"3. THE TIME OF THE MURDER.","4. YOU ARE TOTALLY BAFFLED AND GIVE UP."::AX$:AX$"1"AX$"2"AX$"3"AX$"4"1205A(AX$):A1270,1420,1350,1550"WHO IS THE KILLER? ";ZA$:T1((5)6)19B"I WAS NEVER IN THAT ROOM.":610xVK0:B19:P(S,B)T1ĺ"I WAS IN THAT ROOM AT "B" PM.":K1`:Kĺ"I WAS NEVER IN THAT ROOM."j610C1C11"IT IS TIME FOR THE CONFRONTATION.","INSPECTOR CLOUSEAU, WHAT HAAS WITH "S$(K)"."I(R1P(K,T1))1ĺ"I SAW "S$(K)" THROUGH A WINDOW."T:610:S$(S)", WHEN WERE YOU IN THE ROOM?":(37):(27):" ";ZA$:ZA$(ZA$,6):(37):35:"ROOM?"140:T1PPT1990SM1110(5).51110 ALIVE.":910\a(T1T)R1Q(T1)ĺ"I WAS WITH OUR HOST.",,"OUR HOST WAS STILL ALIVE.":910f(T1T)R1R(SM(SM(1).5))ĺ"I WAS WITH OUR HOST.",,"OUR HOST WAS DEAD.""I WAS IN THE ";R$(R1);" ROOM."K15:KS960P(K,T1)R1ĺ"I W 0 SWD(J)30ĺ"T";# JWD(J)31ĺ"U";7 TWD(J)32ĺ"V";K ^WD(J)33ĺ"W";_ hWD(J)34ĺ"X";s rWD(J)35ĺ"Y"; |WD(J)36ĺ"Z"; J " " I D$;"CLOSE" "DO YOU WISH TO CONTINUE ";F$ &F$"Y"ī20 0 D";F$ &F$"Y"ī20J)17ĺ"G"; WD(J)18ĺ"H";3 WD(J)19ĺ"I";G WD(J)20ĺ"J";[ WD(J)21ĺ"K";o WD(J)22ĺ"L"; WD(J)23ĺ"M"; WD(J)24ĺ"N"; WD(J)25ĺ"O"; WD(J)26ĺ"P"; "WD(J)27ĺ"Q"; ,WD(J)28ĺ"R"; 6WD(J)29ĺ"S"; @AD ";F$;",R0" URE! ZI1RE; dD$;"READ ";F$;",R";IQ nJ0LT:WD(J):Js s"RECORD # ";I;" WORD: "; xJ0LT WD(J)11ĺ"A"; WD(J)12ĺ"B"; WD(J)13ĺ"C"; WD(J)14ĺ"D"; WD(J)15ĺ"E"; WD(J)16ĺ"F"; WD(5 D$""$WD(8)S"THE WORD FILES ARE LT5, LT6, LT7, & LT8"i"WHICH FILE ";F$F$"LT5"BY15:LT4:70(F$"LT6"BY18:LT5:702F$"LT7"BY21:LT6:70<F$"LT8"BY24:LT7FD$;"OPEN ";F$;",L";BY PD$;"RE    (10):M(Z)M(Z)200:0L(1)E2L0L.1ĺC$(1):M(Z)M(Z)15:l4L.1L.2ĺC$(2):I(Z)24:2000:6L.2L.3ĺC$(3):I(Z)I(Z)3:2000:8L.3L.4ĺC$(4):I(Z)0:M(Z)M(Z)200::L.4L.5ĺC$(5):M(Z)M(Z)50:<L.5L.6ĺC$(3L.4ĺZ$(4):M(Z)M(Z)50:DL.4L.5ĺZ$(5):M(Z)M(Z)100:rL.5L.6ĺZ$(6):M(Z)M(Z)200:I(Z)0:L.6L.7ĺZ$(7):M(Z)M(Z)100:L.7L.8ĺZ$(8):M(Z)M(Z)50:I(Z)10:L.8L.9ĺZ$(9):M(Z)M(Z)50:L.9L1ĺZ$368,0<#140,142X,Y:0F#140,142X,Y:6P#X113U#OM10:QM10Z#H0:19X,Yu16368,0zYY7:6Y130Y13019X,Y:2150X0:19X,Y]16368,0bXX7:6gX5X5l19X,Y:2150 @0:19X,YE16368,0&JXX7:67OX275X275IT19X,Y:2150W(#M32150^-#3l2#16V2653790{3800J260:25003:5V,144:0:5V,144:4:Z1Z11"SCORE-";Z1:16368,0:2150MM1:0:10A,B:1:12140,144MX335002143(0:19X,Y616368,0DYY7:6QY5Y5c19X,Y:2150rp175V18537603765*J180:2500@V215V2253775J3780[J220:2500qV2554,6:935,101:936,6:937,133:938,6:939,144b}940,4:941,138:942,240:943,1:944,202:945,198}946,7:947,208:948,232:949,96}5@"RUNDEFENDER"}907,208:908,224:909,96T}910,141:911,48:912,192:913,165:914,2:915,133}916,7:917,164:918,0:919,136:920,208:921,253}922,141:923,48:924,192:925,164:926,0:927,136}928,208:929,253:930,24:931,165:932,0:933,240,}93238:878,118:879,3:880,208:881,3:882,238b}883,119:884,3:885,173:886,10:887,224:888,76}889,130:890,3:891,74:892,74:893,74:894,74}895,74:896,74:897,74:898,24:899,105:900,1}901,133:902,0:903,32:904,142:905,3:906,138}849,73:850,255:851,105:852,2:853,133:854,5eP}855,32:856,48:857,3:858,230:859,0:860,198Z}861,5:862,208:863,247:864,96d}865,166:866,1:867,169:868,224:869,141:870,119n}871,3:872,169:873,0:874,141:875,118:876,3,x}877,,3)}821,138:822,208:823,250:824,96^}825,216:826,165:827,3:828,133:829,0:830,56(}831,229:832,4:833,144:834,14:835,105:836,02}837,133:838,5:839,32:840,48:841,3:842,198<}843,0:844,198:845,5:846,208:847,247:848,961F:13140,T:13140,T20:13140,T40:Q 3:13140,T:13140,T20:13140,T40c E11000::w "RUNDEFENDER" } " TOM CLEAVER SOUND GENERATOR UNIVERSITY OF LOUISVILLE " }816,166:817,1:818,32:819,142:820,80$ x0:4T,40:6T,60:5T,80:C 3:4T,40:6T,60:5T,80U T2791205w 3:10T,40:11T,60:12T,80 0:10T,40:11T,60:12T,80: 3:10T,40:11T,60:12T,80 T159814 3:13140,T:13140,T20:13140,T40& 0MON COMPLAINT IS THAT IT DOES NOT RESPOND, IT IS SLOW BUT IT DOES RESPOND." O::(5):"PRESS RETURN TO CONTINUE"::1:255 PH$ U Z cT1100:A(279(1))1:A1(159(1))1:5:A,A1: dT11004 n3:4T,40:6T,60:5T = DOWN"9 E:" Q = Q BOMB(SMART BOMB) (4)"` F:" SPACE BAR = FIRE"f J K:(11):"PRESS RETURN TO GO ON" L MW$S N:" THE PROGRAM WILL EXECUTE THE LAST COMMAND IN MEMORY UNTIL YOU EXECUTE ANOTHER. A COM RANGE, BUT DO NOT GET IN THE WAY OF THEM OR THEIR LASERS."; (" YOU ONLY HAVE THREE (3) SHIPS. ":::(10):"HERE IS HOW TO MOVE": 2:" --> = RIGHT" 7:" <-- = LEFT " <:" A = UP" A:" ZQ132010G232,8:233,82:"BLOAD D":232,8:233,82r"DO YOU NEED INSTRUCTIONS ? (Y/N)";A$A$"N"40000 : 100(1):" INSTRUCTIONS "= (5):" IN THIS GAME OF DEFENDER TRY TO DESTROY ANY SHIP IN YOUR     ZZT(I)&40::"THE TAXMAN'S TOTAL IS ";Zf5::"HIT SPACE BAR TO UPDATE THE LIST ";:Z$:34,0::3:"THE NEW LIST IS : "?:DM0NI1NXL(I)0630bI;" ";lM1vx:z"SCORE UPDATE ---------"|15:ANGE ME ?""|D12000:::270*M07I1K2GL(I)0460\KI(KI)460fMM1qT(M)I|L(I)0M0360L(K)0YYK:14:N$;", YOUR TOTAL IS ";Y:"THE ";A$;" GETS ";:I1MT(I);" "; "::"THE FACTS ARE: "S$(M)" KILLED THE HOST AT "T" O'CLOCK IN THE "R$(R)" ROOM."6:"DO YOU WANT A NEW CASE? ";A$:A$"Y"A$"YES"5@A$"N"A$"NO"ė:1590J::TTY GOOD!":1590:RT0ĺ"FINE WORK, INSPECTOR.":1590sRT1000ĺ"YOU FUMBLED THIS ONE, INSPECTOR.":1590"THAT WAS REALLY STUPID WORK, INSPECTOR.":1590"INSPECTOR CLOUSEAU, YOU ARE WRONG.":610R:"YOU FUMBLED THIS ONE, INSPECTOR.YOUR RATING IS ";:RTC25C1C1251000:RT"."lRT700ĺ"INSPECTOR, YOU ARE REALLY INCREDIBLE!":1590RT600ĺ"INSPECTOR, YOU ARE INCREDIBLE!":1590RT500ĺ"INSPECTOR, YOU ARE ALMOST AMAZING!":1590RT200ĺ"INSPECTOR, YOU ARE PRE8D";F$;",R";RE PI0LT# ZWD(I)* dI: nD$;"CLOSE"h x"DO YOU WISH TO CONTINUE(Y/N)?";:F$:F$x F$"Y"ī15 F$"N"120 D$;"READ ";F$;",R";RE I0LT DA(I) I I0LT (DA(I)11("A")); $I ." "  D$;"OPEN ";F$;",L";BY& 1000:6 D$;"CLOSE"X "(Y/N)?";:A$:A$:A$"Y"29a 120y :"ENTER NEW WORD" I0LT (A$:A$;:A$"A"A$"Z"40 *WD(I)(A$)("A")11 2I 3 <D$;"OPEN ";F$;",L";BY A1000 FD$;"WRITE  :10 D$""'WD(8),DA(8)="WHICH FILE ";F$ZF$"LT5"BY15:LT4:20wF$"LT6"BY18:LT5:20F$"LT7"BY21:LT6:20F$"LT8"BY24:LT7"WHICH RECORD TO CHANGE ";RE"DO YOU WISH TO CHANGE THE FOLLOWING WORD"   666 888888 ??o966666--MI 6666666 ------ $$<8?????IIqHI ???????666.------5666???????-------ۉ666666& 666666----- $$$$$$  , , , $ 6666666       $$$$$$$6666666 ) eeeee% uuuuuH6666666------- ۛ"$$$$$$t a 6666666$$$$$$$$$$$$$$HI ???????6666666-------$$$$$$$HI ???????666-------666>??????'*-- $$$$$??6666??????$$$$$$$HI ???????6666666------- 8??????'II ???????6666666 )------HI?????s66666----- $?' 6666666MIII $$$$$$$??????$$$::17:"SCORE"C17:"-----"::H:"TAXMAN ";ZR:" YOU ";Y\:"THE TAXMAN WINS " f20:"DO YOU WANT TO PLAY AGAI"TAXMAN ";Z:15:" YOU ";Y'~34,134M0810BIN41OJ2I2_L(J)0700tIJ(IJ)700:::270:"THE ";A$;" GETS "I1NL(I)0780I;" ";ZZI 34,0:::"":2:"% "A$"3"ĺD$;"RUN REPLACE WORDS"+ + 2:2:5:"MAKE YOUR SELECTION"8 5:10:"1 = HANGMAN"X 7:10:"2 = INSPECT FILES"x 9:10:"3 = REPLACE WORDS" 11:15::"SELECT";::A$:A$ 15:15:"WORKING" D$"" A$"1"ĺD$;"RUN HANGMAN.X" A$"2"ĺD$;"RUN INSPECT FILESPLAYS HANGMAN AND LEARNS NEW WORDS"= :"2. INSPECT FILES"f 5:"LET'S YOU LOOK AT THE FILES OF" 5:"WORDS THAT ARE AVAILABLE" :"3. REPLACE WORDS" 5:"LET'S YOU FIX A WORD FILE" 24:"ANY KEY TO CONTINUE";:A$ DIRECTORY -  D$""+:10:15:"<< HANGMAN >>"J12:"CREATED BY JIM KUNZ"j(14:5:"FOR PROF. BEIDLER"216:5:"IN CMPS 125 - ART. INTELL."<I02000:Id:2:"THIS SYSTEM HAS THREE MAIN COMPONENTS"n:"1. THE HANGMAN PROGRAM"# x5:"   ;?666-e$$??666-- ???666 -?66-%<666#$$ --66> 66?366&X 366.-%06d666666 66;66- $$;?666 )e$;66- $$I*;?666 -  ?v-? ??66&+RRZfs !+7@GW_o|566o -.-%??Mu?366 b ; ??6-u6?#?6v- <8'??M6;v-2?;v- ?;66- $$M 6$t-366.- <8o ??66-  R","DARTH VADER","DESK","LONDON","PITTSBURGH","CLEVELAND","NIBBLE","DISKETTE","TAMPA BAY","CIRCUS","STAR WARS","BUCK ROGERS","STAR TREK","MR. SPOCK"SS1:V100110:X9:776,V:777,X:778:V:12:(17(I1))(A$)2:V$(I);:W10100:"PLANT","TRUCK","TREE","CHRISTMAS","SUGAR","CANDLE","RECORD","TYPEWRITER","FRISBEE""PENNSYLVANIA","TEXAS","SNOW","PALM TREE","SHARK","APPLE II","JIMMY CARTER","DAVE PARKER","CLOCK" "CLOCK","TENNIS","OVEN","SPEAKER","WATERGATE","PASCAL","MONITO TREK","FACE""TELEVISION","TELEPHONE","SOCCER","HOCKEY","FARM","STEREO","FARRAH FAWCETT","STEELERS","JETS","LAKE ERIE","ABE LINCOLN""LEGS","PIRATES","YANKEES","COFFEE","PANCAKE","COAST GUARD","DRACULA","MONOPOLY","MONSTER","MONKEY","LION"SNE 790 & 820 MUST BE THE SAME AS DIM(A$) z "CHURCH","TABLE","MOVIE","GRAPEFRUIT","NEW YORK","GREEN","ORANGE","CASSETTE","SUPER BOWL","WORLD SERIES","AIRPLANE" "BASEBALL","FOOTBALL","GARBAGE","ARMY","APPLE COMPUTER","CHICAGO","ROCKET","STAR SUBROUTINE FOR COMPUTER SELECTED WORD. >I180I A$(I)O*b4Z((1)80)1o>VZ820|HA$A$(Z)RVZ\f COMPUTER SELECTED WORDS CAN BE INCREASED BY CHANGING DIM(A$) TO DESIRED NUMBER.0p LIOLOGIC. YOU CAN EITHER ENTER A WORD OR THE COMPUTER WILL SELECT ONE FOR YOU."}:"(MAXIMUM NUMBER OF LETTERS IS 15)":"THE COMPUTER WILL THEN SCRAMBLE THE WORDAND YOU MUST DECIPHER IT.":"DO YOU WANT TO ENTER A WORD? (Y/N)":Q$2 2āCH1SC1" W(CH)W(SC)6100 SC2ĂCH= LEW(SC)J S$(LE);R SCX  3:"************* CRYPTOLOGIC **************" " BY: RUDY A. GUY": "****************************************"P"THIS IS THE GAME OF CRYPT  20(A$)2( TA20(A$)27 I1(A$)E 13:"-";K Q ` I1(A$)t S$(I)(A$,I,1)| &: 0 ROUTINE TO SCRAMBLE WORD :WO(A$) D12 N8 XSC1(A$) bW(SC)(((1)WO)1) lW(2)W(1)610 vSCLSS+ |:"DO YOU WANT TO TRY AGAIN?":A$; A$"N"450i :"DO YOU WANT TO ENTER A NEW WORD?":A$o  A$"Y"110 A$"N"İ790 140 :12:"APPLE II SAYS BGDOO EY":I13000::"I MEAN GOOD BYE!":  FORMAT FOR UNDERLINING$) 12:(TA2)I:V$(I); V$(I)(A$,I,1)İ970:240U V$(I)(A$,I,1)İ980\ Ie "990u ,I14000:} 6: @12:"YOU DECIPHERED THE WORD WITH ONLY ";S JS1ĺ"MISTAKE." TS1ĺ"MISTAKES." ^TT1 hT1LSS rT1SLS++++++++++++++++":23:"+++++++++++++++++++++++++++++++++++++++"| X222:X:"+ +": 21:3:"LOW SCORE=";LS:3:11::"<<>>": 560 460 34,10:35,12:33,37:32,1: S0 I1(A 1010(S0:T072A$(80),S$(16),V$(15),W(18)?<:HF700YPQ$"N"İ790iZQ$"N"140odn"PLEASE ENTER A WORD TO BE SCRAMBLED.":A$x(A$)15ĺ"DO NOT EXCEED 15 LETTERS!":110530@ 1:"+++++++++++++++++++++++    V 2?'(ۓ-%+-M666666M9 $$$$d-66666'ۓ-%8?M P+- 66.-66>?oI #$$$$du66666 ۓ-%8?M 666666M $$$$ }66666Me$$$$$66666 666666 X-6?MIm266666MH-.5>'R H\ns8r+-----e., -%II9?????? uf-4&o (-666?k?$$,%---%,( u>?'Vn k$$$"66 Ho--???  !8 m92 "H#hI7 lL% Q$Q$"Y"5050%Q$"N"Ŀ/5000ER10:Z10:1060}" SOUND GENERATOR BY TOM CLEAVER UNIVERSITY OF LOUISVILLE " }816,166:817,1:818,32:819,142:820,3}821,138:822,208:823,250:824,9629:865:889,123:1,15:L11:2,L:2,1:865:L1,5:2,2:889,128:865:889,129:865:889,130:1,55:L114:2,L:865::2,55:865:VDX6DX61130`350j1000::" YOUR SCORE WAS ";Z1:(4):" ANOTHER GAME (Y/N)"5:A.A3(25(1))130:A4(12(1))X5}A1,A2A3,A4:A1,A2125,X5:A1,A2125,X5:A3,A4125,X5:A3,A4125,X5:1100Q9110:Q9:5:9138,P:Q813:Q8:Q91$.G03M208159.B1,5:2,1:889,228:867:889,25DXĪDD51F:SC,D:C144C1321110:350k3:R(159(1))1:C,D138,R:0:C,D138,RRX5RX5960350G0:1000T15:A(T),B(T)350160B110:A(7(1))1:A1(25(1))130:A2(12(1))XSC,D:C144C1321110&S58703S6930<350K C138800[CC4:810l CC10:810s*F4C270C10>SC,D:C144C1321110HS6930RS5870\350f0:SC,D:C138ĪCC5pC138ĪCC5zDXĪDDb240l16368,0:G10650EvC(279(1))1:D(140(1))10vS(3(1))4:G10:F(7(1))1:F0F10:SC,DF(7(1))1:F0F1F4F5Y1780C138710CC4:720CC10FC10C270 240(&JX4:KX4:DJDK57010240b916368,0:16368,0:G10:M2M21:M24250:0:G0:SC,D:16368,0?:(24):S4ĪZ1Z110@S5Z1Z1100AS6Z1Z150B"SCORE= ";Z1:240DJX4NKX4XDJDK5700(0:Y138,X:Y1:3:16368,0:240O0:Y138,X:Y2:3:16368,0:240_3:Y1490146,X279,X:0:146,X279,X:16368,0:3:1090:510130,X0,X:0:130,X0,X:16368,0:31090Y1C13858016368,0Y2C138550(T),B(T)JT620%^O904103hO65430@rO8450N|O21460\O32470jO81569}16368,0:2400:Y138,X:XX7:X150X1503:Y138,X:16368,0:2400:Y138,X:XX7:X10X103:Y138,X:16368,0:24158(1))1 A(T),B(T) * X803 Y1C 3:Y138,XK PXt (16384)128O(16384):16368,0 0:T15:A(T),B(T): 3 T15:Y1ĪA(T)A(T)20 "Y2ĪA(T)A(T)20 ,A(T)250ĪA(T)21 6A(T)20ĪA(T)250@A(19):W:W11300::W:(12):(16):"LAUNCHING!":W21500:W2J Z::1[ d:"BLOADD"n n1:0,0:62454t xz 1:0,159279,159 A(20):B(20) R1R11:R135000 T15 1:0,159279,159 A(T)(279(1))1 B(T)(51,130:153,136u >1200,140:9205,140:8211,140:2217,140:Q811000::Q9178:LINELINE2:1,LINE279,LINE: F3:279,156279,1:279,11,1:1,11,156:E111000::? PQ5126:" "::(1):W901:(12):233,82:232,8:233,82& "BLOADA1"/ :5 (470,90:590,90:6110,90:5130,90:14150,90:4170,90:5190,90:18210,90 2"BLOADN++L" <2228,93:3:23103,130:25109,130:12115,130:11121,130:29127,130:19140,130:24145,130:131 "  " NICK GOLDWATER,JOHN FRANCO,NAT CRUTCHER,JASON GREENE,GARY BOCHORST,TRACE MAYER 1454 CHEROKEE RD. LOUISVILLE, KY. 40204 " 0:1:32010 ::232,8:e " DEFENDER 2 MOBAS INC. "  "              K$J$(A):A+(:"YOUR MESSAGE JUMBLED:"9 (J$K$:J$D(JU$J$(:"RUN UNJUMBLER WITH THIS JUMBLE (Y/N) :";I$::(I$,1)"Y"130("RUN THE PROGRAM AGAIN? (Y/N) :";I$::(I$,1)"Y"Ĭ(("SO LONG.":I$(" ",(J$))CG'N(J$)^I'J1(J$):J$(J)"":JmL'J1(J$)V'R(N(1))1`'A1j'C0t'J$(A)""CC1~'CR10200'AA1:10100'J$(A)(J$,J,1)'NN1:J'K$"" 'A1(J$):K$E JUMBLE OVER AGAIN? (Y/N) :";I$'K#<P#(I$,1)"Y"130xZ#"DO YOU WANT TO RUN THE PROGRAM AGAIN? (Y/N) :";I$:d#(I$,1)"Y"Ĭn#"SO LONG."x#' JUMBLE':$'"ENTER LINE YOU WANT JUMBLED.".'500:J$I$8'J$""100307B'KIT:3001A1J$(JU$,1)(J$,2)VA(J$)J$(J$,A1)(JU$,A,1)A1A(J$)J$(J$,A1)(JU$,A,1)(J$,A1)(# END2#:<#:"JUMBLE:":JU$::"YOUR SOLUTION:":K$:A#J$JU$:T1!F#"DO YOU WANT TO DO THE SAM1)" "(K$,T)( REMOVE SPACE4 L(K$)H T1K$(K$,2)b TLK$(K$,(K$)1) T1TLK$(K$,T1)(K$,T1)  ELIMINATED0O$(K$,T,1)A1(JU$)(JU$,A,1)O$(J$,A,1)"*"D0İ4500:D1A0+LI(I$):I32(K$,T,1)"-"I$"-"ıRVI32(K$,T,1)" "I$"-"İ700:|`I32((K$,T,1))32I$"-"İ4000:jI$""((K$,T,1))32İ4000:3000:K$K$"-"tI$" "İ20001000 ADD SPACET1K$" "K$T1K$(K$,T)"-"İ300:K$K$"-"&=I$" "TT18?T(K$)1000^BI$""(K$,T,1)" "İ3000:1000DI$""(K$,T,1)"-"İ3000:K$K$"-":1000GI$"-"(K$,T,1)" "İ4000II$"-"(K$,T,1)" "İ700:IT:300JI$"-"TT1:1000KT(K$)100;:868T1T1)T(K$)T(K$)1IT<12:TDI$UI$"*"1040f14:1:868I$(21)TT1:1000$I$(8)TT1:1000.I$(13)90003I$" "(K$,T,1)"-"(K$,T,1)" "İ4000:300:K$K$"-"8I$" "(K$,T,1K$,(K$)1): X(K$)1G (K$,X,1)"-"K$(K$,X1)(K$,X1):Q XX1j (XT)D0TT1:D1w X1730 (K$,1)"-"K$(K$,2): D1TT1 14:1:"NO MORE LETTERS."::1000  WAIT FOR INPUT1:8:J$;:868:1:12:K$$(13)ĺ"";:510% A$(13)ĺ:J A$"*"A$"-"A$" "ĺ"";:510S A$;` !I$I$A$i &510r +<-- 0I$""ı 5(I$)1I$"" :(I$)1I$(I$,(I$)1) ?A$;:868: GET RID OF THE RIGHTMOST - D0 (K$,1)"-"K$($)1)"*"5 B1B(J$)J$(J$,B1)"*"(J$,B1); R , UPDATE SOLVING $i 6I1K$I$(K$,2) @I(K$)K$(K$,(K$)1)I$ JI1I(K$)K$(K$,I1)I$(K$,I1) T INPUT I$"" A$ A$(8)İ555:510 (I$)38A" RETURN: EXIT PROGRAM" ) 1000< F0:B1(J$)W I$(J$,B,1)F0İ200_ IT B:F0Ģ14:1:"THERE IS NO '"I$"'.":868:I$"-":300:155 TT1 300:155 INSERT * F1 B1J$"*"(J$,2) B(J$)J$(J$,(JJU$J$ ! K$"":A1(J$)? (J$,A,1)" "K$K$"-"H A: 1:6:"JUMBLED STRING:":1:10:"UNJUMBLED STRING:" 1:16:"==========================":" CTRL-I: INSERT SPACE":" CTRL-D: DELETE CHARACTER" " ARROWS: MOVE CURSOR" J$(40)_2:10:12:"JUMBLER / UNJUMBLER"::7:"BY DANIEL TOBIAS JAN. 1982"<:7:"(J)UMBLE OR (U)NJUMBLE? ";I$F(I$,1)"J"10000d STARTiT1n:s"ENTER JUMBLE YOU WANT TO SOLVE:":500:J$I$xJ$""115 }     ************":15:"****************************************"T H$"KEITH MCCONNE"d S2771: 12:868:(S):H$:I110:I,S J$"LL PRESENTS..." T27201:868:T:12:J$:T I13000:I :I123:I)"COLOR BARS!!!":I:J11))160E 11:8:"INVALID NUMBER! REENTER! ":20:13:E:20:13:E_ 20:14:F:20:14:Fy 20:15:G:20:15:G ELİ6500:60 FMİ7000:60 GPİ7500:60 ADDADD1 8000 60 = 9:"***************************4000:PX%+ nI1100:I:::I11000:I x3:2:"NOW TELL ME, ";A$:3:4:"WHAT WAS THE ORDER OF COLORS FROM":3:6:"LEFT TO RIGHT? (GIVE THE NUMBERS)" HUE4500,4500,4500,5000,5500,6000 :(E0)(E(HUE1))(F0)(F(HUE1))(G0)(G(HUEȺ"YOU LIKE, ";A$;"?":17:14:"(3-6)":19:16:HUEC +3500:10000I -] 2HUE3HUE640 <11:12:"GET READY, ";A$;"!!":I13000:I AHUE2000,2000,2000,2500,3000,3500 F PYA6:ZA14:4000:LX% ZYA16:ZA24:4000:MX% dYA26:ZA34: :I1200:I:10000ADD0:NULL066:9:"TO AVOID ANY FUTURE HASSLES,":6:11:"OR YOUR BASIC HUMAN BING-BANG," 6:13:"WILL YOU PLEASE ENTER""6:16:"YOUR NAME? ";A$::15002 (:9:10:"HOW MANY COLORS WOULD":9:12:+:5:"THIS PROGRAM AND EXAMINE THEM."316Z:8:"GOOD LUCK WITH NICOMACHUS."d2000jp24:"PRESS RETURN TO CONTINUE ";RR$:dN:5:"HE QUICKLY TELLS YOU THE NUMBER"E:5:"YOU HAD IN MIND."n:8:"YOU SHOULD TRY TO FIGURE OUT":5:"THE METHOD NICOMACHUS USED. IF"2000:5:5"YOU CANNOT FIGURE OUT HIS FORMULA, ":5:"LIST LINES 100 TO 130 OF""TO THINK OF ANY WHOLE NUMBER"F]:5:"BETWEEN 1 AND 100. HE THEN"q_:5:"ASKS YOU TO DIVIDE YOUR NUMBER"{e2000j:5:5o"BY 3, THEN BY 5, AND THEN BY 7."t:5:"HE ASKS YOU TO TELL HIM THE "y:5:"THE REMAINDER EACH TIME."(~:5:"IS REVEALED.".2000*8:5:8RB"MANY FORMS OF THIS GUESSING GAME"zG:5:"EXIST. THE OLDEST RECORDED"L:5:"EXAMPLE SEEMS TO BELONG TO "Q:5:"NICOMACHUS, A GREEK WHO DIED"V:5:"ABOUT 120 A.D. HE TELLS YOU "Z:5:"ALMOST EVERYONE HAS BEEN ASKED"P :5:"TO THINK OF A NUMBER AND THEN TO "{ :5:"DO SOME PRIVATE CALCULATIONS. " :5:"AFTER REVEALING THE RESULTS OF " :5:"THESE CALCULATIONS TO THE " :5:"QUESTIONER, THE ORIGINAL NUMBER "$::5:"THIS GAME FROM COMPUTER ADVENTURE"V m:5:"SHOULD HAVE BEEN FUN FOR YOU."~ r:8:N$", I HOPE YOU MEET WITH MY" w:5:"FRIEND, NICOMACHUS, AGAIN." |::16:"GOOD BYE"   :5:10 "N I C O M A C H U S" ::8" 0/ :5:"I THINK YOU MUST HAVE AN ERROR IN"^ :5:"YOUR ARITHMETIC. LET'S TRY AGAIN."h 2000p 30 ::5:"DO YOU WANT TO TRY AGAIN, "N$"?" :14:AE$ (AE$,1)"Y"ī30 350 30 ^:5:10 c"N I C O M A C H U S", hLET ME THINK A MOMENT . . . ". ZI11500:IC dD70A21B15CT nD105ī140` xDD105i 110v :10:2 "YOUR NUMBER WAS ";D;", RIGHT,"N$"?" :16:A$ (A$,1)"Y"ī220 (A$,1)"N"ī240 :10:"HOW ABOUT THAT!!" 25THREE. WHAT"- ,:5:"IS THE REMAINDER? ";AY 2:5:"NOW DIVIDE YOUR NUMBER BY FIVE." 4:5:"DOES IT HAVE A REMAINDER? TELL ME." 6:10:B <:5:"DIVIDE YOUR NUMBER BY SEVEN FOR " >:5:"ME. WHAT IS THE REMAINDER? " @:10:C P"  1000:5:5B"HELLO, MY NAME IS NICOMACHUS."j:5:"WHAT'S YOUR NAME?"::14:N$:3:3:N$","::5 "PLEASE THINK OF A NUMBER BETWEEN "":5:"1 AND 100. DON'T TELL ME, THOUGH."(:5 *"DIVIDE YOUR NUMBER BY      T $20""'ʃ "DOCTORS FEE.....$50";'ʃ "YOU INHERIT $100"Q'ʃ "ADVANCE TO GO"m'&ʃ "HOSPITAL FEE...$100"'0ʃ "GO TO JAIL"':ʃ "SCHOOL TAX......$50"'Dʃ "BANK ERROR....COLLECT $200"&Ƀ "GO TO JAIL"@&Ƀ "BUILDING & LOAN MATURES COLLECT $150"c&Ƀ "ADVANCE TOKEN TO BOARDWALK"&Ƀ "ADVANCE TO ST CHARLES PLACE"&Ƀ "X-MAS FUND MATURES...COLLECT $100"&Ƀ "LIFE INSURANCE MATURES.. COLLECT $100"'Ƀ "INCOME TAX REFUND..COLLEC 'YES'"-%Ƀ "TO IMPROVE PROP. TYPE 'HOUSE'"L%Ƀ "INSUFFICIENT FUNDS...."p%Ƀ "PAY POOR TAX $15...HA HA HA"%Ƀ "ADVANCE TO ILLINOIS"%Ƀ "GO BACK 3 SPACES"%Ƀ "ADVANCE TO GO"%Ƀ "BANK PAYS YOU $50 DIVIDEND"&Ƀ "TAKE A RIDE ON READING RR"F THERE IS ANY PROPERTY YOU WISH TO "U$TɃ "SELL & YOUR ENEMY WANTS TO BUY TYP SELL"$^Ƀ "IF YOU NEED A LIST OF PROP. TYPE 'LIST'"$hɃ "YOU CANT SELL THIS YOU DONT OWN IT!!!!"$rɃ "WHAT PROP DO YOU WANT TO SELL"%|Ƀ "IF YOU WANT TO SELL AGAIN TYPEE ROLL")#Ƀ "IT IS FOR SALE FOR ONLY "O#Ƀ "IF YOU WISH TO BUY TYPE 'BUY'"y#"Ƀ "YOU ROLLED DOUBLES ROLL AGAIN...."#,Ƀ "YOU ROLLED 3 SETS OF DOUBLES..GOTO JAIL"#6Ƀ "IF YOU WANT TO QUIT TYPE 'QUIT'"#@Ƀ "YOU ALREADY OWN THIS PROPERTY"%$JɃ "I50"ȃ "<<<<>>>>",0,0,0H"ȃ "*THIS IS SMUCK'S MONOPOLY FOR TWO*"f"ȃ "EACH PLAYER HAS $1500""ȃ "WHEN YOU BUY HOUSES YOU HAVE TO PUT THE""ȃ "SAME NUMBER ON EACH COLOR GROUP""ȃ "WHEN U BUY HOUSES INPUT # PER LOT"#Ƀ "TO ROLL DICE TYP,0,0,0!nȃ "PACIFIC",0,300,26?!xȃ "NORTH CAROLINA",0,300,26]!ȃ "COMMUNITY CHEST",0,0,0{!ȃ "PENNSYLVANIA",0,320,28!ȃ "SHORT LINE RR",0,200,25!ȃ "?CHANCE?",0,0,0!ȃ "PARK PLACE",0,350,35!ȃ "LUXURY TAX",0,0,0"ȃ "BOARD WALK",0,400,0 ȃ "KENTUCKY",0,220,182 ȃ "?CHANCE?",0,0,0K ȃ "INDIANA",0,220,18e (ȃ "ILLINOIS",0,240,20} 2ȃ "B&O RR",0,200,25 <ȃ "ATLANTIC",0,260,22 Fȃ "VENTNOR",0,260,22 Pȃ "WATER WORKS",0,150,35 Zȃ "MARVIN GARDENS",0,280,24!dȃ "GO TO JAIL"ARLES",0,140,10.ǃ "ELECTRIC CO.",0,150,30 Fǃ "STATES",0,140,10`ǃ "VIRGINIA",0,160,12yǃ "PENN RR",0,200,25ǃ "ST JAMES",0,180,14ǃ "COMMUNITY CHEST",0,0,0ǃ "TENNESSEE",0,180,14ǃ "NEW YORK",0,200,16 ȃ "FREE PARKING",0,0,Bǃ "COMMUNITY CHEST",0,0,07Lǃ "BALTIC AVE",0,60,4PVǃ "INCOME TAX",0,0,0l`ǃ "READING RR",0,200,25jǃ "ORIENTAL AVE",0,100,6tǃ "?CHANCE?",0,0,0~ǃ "VERMONT",0,100,6ǃ "CONNECTICUT",0,120,8ǃ "VISITING IN JAIL",0,0,0ǃ "ST CHS FOR MONOPOLY-ZÆG$(40),L%(40),P(40),R(40)GdÆC$(10),Z$(10),M$(20)SnÁI140nxÇG$(I),L%(I),P(I),R(I)tÂÁI120ÇM$(I)ÂÁI110ÇC$(I)ÂÁI110ÇZ$(I)Âñ8ǃ "MEDITERRANEAN AVE",0 ,60,2 %(I)2DD1:B$(D)G$(I)"8u::U9uN$(1);" OWNED THE FOLLOWING:":I1C:A$(I)::u"AND HAD $";M(1);" AT THE END OF THE GAME.";uN$(2);" OWNED THE FOLLOWING:":I1D:B$(I):L.6L.7ĺC$(7):I(Z)10:M(Z)M(Z)50:t@L.7L.8ĺC$(8):M(Z)M(Z)150:BL.8L.9ĺC$(9):I(Z)39:2000:DL.9L1ĺC$(10):I(Z)11:2000:0uC0:D02uI1394uL%(I)1CC1:A$(C)G$(I)6uL"TO THE PROGRAM AUTHORS":11)"AND CONTRIBUTORS."b (::6)"";:A$: 2"ANY OF OUR PUBLIC DOMAIN PROGRAM DISKS FROM OUR LARGE LIBRARY CAN BE COPIED ONTO YOUR BLANK DISKS SENT TO US FOR A"Y <"COPY FEE OF ONLY 75 CENTSZ ::3:16)"75 CENT":6)"PUBLIC DOMAIN PROGRAM DISKS":::12)"DISTRIBUTED BY:"::12)"ASPEN SOFTWARE"::6)"729--1/4 E. PORTLAND STREET":8)"PHOENIX, ARIZONA 85006":7)"TELEPHONE: (602) 253-0651"1 ::10)"WITH SPECIAL THANKS":8)  REMAINING":80I0:"YOUR PHASER HAS ";PH;" SHOTS REMAINING.":80X2DI9260m<DI9LO6260FSO(2,1)1ĺ:CD$(29):80PSO(6,1)1ĺCD$(30):80ZCD$(31):BO1:80nBO0270x:CD$(32):LO3:199034,12 :"COMHARGER IS DEPLETED. IT'S IMPOSS- IBLE TO RECHARGE YOUR PHASER.":1328'CH1ĺ:"THIS IS YOUR LAST CHARGE.":PHPH4:CHCH1:1328(:"YOUR PHASER IS CHARGED":PHPH4:CHCH1:"IT HAS A CHARGE OF ";PH-:"YOU HAVE ";CH;" CHARGES OF 4 SHOTS EACH,412501260!CD$(25):800LO81280MLO14NO1ĺCD$(26):80^CD$(27):80mDI7260SO(1,1)1ĺCD$(28):80#SO(5,1)1ĺ"YOU DON'T HAVE A CHARGER TO CHARGE IT WITH. YOU'D BETTER LOOK AROUND.":80F&CH1ĺ:"YOUR CCD$(23):80X=LO15ĺCD$(40):SO(12,1)0:SO(13,1)15:CD$(39):AL1:DL1:PHPH1:1990qLYYLOĺCD$(13):80~[CD$(24)`210tDI17260~LO52702030DI1412001210DI15260LO812301260LO1":DI$(13)"OPEN DOOR":O$(7)"OPEN DOOR":1995ZSO(4,1)1ĺ:CD$(18);" ";SU$(12):80i:CD$(19)CD$(20):1660:3000DI20270VE11DI181020$SO(1,1)1ĺCD$(21):80)PH0ĺCD$(22):80.DL11100 8SO(12,1)LO YOU WANT TO SAVE THIS GAME? ";A$;(A$,1)"Y"Q2:690Q(A$,1)"N"920m1860:I15500::3000}DI13260DI13LO12260SO(4,1)1SU$(12)"":GD1::CD$(17):SS(12,3)11:10051010-DE$(12)"YOU'RE IN A GUARD ROOMTB:ST:CM:PM:PH:CN:GB:GD:IN:LO:CH\SS(4,3):NO:BO:SS(3,1):SS(12,3):DL:ALn (4);"CLOSE":" GAME SAVED":Q2Q1:3000 804DI20270>LO15AL1270H:CD$(38):SO(9,1)15:AL0:1990!:12:"DOEE3EE11ĺ"BAD NAME. TRY ANOTHER. ":690JEE6ĺ"NO FILE NAMED ";NA$u"WHAT NAME DO YOU WANT TO SAVE? ";NA$NA$""80(4);"OPEN"NA$(4);"DELETE"NA$(4);"OPEN"NA$(4);"WRITE"NA$I0PL:K02SO(I,K):K,I,0380DLO1ĺ:CD$(14):80:NI0PL:SO(I,0)DI610FXI:260fbSO(I,1)1ĺ:CD$(15):80lININ1:SO(I,1)LO::"O.K. ":I1500:I:80SU$(LO)""ĺCD$(16):80:SU$(LO):SU$(LO)"":80*216,0:(4);"CLOSE"NA$:EE(222):EE2IN1:SO(I,1)1::"O.K.":I1500:I9 DI7SU$(5)""C 2000_ :"YOU'RE CARRYING. " J0:I1PL:SO(I,1)1ĺO$(I):J1 I SO(1,1)1ĺ:"YOUR PHASER HAS A CHARGE OF ";PH;" SHOTS" J0ĺ"NOTHING" :80 &1860:80:DI0:GD0:SS(11,1)0:I12500:' h2000a |DI0ĺ:"YOU DON'T KNOW WHAT A '";DI$(0);"' IS.":80y DI12ĺCD$(10):80 IN4ĺ:CD$(11):80 I1PL:SO(I,0)(DI)430 :260 SO(I,1)1ĺ:CD$(12):80 SO(I,1)LOĺCD$(13):80% IN0,500,550,570,640,690,820,920,970Q VE17ĴVE101040,1140,1180,1300,1330,1390_ "DI0260 ,SS(LO,DI1)0ĺ:CD$(7):80 6 @ JLO12DI4GD1ĺCD$(8):80 TLOSS(LO,DI1) ^LO11DI4ĺ"THE DOOR SLAMMED SHUT BEHIND YOU":SS(12,3)020 SO(1,1)110205 PH0ė::CD$(3):1020? 1100_ PHPH1:PH0ĺCD$(4):1995e w 1680:STST1 OE$"PUSH WALL"LO61390 VE0DI0260 VE0VE16260 273 :CD$(5):80 :CD$(6):80! VE11ĴVE290,3840:GB50 22240 <3300& F2000D PLO5SS(4,3)0:SS(3,1)0` ZLO4SS(4,3)0ĺCD$(1){ xLO15SO(3,1)14:NO1 ST20((1)GB)2220 ST40GB30 LO6LO15220 CD$(2):YYLO: 1680:VE11DI20270 VE11DI1810 2720A:12:"DO YOU NEED INSTRUCTIONS? (Y/N) ":A$:A$U(A$,1)"N"25m(A$,1)"N"İ2842u28{2850:15:"WHAT IS YOUR NAME? ";NN$NN$NN$"AE"4400 3030!4450 (LO1:LP40:LQ50:TS100:CH5:ZL               "RECEIVING OUR PH.D. AT THE VULCAN"U4:14:"INSTITUTE OF LOGIC, IT IS OUR TASK"4:16:"TO SEEK OUT AND STUDY THE COMPLEX "4:18:"NATURE OF THE HUMAN SPECIES."I14000:I4:7:"KING CAL Q. LE TOUR, THE NOTORIOUS"$4:JD5:15:"THE PROPER COLOR SEQUENCE FROM":5:17:"LEFT TO RIGHT.":255[GI11000:IcI:4:6:100:"WE KORPZONS ARE ON A FIVE YEAR"4:8:"MISSION -- TO BOLDLY GO WHERE NO"4:10:"COMPUTER HAS GONE BEFORE -- EARTH!!"$4:12:ABILITIES."228:16:"INSTRUCTIONS, SIR? (Y/N)"G332:16:B$:255U8B$"N"ıB:125:7:5:"BEFORE YOUR EYES YOU WILL SEE":5:9:"THREE RANDOMLY CHOSEN COLOR":5:11:"SPECIMENS. YOU ARE TO MAKE A"C5:13:"HYPOTHETICAL ASSUMPTION AS TO"2000:J:l 6:"<><><><><><><><><><><><><><><><><><><><>":18:"<><><><><><><><><><><><><><><><><><><><>"t $70 .5:8:"WE THE COMPUTER RACE FROM THE":5:10:"PLANET KORPZON, WOULD LIKE TO":5:12:"PUT YOU THROUGH A TEST OF YOUR":5:14:"HUMAN (8);" ";G$(9);:U:3252 L%(11)ZL%(13)ZL%(14)Zĺ"HOW MANY HOUSES AT $100 DO YOU WANT ON":G$(11);" ";G$(13);" ";G$(14);:U:3254 L%(16)ZL%(18)ZL%(19)Zĺ"HOW MANY HOUSES AT $100 DO YOU WANT ON":G$(16);" ";G$(18);" ";G$(19);:U:3256m S PROPERTY ":I1C:A$(I):Sj 1:20:N$(2);"'S PROPERTY ":I1D:20:B$(I):: L%(1)ZL%(3)Zĺ"HOW MANY HOUSES AT $50 DO YOU WANT ON":G$(1);" ";G$(3);:U:3250 L%(6)ZL%(8)ZL%(9)Zĺ"HOW MANY HOUSES AT $50 DO YOU WANT ON":G$(6);" ";G$ĭL%(I)1M(1)M(1)V:M(2)M(2)V:L%(I)2:3165lX V$G$(I)ĭL%(I)2M(2)M(2)V:M(1)M(1)V:L%(I)1:3165rZ ] M$(10);:F$:F$"YES"3152^ b C0:D0:I139d L%(I)1CC1:A$(C)G$(I)f L%(I)2DD1:B$(D)G$(I)g h :N$(1);"'" RENT":? M$(13):M$(14);:F$:F$"SELL"İ3150a! M$(19);:H$:H$"HOUSE"3200g" N M$(15);:F$:F$"LIST"İ3170P 20:M$(17);:V$:"HOW MUCH DO YOU W ANT ";VR I139T V$G$(I)ĭL%(I)0ĺM$(16):/V V$G$(I)X):"YOU OWE $";R(X);" RENT":e6Z2M(Z)M(Z)R(X):M(1)M(1)R(X):"YOU OWE $";R(X);" RENT":MZ1M(Z)M(Z)R(I(Z)):M(2)M(2)R(I(Z)):"YOU OWE $";R(I(Z));" RENT":OZ2M(Z)M(Z)R(I(Z)):M(1)M(1)R(I(Z)):"YOU OWE $";R(I(Z));(H%(I(Z))0L%(I(Z))0L%(I(Z))Z)2125Y (H%(I(Z))0L%(I(Z))0L%(I(Z))Z)2100w M$(7);P(I(Z));" DOLLARS" M$(8);:F$:F$"BUY"3100 M(Z)M(Z)P(I(Z)):"YOU NOW HAVE $";M(Z) L%(I(Z))Z:31004Z1M(Z)M(Z)R(X):M(2)M(2)R((I(Z))' I(Z)2I(Z)17I(Z)334100C I(Z)4M(Z)M(Z)200:d I(Z)7I(Z)22I(Z)364400{ I(Z)10I(Z)20ı I(Z)30M(Z)M(Z)50:I(Z)10: I(Z)38M(Z)M(Z)75: I(Z)40M(Z)M(Z)200:I(Z)0: L%(I(Z))ZĺM$(12):3100+  Y0Y.16D11- Y.16Y.32D12D Y.32Y.48D13[ Y.48Y.64D14r Y.64Y.81D15 Y.81Y1D16 "YOU ROLLED A ";D;" AND A ";D1:I(Z)I(Z)(DD1) I(Z)40I(Z)I(Z)40:M(Z)M(Z)200  "YOU ARE ON ";G$F3ĺM$(9):2026 F3ĺM$(10):I(Z)10:M(Z)M(Z)50X M$(11);:F$:F$"QUIT"30000a 100 M$(6);:F$:X(1):Y(1) X0X.16D1 X.16X.32D2 X.32X.48D3 X.48X.64D4 X.64X.81D5 X.81X1D6S PLAYER #2";N$(2)I d:"**";N$(1);"'S TURN***********";:F0:" $";M(1)] fZ1:1000:2000~ sDD1FF1:F3ĺM$(9):102 uF3ĺM$(10):I(Z)10:M(Z)M(Z)50 :"**";N$(2);"'S TURN***********";:F0:" $";M(2) Z2:1000:2000 DD1FF1: 50000125QM(1)1500:M(2)1500:I(1)0:I(2)0:A$(25),B$(25),H%(40)I139:L%(I)0:H%(I)0::I18:U(I)0: R(X)(H%(I(Z))R(I(Z))10):M$(1):::"**RULES**":M$(2):M$(3):M$(4):M$(5) "WHO IS PLAYER #1";N$(1):"WHO I            DC:A,BDC0&Q(16384);$Q127Ĺ16368,0R.Q127Q$(Q128)^8FEFE5|BFE0ĺ"FUEL GONE!":1380LXX1500N500V22:"SCORE= ";XX;14);"FUEL= ";FE`23:::"HIGH SCORE= ";HS;" BY ";HS$ejQ$"I"DD1 tQ$-D)D$;"OPEN SPACE CHASER HIGH SCORE"PD$;"READ SPACE CHASER HIGH SCORE"\HS,HS$D$;"CLOSE SPACE CHASER HIGH SCORE"*MAIN PROGRAM::A2:B20:C37:D207:A,B3:C,DT120:T0C,DCO12DC12>34,7:34,10:34,13:34,16:34,16:34,25:34,28:34,31:34,34VH11,7:14,7:17,7R6,20:6,21:8,20:8,21:33,20:33,21:35,20:35,21\10::"GET READY!!"fp*READ FROM TEXT FILE CURRENT HIGH SCORER'S NAME AND SCORE.zD$(4):*CTRL:21,16:21,25:21,26:21,30:21,34l 24,7:24,11:24,15:24,16:24,20:24,21:24,25:24,26:24,30:24,34*27,7:27,11:27,15:27,16:27,20:27,21:27,25:27,26:27,30:27,34430,7:30,11:30,15:30,16:30,20:30,21:30,25:30,26:30,30:30,34@:11,27:11,30:11,34X14,11:14,16:14,15:14,20:14,21:14,25:14,26:14,30:14,3417,7:17,11:17,15:17,16:17,20:17,21:17,25:17,26:17,30:17,34 20,5:20,8:20,11:20,15:20,16:20,25:20,26:20,30:20,34#21,5:21,8:21,11:21,15:15,38:18,38:21,38:24,38:27,38:30,38:33,38:36,38:38,3838,6:38,9:38,12:38,15:38,18:38,21:38,24:38,27:38,30:38,33:38,367,7:7,10:7,13:7,16:7,25:7,28:7,31:7,3420,3:20,3811,11:11,14:11,17:11,20:11,21:11,242:23,3232"5,1836:23,3636B20,21:20,20:21,20:21,21J123,3:6,3:9,3:12,3:15,3:18,3:21,3:24,3:27,3:30,3:33,3:36,3:38,33,6:3,9:3,12:3,15:3,18:3,21:3,24:3,27:3,30:3,33:3,36:3,38?3,38:6,38:9,38:12,380,390:0,3939*&5,185:23,365?09,189:23,329W:13,1818:23,2818oD13,1823:23,2823N9,1832:23,3232X5,1836:23,3636b0,390:0,3939l5,185:23,365v9,189:23,32913,2813:13,2828 9,183" (M)" " I"3" DOWN"HA11500:A:23"DO YOU WANT ME TO SHUT UP?";:Z$:(Z$,1)"Y"QT1*SET FUEL AND NEXT SCREEN:FE5000FEFE3500(100N):NN1N520,520,520,520,52015HT) AWAY FROM THE CHASER (THE LIGHT BLUE ONE TO THE LEFT OF SCREEN) ."S |:: "TO MOVE YOUR SHIP PRESS THE KEY AS SHOWN" " UP" " I" " (I)" " I" "LEFT-(J)- -(K)-RIGHT" " I"TIONS?":F$# 6(F$,1)"Y"ė:3409 @(F$,1)"Y"450B J300[ T14);"INSTRUCTIONS"t ^14);"------------"z hI r"THE IDEA OF THIS GAME IS TO AVOID THE CHASER . THIS IS ACCOMPLISHED BY KEEPINGYOUR SPACE VEHICLE (THE PURPLE ONE ON THE RIG4:11,1814:16,19:2,194:11,1714[ 18,2710:11,2723:18,25:19,26:20,2227:25,27z 29,3722:23,3833:35,38 BJ13000::: *START OF GAME - INSTRUCTIONS "HIT ANY KEY TO CONTINUE":ANS$  "255 ,"DO YOU NEED INSTRUC* * * * * ** ";O " * * * * * * * * * "; " **** * * * * **** **** * * "; ::: *MY LOGO "THIS PROGRAM WAS DEVELOPED BY" BJ13000:::9$ 5,132:5,1310:5,1319:3,91 * * * **** **** ";) Z:Z d" **** * * **** **** **** **** "; n" * * * * * * * * * "; x" * * * * * * * * * "; " * **** **** **** *** **** "; " * * < *OPENING TITLE::&6,](" **** **** **** **** **** ";2" * * * * * * * ";<" **** **** **** * *** ";F" * * * * * * ";! P" ****       6300" BX(PX2)BX(PXW)280D VYVY1:NY153:: HIT PADDLE^ I17:X(16336):I VYLOSSVY:NY156: HIT BOTTOM "1000 ,NX1330 61000 @NX1:VXVXDV JNX276360 T1000 ^NX552NX:VXVXDV hXBX:YBY:0:200078,159278,00,0> 24:" GET THE PADDLE UNDER THE BALL"e PX1(0):PY156:1:PX,PYPXW,PY~ BX(1)2783:BY111 VY9:VX(1)105 XBX:YBY:3:2000 NXBXVX:NYBYVY:VYVY1 (NY)140(VY)24000 NY13000 NY15: ::"---------------------------------------"W2 BOUNCING BALL CATCHER h< MARK CROSSyF RUSTON, LAdLOSS3: LOSS AT EACH BOUNCEnDV.5: SIDEWAYS SPEED-UP RATExW7: PADDLE WIDTHS(276W)255:2 0,00,1592"CORRECT!"::I11000:I::O':I16:BAR(I):J13:0,39(I1)7J:J,IZ'1:21'" RED, WHITE, BLUE, YELLOW, PINK, GREEN":"ADJUST THE TV AND THEN PRESS RETURN";:XA$:: I17:16:"PINK 5".19:16:"GREEN 6"H21:20:E:21:20:Eb22:20:F:22:20:F~23:20:G:23:20:G:d18:12:"NO!!":I11000:I::X17:12:"SORRY!":I11000:I::L17:12:"SORRY!":I11000:I::@16:12::ITE 2"13:16:"BLUE 3"715:16:"YELLOW 4"O17:16:"PINK 5"i19:20:E:19:20:E20:20:F:20:20:F21:20:G:21:20:G:p9:16:"RED 1"z11:16:"WHITE 2"13:16:"BLUE 3"15:16:"YELLOW 4"F:20:20:F(21:20:G:21:20:G:@11:16:"RED 1"X13:16:"WHITE 2"p15:16:"BLUE 3"17:16:"YELLOW 4"19:20:E:19:20:E20:20:F:20:20:F21:20:G:21:20:G:|9:16:"RED 1"11:16:"WH:B BAR(1)1:BAR(2)15:BAR(3)2:BAR(4)13:BAR(5)11:BAR(6)12:VX%((1)HUE)1gTBAR(X%):TCOLUMNYAZA:5,20COLUMN:COLUMN:13:16:"RED 1"15:16:"WHITE 2"17:16:"BLUE 3"19:20:E:19:20:E 20:20:HALL"35:14:"WE SHALL PROCEED WITH THE TEST."gI13000:I:22:"THANK YOU FOR YOUR TIME ";A$xI12000:I~BAR(1)1:BAR(2)15:BAR(3)2: BAR(1)1:BAR(2)15:BAR(3)2:BAR(4)13: BAR(1)1:BAR(2)15:BAR(3)2:BAR(4)13:BAR(5)11LIEN I'VE EVER MET!"::1700`|RUT2Ė13:12:"ARE YOU SURE??: FOR I= 1 TO 1000: NEXT I: HOMEi2554:11:"WHAT IS/WAS YOUR FATHER'S NAME?"17:13:DAD$:5:10:"NOW THAT WE HAVE RECEIVED THE"5:12:"NECESSARY INFORMATION, WE SS"+V7:12:"DETECT A TRACE OF UGLINESS"UX7:14:"ABOUT THE STRUCTURE OF YOUR"Z7:16:"FACIAL SYSTEM!":I14000:I^:1700hSEX1RUT2Ė5:12:"SAY FELLA - YOU'RE KINDA CUTE!":I11000:I::1700rRUT1Ģ12:"YOU ARE THE CUTEST A"10:6:"WHAT IS YOUR AGE? ";AGEC,11:9:"WHAT IS YOUR SEX?"t115:12:"(1) MALE":15:14:"(2) FEMALE"620:16:SEX:SEX1SEX21580@:I1500:IJRUT((1)3)1TSEX1RUT11640U7:10:200:"REALLY? MY VISUAL CENSOR9:"LEADER OF THE KORPZONITES, HAS"P 4:11:"INSTRUCTED THAT WE MAINTAIN A"}4:13:"PERSONAL FILE OF EACH HUMANOID"4:15:"CONTACTED."17:18:A$;"!"6:19:"YOU ARE THE FIRST OF MANY!!!":255:I11000:I:I11000:I::#ٍ                       BOMB""AT ALL."B"ANOTHER NOTE: THE BOMB 'WRAPS' AROUND"o"THE SCREEN, TO ALLOW YOU TO HIT ROCKS"$"THAT WOULD OTHERWISE BE IMPOSSIBLE TO"."HIT."8CROSS THE SCREEN, HIT ANY KEY TO DROP"V"IT. YOU MAY HIT A KEY DURING THE COUNT-";"DOWN TO DEPLOY THE BOMB IMMEDIATELY.""EACH PLAYER GETS TO MISS 5 TIMES""YOU MISS IF EITHER YOU FAIL TO DESTROY""ANY ROCKS OR YOU DO NOT DROP YOURSIONS ARE THE";?" SAME. TO CLEAR OUT A MOUNTAIN PASS TO "k"ALLOW YOUR TROOPS TO GET THROUGH AND""DEFEAT THE ENEMY. YOU ALTERNATELY DROP""BOMBS IN AN ATTEMPT TO CLEAR OUT AS MANY";"ROCKS AS POSSIBLE. AS YOUR BOMB FLOATS"&"AER":S10:S20:M10:M208P(16384):P1285020F16368,0LbI$:I$"END"270l5050p"DIVE BOMBER -- WRITTEN BY RICHARD TODD"u:"INSTRUCTIONS:""YOU AND YOUR OPPONENT ARE BOTH PRIVATES""IN THE U.S.ARMY. YOUR MIS)04615CC0(C1Y4700E B(S,C1)B(S,Y):B(S,Y)0]0:3S63,162Y6y 3:3S63,162(C1)6\YS(S1S2)HT((S1S2)HT)5040$1010SW1M1M11SW1M2M21M1M2101010(21):"GAME OV110 r3|FO1HP83HX(FO)63,162HY(FO)6@FOG0TFO1HPs3HX(FO)63,162HY(FO)6{FOFLFSRX1:TSRX1FS1FS1TS40TS40SFSTSY210B(S,Y)1ī4700CY111 B(S,C55000$X19:HX(X)0:HY(X)0:X-HP1AY11:X11iRXX1RXX40RYY1RYY104100B(RXX,RYY)14100HX(HP)RXX:HY(HP)RYYB(RXX,RYY)0SW1S1S11:4070S2S21HPHP1X:YHPHP1hFL.75X0X240:2050)X240X073:2X,Y> YM0:2X,99] Y991582m 0:2X,Y2 B((X6)1,((159Y)6))04000 XXSW1.75 3:2X,Y Y 0:2X,157 5000RX(X6)1:RY((159Y)6)B(RX,RY)ЁP1300:P 2CD <(21):"1 INFTSW3C 3:1IN4,10P 2IN,25w P(16384):P128Ĺ16368,0:2000~ 0 1IN4,10 "2IN,25 @IN 5000 0:1IN4,10 2IN,25 XIN Y25992 0:2X,Y2XXSW10:T230 M15SW110100 M25SW11010@ 22:SW1Ğx "PLAYER #1";::11);"SCORE:";S1;21);"MISSES:";M1 (23):SW1Ğ "PLAYER #2";::11);"SCORE:";S2;21);"MISSES:";M2 CD511 (21):"COUNTDOWN:";CD #16368,0 (B(X,Y)1 Y HTHT10R% XS  9,8,7,5,4,3,2,0,0,1,2,3,4,3,3,4,5,6,5,4  4,5,6,5,4,3,3,4,3,2,1,0,0,2,3,4,5,7,8,9  22:33);::"DIVE";::"" 23:32);::"BOMBER";::"" SW1 SW1SW1:F230:T10:1030 SW1:F1Y TO BEGIN!"' P(16384):P1282565 16368,0; A K 0:1T HT0` X140p ,R:R0405w 61 @DX(X1)6(X1)66 TDX,159DX,159R6 ^DX cY1R:B(X,Y)5:Y 3 YR110 3(X1)63,159(Y1)63 P,H16L iPP1 nA# x30< } "030008001F003700"s "252D2C2D2E35353F3F3F3F373535353525252525250500" "25253F3F24242C2D253C3E2627372E2D3536363F3F2E2E00" "1225253C3C37372E2E0500" "END" S10:S20:M10:M20 "HIT ANY KE 8192B(40,10)*HX(9),HY(9)0 :6000U"LOADING SHAPE TABLE"aP16384t232,0:233,64I$:I$"END"250(A1(I$)122P$(I$,A,2)<H((P$,1))FL((P$,1))PHH48:H9HH7ZLL48:L9LL7 d     234V5:8:B;" ":B?`5:20::"IN RANGE";::" "Lj5:8:Aft::"AUTO PILOT OFF"q35,18:"WHAT ";:4100:"ARE ";:4100:"YOUR ";:4100"ORDERS, ";:4100:"CAPTAIN ";:4100:N$;"?":4100A$C(A$)C0C70:A((1)200000)1="ENTER SELF-DESTRUCT PASSWORD, ";N$O:"===>";SF$Ub$B900000."LEAVING PLANETARY ORBIT ON AUTO PILOT"8:"ENEMY SHIP CLOSING FAST"::"RANGE :";B;:20::"OUT OF RANGE":B5:8:" "LB900000A1ECORDED MESSAGE."::"BY THE TIME YOU FINISH READING THIS,"Wp:"EARTH WILL BE DEAD"nz::"GOOD LUCK":x8000PT10:PT(1)10255"THIS IS COMPUTER CONTROL...":"WHAT IS YOUR NAME?":"===>";N$936:P10000:P(1)1000ON TORPEDO"::"THIS RESULT IS THEN MULTIPLIED BY A "tH:"NUMBER BETWEEN .4 AND 1, DEPENDING ON"::"YOUR RANGE"~R8000\"BOTH SHIPS ARE ON THE SAME MISSION, SO"::"UNFORTUNATELY, YOU EACH MUST KILL THE"::"OTHER TO WIN.";f::"THIS IS A RD BY YOUR LASERS"8000< "SELF-DESTRUCT":LG13:3800*:"THE SELF-DESTRUCT MECHANISM SHOULD ONLY"::"BE USED IN AN EMERGENCY"4:"WHEN THE SHIP BLOWS UP, THE ENEMY"::"SUFFERS LOSSES EQUAL TO YOUR TOTAL"5>:"POWER PLUS 500 X EACH PHOTSUPPLY :AS LONG AS POWER LASTS"J"FUEL DRAIN :VARIABLE, PICKED BY YOU"{"DAMAGE TO ENEMY :FUEL DRAIN X % OF RANGE";"(FROM 50% TO 150% OF FUEL DRAIN IS SPENT";:"ON ENEMY)" :"THE CLOSER YOU ARE TO THE ENEMY, THE"::"MORE HE'LL BE DAMAGE :AS LONG AS POWER LASTS"5"FUEL DRAIN :10 UNITS"W"DAMAGE TO ENEMY :100 UNITS"::"PHOTON TORPEDOES":LG16:3800"SUPPLY :10 TORPEDOES""FUEL DRAIN :NONE""DAMAGE TO ENEMY :1500 UNITS"8000"LASERS":LG6:3800""8";3);"REPORT OF EACH SHIP'S STATUS"C:"9";3);"SELF-DESTRUCT"QDC71210[N8000v"THE FOLLOWING ARE DESCRIPTIONS OF YOUR"::"WEAPONS, WHICH ARE IDENTICAL IN EVERY"::"WAY TO THOSE OF THE ALIEN":"HEAVY GUNS":LG10:3800"SUPPLYIONS":"4";3);"APPROACH"6"5";3);"RETREAT"c"6 BY TYPING 6, YOU CAN LOSE YOUR TURN"" AND GAIN 500 UNITS OF POWER"" BUT YOU CANNOT INPUT COMMAND 6"" WHEN YOU HAVE FULL POWER"&"7";3);"RECALL OF COMMANDS"&024:936:15:"WEAPONRY":7 "#";:3:"DESCRIPTION";H 25:"RANGE"k "- ------------";25);"-----" "1";3);"HEAVY GUNS";25);"0-25000" "2";3);"PHOTON TORPEDOES";25);"1000-200000" "3";3);"LASERS";25);"UNLIMITED":;16);"OPTLEM: THE ENEMY STILL EXISTS"' "8000 ,"YOUR SHIP'S BATTERIES CONTAIN 10,000"::"UNITS OF ENERGY, WHICH IS THE MOST THEY"::"CAN SAFELY HOLD AT ANY ONE TIME." 6:"WHEN YOU RUN OUT OF ENERGY, THE ALIENS"::"WILL DESTROY YOU." @8000 35,"YOU ARE NOW THE CAPTAIN OF THE SPACE"::"SHIP 'VOYAGER', WHOSE SOLE PURPOSE IS" :"TO SAFE GUARD YOUR 150 PASSENGERS...THE" :"SOLE SURVIVORS OF THE PLANET EARTH" ::"MISSION: FIND A PLANET SUITABLE FOR"::"YOUR COLONISTS" :"PROBX1500:X::3 :"THIS IS THE YEAR 2080...": "CIVILIZATION AS YOU KNEW IT HAS BEEN"::"DESTROYED BY STRANGE CREATURES NEVER ": "BEFORE SEEN BY MAN." :"THEY HAVE REDUCED NATIONS TO RUBBLE IN"::"A MASSIVE SPACE WAR." 8000R EW JERSEY":7000 2109 <"DO YOU WANT INSTRUCTIONS "M >12:1:"====>"` ?12:6:A$:A$q FA$"N"1000 PA$"Y"100 Z(7) _63 d35,24 n "THE INFORMATION YOU ARE ABOUT TO"::"RECEIVE IS CLASSIFIED ";::"TOP SECRET": _&  ::255!S163367A$"UFO II":7000_A$"WRITTEN BY LARRY SELTZER":7000e !A$"BASED UPON A PROGRAM WRITTEN BY":7000"A$"RAYMOND J. KERNAY":7000%A$"FOR":7000'A$"CREATIVE COMPUTING":7000 (A$"MORRISTOWN, N                          ` 5046 CASTLE CREEK3a HOUSTON, TEXAS 77053Gb JUNE 26, 1982McSdpe **********************vf|ghi*******************U2V THIS PROGRAM WASNW INSPIRED BY A SIMILARiX PROGRAM APPEARING INY AUGUST 1982 CREATIVEZ COMPUTING MAGAZINE, BY[ JOHN W. RHODES.\ ] APPLE HI-RES VERSION^ BY_ JACK KENNET INTERESTING, EACH"::"SITUATION WILL HAVE A DIFFERENT"::"WIND FACTOR, WITH DIRECTION SHOWN BY"P:"AN ARROW AND VELOCITY SHOWN IN MPH."::::15:"GOOD LUCK":::10:"HIT ANY KEY TO START":16384,128:16368,0QR""ST ***AT THE BOTTOM OF THE SCREEN."YM::9:"HIT ANY KEY TO CONTINUE":16384,128:16368,0N:" THE CANNON IS REPRESENTED BY A BLOCK"::"ON THE LEFT SIDE OF THE SCREEN, AND THE"::"TARGET BY A SMALL FLAG ON THE"::"RIGHT."cO:" JUST TO MAKE IDON'T LIKE A PARTICULAR "::"SET-UP, JUST ENTER '999' WHEN ASKED"::"FOR POWDER, AND A NEW SITUATION WILL"K:"BE CONSTRUCTED."::" WHEN YOU ARE READY TO QUIT, ENTER"::"'0' FOR POWDER."L:" YOUR RECORD OF HITS/ATTEMPTS WILL"::"BE SHOWN "AND THE AMOUNT OF POWDER TO USE IN"::"POUNDS (6 TO 90).H:" THE DESIGN OF THE TERRAIN IS UNDER"::"MY CONTROL, AS IS THE PLACEMENT OF THE"::"CANNON AND THE TARGET."I:9:"HIT ANY KEY TO CONTINUE":16384,128:16368,0lJ:" IF YOU U LIKE INSTRUCTIONS ?":I$:I$"Y"ıvE::" THIS PROGRAM GENERATES ARTILLERY"::"PROBLEMS FOR YOUR SOLUTION."F:" YOU HAVE CONTROL OVER THE ELEVATION"::"OF THE BARREL OF THE FIELD PEICE"::"IN DEGREES ABOVE THE HORIZON (6 TO 90)";G: "W$" "+=SN(W):W((W9.49)2)SN3C>:3:0,159(1)10l?I139:SS((1)2012):S60SS2z@S1SSAE(I)156(S):7I,E(I):IB0,159279,159C%D8:11:"A R T I L L E R Y":10:13:"P R A C T I C E":20:6:"WOULD YO 2XTX:YTY:52 3$ 4P154I 5I05:X2,YIX2,YI:I:P1:h 6X,YX,Y5X3,Y3X,Y2: 7 NEW TERRAIN 8:W((1)60)30: WIND 9W0W$(W)"->" :W0W$"<-"((W)) ;W0W$(W) <W$":PXN,PYN:PXN,PYN:PX,PYN:N0 *16368,0k +F1Ģ23:1:"PRESS ANY KEY";:16384,128:16368,0:5r ,8 - NEW GUN & TARGET .P0 /GX((1)101):GYE(GX):GXGX7 0TX19((1)201):TYE(TX):TXTX7 1XGX:YGY:52X,PY:TMTM1:25  MISSED' AA1. !8G " HIT THE GROUND...Q #AA1^ $PYE(XP) %PXTXĢ21:27:"DIRECT HIT!!";:HITHIT2:F1:23:15:39 &XPTX7Ģ21:30:"HIT!!!":HITHIT1:F1:39 ' EXPLOSION... (PX7XP" )N010:Z(Q)!";:16384,128:16368,0:23:1:" ";R PXGX:PYGY:TM1s PXGX((P(E)TM)10WTM) PYGY(P(E)TMG2TMTM)10 PY1PY1 PX27931: MISSED... XP(PX7):PYE(XP)34: HIT GROUND P99951 P6Ģ22:1:"NOT ENOUGH!";:21:1:12] P90Ģ22:1:"TOO MUCH!! ";:21:1:12i PP1.9t 22:1 "ELEVATION: ";E:E6E90Ģ23:1:"IMPOSSIBLE ANGLE!";:22:1:19 G9.8 16368,0 EE.01745= "PRESS ANY KEY TO FIRE :: ARTILLERY PRACTICE(8=68: TITLE PAGEHE(40)UQ16336k55: NEW TERRAINsF045: NEW GUN & TARGET 23:30:HIT"/"A; 21:15:W$; 21:1:34,20 "POWDER: ";P:21:15:W$; P0ĉ: P!! ! ! ! ! !!!!!!!!$:K(A$)"K(K)270),K1107076KN340@:16:N$;", ";;K;" IS NOT ON THE LIST":"PICK ANOTHER NUMBER":270TL(K)0320^K1390h:14:"THERE ARE NO FACTORS OF ";K:"FOR THE TAXMAN, ";N$ r:"ARE YOU TRYING TO SHORTCH L(I)I  34,10:) N1270i :::"VERY GENEROUS OF YOU TO FORFEIT TO THE TAXMAN, ";N$o 20:"DO YOU WANT TO PLAY AGAIN , ";N$;" ?";:Z$ Z$"Y"Ĺ34,0:100 2000 : 14:"WHAT NUMBER DO YOU TAKE ";N$;" "; A HOW MANY NUMBERS YOU WOULD LIKE IN THE LIST (MAXIMUM 50)."R s:"? ";A$:N(A$)a xN12000 zN1N50Ģ6:958:9:"NUMBERS BETWEEN 1 AND 50 ONLY":"OR A -1 TO EXIT GAME":110 |N(N) :3:N$", THE LIST IS :" : I1N:I;" "; REMAINING NUMBERS HAS ANY FACTORS, THE TAXMAN GETS THEM." :"THE SCORES ARE THE SUMS OF THE NUMBERS YOU AND THE TAXMAN GET. TO QUIT TYPE IN A -1" ::"HIT THE SPACE BAR TO BEGIN, ";N$;" ";:Z$ (L(50),T(10) dY0:Z0:; n3:"TYPE IN:"YOUR NUMBER AND ALL ITS FACTORS ARE THEN DELETED FROM THE LIST." :"THE TAXMAN MUST GET SOMETHING EVERY TIME SO YOU CAN ONLY PICK A NUMBER THAT HAS FACTORS LEFT." 22:"HIT THE SPACE BAR TO CONTINUE ";:Z$; :3:"WHEN NONE OF THEINSTRUCTIONS": :"WE WILL START WITH A LIST OF WHOLE NUM- BERS IN NUMERICAL ORDER. (YOU CHOOSE HOW MANY WITH A MAXIMUM OF 50)" :"YOU TAKE A NUMBER FROM THE LIST - THE TAXMAN GETS ALL THE FACTORS OF YOUR NUMBER THAT ARE STILL LEFT."J :::34,0:hDL$"---------------------------------------":A$"TAXMAN":B$"HI, I'M THE TAXMAN"3:20(B$)2:B$;"":DL$:"WHAT IS YOUR NAME ? ";N$::" WOULD YOU LIKE INSTRUCTIONS (Y/N) ?";:Z$Z$"Y"40 :2:14::""""""""TIONS ! YOU DID IT." ::)IS MADE BY ENTERING THE"D "NUMBER ABOVE THE MARKER TO BE MOVED,"g "AND THE NUMBER OF THE SPACE" "TO WHICH IT IS TO BE" "MOVED. THE PUZZLE CAN BE SOLVED" "IN 24 MOVES." "" "RETURN TO PLAY.";I$  780"CONGRATULATH AN"+ D"'O'. THE MARKERS MAY BE MOVED"L N"EITHER INTO THE 'O' SPACE"r X"IF IT IS ADJACTENT OR A SINGLE" b"MARKER MAY BE JUMPED." l"THE '*'MARKERS MOVE ONLY" v" TO THE RIGHT AND THE 'X' ONES" {"ONLY TO THE LEFT." "":"A MOVE EENTER." F1 # "":""> " LUCAS' PROBLEM"J "":""p " THE OBJECT OF THIS GAME IS TO" "EXCHANGE THE POSITIONS OF THE " &"TWO SETS OF MARKERS; * AND X." 0" TO DO THIS,YOU MUST MOVE THEM" :"INTO THE SPACE MARKED WI"B(X)0 ,I14' 6B(I)10ī340. @I? JB(5)0ī770H T110Q ^F0c hB(Y)0ī470u rB(X)10ī440 |B(X)1ī410 B(X)0ī470 470 XYī470 XY2ī470  XYī470 XY2ī470  "ILLEGAL MOVE. R1 s::* x"THE BOARD FOR MOVE ";M2 ""L "1 2 3 4 5 6 7 8 9 "T ""_ I19r B(I)0ĺ"0 "; B(I)1ĺ"* "; B(I)10ĺ"X "; I "" "" "YOUR MOVE ";X,Y X99ī760 350 F1ī240 B(Y)B(X) J-FROM NOV 1978 KILOBAUD BY WM L. COLSHER. TYPED IN BY J. D. RIVERS.R:d:::::: "INSTRUCTIONS ? (Y=YES,N= NO)";I$I$"Y"İ500B(9)(I142B(I)1<IFB(5)0PI69ZB(I)10dIiM0 nMM"" " " " " "