" " P$(3,12)" ":IN$(3,12)" "1, P$(4,1)" ":IN$(4,1)" "7 i CL718:AT,CL,14:" "::POKE657,128:REM DISABLE SHIFT/COM KEYPOKE775,200:REM DISABLE LISTINGPOKE808,234:REM DISABLE:A:I,A:: 160,0,185,0,4,153,0,192  185,0,216,153,240,195,185,250B  4,153,250,192,185,250,216,153f  234,196,185,244,5,153,244,193  185,244,217,153,228,197,185,238  6,153,238,194,185,238,218,153  222,198,200,208,205,96, P$(2,8)"IC CHIP":IN$(2,8)"IC IN"8 P$(2,9)"ULGING QUARES":IN$(2,9)"ULGING IN"i P$(2,10)"FAST RENUMBER":IN$(2,10)"FAST IN" P$(2,11)"GRIM OAK BOOT":IN$(2,11)"GRIM IN" P$(2,12)" ":IN$(2,12)" " P$(3,1)" STOP/RESTORE828:V21,0:ZZ$IN$(B,H)# 2,8,2,"@0:"ZZ$",S,R"/ XX15> 2,TX$(XX)G :2AT,7,1:""I813:AT,I,1:" ""AT,14,1:"160,0  185,0,192,153,0,4,185,240! 195,153,0,216,185,250,192,153;! 250,4,185,234,196,153,250,216_! 185,244,193,153,244,5,185,228! 197,153,244,217,185,238,194,153!  238,6,185,222,198,153,238,218! 200,208,205,96!FI96010 ":IN$(3,1)" "% P$(3,2)" ":IN$(3,2)" "T P$(3,3)" ":IN$(3,3)" " P$(3,4)" ":IN$(3,4)" " P$(3,5)" ":IN$(3,5)" " P$(3,6)" ":IN$(3,6) [/=ANCEL * PC=UN ROGRAM] "6,AT,15,1:""q1AT,22,3:" ":10006XX15:AT,7XX,3:""TX$(XX):@AN$:AN$""4160JAN$(13)882:204TB1H22:N:I,N::!P 0,0,0,0,0,0,0"Z 0,0,0,0,0,0,0"d 0,0,0,0,0,1,1920"n 0,0,224,0,0,112,0N"x 255,252,0,255,255,0,255h" 252,0,0,112,0,0,224~" 0,1,192,0,0,0,0" 0,0,0,0,0,0,0" 0,0,0,0,0,0,053  222,198,200,208,205,96," " P$(3,7)" ":IN$(3,7)" "E P$(3,8)" ":IN$(3,8)" "y P$(3,9)" ":IN$(3,9)" " P$(3,10)" ":IN$(3,10)" " P$(3,11)" ":IN$(3,11)" 2:(147)$ 53272,((53272)240)12:* :M THIS SUBROUTINE READS IN ANDq POKES CHARACTER DATA UNTIL IT ENCOUNTERS A -1 IN THE DATA A:A1 X.7:D:61440A8X,D::200OWN THE" PA$(4)"CHARACTER SET AND SWITCHES OV3B1H7B1H8B1H10B1H124195VB2H5B2H10B2H114195YW IFB=2ANDH=1ORB=2ANDH=2ORB=2ANDH=8ORB=2ANDH=9THEN4195fX IF B=4w^882:V21,1`I035:V,X1I:D135::bV21,0:230c882:1550h4160I828935 '********************************M * MENU PROGRAM V2.0 *s"* DESIGNED BY *$* DOUBLE L SOFTWARE *&* (C) 1987 ALL RIGHTS RESERVED *(********************************):53296,1 *AT67 ~~33 ``  Ƈ0?<<<<<<<X2X0HAN$(13)2140 9:NATAT22:M:N,M:4 ,32,180,2,132,251,32,180,2W .166,251,76,240,255,32,253,174u 032,158,173,32,170,177,96 253265,(53265)239 <4000:V53248:X175:Y1100 P P$(4,12),PG$(4,12),IN$(4,12):5000:NN2:B.:5190 d53280,0:53281,1: <<<<<<<<<<<ఘ333? `` - >AT,20,2:"  "d CAT,21,2:"" HAT,22,1:"" RAT,23,1:" RSR=ELECT PC=ORE /Ґ=XECUTE "\AT,24,1:" ARRICADE":IN$(1,4)"ARRICADE IN"9 P$(1,5)"IME UBWAY":IN$(1,5)"IME UBWAY IN"l P$(1,6)"PRITE XPLODER":IN$(1,6)"PRITE IN" P$(1,7)"HI-RES WINDOWS":IN$(1,7)"HI-RES IN" P$(1,8)"TV DEMO":IN$(1,8)"TV DEMO IN" P$(1,9)"EMO64":IN D THIS "%J4)" PROGRAM SUCCESSFULLY. SE THE"QT4)" PRESCRIBED METHOD WHICH IS..."}^4)" OAD ''ROGNAME'' "h4)" [RESS ANY EY] "r4)""|AT,22,3:" R2080\X0882:4100aX22180FbB1H3B1H7B1H8B1H10B1H122155jcB2H5B2H10B2H112155d IFB=3ANDH=1ORB=2ANDH=2ORB=2ANDH=4ORB=2ANDH=5ORB=2ANDH=9THEN2155e IFB=4 THEN2155f2159k882:1550oX (14):2500+ n2040,15:V39,10:V,X1:V1,Y1P x800:53265,(53265)16:53296,0m LC55590:P7:H1:V21,1 BB1:BNNB1 I112:AT,I6,14:""P$(B,I)::V1,Y1 F(P$(B,H)):A0F:LCA,8::1000 AN$:AN$""206 AN$(17K  Ƈ0?<<<<<<<882:V21,1:225_ ************************** **** WINDOW ROUTINE **** **************************828AT,4,11:""11)"EE NSTRUCTIO 1882 pI035:V,X1I:D135::zV21,0:230+882:225CI116:POI,5::p P$(1,1)"LANKSPEED":IN$(1,1)"LANK IN" P$(1,2)"64 UG EP ":IN$(1,2)"UG EP IN" P$(1,3)"128 BUG REP II":IN$(1,3)"BUG REP IN" P$(1,4)" )1250 AN$(145)1300) AN$(13)2000J AN$(32)3000:Y1100:140S 204w "";:53280,0:53281,0:V21,0 "OADING...";(34);P$(B,H)(34);"" "LOAD";(34);P$(B,H);(34);",8" "RUN": ""  631,13DOM2 IN"F P$(2,3)"IME ACHINE":IN$(2,3)"IME IN"FP P$(2,4)"IME ACHINE2":IN$(2,4)"IME2 IN"uZ P$(2,5)"MORE INCOME":IN$(2,5)"INCOME IN"d P$(2,6)"OWERCASE OIRES":IN$(2,6)"OWERCASE IN"n P$(2,7)"ING TRING":IN$(2,7)"ING IN" Y1Y18:Y1188Y1100+V1,Y1:I0F:LCI,0:?HH1:H12H1SPP1:P18P7sLCLC40:LC56030LC55590|204Y1Y18:Y1100Y1188V1,Y1:I0F:LCI,0:HH1:H1H12 PP1:P7P18#LCLC40:LC55  p ????????8,$$, qIIqQ$$D0$y? !!!ఘ``` ?????xxx ""|q# CbbHHO <FEDpp C!!!  IIIIIy$$$ DĎb@? ```8``|8a`????????8I#qXHHςpHHp!! ??? !qq   ? qa'$$$'  ? ``??????8xx"6*"""HIHHH1"" ???eg DD((DDDD  !! ?aaa```aa`8????????< <<yAAqAyRR228DDDD8𠐐8Xq ?  8!!C?⒒  $(0($"yAAqAyRIOJI=!!9!,$LD|cL@ x<<?<<<<<<<<<<<< " "000qb  $44,,DDGDyAAqA??_ 0ఘఘ`aa`aaa̘```8 ? H PHE8@8??HHLTERNATE SOLUTION TO THE EC. '88 OMMODARE REQUIRING A PROGRAM THAT CALCULATED CURRENT TIME INPUT AND DISPLAYED THE TIME THAT MANY MINUTES BEFORE AND AFTER THE TIME. ME. OLUTION TO THE ECEMBER 1987 OMMODARE THAT REQUIRED THE USER TO WRITE A PROGRAM THAT WOULD LET A PERSON CHOOSE BETWEEN TWO TYPES OF WORK PAYMENT SCHEDULES. DIRECTION. INDEMO128 INOIN INOWERCASE OIRES FROM IPS HOY! PRINTS AN INTERESTING SCREEN BACK- GROUND USING LOWERCASE CHARACTERS. SE IT TO SPRUCE UP A TITLE SCREEN OR AS A TEXT BACKGROUND. CTION. INDEMO128 INOIN INING TRING OF FROM IPS HOY! IS A ROUTINE WHICH SIMULATES THE STATEMENT FROM 7.0 ON THE -64. WO SONGS ARE PLAYED AS A DEMONSTRATION. KGROUND. CTION. INDEMO128 INOIN IN HIP FROM IPS HOY! IS A PROGRAM THAT PROVIDES TWO SIMPLE ROUTINES THAT SET GRAPHIC MEMORY UP IN THE THIRD BLOCK AND COPY CHARACTER DATA. NSTRATION. KGROUND. CTION. INDEMO128 INOIN INtULGING QUARES FROM IPS HOY! IS A ROUTINE THAT DEMONSTRATES ANIMATION BY MANIPULATING A CUSTOM CHARACTER SET. - CK AND COPY CHARACTER DATA. NSTRATION. KGROUND. CTION. INDEMO128 INOIN IN ENUMBER FORM IPS HOY! IS A ONE LINE PROGRAM FOR THE -128 THAT LETS YOU QUICKLY RENUMBER PROGRAMS AT THE TOUCH OF A FUNCTION KEY. '' '' CTION. INDEMO128 INOIN INRIM AK ANOR IS A COMPLEX TEXT ADVENTURE FOR THE -128 FEATURING WINDOWS AND INCLUDING AN EXTENSIVE VOCABULARY. O RUN THE PROGRAM IN -128 MODE TYPE " " \''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''AAAAaaaAaaaAAAAAAAAAAaaAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaarrr'''''''''''''''''''''rrrr'''''''''''''''''''''rr   >> ?~ > ?>< |x???????? @|>|>><||? aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa PcefRSWX ~ ? ????? ??{3? ???????xxxxxxxχ? aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaHIS IS HOY!'S MACHINE LANGUAGE ENTRY PROGRAM FOR OUR ADVENTUROUS READERS WHO LIKE TO TYPE IN THESE PROGRAMS FROM OUR MAGAZINE. - TEXT IN ULER'S RIMES LANK IN UG EP INHOY!'S CHECKSUM PROGRAM FOR MIS- TAKEPROOF TYPING OF -64 PROGRAMS PRINTED IN HOY!. (OR PROGRAMS PUBLISHED FROM AY 1987 ONWARD ONLY!) E USE 128 UG EP.) HOY!'S CHECKSUM PROGRAM FOR MIS- TAKEPROOF TYPING OF -128 PROGRAMS PRINTED IN HOY!. (OR PROGRAMS PUBLISHED FROM AY 1987 ONLY! THERWISE USE 128 UG EP.) ARRICADE FOR THE -64 PITS YOU AGAINST FOUR OR MORE MURDEROUS RO- BOTS WHOM YOU MUST TRAP IN MAKE- SHIFT ENCLOSURES. OYSTICK IN ORT 2. {RACK A RENEGADE SCIENTIST THROUGH ARTH'S PAST IN IME UBWAY WHILE LEARNING 40 HISTORICAL EVENTS. OYSTICK IN ORT 2. - TICK IN ORT 2. PRITE XPLODER LETS GAME PROGRAM- MERS ANIMATE AND DISINTEGRATE SPRITE SHAPE SEQUENCES. EE FILES DEMO.1 AND DEMO.2 ON THIS DISK. - T 2. EMO.1 EXPLODES A SOLID BOX ON- SCREEN TO ILLUSTRATE THE CAPABILI- TIES OF PRITE XPLODER. OAD THROUGH PRITE XPLODER'S MAIN MENU'S SELECTION. EMO.2 ANIMATES A ROBOT ONSCREEN TO ILLUSTRATE THE CAPABILITIES OF THE PRITE XPLODER PROGRAM. OAD THROUGH PRITE XPLODER'S MAIN MENU'S SELECTION. ER" ZA$(5)"THE SCREEN EDITOR"D d SCREEN = 49152:CHARSET = 61440X nI15:A$(I): s781,9:782,1:90,.:91,216:88,.:89,248 x56333,127:1,51:41964:1,55:56333,129 56578,(56578)3:56576,(56576)252 53272,(53272)15:648,19I-ES INDOWS CAN BE USED WITH 7.0 PROGRAMS TO ADD WINDOWS TO HI-RES SCREENS TO ACHIEVE LIMI- TED ANIMATION EFFECTS. UN THIS PROGRAM TO PRODUCE OBJECT MODULE. u EMO ILLUSTRATES THE POWER OF I-ES INDOWS BY ANIMATING AN MIGALIKE BOUNCING BALL ON A TELE- VISION SCREEN. - LINDOW. IS THE OBJECT FILE CRE- ATED AFTER I-ES INDOWS IS RUN. - - - OUNCING BALL ON A TELE- VISION SCREEN. - ESSENGER64 IS AN INTERRUPT-DRIVEN MEMORY MANAGER THAT LETS YOU WEDGE INTO THE COMPUTER'S PROCESSING TO INSERT USER-WRITTEN ROUTINES AND PROGRAMS. ESSENGER128 IS AN INTERRUPT- DRIVEN MEMORY MANAGER THAT WEDGES INTO THE COMPUTER'S PROCESSING TO INSERT USER-WRITTEN ROUTINES AND PROGRAMS. MS. vEMO64 DEMONSTRATES THE INTERRUPT PROCESSING POWER OF ESSENGER64. AND ESSENGER64 BEFORE ING EMO64. - ROUTINES AND PROGRAMS. MS. {EMO128 DEMONSTRATES THE INTERRUPT PROCESSING POWER OF ESSENGER128. AND ESSENGER128 BEFORE ING EMO128. - TINES AND PROGRAMS. MS. OLUTION TO THE ECEMBER 1987 OMMODARE REQUIRING THE READER TO WRITE A ROUTINE THAT WOULD DETER- MINE THE VALUE OF COINS SPECIFIED BY THE INPUT. K. A JOYSTICK. OYFUL PIRITS IS A OMMODARE ROU- TINE THAT CREATES A LIGHT SABER WHICH MOVES ON THE SCREEN UNDER JOYSTICK CONTROL. OYSTICK IN ORT 2. 2. NPUT. K. A JOYSTICK. OLUTION TO THE ECEMBER 1987 OMMODARES REQUIRING A PROGRAM THAT WOULD PUT AN OBJECT ON THE SCREEN WHICH MOVES ONE STEP AT A TIME IN A RANDOM DIRECTION. N.  EMO64 INDEMO128 INOIN INN ALTERNATE SOLUTION TO THE EC. 1988 OMMODARE REQUIRING THE USER TO WRITE A PROGRAM THAT WOULD PLACE AN OBJECT ON THE SCREEN AND MOVE IT IN A RANDOM DIRECTION. CTION. INDEMO128 INOIN INOLUTION TO THE ECEMBER 1987 OMMODARE REQUIRING A PROGRAM THAT CALCULATES CURRENT TIME INPUT AND DISPLAYED THE TIME THAT MANY MINUTES BEFORE AND AFTER THE TIME. ME. ) =================================M COMMODARES PROBLEM #48-2 :d RANDOM WALKy SOLUTION BY JUDY GROTH ================================= 53280,0: 53281,0:"";:SP1024:SC54272+ CC(1)2:M(1)40:C ( ================================J COMMODARES PROBLEM #48-2a RANDOM WALKv SOLUTION BY PAUL SOBOLIK ====== C-64 ONLY ============== C049152 X0 48: A(: C0X,A2 < X 48,112,255,255,112,48,16: LEFT ARROWQ 8,12,14,255,255,14,12,8,0: RIGHT ARROWg XP 211:YP 214s A$(4) A$(0)"@": UP A$(1)"A": DOWN A$(2)"C": LEFT A$(3)"B" : RIGHT X((1)4) CX(XP) CY(Y ""13)"TIME MACHINE":G =================================k COMMODARES PROBLEM #48-3 : TIME MACHINE SOLUTION BY JOHN THELEN ================================= "HRS.,MIN.,AMT.";H,M,A: 30 A ""13)"TIME MACHINE"E =================================i COMMODARES PROBLEM #48-3 : TIME MACHINE SOLUTION BY JIM SPEERS ================================= d"12 OR 24 HOUR TIME?": TM: 10 T1T1F: 160, T2F T2T2F: 170N XT1: 200: "##:##";HR,MNt XT2: 200: "##:##";HR,MN: HR(X60): MNX60HR: HR0 DE12 HR12 HR24 E23 HR0 ====== d"12 OR 24 HOUR TIME?": TM:  << CD52-7 >>< =================================` COMMODARES PROBLEM #48-4 :w MORE INCOME SOLUTION BY WALLACE LEEKER ================================= " YR TOTAL SALARY TOTAL SALARY"u LOWERCASE PATTERNS053280,0:53281,0T"";(14);:A1320:"ߩ";:f(A$:A$""40q2(19)  PLAY COMMAND FOR C-64; SET UP MUSIC NOTE ARRAYW H(107),L(107):S54272y("WAIT...CREATING NOTE ARRAY"2X.62:M2703(2((X20)12)):M65535M65535<H(X)(M256):L(X)MH(X)256:F"PERILS AND DANGER...." PM$"A6C6G6A20,241:S4,33:S11,33:S19,33:S24,15Z N1(M$)2:M((M$,N,1))33:D((M$,N1,1)) S1,H(M):S,L(M):S8,H(M3):S7,L(M3) S15,H(M12):S14,L(M12):X.D100:: N15.1:S24,N:X.50:::DANGER...." PM$"A6C6G6AC(2)6:M(2)40:CC(3)7:M(3)1:CC(4)5:M(4)1W A((1)4)1: UC112A: A4 UC107{ (SSPM(A):S1024 S2023 30 2 SP,UC:SPSC,CC(A):SPSPM(A): IF PEEK(S)=32 THEN SP=SP+M(A) < SP,81: SPSC,1: 30 0 8: C0328X,0:9 FV1(56576):V2(53272):OS(648)m P 53272,16: 56576,V1 252: 648,(C01024)256 Z""; d 24,60,126,255,24,24,24,24: UP ARROW n 24,24,24,24,255,126,60,24: DOWN ARROW" x 16,P) X0 CY0 280, X1 CY24 280M X2 (CX0 CX40) 280o  X3 (CX39 CX79) 280{ A$(X); A$:A$""200 " 648,OS:53272,V2: 56576,V14: UP ARROW n 24,24,24,24,255,126,60,24: DOWN ARROW" x 16,0A: 30: " BH60MA: CB60> ( (C)1 C12C: 40[ 2 (C)12 CC12: 50 <BC(C): DB1.67: (C)":"(100D.5):  OWERCASE IN ING IN  IN TM12 TM24 100E nB1: E12: F720: TM24 B0: E23: F1440g x"PRESENT TIME:": "0,.$" "HOUR";: H: HB HE 130 "MINUTE";: M: M0 M59 140 TMH60M: "TIME DIFFERENCE(MIN)";: D: T1TMD: T2TMD T HIP FROM IPS HOY! IS A PROGRAM THAT PROVIDES TWO SIMPLE ROUTINES THAT SET GRAPHIC MEMORY UP IN THE THIRD BLOCK AND COPY CHARACTER DATA. :BP15000:T27500:T1150005 A10:AA1:B0Q(: B2:BB1:YY.52: Y;6)T2;:R2R2750:15)BP2R2:T2T2BP2R2<: F: 24)""T1;:R1R13000:33)BPR1:T1T1BPR1P MORE INCOME 1"PLEASE STAND BY.COPYING CHARACTER SET."e 52,48:56,48::56334,(56334)254:1,(1)251I02040:I12288,(I53248)::1,(1)456334,(56334)1:A(5,7):Y03:X07:A(Y,X)::(B2:Y45:X07:A(Y,X)A(B,X)::BB1: 2 6C6G6A4C4G4C8G8D8E6C6G6D6E6":140A Z"THE LIGHT OF A NEW DAY...."n dM$"Q2S2L3L2Q2S3L1M1N1O2S2Q1R2P2Y6":140t n x SID STRINGSINGER SUBROUTINE NOTES AND DURATIONS IN M$ X.24:SX,.::S5,4:S12,4:S19,4:S6,241:S13,241& Sח53272,((53272)240)12K <Y05:X07:12544X,A(Y,X):(203)64::60e FX07:12544X,0:: P 255,129,129,129,129,129,129,255,0,126,66,66,66,66,126,0,0,0,60,36,36,60 Z 0,0,0,0,0,24,24,0,0,0,0  IN   1100 GOSUB 160 IF YOU HAVE CHAR DATAO: SET UP IN BLOCK 3 NOW!U(:2A$(1)"USEFUL VIC CHIP ROUTINES-BASIC"<A$(2)"HIS ROUTINE MOVES VIDEO MEMORY"FA$(3)"TO BLOCK 3, COPIES DOWN THE" PA$(4)"CHARACTER SET AND SWITCHES OV d CY(16)"n0,2:1,15:4,2+x1,1G"WINDOW.OBJ",B0,P2816]I015:CY(I):Ic:: DRAW ANIMATION SEQUENCET0J07: 1,160,CY(T),20,15: I1835: 1,160,CY(T),I,15I1,141J5,CY(T)   + ;@` i@  i Pڅ?R +S V U ;`@`U i@U V iV R i@R S iS PÅ? + `;@` i@ i  i@ i P 011,160,000,185,0 "d *** MESSENGER64 LOADER ***?nMS51200: WILL RELOCATEHxCK0bD:CKCKD:D999150k130CK26712"ERROR IN DATA":SAMSD:D999230D0SA,D:220ADMS(D):HAD256:LAD(AD256)256 SA,L:SAS ,0 @ 0,0,0,0,0,0,0,0. J 0,0,0,0,0,0,120,173M T 20,3,172,21,3,201,63,208m ^ 4,192,200,240,16,141,-141 h 140,-142,169,63,160,200,141 r 20,3,140,21,3,88,96,162 | 3,181,251,72,202,16,250,162  4,202,48,55,188,-26,16  5,169,0  121,0,240,83,32,241,183,138:  41,124,240,3,76,72,178,134[  174,32,121,0,240,78,32,253  174,32,138,173,32,247,183,132  195,133,196,32,253,174,32,235  183,134,175,165,174,41,3,168  10,170,120,165,195,157,-6 & 165,196,1@#@d *** MESSENGER128 LOADER ***?@nMS3072: WILL RELOCATEH@xCK0b@D:CKCKD:D999150k@130@CK32371"ERROR IN DATA":@@SAMS@D:D999230@D0SA,D:220@ADMS(D):HAD256:LAD(AD256)256ASA,L:SAS76,-207,76,-325B@ 0,0,0,0,0,0,05BJ 0,0,0,0,0,0,0,0KBT 0,0,0,0,0,0,0,0aB^ 0,0,0,0,0,0,0,0Bh 0,0,120,173,20,3,172,21Br 3,201,75,208,4,192,12,240B| 16,141,-205,140,-206,169B 75,160,12,141,20,3,140,21B 3,88,96,173,17,208,48-17,133!D 253,189,-18,133,254,152,170?D 188,-25,142,-41,189,-33]D 170,32,162,2,72,174,-41zD 189,-37,170,104,32,175D 2,174,-41,136,192,255,144D 229,240,177,104,141,185,2,104D& 141,170,2,232,104,149,251,232E0 224,4,208,24876,011,184,080,195011,105,064,141,082DE 011,173,083,011,105,001,141,083jE 011,184,080,195,133,171,169,063E 141,000,255,162,000,169,216,141E 175,011,169,040,141,176,011,165E 171,141,173,011,169,000,141,172F 011,160,000,185,007:7544L40W,048:W,L:3: ANIMATE!ZI100130 2:2956,I:T050:T,ImA$:A$""480z 2816: 68,69,72,77,84,93,104,117,104,93,84,77,72,69,68,68,71,192,120r,122,69,196,123|,119,67,199,125!,120,652866,1004JTT1:1,1(I2005@: 1,160,CY(T),I,15GI\"1,141J5,CY(T)o, 2866,1024J~6TT1:1,1@JJ:T: DRAW SCENE^1,10h,127,71,192,120r,122,69,196,123|,119,67,199,125!,120,65F 120,170,165,195,157,-9,1656F 196,157,-10,165,22,157,-17SF 165,23,157,-18,152,170uF 165,207,157,-33,165,219,157F -37,165,175,157,-25,165F 206,9,15,157,-29,88,96F 169,0,162,3,120,157,-29F 202,16,250,88,96,201,4,176GA1:SA,H SASA1:180A ADMS63:HAD256:LAD(AD256)256W MS38,L:MS52,Lm MS42,H:MS54,H "MESSENGER INSTALLED"MS"TO"MS254 "SYS"MS"TO ENABLE" "SYS"MS3"TO SET UP" " , 184,80,27,76,-143,0,0 6 0,0,0,0,0,0,0,157,-26,152,41-  15,240,238,138,168,10,170,189I  -6,133,251,189,-7,133k  252,189,-14,133,253,189,-15  133,254,152,170,188,-22  177,251,145,253,136,192,255,144  247,240,198,232,104,149,251,232  224,4,208,248,76,255,255,3257,-7,165,20,157# 0 -14,165,21,157,-15,152E : 170,165,175,157,-22,165,174b D 5,15,157,-26,88,96,169 N 0,162,3,120,157,-26,202 X 16,250,88,96,165,174,41,3 b 170,120,169,0,240,228,99904,149,251,232  224,4,208,248,76,255,255,32A1:SA,HASASA1:180AAADMS75:HAD256:LAD(AD256)256WAMS50,L:MS64,LmAMS54,H:MS66,HA"MESSENGER INSTALLED"MS"TO"MS344A"SYS"MS"TO ENABLE"A"SYS"MS3"TO SET UP"A""SYS"MS6"TO CLEAR A BOX"A, B6 184,80,39,,124 C 162,3,181,251,72,202,16,250@C 173,170,2,72,173,185,2,72dC 169,251,141,170,2,169,253,141C 185,2,162,4,202,48,76,188C -29,16,5,169,0,157,-29C 152,41,15,240,238,138,168C 10,170,189,-9,133,251,189C -10,133,252,189, ,76,255,255,133(E: 206,134,207,132,219,32,134,3KED 240,94,32,15,136,132,195,133lEN 196,32,92,121,32,3,136,134EX 175,165,206,41,127,201,4,144Eb 3,76,40,125,133,174,165,207El 32,-335,133,207,165,219,32Ev -335,133,219,165,174,168,10I 168,170,120,169,0,240,228,2017G 16,176,158,170,76,107,255,9996,132,195,133lEN 196,32,92,121,32,3,136,134EX 175,165,206,41,127,201,4,144Eb 3,76,40,125,133,174,165,207El 32,-335,133,207,165,219,32Ev -335,133,219,165,174,168,10 +Z"MESSENGER64 MUST BE LOADED FIRST";_D13000:kdM$"THISISTHETOPLINE": USE SHIFT-SPACEwnL(M$)xI1LC((M$,I,1)):828I1,C64828LI,1:51203,2,828,1024,L151203,3,828L1,55296,L1TI A$: 198,65193,61125,61120,65:,160,63.,120,68U,125,126128,140 132,140135,126|,193,126190,140 186,140183,126,130,135:,187,135,118,11820,1180,140:,20,11820,0,200,118309,118319,140:,309,118309,0L05:W <@  3~<B@ JB@$@B@B@}6 @ @$ B A `}@5`@@@ "AAv 2@ 0 d"PH !A @@@  @@ @@ *** HI-RES WINDOWS ***;@ *** FOR THE C-128 ***X@ *** BY ***u@( *** DENNIS FURMAN ***{@2@<S2816:(147)"POKING DATA..."@FXSS229:A:CCA:X,A:@P C25462 110@Z"ERROR IN DATA STATEMENTS..." Ad"C2819,LO: 2824,HI%B 2876,LO: 2881,HI=B 2966,LO: 2971,HITB 2837,W: 2842,NRtB 2905,W: 2924,W: 2910,NRB 2995,W: 3014,W: 3000,NRB"WINDOW.OBJ",B0,P2816 P3047BB 162,000,169,216,141,017,011,169 C 040,141,018,011,040,141,083,011,165,171,141:DT 086,011,169,000,141,085,011,160`D^ 000,185,152,059,153,096,181,200Dh 192,160,208,245,232,224,016,208Dr 006,169,000,141,000,255,096,024D| 173,085,011,105,160,141,085,011D 173,086,011,105,000,141,086,017,17,17,17,17,24Ã24,18,18,18,18,18,18,18 Ã18,18,18,18,18,18,18,188 Ã18,18,18,18,18,18,18,24U Ã24,19,19,19,19,19,19,19r Ã19,19,19,19,19,19,19,19 Ã19,19,19,19,19,19,19,24 Ã24,20,20,20,20,20,20,20 Ã20,20,20,20,20,20,20,20 ,24Ã24,12,11,11,11,12,11,12Ã12,12,12,12,12,12,12,12.Ã12,12,11,12,11,11,12,24KÃ24,13,12,12,13,13,12,13h Ã13,13,13,13,13,13,13,13(Ã13,13,13,12,13,12,13,240Ã24,14,13,14,13,14,14,148Ã14,14,14,14,14,14,14,14@Ã14,14,14,14,12,2,2,2,2,2Pƒ2,2,2,2,2,2,3,24Xƒ24,4,3,4,4,4,3,3$`ƒ3,3,3,3,3,3,3,3:hƒ3,3,3,4,4,3,4,24Ppƒ24,5,5,5,4,5,5,5exƒ4,4,4,4,4,4,4,4{ƒ4,5,4,4,5,5,5,24ƒ24,6,6,5,6,6,5,5ƒ5,5,5,5,5,5,5,5ƒ5,6,6,6,5,6,6,24ƒ24,7,7,7,7,7,7,7I@0`0pp080 ` 0>`0?p?ptq80pc0?bA:}0~`p `00@0`0pp080 ` 0>`0?p?ptq80pc0?bA:}0~`p@1@ !@e0$ !@1 @0 BbT @ 0 `` * @ @  @I1 @0 BbT @ 0 `` * @ @  @HECK ENTRIES"::An"ENTER THE COLUMN & ROW OF THE UPPER"_Ax"LEFT CORNER OF THE WINDOW";C,RA:"ENTER THE WIDTH OF THE WINDOW";W:WW8A:"ENTER THE NUMBER OF ROWS";NRACELL8192(R1)320(C1)8AHI(CELL256):LOCELL256HI B ,169,000,160,0000C 153,152,059,200,192,160,208,248VC 232,224,016,208,001,096,024,173|C" 017,011,105,064,141,017,011,173C, 018,011,105,001,141,018,011,184C6 080,218,133,171,169,063,141,000C@ 255,162,000,169,216,141,082,011DJ 16911E 024,173,082,011,105,064,141,082DE 011,173,083,011,105,001,141,083jE 011,184,080,195,133,171,169,063E 141,000,255,162,000,169,216,141E 175,011,169,040,141,176,011,165E 171,141,173,011,169,000,141,172F 011,160,000,185,020,20,20,20,20,20,20,24,15,15,15,14PÃ15,15,15,15,15,15,15,153XÃ15,15,15,15,14,15,15,24P`Ã24,16,16,15,16,16,16,16mhÃ16,16,16,16,16,16,16,16pÃ16,16,16,16,16,16,16,24xÃ24,17,17,17,17,17,17,17Ã17,17,17,17,17,17,17,17Ã17,17,4,13,14,24HÃ24,15,14,15,15,15,15,14PÃ15,15,15,15,15,15,15,153XÃ15,15,15,15,14,15,15,24P`Ã24,16,16,15,16,16,16,16mhÃ16,16,16,16,16,16,16,16pÃ16,16,16,16,16,16,16,24xÃ24,17,17,17,17,17,17,17Ã17,17,17,17,17,17,17,17Ã17,17,ƒ7,7,6,6,6,6,6,7ƒ7,7,7,7,7,7,7,24ƒ24,8,8,8,8,8,8,8(ƒ8,8,8,7,7,7,8,8>ƒ8,8,8,8,8,8,8,24Tƒ24,9,9,9,9,9,9,9jƒ9,9,9,9,10,9,9,9ƒ9,9,9,9,9,9,9,24ƒ24,11,10,10,10,10,11,10ƒ10,11,11,11,10,11,11,11ƒ10,11,10,10,10,10,1196,181,153,152(F 059,200,192,160,208,245,232,224NF 016,208,006,169,000,141,000,255tF 096,024,173,172,011,105,160,141F 172,011,173,173,011,105,000,141F 173,011,024,173,175,011,105,064F 141,175,011,173,176,011,105,001G 141,1 q?tty8qp00?@guX0paqy?tZy=ypr01?` g1Xqryyy?^yyz0u3r3ɛ3sYuzy_z}w7;{^۷w}z 7X0455:A:49176X,A::X0455:A:49680X,A:j52,48:56,48::S1255:DS1:S2S1DS:P149152 "JOHN FEDOR'S SPRITE EXPLODER!":53269,053280,0:53281,0"î1 LOAD SPRITES"(13)"" "î2 SAVE SPRITES" "HOW MANY FRAMES DO YOU WANT (1-12) ?":MX:MX1MX12181T MXDSS1192MXS1192p MXDSS1255MX255S1 Q1MX:2040,S1:2041,S2:"CALCULATING. "1MXQ"LEFT TO DO" IS264S26463:I,.::X122:X4(X8):Y119 (S16 LOADING..."6;15,8,15,"I0":5,8,5,F$",P,R":15,A,B$,C,D:A600h@#5,A$,B$:S1((A$C$)(B$C$)256)64:S2S1{E#5,A$:ST340JS264,(A$C$):I163:#5,A$:S264I,(A$C$):IOS2S21:325TS2S21:5:15Y"SAVE:" "255A$"-"S1S11:S1191S1192)A$(13)4254198,0{"CHOOSE ENDING SPRITE FRAME TO SAVE.":"USE +/-, ":S2S1""9)S2:2040,S2A$:A$"+"S2S21:S2256S2255A$"-"S2S21:S2S1S2S1A$(13): (+/-).":198,0V39,1:V21,1,""9)S1:2040,S1SA$:A$"+"S1S11:S1256S1255v A$"-"S1S11:S1191S1192A$(13)515"CHOOSE ENDING FRAME: (+/-). ":198,0""9)S2:2040,S2!A$:A$"+"S2S2DX1NI1DX:I:XS"AGAIN (Y/N) ?":198,00UA$:A$"Y"565AVA$"N"597GWRX5:15r]"THERE WAS A DISK ERROR!"b"PLEASE FIX AND CORRECT."g""A","B$","C","DlA63650q"PRESS FOR MENU."vA$:A$12,13,14,15 @17,18,19,20,21,22,23,24"H24,0,1,2,3,4,5,7=P8,9,10,11,12,13,15,16ZX17,18,19,20,21,22,23,24p`24,0,1,2,3,4,5,7h7,9,10,11,12,14,14,16p17,18,19,20,21,22,23,24x24,0,1,2,3,4,5,67,9,10,11,12,13,15,1617,24,0,1,2,3,4,5,67,8,9,10,13,14,15,16,17,18,19,20,21,22,23,24B24,0,1,2,3,4,5,6\7,8,9,10,13,14,15,16y17,18,19,20,21,22,23,2424,0,1,2,3,4,5,67,8,9,11,13,14,15,1617,18,19,20,21,22,23,24 24,0,1,2,3,4,5,615,16x17,18,19,20,21,22,23,2424,0,1,2,3,4,5,7/7,9,10,11,12,14,14,16L17,18,19,20,21,22,23,24b24,0,1,2,3,4,5,7}8,9,10,11,12,13,15,1617,18,19,20,21,22,23,2424,0,1,2,3,4,5,68,9,10,11,12,13,14,1517,18,19,#,160,0,0,65,72,79,89,33,0,0,50093,240,23,165,161,201,212,176,4,165,160,1748u"T240,13,238,32,208,160,0,32,225,255,208,6,1617"^32,33,193,76,38,192,232,208,242,200,208,239,1893"h32,68,229,169,0,168,174,49,193,32,186,255,1555#r173,50,193,16(13)""7 ("î3 EXPLODE SPRITES"(13)""f 2"î4 ANIMATE SPRITES"(13)"" <12)"CHOICE (1-4) ? "; A198,0 FA$:A$"1"A$"4"70 K(A$)300,400,100,500 P10 d"":V53248:V,104:V1,100:V3,100:V2 S2S1DS:2041,S2:V21,3] "CHOOSE DESTINATION SPRITE (+/-).":"HIT WHEN READY."h 198,0| ""15)S2 S30:A$:A$"+"A$"-"S3(A$"1"):S3S1128S3S1255170 S3DSS3:S2S1DS:2041,S2:170 A$(13)17084Y3X4)(2((23X)7))2000 Y,X:S1S2:S2S2DS:Q:l PXY24:X1(PP1):Y1(PP1504):AS264Y13(X18)y P600 A,(A)(2((23X1)7)): ,"LOAD:" 1"ENTER THE FILENAME TO BE LOADED":F$"":C$(0) 6F$:F$"" 9"ENTER THE FILENAME TO BE SAVED":F$"":C$(0)1F$:F$""mV53248:V21,1:V,100:V1,100:V39,1:2040,S1:198,0"CHOOSE STARTING SPRITE FRAME TO SAVE.":"USE +/-, """9)S1:2040,S1A$:A$"+"S1S11:S1256S1445)15,8,15,"I0":5,8,5,F$",P,W":15,A,B$,C,D:A600;"SAVING..."iAS164:H(A256):LAH256:5,(L)(H);IAS26463:5,((I));:I5:15:"ANIMATION SEQUENCE."V53248:V,100:V1,100"CHOOSE BEGINNING FRAME1:S2256S2255&A$"-"S2S21:S2191S21921+A$(13)540B0DX10:198,0]5"ANIMATION SEQUENCE":"USE (+/-) TO ADJUST DELAY":"DELAY="?XS1S2(S2S1):""8)DX" "D2040,X:A$:A$"-"DXDX1IA$"+"DXDX1:DX1(13)630{"WOULD YOU LIKE TO SCRATCH "F$"?"(198,0<A$:A$"N"625MA$"Y"660g15,8,15,"S0:"F$:15p45524,0,1,3,4,5,6,7 8,9,10,11,13,14,15,16(17,18,19,20,21,22,23,24024,0,1,2,3,4,5,688,9,10,11,18,19,20,21,22,23,24 24,0,1,2,3,4,5,6'7,9,10,11,13,14,15,16D17,18,19,20,21,22,23,24Z24,0,1,2,3,4,5,6u7,8,10,11,13,14,15,1617,18,19,20,21,22,23,2424,0,1,2,3,4,5,67,8,9,11,13,14,15,1617,18,19,20,21,22,23,24(7,8,10,11,13,14,15,16017,18,19,20,21,22,23,24*824,0,1,2,3,4,5,6E@7,9,10,11,13,14,15,16bH17,18,19,20,21,22,23,24xP24,0,1,2,3,4,5,6X8,9,10,11,13,14,15,16`17,18,19,20,21,22,23,24h24,0,1,2,3,4,5,6p7,9,10,11,12,13,20,21,22,23,2424,0,1,3,4,5,6,78,9,10,11,13,14,15,16617,18,19,20,21,22,23,24Lƒ24,1,0,0,0,0,0,0aƒ0,0,0,0,0,0,0,0w ƒ0,0,0,0,0,0,1,24(ƒ24,2,1,1,1,1,1,10ƒ1,1,1,1,1,1,1,18ƒ1,1,1,1,1,1,2,24@ƒ24,3,2,2,2,2,2,2Hƒ2,2, ,152 nV21,1:V39,1:V40,12 x2040,S1:2041,S2U }"CHOOSE SOURCE SPRITE (+/-)."u "HIT WHEN READY." 198,0 2040,S1:""9)S1:A$:A$"+"S1S11 S1255S1255 A$"-"S1S11:S1192S1192 A$(13)140 Ѝ!  < ة XL7N`|䧆N3LH1fGJP3W>/f.LOADER882A d53280,12:53281,11Mi" FLANKSPEED ";~n" MISTAKEPROOF ML ENTRY PROGRAM "s" CREATED BY G. F. WHEAT "x" COPR. 1987, ION INTERNATIONAL INC. "}A5427254296:A,0:/ 2)T(1)16/B$"ENDING ADDRESS IN HEX":430:ENBA470:B0150h254,T(2)T(1)16:BT(4)1T(3)16B255BB255:254,(254)1253,B: GET HEX LINE495:": ";:A08B01:250BA%(A)T(1)T(0)16:ADA1  A$(135)" ":620) A$(136)" ":635O A$"@"A$"G"T(B)(A$)55:295u A$"/"A$":"T(B)(A$)48:295 "415:250 'A$""; ,205 1A0320 6A1:B1330 ;220 @B0(20);(20);:AA1 EAA1 J(20);:"INPUT A 4 DIGIT HEX VALUE!":415F":"ENDING IS LESS THAN STARTING!":B0:415|":"ADDRESS NOT WITHIN SPECIFIED RANGE!":B0:415":"NOT ZERO PAGE OR ROM!":B0:415""?ERROR IN SAVE":415""?ERROR IN LOAD":415"::"END OF ML ARE5:$A$"/"A$":"T(A)(A$)48:$$T(A)16:8$ ADDRESS CHECKG$ADEN385Z$BSRBEN390$B256(B40960B49152)B53247395$$ ADDRESS TO HEX$ACAD:A4096:520$A256:520$A16:520$A1:520$%T(AN:A$"":"FILENAME";A$&SA$""590,&X:"TAPE OR DISK?":R&]B$:T1:B$"D"T8:A$"@0:"A$:c&bB$"T"605i&g&lB$"CONTINUE FROM ADDRESS":430:ADB&q475:B0620&v:195&{B$"BEGIN SCAN AT ADDRESS":430:ADB&475:B06357 (147)"LOADING AND CHECKING THE DATA...":J49152TB011:A:A0A25540sJB,A:XXA:B:A:AX50(:"ERROR IN DATA LINE:"(64)256(63):2X0:JJ12:J4945620<198,0:49456,0:A$"Y":B$A$:C$"D":D$"DISK":D8:(147)3FKUP"::"FILENAME";F$:F$N$(F$,14):L(F$)W49458,L:J1L:49458J,((F$,J,1)):J:"SAVING DEVICE ** "D$:"STARTING WITH ** "F$:"IS THIS CORRECT (Y/N)";B$:B$"Y"60770,131:771,164:49152: 169,79,32,210,255,162,38,160,10,2,240,5,169,1215: 79,141,2,3,76,162,164,169,0,133,2,133,1064q 251,133,252,133,254,24,101,20,69,254,230,254,1975 24,101,21,69,254,170,230,254,164,252,185,0,1724 2,133,253,201,34,208,6,165,2,73,255,133,1465!2,201,32,208,4,165,2,240,169,38,141,2,3,173,1578B"J48,193,240,23,165,161,201,212,176,4,165,160,1748u"T240,13,238,32,208,160,0,32,225,255,208,6,1617"^32,33,193,76,38,192,232,208,242,200,208,239,1893"h32,68,229,169,0,168,174,49,193,32,186,255,1555#r173,50,193,1654272,4:54273,48:54277,0:54278,249:54296,15HA680699:B:A,B:s169,251,166,253,164,254,32,216,255,96169,0,166,251,164,252,32,213,255,96B$"STARTING ADDRESS IN HEX":430:ADB:SRB480:B0150251,T(4)T(3)16:252,T(EN340 " ";-A:TAD((AD256)256):" "QA07:TTA%(A):T255TT255WoA%(8)T375:195A07:ADA,A%(A)::ADAD8:195 GET HEX INPUTA$:A$""250A$(20)305A$(133)535 A$(134)560220 !O LAST LINE'!T" ":TAD((AD256)256)M!YB0A1:TTA%(B):T255TT255S!^k!cA%(A)T375:195!hB0A1:ADB,A%(B):!m:"YOU ARE FINISHED!":535!r BELL AND ERROR MESSAGES!w:"LINE ENTERED INCORRECTLY"::415"|:A":#54276,17:54276,16:0#15,8,15:15,A,A$:15:A$:I# GET FOUR DIGIT HEXX#:B$;:T$p#(T$)4380:430#A14:A$(T$,A,1):450:T(A)16380:430#:B(T(1)4096)(T(2)256)(T(3)16)T(4):#A$"@"A$"G"T(A)(A$)5CA):T9A$(T55):530% A$(T48)+%A$;:ACACAT:B%A$"**SAVE**":585X%1,T,1,A$:680:1d%!ST0w%&400:T8420%+535%0A$"**LOAD**":585%51,T,0,A$:690:1%:ST64195%?405:T8420%D560%I" ":14)A$&&:670)'B07:AC(ADB):505:ADBENADSR:410:1956'" ";:BD':ADAD8['B$:B$(136)195p'495:": ";:650%+535%0A$"**LOAD**":585%51,T,0,A$:690:1%:ST64195%?405:T8420%D560%I" ":14)A$&"DO YOU WANT AUTOMATIC SAVES (Y/N)";A$::A$"Y"90UP"NO AUTOMATIC SAVES...":150Z49456,1:"DISK OR TAPE (D/T)";C$:C$"D"D1:D$"TAPE"d49457,D:D$D$" DRIVE"::"FILE NUMBER (0-99)";NnN$((N),2):N10N$(48)(N48)(xF$"BAC 92,204,3,3,1507?208,10,162,131,160,164,169,70,32,210,255,44,1615n169,78,32,210,255,142,2,3,140,3,3,76,111336,193,32,96,165,134,122,132,123,32,115,0,1180170,240,243,162,255,134,58,144,3,76,150,164,1799 32,107,169,32,121,165,173, ,8,138,24,101,1125@!253,69,254,170,44,198,254,230,252,164,253,208,2349t!"213,138,41,240,74,74,74,74,24,105,129,141,1327!,44,193,138,41,15,24,105,129,141,45,193,162,1230!60,189,43,193,240,12,157,0,4,173,134,2,1147 "@157,0,216,232,208,239 2,51,160,193,32,189,255,169,43,1670I#|166,45,164,46,32,216,255,162,1,189,51,193,1520~#168,200,152,201,58,144,2,169,48,157,51,193,1543#201,48,208,3,202,16,234,32,33,193,76,116,1362#164,206,32,208,169,0,170,168,76,219,255,160,1827$1,1A , H <AHOY! APRIL 88882ABOOTLANKSPEED 64 UG EP ɠ 128 BUG REP II ARRICADEBARRICADE MLIME UBWAY4PRITE XPLODER ANDOM IN ANDOM2 IN IME IN IME2 IN INCOME IN OWERCASE IN ING IN  INDEMO.1DEMO.2HI-RES WINDOWSTV DEMOWINDOW.OBJMESSENGER64MESSENGER128EMO64 ULGING IN FAST IN GRIM IN DDLOGO%LOADER DIR 1  HIP DEMO128OIN HALLENGE JOYFUL SPIRITS ANDOM ALK ANDOM ALK 2 IME ACHINE IME ACHINE 2 MORE INCOME OWERCASE OIRESING TRING IC IN ULGING QUARESFAST RENUMBERGRIM OAK BOOTGRIM OAK MANOR@ LANK IN UG EP IN BUG REP IN ARRICADE IN IME UBWAY IN PRITE IN DEMO.1 IN DEMO.2 IN HI-RES IN TV DEMO IN WINDOW.OBJ IN ESSENGER64 IN MESSENGER128 IN EMO64 IN DEMO128 IN OIN IN JOYFUL IN 6 (147)"LOADING AND CHECKING THE DATA...":J4864SB011:A:A0A25540rJB,A:XXA:B:A:AX50(:"ERROR IN DATA LINE:"(66)256(65):2X0:JJ12:J521320<208,0:5213,0:A$"Y":B$A$:C$"D":D$"DISK":D8:(147)0F" :"FILENAME";F$:F$N$(F$,14):L(F$)P5215,L:J1L:5215J,((F$,J,1)):J:"SAVING DEVICE ** "D$:"STARTING WITH ** "F$:"IS THIS CORRECT (Y/N)";B$:B$"Y"60770,198:771,77:4864:32,58,20,169,41,162,19,236,3,3,208,4,95 169,0,166,235,164,236,133,253,133,254,142,47,1932] 20,140,48,20,24,101,22,69,254,230,254,24,1206 101,23,69,254,170,230,254,164,252,185,0,2,1704 133,251,201,34,208,6,165,253,73,255,133,253,1965 201,32,208,4,165,253,240,8,138,24,101,251 ,93,12982"J20,240,27,165,161,201,212,176,4,165,160,240,1771d"T17,32,65,20,238,32,208,238,1,214,32,225,1322"^255,208,6,32,49,20,76,198,77,232,208,242,1603"h200,208,239,32,66,193,173,95,20,162,96,160,1644"r20,32,189,255,169,0,170,32,104,28,206,1222,$1,214,169,0,170,168,76,219,255,32,79,20,1403_$169,26,141,0,214,173,0,214,16,251,96,162,1462$0,142,0,255,96,19,18,32,32,32,32,146,804$0,1,0,0,65,72,79,89,33,0,0,0,33920,162,96,160,1644"r20,32,189,255,169,0,170,32,104,25% A0 A1:"BARRICADE ML",8,11 49152 Ѝ!Щ ĠřԈ ¢ ĩŠňd ^í nÎ í [å) cL8 ũ ­'Ԣ Ԣ îŬ :à;ɈМL ŽŪ :é ; ©  [à © L)Š;` Ő ) L2)ق Ũ _ Ю`yrŅyzŅ :à; ɀɈ8`ŽŪ :à ;ŨŪ :é;7ő`ň]}ۈL8i ň2Ԣ ԩ};L(;<؅'; ;; ' Fߠ'  ؙ ۈR;<؅);$( FřŪ%řŨ :ä7Ź.Š;PԢ ԩ `)ܥ)Ѕ:8<9;9;:<  ܭ) Р@ @ @ @ BONUS 100LEVEL 001PRESS FIRE TO PLAY AGAINɲɲɲɲɲ « ʽʽʱʱ˱SELECT NUMBER OF ROBOTS 4 5 6 7 8ddgz d| ddboddlo duddboddbzdd~ DO YOU WANT AUTOMATIC SAVES (Y/N)";A$::A$"Y"90RP"NO AUTOMATIC SAVES...":150Z5213,1:"DISK OR TAPE (D/T)";C$:C$"D"D1:D$"TAPE"d5214,D:D$D$" DRIVE"::"FILE NUMBER (0-99)";NnN$((N),2):N10N$(48)(N48)#xF$"BACKUP":5+169,198,162,77,141,2,3,142,3,3,224,19,1143\208,7,32,125,255,79,78,0,96,32,125,255,129279,70,70,0,96,162,0,134,251,189,0,2,1053240,19,201,48,144,9,201,58,176,5,133,251,1485232,208,238,134,252,165,251,208,3,76,198,77,2042* ,16253!69,254,170,44,198,254,230,252,164,251,208,213,2307e!"138,41,240,74,74,74,74,24,105,65,141,88,1138!,20,138,41,15,24,105,65,141,89,20,32,79,769!620,189,85,20,240,6,32,210,255,232,208,245,1742!@174,47,20,172,48,20,24,32,240,255,17355,169,0,13953#|174,94,20,168,32,186,255,169,45,174,16,18,1351f#172,17,18,32,216,255,162,1,189,96,20,168,1346#200,152,201,58,144,2,169,48,157,96,20,201,1448#48,208,3,202,16,234,32,49,20,141,0,2,955#76,183,77,58,59,32,65,20,206,32,20]ddzzddLo>]*6c>]*6c888,x^XrC888488zxN~]<6?],60SC,D,2,7:A.20::(SP)186(SPU)210830FH1390wRV21,(V21)32:1300:1340:V27,(V27)1\1320:V21,(V21)254fX90101:SC,D,2,7:B.X:::V17,11pV21,.:"";:A.3:1230:(.):  RIGHT JUSTIFIED TIME DISTORTION9A$((W)):("000"((A$,(A$)1)),3);FX(.):d RANDOM LOCATION IN TIME|HX(((1)44)1): TITLE""4)"EVERY SECOND COUNTS ABOARD THE..."12)" î"12)V" :::::: ";D`" :î: ";zj":ý:";t": :";~":D BROOKS"< <X.63:832X,.:896X,255:960X,255::864,16e FX2633:896X,.::864,16:867,16 P"PROGRAMMED BY CLEVELAND M. BLAKEMORE";:PL,.,16:1100 Z" ":32)" " dPL,10,9:"PRESS FIRE988:S54272:D(.)1:D(1)1:N209:U1:E2:G4R H64:L100:LX172:LY200:I.025:SP1337s X.3:SC(X)::A$(.),A$(1) X145:T(X),S$(X): XS49634:YS49647:TG49660:FL49673:CF49692:MD49711:SS49755:SB49774 F(X)(((J)16).):M(10,160:V11,115D V12,160:V13,103:V14,172:V15,200:V23,32:V29,96Y YM:D.:W.:990o "1170:1260:1390 ,P129:A$"99599592":1420 6V16,.:V10,168:V11,115:V,172:V1,87 @V21,33:V27,223:1300:V27,222:1370:1320*JXM(.)V16,P(.):V8,LX:V9,LY:V21,NYWWI:A(V30):B(V31):WL((AU)U(AH).)410F(.)370:((BU)U)U(AHU)E550,820:370X.3:SS,X,.::S6,96:S24,15:S4,33X.2555:S,X:S1,255X::S4,32X.9D DOCTOR0"":PL,2,9:"YOU HAVE STOPPED THE CRAZED DOCTOR!!"l198,.:P33:D.2:A$"251331421502421502":1420::470990:Y((U)M)U:CF,16,30,14:V17,11:880&X.3:SS,X,.::V21,.0"";:X.35:"";::"":X.20:X145:YT(X)AX :A.670>PL,3,6:"SIGNIFICANT EVENT THIS TIME FRAME:"gPL,20((S$(A))2),8:""S$(A):680PL,2,6:"NO SIGNIFICANT EVENT AT THIS STATION"PL,2,10:"THERE IS A HUMAN PRESENCE REGISTERED"PL,7,11:"IN THE T I O N"A(.).A3D1:PL,32,17:""A$(1):PL,8,17:""A$(.)b A7D.:PL,32,17:""A$(1):PL,8,17:""A$(.)A3A7P33:A$"991":1420 (((J)16).)760:P17:A$"424242":1420:1170:330* SUBWAY TIME TRAVEL4FL,0,1,01240:::1100"z"";:A.3:1230:1240::V17,27:A9:B14bSC,D,A,B:YYD(D)(YMDU)(MU)(Y.D.)(MU):A$(Y)WWI:(WL)440:""17)"";:940:F(.)900290 RIGHT JUSTIFIED YEAR(" "((A$,(A$)U)),G);:X" ­ " 12)" ý"*10)"î î î "J$10)"î «ó°«ó"j.10)"ýýý "812)"PLEASE STAND BY!"B4)"(C) 1988 CLEVELAND M. BLAKEMORE":L"";:X.39:(183);:Ҙ:": SUBWAY PLATFORMV17,11:646,SC(Y3)I"";:1230:1240:"";:1240:1230:X.6z""36)""36)"";::1230:"";:12302023,208:"";:1100PL,34,13:"îINF TO BEGIN"7 nA$(.)"":A$(1)"":A$(2)"":A$(3)"":X.q x52224,1,16,21:""4)A$(X)33)A$(X):XX1(X3)4 (((56320)16).)120:"" V,P,Y,J,R,U,E,D,H,W,I,L,SP,N,LX,LY,G,M,S,S$(47),D(1),T(47),SC(3)& V53248:J56320:SC52224:M1X)((V21)16). P(X)(V16)2391 49805,255,.s XS,41,21:YS,123,214:TG,6,14:FL,0,0,0:CF,16,31,14:SS,4,3 2040,248:2044,13:2045,14:2046,15:2047,248 V28,143:V37,1:V38,11:V39,10:V43,1 V44,.:V45,.:V46,9:V X(YT(HX)):V21,65(X.)128(X.)14:R(X.).8\TA.9:A(V30):A(V31)::FL,0,1,1:49152^P129:A$"111455808101101101101101101":1420:A.3:SS,A,1:h MAIN LOOP FOR SUBWAY PLATFORMrSC,D,E,7:(U)RMD,(U)4U,(U)8U | ." INTERRUPT DATA$# 120,169,33,141,20,3,169,192,141,21,3,169,154,141,17,3,169,194i# 141,18,3,173,36,195,133,251,169,1,141,37,195,88,96,198,251,208# 44,173,36,195,133,251,173,38,195,240,34,162,7,189,197,194,45,39# 195,240,21,189,1,1 168,185,196,194,61,48,195,240,5,138,168,32,162,192,169,7,141,167I% 2,172,167,2,185,241,194,240,6,141,168,2,32,162,192,76,46,193% 185,197,194,45,50,195,208,16,173,168,2,10,170,189,205,194,8,152% 10,170,40,76,192,192,152,10,170,189,223,194,48 ,152,10,170,232,40,76,18,193,152,10,170-'D 232,189,223,194,48,15,240,23,185,249,194,24,125,,208,157,,208n'N 76,45,193,189,,208,56,249,249,194,157,,208,96,206,167,2,48'X 3,76,145,192,162,7,142,167,2,172,167,2,152,10,170,185,197,194'b 45,42,1 89,223,194 ) 240,7,73,255,9,1,157,223,194,232,189,,208,56,205,46,195,176L) 9,173,46,195,157,,208,76,183,193,189,,208,56,205,47,195,144) 38,173,47,195,157,,208,185,197,194,45,43,195,240,12,169,255,56) 249,197,194,45,21,208,141,21,208,1891,195,32,155,183,142,38,195,32,155,183,142,40,195,966+ 32,155,183,142,43,195,32,155,183,142,42,195,32,155,183,142,50,195x+ 96,32,155,183,138,41,7,72,32,155,183,104,168,56,224,9,144,2+ 162,,138,153,241,194,152,10,168,138,10,170,189,205,194,1583,142,48,195,32,155,183,142,49,195,96-  32,170,177,152,41,1,170,189,,220,41,15,133,253,169,15,56,229a-* 253,168,185,25,195,168,169,,108,5,,32,155,183,138,72,32,155-4 183,104,168,24,76,240,255,1,2,4,8,16,32,64,128,,,.-> 255,1,255,1,,1,1,,1O"; "ý":PL,17,8:" ":V17,27:%X.19:"";::=X.19:"";::` SETUP CROWD OF ALIEN NASTIESX.3:SS,X,0::V16,.:X13:MD,X,(1)81:X13:VX2,X85:VX21,214SB,X,249((1)3)2,1:V1,X:A.30:A,X:CF,16,31,14:d SLOW DOOR DOWN TO READY POSITIONHnX10105(DU)8:B.X::SC,D,2,7:bxP33:A$"500":1420: SID STRING TONE GENERATORS6,96:S24,15A1183S1,((A$,A,2)):S4,PB180(6,7,133,254,40,8,144,3,200,152,170#  189,203,204,133,98,189,229,204,133,97,40,8P  144,8,233,1,133,97,176,2,198,98,165,98x  41,3,9,4,40,8,32,134,204,40,8,165  97,144,10,105,39,133,97,144,12,230,98,176 " 8,233,39,133,97,176,2,198,98,1660,40,177,97,170,160,1,177,97,72"h 138,145,97,104,170,200,192,41,208,243,96,4;"r 4,4,4,4,4,4,5,5,5,5,5,5Y"| 6,6,6,6,6,6,6,7,7,7,7,7" 7,,40,80,120,160,200,240,24,64,104,144" 184,224,8,48,88,128,168,208,248,32,72,112" 152,192,232,,95,24,125,17,195,157,248,7,222,17,195,16,68$ 189,9,195,157,17,195,202,16,224,173,40,195,208,3,76,140,192,162y$ .,173,41,195,240,9,169,1,77,37,195,141,37,195,170,189,,220$ 41,15,133,253,169,15,56,229,253,168,185,25,195,240,17,141,168,2% ,26,240,45,185,249& 194,24,125,,208,157,,208,144,33,185,197,194,77,16,208,141,16]&& 208,76,241,192,189,,208,56,249,249,194,157,,208,176,9,185,197&0 194,77,16,208,141,16,208,185,197,194,45,50,195,208,18,173,168,2&: 10,170,232,189,205,194,895,208,3,76,215,193,185,197,194,45,16,208,208,18,189,.:(l 208,56,205,44,195,176,56,173,44,195,157,,208,76,117,193,189,.(v 208,56,205,45,195,144,38,173,45,195,157,,208,185,197,194,45,43( 195,240,12,169,255,56,249,197,194,45,21,208,141,21,208,1,223,194,240,7,73,255,9,1* 157,223,194,206,167,2,48,3,76,59,193,76,49,234,32,155,183,142`* 44,195,32,155,183,142,45,195,96,32,155,183,142,46,195,32,155,183* 142,47,195,96,32,155,183,142,36,195,32,155,183,142,39,195,96,32* 155,183,142,43,223,194, 200,232,189,205,194,153,223,194,96,32,155,183,138,41,7,72,32,155M, 183,104,168,138,41,15,153,249,194,96,32,155,183,138,41,7,72,32,  155,183,104,168,138,153,1,195,152,72,32,155,183,104,168,138,153,9, 195,153,17,195,96,32,155,1,255,1,255,,255,255,,,.-H .,,,,,,,,,,,,,,,,,..R .,,,,,1,1,1,1,1,1,1,1,,,,,.).\ .,,,1,1,1,1,1,1,1,1,,,,,,,.R.f .,,1,5,,7,8,6,,3,2,4,8,1,1,255,1,1v.p 255,,24,65,50,230,255,255,252.z SPRITE DATA.0,85,,,123,,,106.0,,170,,,170,,V39X,((1)6)2::  SUBWAY DOOR UP)X115821:V11,X:A.30:A,X:@ SUBWAY DOOR DOWNe(X82115:V11,X:A.30:A,X:x2 PROFESSOR IN<CF,16,30,14:X124871:V1,X:A.30:AF:P PROFESSOR OUTZX87124:(A$,A2,1)):S4,P1::A(.):  SCROLL DATA9 32,241,183,138,74,8,32,241,183,224,25,144h 2,162,24,142,246,7,32,241,183,224,25,144 2,162,24,142,247,7,138,174,246,7,172,247 7,56,237,246,7,176,8,73,255,174,247,7 172,24 5,98,41!, 3,9,216,40,8,32,134,204,198,254,16,206/!6 40,96,133,98,144,3,76,171,204,160,,177`!@ 97,170,160,39,177,97,72,138,145,97,104,170!J 136,16,245,24,165,97,105,40,133,97,144,2!T 230,98,96,56,165,97,233,40,133,97,176,2!^ 198,98,1 FORM COLORS5 11,4,9,65 CONTROL ARROWS6 "  ","  ".6 TIME CROSSROADSv6 0,JESUS OF NAZARETH,60,ALEXANDRIAN STEAM ENGINE,79,VESUVIUS ERUPTS6 143,PTOLEMY'S EGOCENTRIC SOLAR SYSTEM, CK CONSTANTINOPLE,1215,MAGNA CARTA8" 1348,BLACK PLAGUE OF EUROPE,1454,GUTENBERG'S PRINTING PRESSH8, 1495,RENAISSANCE BEGINS,1512,MICHELANGELO PAINTS SISTINE CHAPEL86 1519,CORTES & MONTEZUMA,1580,DRAKE CIRCLES GLOBE,1620,MAYFLOWER SAILS8@ 1685, 1945,HIROSHIMA9h 1948,TRANSISTOR PATENTED,1954,BANNISTER'S 4 MINUTE MILE,1961):r CUBAN MISSILE CRISIS,1969,MOON WALK,1973,WATERGATE,1976q:| MAO TSETUNG'S DEATH,1978,TEST TUBE BABY,1982,COMMODORE 64 RELEASED: 1984,AHOY MAGAZINE CREATED,1988,US/h@@d3,1: 2@nI031O@x3075,2128,15,15,0,16384I256,8192I256,255:W@ 2^@0d@28.RLDR128.4DEMO128.4LDR64.RLDR128.R5* ==================================N COMMODARES PROBLEM #48-1 :g COIN CHALLENGE| SOLUTION BY DON DONATI ==================================Z"" dC$(1)"PENNIES":V%(1)1:C$(2)"NICKELS":V%(2)5:C$(3)SS THAN A DOLLAR": "ADD:": 2008 "EQUAL TO A DOLLAR": ` "GREATER THAN A DOLLAR":"REMOVE:"s DF%(TT%100) I5 1 1 C%DF%V%(I): C%0 240 DF%DF%C%V%(I): C%;C$(I) I : :V%(1)1:C$(2)"NICKELS":V%(2)5:C$(3)..245,,3,85,64,13,117,80.53,85,84,215,119,213,211,85/77,211,117,77,211,85,77,2112/117,77,211,85,77,171,117,74Q/131,85,98,3,195,192,3,195q/192,3,195,192,15,195,240,./0,250,,3,247,128,3,253/128,3,255,128,3,170,128,15/8 170,160,58,255,168,234,255,1700B 239,170,186,227,187,142,227,1701L 142,227,170,149,227,170,133,8791V 170,148,90,174,160,22,3,224R1` 58,,224,58,,80,58,.l1j 84,21,,,85,255,252,.1t 0,,,3,105,128,14,1701~ 160,14,170,160,15,125,224,131,255,224,132 215,96,3,170,128,14,170,1602 58,170,168,235,234,190,240,2343 130,192,234,142,195,170,162,243B3 163,172,11,163,160,11,128,224e3 35,128,224,35,128,224,131,1313 232,14,160,200,63,191,255,.3 0,170,,3,157,128,3,1913 n 128,3,191,128,3,191,128,34x 191,128,15,190,,15,170,1295 15,170,161,14,170,169,58,170)5 169,235,234,173,248,234,174,248M5 234,174,248,255,234,32,234,136l5 0,234,128,3,234,160,3,1705 160,15,170,168,254,170,171,255,.5 SUBWAY PLAT400,VISIGOTHS OVERRUN ROME7 450,ALEXANDRIA LIBRARY BURNS,476,DARK AGES BEGIN,540,BIRTH OF MUHAMMEDS7 700,PUEBLO INDIANS,770,AGE OF CHARLEMAGNE,1000,LEIF ERICCSON'S VOYAGE7 1066,WILLIAM THE CONQUERER,1067,BAYEAUX TAPESTRY7 1200,CRUSADERS SANEWTON'S LAW,1691,SALEM WITCH HUNT,1752,BEN FRANKLIN'S KITE!9J 1776,AMERICAN REVOLUTION,1793,COTTON GIN,1803,MONROE DOCTRINE,1861k9T CIVIL WAR,1912,TITANTIC SINKS,1914,WORLD WAR I,1930,GREAT DEPRESSION9^ 1937,HINDENBURG DISASTER,1939,WORLD WAR II,USSR ARMS TREATYALEM WITCH HUNT,1752,BEN FRANKLIN'S KITE!9J 1776,AMERICAN REVOLUTION,1793,COTTON GIN,1803,MONROE DOCTRINE,1861k9T CIVIL WAR,1912,TITANTIC SINKS,1914,WORLD WAR I,1930,GREAT DEPRESSION9^ 1937,HINDENBURG DISASTER,1939,WORLD WAR II,@8@""13)"JOYFUL SPIRITS":11)"JOYSTICK IN PORT 2"a@ ==================================@ COMMODARES PROBLEM #47-3 :@ JOYFUL SPIRITS@ SOLUTION BY@ GERALD GILLEY@ ==================================iA X1"DIMES":V%(3)10V nC$(4)"QUARTERS":V%(4)25:C$(5)"HALF-DOLLARS":V%(5)50:TT%0:""d x I1 5~ }13)"COIN CHALLENGE" C$(I);: N%: N%0 130 TT%TT%N%V%(I): I :"TOTAL: $";TT%100 (TT%100)2 170, 180, 190 "LEo64:X3583,0::3593,170:3596,170:3594,85:3595,85:1,1,1,0,0,0,1::T(2):I(T1)45:1,I#(6(T0)):170,160,58,255,168,234,255,170/239,170,186,227,187,142,227,1700142,87,170,142,83,170,142,2390 170,149,58,174,165,56,3,212S0 56,,232,20,,232,84,.o0 232,,,212,63,255,213,.0$ 0,250,,3,247,128,3,2530. 128,3,255,128,3,170,128,150 215,96,3,170,128,14,170,1601 58,170,168,235,234,186,192,2342 142,240,234,130,195,170,162,24352 163,172,11,163,224,35,128,224X2 35,128,224,163,128,224,15,160y2 224,12,131,232,63,255,187,.2 0,,,3,105,128,14,1702 160,14,125,160,15 128,3,191,128,3,191,128,153( 190,,15,170,129,15,170,16142 14,170,169,58,170,169,235,234*4< 173,248,234,174,248,234,174,248K4F 255,234,32,234,136,,234,128k4P 3,234,160,3,170,160,15,1704Z 168,14,170,168,254,170,171,144d 0,,,,170,,3,1574A= 1,"SLOWFAST:POKE842,13:POKE208,1:RENUMBER"  0,1:4,1&""(11)(142);["=-=-=-=-=-=- GRIM OAK MANOR -=-=-=-=-=-=";("";:X.37:"";::"":X.20:""38)"":2"";:X.37:"";::""<1,2,38,22,1FA$:A$"_"X1(A$):(A$,X,1);:D.30::::70 PLETING THE ADVENTURE, SEND A $1.00"K"BILL WITH A SELF ADDRESSED, STAMPED"_ "ENVELOPE TO:"g"" " AHOY! MAGAZINE"%" GRIM OAK DOCS"*" 45 W. 34TH ST., SUITE 500"4" NEW YORK, NY. 10001"  GRIM OAK MANOR V3.35 C-128 (C)1987 ""P INITIALIZE VARIABLES(.,1:4,7:(11)(14)(19)(19)(147)"UST A MOMENT,PLEASE..."2 LO$(19),D(19,9),R$(1),M$(55),S$(19),V$(70),N$(60),P(19,30),L(30),F(30)@<X.:I.:A.:B.:S.:IN$R"NZX119:LO$(X)::X.55:M$(X)::X.70:V$(X)::X.60:N$(X):dX119:I.9:D(X,I):I,X::A,B:A1:P(A,B)1:nB$"":X.39:B$B$" "::CL4:CR$(13):CD$(141):R$(1)CD$ixS$(2)M$(10)""N$(47)".":S$(3)"H1(M$(11)):D$(M$(11),X,1):J(D$):J45JJXD A$A$(J)::M$(11)A$ :A$:A$""::6)"OAD REVIOUSLY AVED ILE?":X2::.,16,23,"?Y/N?":A$:5,X:XX1((X16)15) A$"Y"A$"N":.,15,23,"":A$"Y"2580Z!:.,.,.,B$:";(12):"IN$V$(19)IN$V$(8)1"(IN$,"L")410:370S"I.:X.9:V$(X)IN$VX:I1j":I.M$(6):370x"540:370""I.:V1:X11::IN$V$(X)(IN$,(V$(X))1)V$(X)" "VX:I(V$(X)):V21#,XX1:X71:V1" DON'T RECOGN50,1080,1160,1220,1250,1290,1320,1320,1350,1400,1480,1510,1550,1590,1630,1690,1720,1750,1790,1820,1890$hV31V311910,1950,2000,2000,2030,2030,2060,2100,2120,2170,2210,2240,2280,2300,790,2350,1720,1580$r210$| RESET CURSOR%0,1,39,10:22=&"OU CAN NOW SEE:";:I.:X.30:P(CL,X)R$(R(.));N$(X);",";:I1::ՂY&I."NOTHING.":ՙ"."n&CR(235):470:& DIRECTIONS&22,14,39,24,1:(146)(159);:CL19(CL2CL3CL5)L(.)1"HO KNOWS?":&X.9:D(CL,X) VERYTHING IS SORT OF BLURRY...":B(NCL2N47F(2).S$(2)"":P(2,4)1:F(2)1:M$(7):z(XCL7(N33N59)"HEY LOOK ";M$(38(F(7)1)1):(bCL16(N35N36)M$(293S):(lCL16N51F(16).S$(16)M$(45):F(16)1:P(16,24)1:410:')vCL8(N32N48)M$(12);N$(48(F(8)1)16);M$(36(F(8)1)17):R)CL6N57F(6).S$(6)M$(7):M$(7):)CL18N31M$(12);N$(31);M$(41(F(18).)1):)N30730)N30L(N).M$(2):)N.410:390:N$(.);M$(53L(.)):)N2 2,"GRIM OAK MANOR"A"THIS TEXT ADVENTURE WAS CREATED"l"EXCLUSIVELY FOR AHOY! MAGAZINE BY""CLEVELAND BLAKEMORE A.K.A. TEX ARCANE""[C] 1988 ALL RIGHTS RESERVED""""IF YOU WOULD LIKE INSTRUCTIONS FOR" "COM>""+H"WE'LL BE HAPPY TO SEND YOU DETAILED"WR"INSTRUCTIONS FOR FINISHING THE GAME."_\""rf"GOOD LUCK!"p"LOADING GAME...."z"_""[C] 1988 ALL RIGHTS RESERVED""""IF YOU WOULD LIKE INSTRUCTIONS FOR" "COM"":R(X)(((236)(N$(X)))39)1:T$" "F:.,7,2,T$:.,7,6,"Y LEVELAND . LAKEMORE":.,13,14,"()1988 ":.,10,18,"- OR THE -128 -"P.,4,9,"IND YOUR DECEASED NCLE'S WILL!":,6,11,"ALL THE BANK TO SAVE ANOE ENDING ACHINE:"N$(2)","N$(10)","CR$N$(20)".":S$(9)"HE "N$(46)M$(20):S$(15)M$(12)N$(40)M$(20)S$(18)"HERE IS AN OLD "N$(39)" SITTING BY THE"CR$N$(31)" HERE!":S$(19)M$(13):S$(8)M$(7)"UNDER THE "CR$N$(32)".") A$"":X.,.,11,B$:.,.,13,B$:X1424:.,21,X," "::.,8,.,T$:.,1,13,"NVENTORY":.,23,13,"IRECTIONS"j! MAIN LOOPx!410:510!2730:390!(IN$)2290!IN$"S*"" .":2400:ՋIN$"Q*""OODBYE...IZE THAT VERB.":370#6V21410:370=#@V21VV11:540:370:VV21#JII2:N1:X.::(IN$,I,(N$(X)))N$(X)NX:(I(N$(X)))(IN$)#TXX1:X61:N1M$(6);(34);IN$;(34);"?":370V$^V570,570,750,750,790,840,880,920,960,1000,1035,CR:(27)(64)(159);:&% LOCATION AND DIRECTIONS%0,1,39,10,1:CL19(CL2CL3CL5)L(.)1"' ! ٠ !":470:%(146)(19)(158);LO$(CL):S$(CL):CL19L(.)1P(19,28)1P(19,28) 1)V$(11X)&:' INVENTORY+'0,14,20,24,1:(155);G'X.30:L(X)1)N$(X)O':^' MOVEMENT'&D(CL,V)CLD(CL,V):410::ՙM$(5):'0 LOOK AT/EXAMINE':CL19(CL2CL3CL5)L(.)1"ITCH BLACK??": (DL(19)1" "V$(27)"S"" INTO DARKNESS.":S$(13):510:9;N22F(13)1L(22)1M$(12);N$(45);" SHOULD BE ";V$(33);" FIRST.":C;2390X; SQUIRT/SQUEEZE;CL8N10L(10)F(8)1N48:2210;2390; BANG/STRIKE;N24L(24)1L(24)1:M$(12); M$(43):*N27M$(12);N$(27);M$(29L(27)):<*N28L(28)1M$(27);N$(39);".":P*N23M$(50):y*"T LOOKS JUST LIKE A ";N$(N);".":* GO/ENTER*CL5N41CL18:410*CL12N49F(12)1CL13:410:*2380*  GET6+ M$(.):+> DROP,HN30M$(1):,RL(N).M$(2):K,\P(CL,N)L(N):L(N).:410:510:390:M$(.):V,f GIVE,pCL7N2L(2)L(2).:F(7)1:510:390:M$(.):,zCL7N20F(7)1L(20)L(20).:F(7)1:M$(17):S$(7)M$(12)N$(33)M$(16)N$(1 L8N322300^.CL15N40L(3)F(15).F(15)1:S$(15)"HERE IS A"M$(39)CR$N$(38)" HERE!!":M$(12);N$(40);M$(19):S$(15):h.2380s. LOCK.CL9L(4)N46D(9,5).:S$(9)M$(12)N$(46)M$(20):410:390:M$(.):.$2380.. OPEN/8C36):+0jCL13(N45N46)F(13)1F(13)1:S$(13)M$(12)N$(45)M$(19):S$(13):50t2380A0~ CLOSE0CL12N49F(12)1F(12)1:S$(12)M$(12)N$(49)M$(18):M$(.):0N29L(29)1L(29)1:M$(.):0CL13N45F(13)1F(13)1:S$(13)M$1L(27)1:700123801 FILL!2 CL7N27L(27)1L(27)1:M$(.):+22380?2 FLATTEN/STOMPh2(N6L(6)1L(6)1:M$(.):M$(31):r2223902< INSERT2FCL3N6L(6)1P(3,2)1:M$(23);N$(2);".":L(6).:510:2PCL3N8L(8)CL7N24F(7)1L(24)1F(7)2:P(7,12)1:410:390:S$(7)"":" "M$(12);N$(12);M$(33);"MAGNETIZED ";N$(24);".":e4CL7N18L(18)M$(44):4N7L(7)M$(12);N$(7);" ";V$(47);"S!":L(7).:510:4CL1L(30)N581,25000,90,1,300,9000,2:(12)1:M$(.):S$(12)" "N$(49)" IS BEHIND THE "N$(52)".":R6CL13N56F(13).F(13)1:S$(13)"GAD! "N$(45)"!":S$(13):\6"2390g6, MOVE66CL12(N52N53)15506@CL13N5615606J23906T SAY6^CL18F(18).M$(12);N$(CL7CL16)(N35N36)M$(15):723808 EXTINGUISH:8CL18F(18).L(27)1F(18)1:L(27)1:M$(.):D82380R8 TURN ONm8N.L(.)L(.)1:6808N25L(25)"O ELECTRICITY.":823808 TURN OFF8N.L(.)1L(.)1:6N34S1:L(16)1:M$(32)::23809l DIP:vCL19N26L(26)1L(26)1:M$(.):C:CL19N28L(28)1L(28)1:M$(.):M:2380W: TIEn:CL13N222390:F(13)1L(22)1L(22).:F(13)2:D(13,9)17:410:390:S$(13)M$(12)N$(22)" N$(24);M$(25):;2390; SOAK; CL19N261910<CL19N281920< 2390&<* DEVELOPs<4CL19N28L(28)1L(28)1:M$(.):L(19)1M$(27);N$(39);"."::2380<> THROW":(27)"Q";" ";8D Z$:Z(Z$):Z95Z342760RD ZL(IN$):ZL292790D Z312,8000,1,,,,3:IN$IN$Z$:Z$;" ";:2760D Z13ZL" ";:3,8000,10,2,,400 E MANOR,CLUTCHING A ROPE. HE WALLS ARE TOO SLICK FOR HANDHOLDS."UM "OU ARE INSIDE A SMOKY TEEPEE.HERE IS A PILE OF WOOD HERE FOR A FIRE, WITH A WELL-WORN BEDROLL CLOSE BY..."M "OU ARE IN THE HOTOGRAPHY ARKROOM.N INFRARED LIGHT IS MOUNTE )1F(15)1F(15)1:L(26).:P(15,30)1:S$(15)M$(47):410:390:M$(12);N$(38);M$(40):510:S$(1)M$(48):p=\N30L(N)"K,";N$(N);" ";V$(61);"N.":P(CL,N)L(N):L(N).:510:z=f2380=p DIG=zCL5(N37N1)F(5).L(1)P(5,13)1:F(5)1:M$(. E NOVELTY VENDING MACHINE STANDS IN ONE CORNER, WITH A COIN SLOT ON THE SIDE."F, "OU ARE STANDING IN FRONT OF A BEAUTIFULOLD MANSION.EARBY IS A WEEDY DESERTED GARDEN, APPARENTLY OVERGROWN FROM YEARS OF NEGLECT.G6 "OU ARE IN A DENSE FOREST.HE ";N$(26);"!":510: ?CL18N30M$(12);N$(39);" ";V$(35);"S HIS HEAD.":?2390? KILLV?"HIS IS A NONVIOLENT GAME...":"( OR ESS)":b? CRACK?CL8N32F(8).:" ....":2740:IN$M$(11)F(8)1:410ND OF THE QUARIUM OOM.HERE IS A BUBBLING FISH TANK HERE WITH BRIGHT-COLORED GOLDFISH. HEY LOOK RATHER UNHAPPY."HT "OU ARE IN THE ASTER TUDY.HERE IS A MASSIVE STEEL SAFE HERE, TWICE AS TALL AS A MAN. HERE IS A THIN FILM OF DUST ALL OVER IT.M$(2)::ՙM$(4):@` SAVE GAME FILE,QUIT3Aj "MANOR.FILE",D0,U8: #1,"MANOR.FILE,U",D0,U8,W:DS20(DS$)2);DS$:#1:FAt X119:J.9TA~ 1,D(X,J)]A J,XiA X119{A 1,S$(X);CD$;A XA X119:J.30A 1,P(X,J)A J,XA XHWEST DOOR THERE IS A SIGN. HE SOMEWHATMACABRE WALLPAPER SEEMS STREWN WITH GHOULISH FACES."qJ| "OU ARE IN THE EN.HERE IS A HEARTH AND A BOTTLE RACK ON THE NORTHWEST WALL.T'S CHILLY IN HERE."J "OU ARE IN THE CLOSET. HEAP OF RUBBISH ISX119:J.9B( 1,D(X,J)B2 J,XB< X119CF S$(X)""::#1,A$:S$(X)S$(X)A$:A$CD$CP X+CZ X119:J.309Cd 1,P(X,J)BCn J,XNCx X.30_C 1,L(X),F(X)fC XrC 1,S,CLC #1:(27)"J"(27)"Q";:20(DS$)2);DS$: 4:C FOWOODEN COFFIN WITH A GOLD KEYHOLEIN THE LID. INY ANIMAL BONES ARE SCATTERED ON THE FLOOR."pL "OU ARE IN THE AVORATORY.HERE IS A SHOWER,MIRROR AND COMODE HERE, ALL IN NAUSEATING PURPLE HUES."L "OU ARE IN A HIDDEN SHAFT DEEP UNDER TH0,.:D Z20ZLIN$(IN$,ZL1):" ";:1,5000,5,2,,,.D 2760E LOCATIONSAE "OU ARE IN A KITCHEN.HERE IS A WOODEN TABLE HERE."E "OU ARE UNDERNEATH THE TABLE. T'S DUSTYAND SOMEWHAT DIMLY LIT.E" "OU ARE IN THE UN OOM. LARGD ON A STEEL TRUSS ABOVE YOUR HEAD."M MESSAGESgN " KAY,DONE."," CAN'T DO THAT.","OU DON'T HAVE IT."," DON'T SEE IT HERE.","NTERESTING CONCEPT...NOTHING HAPPENS.","OU CAN'T GO THAT WAY."N " CANNOT UNDERSTAND "O "OU SEE SOMETH):=CL4(N43N1)F(4).L(1)P(4,21)1:F(4)1:M$(.):>2380> OILS>CL8(N32N48)L(10)F(8)1F(8)2::M$(12);N$(10);M$(22):]>2390i> TRADE>CL18N11F(18)L(11)1L(11).:L(26)1:M$(12);N$(39);" ";V$(64);"S YOU ARE IS AN INDIAN TEEPEE HERE. LIGHT PALL OF FAINTLY ODOROUS SMOKE IS PUFFING GENTLY OUT THE TOP."G@ "OU ARE AT THE EST END OF THE QUARIUM OOM.HERE IS A GRATE IN THE FLOOR, WITHTINY CHROME BARS CRISSCROSSING IT."HJ "OU ARE AT THE AST E:390:M$(12);N$(32);M$(21):? IN$M$(11)410:390:2390? @ @$ DRINKC@. N5L(5)1M$(8): 4:CL2:410:390:M$(9):M@8 2380i@B COMMON REENTRY POINTS@L N30M$(1)::ՋL(N).M$(2)::ՙM$(1):@V N30M$(4)::ՋL(N)."I^ "OU ARE AT THE END OF A SPIRAL STAIRCASE IN FRONT OF A RUSTY OLD DOOR.T'S KIND OF SPOOKY UP HERE."vIh "OU ARE IN THE ATTIC, A SERIOUS DUMP THAT PROBABLY HASN'T BEEN CLEANED IN TWENTY YEARS."Jr "OU ARE IN THE EADING OOM.N THE NORT.30A 1,L(X);CR$;F(X);CR$A XA 1,S;CR$;CL;CR$A #1;B 20(DS$)2);DS$: 4:"ETURN TO RIM AK ANOR...";(12):WB LOAD IN PREVIOUS GAMEB #1,"MANOR.FILE,U",D0,U8,R:DS(27)"J"(27)"Q";:20(DS$)2);DS$:#1: 4:B  ON THE FLOOR.N IRON HOOK IS BOLTED IN THE WALL."jK "OU ARE IN A MUSTY CELLAR.HERE IS AN ARCH TO THE NORTHEAST AND A ROPE GOING UP TO A TRAPDOOR. T'S EXTREMELY DARK AND DISMAL DOWN HERE."L "OU ARE IN THE OFFIN OOM.HERE IS AN ORNATE  Z198,0'dI0I1:"DDLOGO",8,14i53280,2Gn55,0:56,92:Ux53265,59d53272,120|56576,(56576)25425055,0:56,16053265,2753272,2156576,(56576)1"";:53280,6:53281,0:(14); "OADING  OOK AT,EXAMINE,GO,ENTERV GET,DROP,GIVE,FEED,EAT,UNLOCK,LOCK,OPEN,CLOSE,SHAKE,POUR,FILL,FLATTEN,STOMP,INSERT,USEBV SHOOT,WEAR,SLIDE,MOVE,SAY,BREAK,EXTINGUISH,TURN ON,TURN OFFV READ,COMB,DIP,TIE,SQUIRT,SQUEEZE,BANG,STRIKE,SOAK,DEVELOP,THROW,D 276,17:54283,17& " 54272,00: 54273,33> ,54279,59:54280,33_ 6 X1 25: HI(X),LO(X): Xz @ X1 25: DU(X): X J X1 64: H3(X),L3(X): X T 54296,15 ^B1: X1 25 hAN$:AN$(13)460 r 54272,LO(X): 54273,HI(X)