???eg DD((DDDD !! ?aaa```aa`8????????< <<yAAqAyRR228DDDD8𠐐8Xqx???????? 8!!C?⒒  $(0($"yAAqAyRIOJI=!!9!,$LD|cL@ORCH,A MATCHBOOK,A RUSTY SHOVEL "X A PEARL HANDLED REVOLVER,AN EMPTY 7-UP BOTTLEg"b A GLOWING DIAMOND,A HANDFUL OF RUSTY BULLETS,A LUSTROUS RED RUBY"l THE DUTCHMAN'S NUGGET"v OBJECTS & INITIAL LOCATIONS" 0,1,0,3,0,4,1,0,5,2,2,6,3,7,8, K(147)"PRINT 24/40 **** ERASE 24/40": FOR DEMO ONLYu A$"IS THIS THE BOTTOM LINE OR WHAT?"2000:W01000::3000:B$(A$,(A$)2)(A$,1)214,24:211,(40(A$)):58732 B$(157)(148)(A$,(A$)1,1)(19) ? H PHE8@8??HH~~33 ``  Ƈ0???pd: 214,24:211,0:58732X " "(20)(32)(19)^ ""|q# CbbHHO <FEDpp C!!!???ఘ333? ``DĎb@??!qq  K  Ƈ0??? ????? ? aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ???????xxxxxxxχ?   >> ?~ > " "000qb  $44,,DDGDyAAqA??_ 0ఘఘ`aa`aaa̘```8 |x????????  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ?????xxx ~ ? ????????8,$$, qIIqQ$$D0$y? !!!ఘ``` ??{3? IIIIIy$$$ aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaarrr'''''''''''''''''''''rrrr'''''''''''''''''''''rr ??? ?><```8``|8a`????????8I#qXHHςpHHp!! @|>|>><||? qa'$$$'  ? ``??????8xx"6*"""HIHHH1"" PcefRSWXxOVIE CROLL FOR THE -64 WILL LET YOU SCROLL FROM BOTTOM TO TOP ANY TEXT ON YOUR COMPUTER MONITOR. EE OVIE EMO. XOVIE EMO FOR THE -64 DEMON- STRATES THE SCROLLING CAPABILITIES OF OVIE CROLL. TER MONITOR. EE OVIE EMO. - IRECTORY CANNER FROM THIS MONTH'S UPERT EPORT ON PROBING SOME ADVANCED DISK DRIVE COMMANDS LETS YOU VIEW YOUR DISK DIRECTORY AND REPORTS ALL TRACK AND SECTOR LINKS. OME EVISITED IS A SOLUTION TO THE ANUARY '88 OMMODARE REQUIRING THE USER TO WRITE A ROUTINE THAT CON- VERTS DECIMAL NUMERALS TO OMAN. RACK AND SECTOR LINKS. wCORE EEPER IS A SOLUTION TO THE ANUARY '88 OMMODARE REQUIRING THE READER TO WRITE A ROUTINE TO KEEP SCORES. L NUMERALS TO OMAN. RACK AND SECTOR LINKS. PRITE LIPPER IS A SOLUTION TO THE ANUARY '88 OMMODARE REQUIRING THE READER TO WRITE A ROUTINE THAT WILL FLIP A SPRITE BACKWARDS. N. RACK AND SECTOR LINKS. ASY AS ... IS A SOLUTION TO THE ANUARY '88 OMMODARE REQUIRING THE READER TO WRITE A ROUTINE THAT CAN CALCULATE USING ONLY + - / *. RACK AND SECTOR LINKS. ٠ ... IS THE -128 SOLUTION TO THE ANUARY 1988 OMMODARE REQUIRING THE READER TO WRITE A ROUTINE THAT WOULD CALCULATE USING ONLY + - * /. ND SECTOR LINKS. RINT 24/40 RASE 24/40 FROM IPS HOY! IS A SHORT ROUTINE THAT LETS YOU DISPLAY CHARACTERS ON THE 24TH LINE AT THE 40TH POSITION WITHOUT DISTURBING ANYTHING ON THE SCREEN. eLOCK ISPLAYER FROM IPS HOY! LETS THE USER DISPLAY OR PRINT INDIVIDUAL TRACKS AND SECTORS. 4 LINE AT 40 POSITION WITHOUT DISTURBING ANYTHING ON THE SCREEN. WAP PEED FROM IPS HOY! LETS YOU SWITCH BETWEEN THE 40 AND 80 COLUMN DISPLAY ON THE -128. - TOGGLES BETWEEN THE TWO. UT DISTURBING ANYTHING ON THE SCREEN. -128 80 OLUMN CREEN AVE AND OAD FROM IPS HOY! LETS YOU SAVE AND LOAD THE CONTENTS OF THE 80 COLUMN SCREEN OF THE -128. DISTURBING ANYTHING ON THE SCREEN. \ EADER FROM IPS HOY! LETS YOU READ THE 16 UNDERLYING AND . - THE 80 COLUMN SCREEN OF THE -128. DISTURBING ANYTHING ON THE SCREEN.  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 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) |   28,49,33,135,28,49(  25,30,28,49,31,165B  33,135,37,162,28,49]  37,165,33,135,31,165v & 25,30,22,96,18,209 0 4,2,2,3,1,4,4,2,2,8 : 4,2,2,2,2,2,2,2,2,2,2,2,2,2,2 D 8,97,16,195,8,97,16,195,8,97,16,195 N 8,97,16,195,8,97, 16,195,8,97,16,1952 X 8,97,16,195,8,97,16,195,8,97,16,195\ b 8,97,16,195,8,97,16,195,8,97,16,195 l 8,97,16,195,8,97,16,195,8,97,16,195 v 8,97,16,195  5,152,11,48,5,152,11,48,5,152,11,48  5,152,11,48  6,71,12,143,6,71,12,143,6,71,12,143( 6,71,12,143,6,71,12,143,6,71,12,143R 6,71,12,143,6,71,12,143,6,71,12,143| 6,71,12,143,6,71,12,143,6,71,12,143,1,4,4,2,2,8 : 4,2,2,2,2,2,2,2,2,2,2,2,2,2,2 D 8,97,16,195,8,97,16,195,8,97,16,195 N 8,97,16,195,8,97, \''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''AAAAaaaAaaaAAAAAAAAAAaaAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa AIN ENU...."< "LOAD";(34);"DIR 1";(34);",8,1"T "RUN":""q 631,13:632,13:198,2: HI(25),LO(25),DU(25),H3(64),L3(64)  54291,134: 54277,136:54284,136  54292,136: 54278,134:54285,134  54290,17: 54  54279,LO(X)45:54280,HI(X))  N1 DU(X)G 54286,L3(B):54287,H3(B)Q BB1c  L1 145:k  Ns  X| 350 S54272:I024:SI,0::155  16,195,21,31,25,30  28,49,21,31,28,49  33,135,37,162,25,30  33,135 (d* BLOCK DISPLAYER -SHAWN K. SMITH2i""XnH$"0123456789ABCDEF":F$(18)":zx"OUTPUT TO PRINTER (Y/N)";A$15,8,15:8,8,8,"#"DV4(A$"Y"):DV,DV "TRACK, SECTOR (DEC)";T,S230:D132:S$F$:270 T18:#8,B$:A %d* SWAP SPEED BY SHAWN K. SMITHGnS5120: FOR C-128 FROM AHOY!_xDSS29:Y:D,Y:zA((S11)256):S6,AS1,S11256AD,(824):D1,(825)(S):"SWAP SPEED READY.": 169,011,141,056,003,169,020,141 057,003,0 ( C-128 80 COL. SCREEN SAVE & LOAD.:<1,1:5,1B(:g2I093:A$:("0B00")I,(A$):< A9,00,85,FB,A9,20,85,FC,A9,00,8D,5E,0B,A2,12,A9F 00,20,CC,CD,E8,20,CC,CD,A0,00,20,D8,CD,91,FB,C8 P D0,F8,E6,FC,EE,5E,0B,AD,5E,0B,C9,10, REST OF PROGRAM HERE":6(F$),B0,P8192E("0B2F")KQ:`("0B00")j(F$)$(F$),B0,P8192P12288.0B,A2,12,A9F 00,20,CC,CD,E8,20,CC,CD,A0,00,20,D8,CD,91,FB,C8 P D0,F8,E6,FC,EE,5E,0B,AD,5E,0B,C9,10,   SA828.ISASA35:A:I,A:CKCKA:R CK4252 "ERROR IN DATA":w(786,SA256:785,SA((786)256)- 1002 32,247,183,165,100,133,252,165< 101,133,251,160,0,120,165,1F 41,252,133,1,177,251,168,165 P 1,9,3,133,1,HIS 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.) ASHGAR IS A COLORFUL SCI-FI GAME FOR THE -128. UARD THE GATE OF IMENSION AGAINST THE HIDEOUSLY EVIL RYSTALLIONS. OYSTICK IN ORT 2. ORT 2. -64. OYSTICK c 214,24:211,0:58732W " "(20)(32)(19)] (B$(0)) 300:A127AA1288 A95A32A34A46X S$S$(A):DV,D$" ";:CC1m :DV,""S$::C0v 260 15,"U1:";8;0;T;S 15,A,B$,C,D:A0 A,B$,C;D DV:DV:8:15: AC:300:DV,"00"D$": "; A$:A$"" "A^96,201,088,208,014,036: 215,048,005,032,182,119,208,003X 032,199,119,169,088,076 LOCK ISP. SWAP SPEED D0,EA,60,A9?Z 00,85,FB,A9,20,85,FC,A9,00,8D,5E,0B,A2,12,A9,00ud 20,CC,CD,E8,20,CC,CD,A0,00,B1,FB,20,CA,CD,C8,D0n F8,EE,5E,0B,E6,FC,AD,5E,0B,C9,10,D0,EA,60x:F$"FILENAME" GOSUB1000 TO LOAD SCREEN GOSUB1040 TO SAVE SCREENHOBIA IS A TEST OF REASON AND REFLEXES THAT TAKES PLACE WITHIN THE EALITY NSTITUTE--THE FINAL TRAINING GROUND. OR THE -64. OYSTICK IN ORT 2. 64. OYSTICK Z88,169,0 Z 32,145,179,96( d 63000,1? n"ROM=";(63000)T x"RAM=";(63000)  24/40 LOCK ISP. SWAP SPEED 80 COL. S & L  EADERNAP NAKE IS A FAST PACED ARCADE GAME FOR THE -64 BASED ON A EXAS LEGEND ABOUT THIS STRANGE REPTILE. OYSTICK IN ORT 2. . OST UTCHMAN'S INE IS A SHORT BUT EXCITING TEXT GAME TO ACCOMPANY THIS MONTH'S ARTICLE ON PROGRAMMING ? TEXT ADVENTURES. T WILL RUN ON ANY OMMODORE COMPUTER WITH 40 COLUMNS. INES OF ERLIN FOR THE -64 IS AN UPDATED VERSION OF THE ORIGINAL 3- GAME AULT OF ERROR PUBLISHED IN CTOBER 1987. ATTLE THE GIANT RACE OF SERPENTS! OYSTICK IN ORT 2. LOB IS A SHORT ROUTINE FOR THE -64 THAT SURMOUNTS THE REGULAR SIZE LIMITATIONS OF THE CHIP'S SPRITES. EE LOB EMO FOR A DEM- ONSTRATION. ATION. K bLOB EMO SHOWS OFF JUST A FEW OF THE FEATURES OF LOB FOR THE -64. OYSTICK IN ORT 2.  IN LOB EMOT$: 1(A$"")290:' ,H(A16):LAH16F 6D$(H$,H1,1)(H$,L1,1)L @8)":zx"OUTPUT TO PRINTER (Y/N)";A$15,8,15:8,8,8,"#"DV4(A$"Y"):DV,DV "TRACK, SECTOR (DEC)";T,S230:D132:S$F$:270 T18:#8,B$:A ""13)"ROME REVISITED"H ==================================l COMMODARES PROBLEM #49-1 : ROME REVISITED SOLUTION BY JERRY NICHOLS ================================== "NUMBER";N  V,R$: N ""13)"SCORE KEEPER"F ==================================j COMMODARES PROBLEM #49-2 : SCORE KEEPER SOLUTION BY CRAIG EWERT ================================== 20 K0 4: SCHS(K) 1 @@ << CD54-6 >>=@ ==================================a@ COMMODARES PROBLEM #49-3 :{@ SPRITE FLIPPER@ SOLUTION BY@ RICK DOLLAR@ ====== FOR C-64 ONLY ============ A (147):B112288:V53248:251,0:252,48: N,0:>B< AB1 B163: B: A,B::2040,192:2041,193:V39,1zBF V40,1: V,160: V1,100: V21,3: V2,100: V3,100BP A828 877: B: A,B:BZ 160,60,132,2,177,251,32,97,3,200,200,145,253,136,177,251,32Cd 97,3,145,253,200,177,251,:: B2AD,M::5D"PRESS ENTER KEY TO ERASE SPRITE 2";K$SD N12352 12415: N,0:~D"PRESS ENTER KEY FOR M.L. VERSION";K$D 828B: A,B:BZ 160,60,132,2,177,251,32,97,3,200,200,145,253,136,177,251,32Cd 97,3,145,253,200,177,251, : "Q TO QUIT; ANY OTHER KEY TO CONTINUE"H K$: K$"" 4020 : EMPTY KYBD BUFFERa K$: K$"" 4030k SP$ K$"Q" 4100 -- NEXT TRACK & SECTOR OF DIR :TK(TK$Z$): SC(SC$Z$) TK18 4110 "NO MORE F  SP$: K$"U" 5100UDFLGTRUE : CTCT13 ""; 35); "*"S " (- TO BE UNDELETED -)"{B$(B$,PTR1)(1282)(B$,PTR1) -------------------------------p ========= UNDELETE ============z 15,"B-P";2;0 DS$"" 7050 : (FOR C-64 ONLY)l DS20 Bv "DISK ERROR :"; DS$ : 1: 15: Z === C-64 ONLY ===p 15,EN,EM$,ET,ES EN20  "DISK ERROR :"; EN;EM$;ET;ES 1: 15:  ------------------------------- ""13)"EASY AS ..."E ==================================i COMMODARES PROBLEM #49-4 : EASY AS ... SOLUTION BY E. HORMATS ================================== "MONTE CARLO METHOD" "NUMBEA$"N"  140 ..."E ==================================i COMMODARES PROBLEM #49-4 : EASY AS ... SOLUTION BY E. HORMATS ================================== "MONTE CARLO METHOD" "NUMBEV NNV: R$;  N0 20_ < 1000,M,1000,M,1000,M,900,CM,500,D,400,CD,100,C,100,C,100,C F 90,XC,50,L,40,XL,10,X,10,X,10,X,9,IX,5,V,4,IV,1,I,1,I,1,IIRECTORY CAN OME EVISITED CORE EEPER4 :  "INITIALS";IN$e  I5 K1 1:HS(I)HS(I1):HI$(I)HI$(I1)::HI$(K)IN$:HS(K)SC "": I0 4: I1,HS(I),HI$(I): : "SCORE";SC: 12: 20:  OME EVISITED CORE EEPER 253,64:254,48ZA 0,0,0,2,255,248,6,224,248,14,211,249,30,224,250,62,255,255,126,217,250A 254,214,251,126,230,250,62,255,255,30,193,250,14,254,249,158,193,248,98A( 255,248,64,0,0,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0B2 N12352 12415: 32,97,3,164,2,145,253,136,136,136WCn 16,222,96,162,8,10,110,251,3,202,208,249,173,251,3,96Cx"PRESS ENTER KEY FOR BASIC VERSION";K$C A0 60 3: C0 2:D2C:N(B1AC):M0CB2B164: B7 0 1:P2B DMM((P(N P)))2(7B) @@ << CD54-8 >>=@ ==================================a@ COMMODARES PROBLEM #49-4 :x@ EASY AS ...@ SOLUTION BY@ JIM SPEERS@ ===== FOR C-128 ONLY =============@d 0,1: 1,2: 4,12: 1,1: 1,1000,10000A n 1,10,10,990,990: 1,10,990,980,980,,90: TETIYAxTBTI: 1,20,980,1: TETI: TCTETBATBTI: 1,980,20,1: TETI: TTTCTETB: PY4TCTTA 1,4,2,"ANY KEY TO FIND THE VALUE OF PI",1A Z$A 4,14: 5,14: 0,12*B 0: " APPRO ILES IN DIRECTORY"  1: 15: 9 -------------------------------_ ==== SELECT FOR UNDELETION ===={ TYP0 NULFLG 5100 " PRESS U TO UNDELETE THIS FILE" K$: K$"" 5030: CLEAR KYBD K$: K$"" 5040  1,TK$;SC$;B$; 7000 15,WR$;2;DVC;TK;SC# 7000> 15,"V0" : VALIDATEY "VALIDATING DISK..."d 7000 CT; "FILE(S) UNDELETED" 1: 15:  -------------------------------X ====== CHECK DISK STATUS ==== b R OF CYCLES WANTED";CY$ "":P03 ( I1 CYF 2X(0): Y(0)T <ZXXYYc F Z1 90m PPP1} Z"AT ";I"" d I nPI4PCY x"VALUE OF AFTER"CY "TRIALS IS = ",PI "ANOTHER TRY (Y/N)" A$: A$"Y" 20 zXIMATE VALUE OF PI IS ": "#.########";PYrB " VARIATION FROM COMPUTER'S PI IS ": "#.########";(PY)@ SOLUTION BY@ JIM SPEERS@ ===== FOR C-128 ONLY =============@d 0,1: 1,2: 4,12: 1,1: 1,1000,10000A J(147)"PRINT 24/40 **** ERASE 24/40": FOR DEMO ONLYt A$"IS THIS THE BOTTOM LINE OR WHAT?"2000:W01000::3000:B$(A$,(A$)2)(A$,1)214,24:211,(40(A$)):58732B$(157)(148)(A$,(A$)1,1)(19):  SA491523"LOADING MACHINE LANGUAGE..."_CK0:ISA SA251: A:I,A:CKCKA:I CK33715 "DATA ERROR.":("USE SYS"SA"TO ACTIVATE.": 165,250,160,0,141,134 2,153,0,216,153,0 217,153,0,218,153,0 219,20 % "LOADING MACHINE LANGUAGE..."I A$(30):53280,0:53281,0:""^I130:A$(I):(820,45:821,200: --- SCROLL SPEED ---2250,3: --- TEXT COLOR ---< --- A$(20)="" MEANS LAST STRING ---FA$(1)(A$(1),1):49152P Z - OS!"? " "," "," ","*** ALL WITH MOVIE SCROLL!!! ***"," "," "j "IT'S SAFE, NON-TOXIC, AND HARMLESS" "AS WELL AS SIMPLE AND CONVENIENT." "ALL YOU DO IS SET UP A STRING ARRAY!" "NOW, UNLESS YOU WANT TO SIT HERE ALL" "DAY  << RR54-1 >>====================================Cb DIRECTORY SCANNERh RUPERT REPORT #54==== C-64/128 ==== 1541/1571 ======""  READ AND DISPLAY DIRECTORY  USING DOS DIRECT OR INTO CHANNEL 2'S BUFFER IN DISK DRIVE :@ 15,RD$;2;DVC;TK;SCc 7000 : CHECK DISK STATUS 2000 : READ DISK BUFFER INTO COMPUTER : -- INTERPRET DATA BYTES -- FIL0 7 3000 : DISPLAY DIR ENTRIES >>> GOSUB 5 TORY SCANNER==": - FALSE0: TRUE FALSE: Z$(0)L NUL$Z$: SP$" ": L$"--"  N1 4: NUL$NUL$NUL$: SP$SP$SP$: L$L$L$: SP$" " SP$ " " $ N0 4: TYP$(N): N . DEL, SEQ, PRG, USR, REL 8RD$"U1": WR$"U2"  A GHOSTLY CHECKERBOARDYSTICK IN PORT TWO"_ P1)"PRESS NUMERIC KEYS 1-6 TO CHANGE SPEED" Z1)"PRESS H FOR HORIZONTAL, V FOR VERTICAL" d8)"PRESS A FOR ALL DIRECTIONS" n49152 xN$:N(N$):N0N749625,N N$"A"49552,255 C LEN"% "================================="^  15,"B-P";2;0 : POINT TO BYTE 0 OF CHNL 2 BUFFER: GET NEXT DIR TRACK & SECTOR# 1,TK$: TK$"" TK$Z$ # 1,SC$: SC$"" SC$Z$* N2 2554# 1,D$> D$"" D$Z$ 0,208,241,165,71) 133,253,141,54,3,165C 72,133,254,141,55,3_ 173,17,208,41,248,141z 17,208,160,0,177,253 153,250,0,200,192,3 144,246,165,250,208,31 173,54,3,133,253,173 55,3,133,254,24,144  227,169,32,160, h 24,101,250,141,17,208- r 173,52,3,133,251,56J | 144,154,162,10,202,208h 253,198,251,208,249,173 18,208,208,251,136,192 255,208,216,173,17,208 41,248,24,105,7,141 17,208,165,253,24,105 3,133,253,144,2,230  & 136,208,248,24,144,148 173,52,3,133,251,56J | 144,154,162,10,202,208h 253,198,251,208,249,173 18,208,208,251,136,192 255,208,216,173,17,208 41,248,24,105,7,141 17,208,165,253,24,105 3,133,253,144,2,230 -- TEXT TO SCROLL ---C d " "," "," ","THIS IS MOVIE SCROLL..."," " n "THE FINE-SCROLL UTILITY WHICH YOU HAVE","BEEN WAITING FOR!!!" x " ","SCROLL YOUR HELP SCREENS..."," ","OR YOUR TITLE SCREENS..." " ","OR USE IT TO TITLE YOUR HOME VIDELONG WATCHING THIS DEMO,HIT ANY KEY"Q "TO RETURN CONTROL TO BASIC...."," "," "," "y "AH WELL, HERE WE GO AGAIN...","" FOR!!!" x " ","SCROLL YOUR HELP SCREENS..."," ","OR YOUR TITLE SCREENS..." " ","OR USE IT TO TITLE YOUR HOME VIDE  ACCESS COMMANDS (2 d 1000 : INITIALIZEV n 15,DVC,15 : COMMAND CHANNELy x 7000 : CHECK DISK STATUS : OPEN DATA CHANNEL 2; SET UP A DISK BUFFER FOR IT 1,DVC,2,"#" 7000 : CHECK DISK STATUS' : -- READ SECT 000 :REM SELECT UNDELETION FIL' L$]  >>>> IF UDFLG THEN GOTO 6000:REM UNDELETE & END|  4000 : CONTINUE OR END?  170 : CONTINUE " --------------------------------  ======== INITIALIZE =========  (147); "==DIREC BTK18: SC1 : 1ST DIR TRK/SECTOR# LDVC8) VO ` -------------------------------u  ======== READ SECTOR ========= B$""  "READING TRACK, SECTOR :"; TK; SC  "================================="  "FILE NAME.......TYPE: TK S HB$B$D$ : READ BUFFER INTO B$R N%\Kf -------------------------------q ======= INTERPRET DATA ====== PTRFIL321 FF((B$,PTR,1)) : FILE STATUS MDFF 192 : CLOSURE MODE TYPFF 7 : FILE TYPE  : -- FIRST TK & SECTOR OF FILE, FTK((B$,PTR1,1))E FSC((B$,PTR2,1))h NM$(B$,PTR3,16) : FILENAME NULFLGFALSE: NM$NUL$ NM$"( UNUSED ENTRY )": NULFLGTRUE BLK((B$,PTR28,1))((B$,PTR29,1))256 : FILE LENGTH &  NM$;: NULFLG : 313050 ","; TYP$(TYP); ": "; FTK; FSC; BLK^: MD192 " ( FILE LOCKED )"D MD0 TYP0 "> FILE NOT PROPERLY CLOSED <"N X ------------------------------- ======= CONTINUE ============ 0,153  192,7,200,192,40,1448  248,169,27,141,17,208R " 96,169,32,160,0,153m , 192,7,200,192,40,144 6 248,162,24,160,0,24 @ 32,240,255,160,0,177 J 251,32,210,255,200,198 T 250,208,246,160,7,132 ^ 250,173,17,208,41,240 254,32,228,255,240,8' 133,2,169,27,141,17A 208,96,160,0,185,40Y 4,153,0,4,200,208r 247,185,40,5,153,0 5,200,208,247,185,40 6,153,0,6,200,208  247,185,40,7,153,0  7,200,208,247,172,53  3,162,10,202,208,253 DRAPED WITH COBWEBS,"",A WHISTLING EVIL SPIRITHr "",A COLOSSAL STONE SUN CALENDAR,A RAVENOUS SNARLING TIMBER WOLF!| A CIRCULAR WHEEL SET IN THE MIDDLE OF ANIRON DOOR TO THE EAST A LARGE BURIAL MOUND DIRECTIONS N,S,E,W,U,D OP,PUT,LIGHT,DIG,SHOOT,KILL,SAY,TURN,ROTAT,TWIST,BLOW,WHIST! LOOK,EXAMINE(!& NOUNSi!0 TORCH,MATCH,SHOVE,REVOL,BOTTL,DIAMO,BULLE,RUBY,NUGGE,GOZER!: SKULL,SKELE,WOLF,TIMB,MOUND,CALEN,SPIRI,WHEEL,PLAQU,SHELF!D DESCRIPTIONS!N A WOODEN AST...":CL0N19" PUT ALL THE TREASURE ON THIS SHELF ":?N1I(0)1"IT'S BURNING.":^N1I(0)1"IT'S OUT.":"YOU SEE NOTHING OUT OF THE ORDINARY.": LOCATIONS IN A DESERTED LAST CHANCE GAS STATION"IN A DU ":'(RIVERFULL:"THE DOOR BLASTS OPEN WITH A TIDAL WAVE OF WATER!!!"d2"THE RIVER BED QUICKLY FILLS UP AND YOUARE DRENCHED."<"YOU'D BETTER LEAVE. IT'S ALMOST NECKDEEP IN HERE!"FS$(8)"BUBBLES COMING OUT OF YOUR CLENCHED LIPSUNDERWAxЭ)ЩX`Ѝ) XL1)8- d LL1ꭨ 0+mАMЍL8аMЍЭ 0mL8`)8ЭL8Э8 Э)ЩX`Ѝ) XL1)8- d LL1ꭨ 0+mАMЍL8аMЍЭ 0mL8`)8ЭL8Э8  A0A1:"OB LOB",8,1KX.63:832X,255::X.7:2040X,13:qX.3:5324839X,1Z:Z(Z0):(X47:Z(Z0):5324839X,1Z:25324823,0:5324829,0:5324816,0:5324821,255 <53281,0:53280,0:""11)"M O B  VN1"YOU'RE A PYROMANIAC!":*`I(.)."YOU DON'T HAVE IT!":RjI(.)1"IT'S ALREADY BURNING.":}tI(.)1:730:"OKAY, IT'S BURNING.":~ DIGCL9N15"TRY IT SOMEWHERE ELSE.":MOUNDEMPTY"THE MOUND HAS ALREADY BEENSTY ADOBE HOUSE WITH A SUNBEAMCOMING THROUGH AN EAST WINDOW"O IN A LONG E-W MINESHAFT,IN A SLOPING GRANITE TUNNEL" IN FRONT OF AN OLD BOARDED UP MINESHAFT ENTRANCE,IN A DEEP RAVINE, INSIDE A COOL CAVERN WITH A SMALL CRACK LEADING DOWN TTER":COUNT0:P BLOW/WHISTZN."TWEET TWEET TWEET..."XdCL4N."THE SPIRIT TREMBLES AND WAVERS A LITTLE.":znN5"THAT'S RIDICULOUS!":xI(N1)."YOU DON'T HAVE IT!":CL4"NOTHING HAPPENS.": SPIRITDEAD:"THE SP 4,0,0,0,0,0 0,0,6,7,3,0  0,0,0,0,4,2  3,1,0,5,0,0%  0,0,4,0,0,07  8,0,0,2,0,8I  0,0,2,0,2,9[  0,6,0,8,6,0m  0,0,0,0,7,0y  VERBS  N,S,E,W,U,D,I,NORTH,SOUTH,EAST,WEST,UP,DOWN,LOAD,INVEN,GOZER,TAKE ! GET,DR TORCH,A MATCHBOOK,A RUSTY SHOVEL "X A PEARL HANDLED REVOLVER,AN EMPTY 7-UP BOTTLEg"b A GLOWING DIAMOND,A HANDFUL OF RUSTY BULLETS,A LUSTROUS RED RUBY"l THE DUTCHMAN'S NUGGET"v OBJECTS & INITIAL LOCATIONS" 0,1,0,3,0,4,1,0,5,2,2,6,3,7,8,5,-1,-1" END OF GAME MESSAGES# CONGRATULATIONS! YOU'VE WON THE GAME!]# YOU DROWNED IN THE RIVER.,THE TIMBER WOLF TEARS YOU TO SHREDS.# THE EVIL SPIRIT SUCKED THE BREATH OUT OF YOU!# YOU FELL DOWN IN THE DARK AND BROKE YOUR NECK! EXCAVATED.":O(9,8)1:MOUNDEMPTY:730:"OKAY, YOU HAVE DUG A DEEP HOLE...":K SHOOT/KILL{I(3)."YOU DON'T HAVE THE "N$(4)"VER.":I(6)."YOU DON'T HAVE THE "N$(7)"TS.":N13N14"YOU'RE CRAZY.":CL7"IT'SO THE NORTH6 ON A SPIRAL STONE STAIRCASE7@ IN A SUBTERRANEAN RIVER BED RUNNING EAST & WEST`J IN AN ANCIENT INDIAN BURIAL GROUND|T SPECIFIC OBSERVATIONS^ A METAL PLAQUE ABOVE A GLASS SHELF,A SKULL MOUNTED ON A SPEARh A SKELETON L8`=A mЙА ЍLD]-ЍȽmЙЩ- Ѝд`, 뷥 ` ` ` `  `  `  @20H0HB L O B !!"+ F10)"JOYSTICK IN PORT TWO"_ P1)"PRESS NUMERIC KEYS 1-6 TO CHANGE SPEED" Z1)"PRESS H FOR HORIZONTAL, V FOR VERTICAL" d8)"PRESS A FOR ALL DIRECTIONS" n49152 xN$:N(N$):N0N749625,N N$"A"49552,255  N$"V"49552,17' N$"H"49552,680 120G BY H.L. MORIMODOk I GIVE MY CONSENT TO USE THIS ROUTINE IN GAMES SPECIFICALLY SUBMITTED TO AHOY! MAGAZINE FOR PUBLICATION SECRET SYS SYS 49532,150,108 FORIRIT WRITHES AND VANISHES IN ACLOUD OF SMOKE!"S$(4)"":. LOOK/EXAMINE>N.740:jN10I(N1)."YOU DON'T HAVE IT!":N2"GOZER TRAVEL INC.'NEED TO TRAVEL?? CALL GOZER!!'":CL2N12"HIS BONY CLAW POINTS TO THE E NOT HERE.":8WOLFDEAD:"THE REVOLVER THUNDERS FIRE AND THE WOLF FALLS OVER DEAD";j"IN MID-LEAP.":S$(7)"A DEAD TIMBER WOLF":t SAYN10920 "NOTHING HAPPENS.": TURN/ROTATE/TWISTCL8N18"INTERESTING CONCEPT...PUT N9"YOU MUST BE CONFUSED.":3I(N1)."YOU DON'T HAVE IT!":cO(CL,N1)I(N1):I(N1)0:"OKAY, DROPPED."$O(0,5)O(0,7)O(0,8)WINGAME1.WEIGHT0:X.8:I(X)WEIGHTWEIGHT18:B LIGHTLI(1)."NO MATCHES.":  LOST DUTCHMAN'S MINE< BY CLEVELAND M. BLAKEMOREb RUNS ON ALL COMMODORE COMPUTERS( WITH 40 COLUMNS AND PETASCII2 LOCK IN UPPERCASE & CLEAR SCREEN<(8)(142)(147)F PRINT TITLE SCREEN P""10)"LOST DUTCHMAN' X.:700:bCL3SPIRITALIVECL4:730:"THE SPIRIT SCARES YOU BACK!!"|lCL9RIVEREMPTYCL7:730:"THE ROOM BELOW IS UNDERWATER."vRIVERFULLCL8COUNT0X1:700WOLFALIVECL7COUNT1X2:700SPIRITALIVECL4COUNT4X3:7 L1CL4)CL5)I(0)1"IT'S PITCH DARK IN HERE!":8"YOU ARE":L$(CL)Y PRINT AVAILABLE DIRECTIONSm "DIRECTIONS:";D.:X16:D(CL,X)V$(7X);",";:DX :D."NONE."*D"."4 PRINT OBJECTS AT LOCATION>"YOU CAN NOW IRECTIONS" X19:D16:D(X,D):D,XH X132:V$(X)::X120:N$(X):\ X.8:D$(X):o X,D:X1260 O(X,D)1:240 X.4:M$(X):  WAIT FOR RETURN KEY PRESS 8)"PRESS RETURN TO CONTINUE" "A$:(A$(13))290 :4100V.:X1432:(IN$,(V$(X)))V$(X)VX:D(V$(X))[:V."I DON'T KNOW THAT VERB!":600l PARSE NOUNX(IN$):XD570(IN$,D,1)(32)DXDD1:510DX570DD1:N.:X120:(IN$,D,(N$(X)))N$(X)NX :NROUS ORDER,""6DEMONS,,TIGERS,"DEMONS ARE NOT REAL,TIGERS ARE"V6NIGHTMARES,"",RATTLESNAKES,VENOM KILLS BUT NIGHTMARES ARE HARMLESS6DEATH SENTENCE,"",EXTERMINATION,"WHERE THERE'S LIFE,THERE'S HOPE"6&SEARING HEAT,,ABSOLUTE ZERO COLD,NOTHIN3 DOOR DATA4WATER,YOU ARE NOT A WATER BREATHING CREATURE,AIR,""L4EARTH,,FIRE,EARTH BURIES BUT FIRE INCINERATES4WOLVES,"DRAGONS ARE FANTASY-BUT WOLVES ARE REAL",DRAGONS,""4SLOW DEATH,"YOU CAN SURVIVE TORTURE,BUT NEVER DEATH",SLOW T)128:2,"";:X.1:5)" "E265)" "w2@5)" ":2J214,17::13)" "2TX.2:13)"  ":2^13)" : : : : : : : :"306)": : : :::: :::: ::: : :"f011)"BY CLEVE BLAKEMORE":16)"(C) 1988"010)"JOYSTICK IN PORT TWO"05)"PRESS FIRE BUTTON TO START GAME":0 GAME SCREEN0(147)S MINE"; Z10)"* ALL C= COMPUTERS *":14)"(C)1988 CMB"a d8)"BY CLEVELAND M. BLAKEMORE" n INITIALIZE ARRAYS AND VARIABLES x V$(32),N$(20),L$(9),S$(9),D(9,6),O(9,8),I(8),D$(8),M$(4) VARIABLES AND FLAGS CL=CURRENT LOCATIONE , START OFF AT GAS STATION% 6CL.:730@ @ PARSER MAIN ROUTINESR J GET COMMANDe TIN$"":V.:N. ^"COMMAND>";IN$:IN$"""SILENCE IS GOLDEN.":350 h PARSE VERB r(IN$)1450 |V.:X17:IN$V$(X)VX :V."WHAT DOES .V$(V)" WHAT?!?":600.& JUMP TO APPROPRIATE SUBROUTINEJ0 BASED ON VALUE IN "V":V23V13880,880,920,970,970,1030,1030,1100,1160:600DV221210,1210,1280,1310,1310,1310,1370,1370,1450,1450N CHECK FLAGS AND COUNTERSXWINGAME000SPIRITALIVECL4COUNT2"THE SPIRIT LOOKS REAL ANGRY!"i((CL1CL4)CL5)I(0)1COUNT2(0).5X4:700{COUNTCOUNT1340:M$(X):X"SORRY, YOU HAVE DIED..." PRINT LOCATIONCOUNT0(147);!((C SEE:":S$(CL)""S$(CL)&HD.:X.8:O(CL,X)D$(X):D1GR:D.S$(CL)"""NOTHING."M\bf LOAD/INVENTORYp"YOU ARE CARRYING:":D.:X.8:I(X)D$(X):D1z:D."NOTHING." GOZERCL.CL1:950CL1CL.:950"NOTHING HAPPENS HERE.":730:! TAKE/GET;N."GET WHAT?!?":]N9"YOU CAN'T GET THAT!":I(N1)"YOU ALREADY HAVE IT!":O(CL,N1)I(N1)O(CL,N1):O(CL,N1).:"OK,TAKEN.":1070"IT'S NOT HERE!": DROP/jG CAN SURVIVE ABSOLUTE ZERO070ACCELERATION,TO BE ACCELERATED TOO QUICKLY IS FATAL,DEACCELERATION,""US CONTROL AND CAUSES DEATH5LIFE & DEATH,,ETERNAL CONFINEMENT,LIFE IS BETTER THAN IMPRISONMENT5SAFE CHAOS,CHAOS IS OUTSIDE OF REALITY,DANGEORTURE,"" 5REAL,,UNREAL,YOU CANNOT EXIST OUTSIDE REALITYR5DESPAIR,,PANIC,PANIC IS LOSS OF CONSCIOUS CONTROL AND CAUSES DEATH5LIFE & DEATH,,ETERNAL CONFINEMENT,LIFE IS BETTER THAN IMPRISONMENT5SAFE CHAOS,CHAOS IS OUTSIDE OF REALITY,DANGE ":15)"P H O B I A"3h214,17::4)"SCORE":1690@3r214,17::32);:A$"1":1680a3|"";:X.1:A$"":1680:g33" "A$" ":32)" ":2)"  00000 "32)" ":;:V17,(V17)1911X.9:A.39:" ";::,1"";:X.37:" ";::"";W1X.2:"";:A.37:" ";::"";:y1"";:X.37:" ";::"";1X.8:A.39:" ";::1X.39:1984X,160:56256X,15:1"X217242:X,(X CL,WINGAME,WEIGHT,DEAD,ALIVE,WOLF,GHOST,FULL,EMPTY,RIVER,MOUND,COUNTp ALIVE1:DEAD0:WOLFALIVE:SPIRITALIVE FULL1:EMPTY0:RIVEREMPTY:MOUNDFULL:COUNT0 READ LOCATIONS & DESCRIPTIONS X.9:L$(X)::X.9:S$(X): READ IN DTHAT MEAN?":600 V7880:600B (CL6(V1V6)WEIGHT1)420:430 "YOU ARE CARRYING TOO MUCH TO FIT THROUGHTHE CRACK.":600 D(CL,V)CLD(CL,V):730:600 "YOU CAN'T GO THAT WAY!":600 V.:X813:IN$V$(X)VX :VVV7  56,62:;(147):V53248:V32,11:V33,.:V21,.yX.373:1024X,6432:1024X1,12832:1024X2,19232(1984X,19232:1984X1,12832:1984X2,64322<X.223F1024X40,19232:1024(X1)40,12832:1024(X2)40,6 "8 P$(1)" ":PC$(1)""j B$"":X.28:B$B$(32)::X.8:B(X)2X: L$"YOUR LIFE FORCE IS WEAK...YOU LACK SUFFICIENT WILL TO SURVIVE..."!W$"CONGRATULATIONS, YOU HAVE GRADUATED FROM THE INSTITUTE OF VM4,254:VM5,254:V43,.:V44,.:V27,48\"^V42,.:VM2,251:VM3,252:V21,13(((2LV)482).)2"hA9:X.1:P(X)B(LV)660:V21,(V21)B(4X)"rA24:""87)F$(X)B$:C(X),7:"|Z((1)13):"";20(C$(Z2))2)C$(Z2)#""$(JG).K.KD:Q.:PPK:7607$KPPK:QQB:VB,P:QHKKc$JNJTFNJ:C(F),UB:C(BF),D:720$KK(PW):VD,((VD)U)E:VUD,((VUD)BA)E$X(VC):(XB)B430:XHBFB:600$SES(VUD)GB:X(VC):430&D214,19::4)"";:970::(LV9)300:910C&NS$"":S$S$B$B$W$B$:"":630q&XVM,E:780:X.63:V39,X15:E64X,.:&bF1S$"":S$S$B$B$L$B$:F.:"":630&lS$"":S$S$B$B$A$(Z2F)"!"B$&v700:X1(S$):720'A.0:SID4,17:SID4,16:( LASER FIRE8(SID8,10:SID11,129:SID11,128:C( JUMPi(SID15,5:SID18,33:SID18,32:y( VAPORIZED( SID14,67:SID15,5(SID4,21:SID18,17( A1050(*C.EA5:SID1,C:SID15,EA5:V39,C"251331421502421502":700:SID6,96*X11838*SID1,((A$,X,2)):SID4,17U*A190((A$,X2,1)):g*SID4,16::* RIGHT JUSTIFIED SCORE*("00000"((A$,(A$)1)),5);:X(.):* SPRITE DATA*0,112,,,232,,,252*0,,1,.+L59,208,,59,208,,62,24,V0,13,248,,3,240,,3.,`176,,3,176,,3,176,.G,j3,176,,3,176,,7,112],t0,7,56,,3,156,,.s,~0,56,,,116,,,126,0,,88,,,236,,1,240,,3,252,,5,222,48,013,239,240,29,243,224,120,.,0,115,240,,2,248,,328- 0,247,128,,119,128,,55.128,,31,128,,,,.&.0,,,1,248,,1,236=.(0,1,238,,1,239,,1^.2239,128,1,239,192,1,239,192}.<1,239,192,1,239,192,1,239.F192,1,239,192,1,239,192,1.P239,192,1,239,192,1,239,128.Z1,239,,1,238,,1,236.d#,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,16432CP1063X40,6432:1063(X1)40,12832:1063(X2)40,19232VZ:2023,12832dV17,(V17)64:V34,1:V35,15:V36,11n1400:X.319:A:24864X,A:xX.128:25364X,.::2536430,168:2536433,84X.2:25464X,255:P(1),B(8)NJP56320:VM2040:S70:A.:B1:C1:R119:L123:M127:U4:D2:SB248:H8G16:P147:W147:E255:N126:T125:Y.5:C(.)55378:C(1)55578:LV.:VCV30P(.)472:P(1)484:SID54272:F$(1)"" P$(.)" ":PC$(.)" REALITY..."5!"X.12:C$(X2),A$(X2),C$(X21),A$(X21):U!,V,S:V1,W:VM,248:V39,0!6VM1,253:V2,255:V3,148:V40,13:V23,12:V29,2!@V4,15:V16,4:V5,130:V6,.:V7,130:V41,.!JV8,107:V10,221:V9,166:V11,166"T;20(C$(Z21))2)C$(Z21);#1858,49LV:F1:A(LV4)(LV7):700t#SID6,233:SID13,234:SID20,234:X.10:J(VC):# MAIN LOOP#J(JP):(SE)520:V,S:((VD)E)740#JMSS(JR)U(JL)U:CCY:VM,SBC:CDC.YY$FB:600%F.SEU:430'%A$(Z2F)""600Z%V1,W:700:850:X15100:VU,X:A.30:A,X%&V16,(V16)1:X.1002:A.30::V,X:VM,SBC%0CCY:CDC.YY%::LVLV1:V21,.:S70:K.:PW:680:SCSCZ50LV250:A$(SC)15::""87)F$(F)(S$,X,29)::X(.):$' CREATE PITSU'214,13::A)P$(X);:646,(1)52:PC$(X):f' ERASE PITS'214,13::X130:X)"   ";:::' CLEAR SID CHIP'X.23:SIDX,.::SID24,15:' CLICK'SID1,215::)>SID4,20:SID18,16:#)H DOOR SLIDING FORWARDG)RSID5,131615:SID6,151615a)\SID15,3:SID14,220)fSID1,23:SID,10:SID4,21)pX.2000::X151.05:SID24,X:)zSID4,.:X1500::SID24,15:) FANFARE*A$76,,1,216,,7 +224,,14,240,,29,248,128.+59,255,192,103,239,192,112,32G+0,103,224,,7,224,,7a+176,,15,188,,15,62,.|+30,15,,60,7,128,120,3+$216,224,1,240,240,,224,.+.0,112,,,232,,,252+80,,176,,1,216,,7+B224,,14,240,,29,208,60,,3,222,,7,143,.-15,7,128,30,3,192,60,1,-236,112,,248,120,,48,.A-0,,,,31,128,,55^-128,,119,128,,247,128,1-247,128,3,247,128,3,247,128-3,247,128,3,247,128,3,247-128,3,247,128,3,247,128,3-247,128,3,247,128,1,247,10,1,248,,,,,..n TITLE/x""9)"AHOY! MAGAZINE PRESENTS"S/6)":::: : : :::: :::: ::: ::::"/6)": : : : : : : : : : :"/6)":::: :::: : : :::: : ::::"/6)": :  :X.63:25564X,(24864X):>A(V34):B(V35):C(V36)ZV34,C:V35,A:V36,Bz(56320)16X.30::1401500 INITIALIZATIONV,X,J,JP,VM,SB,P,W,E,G,N,T,VC,F,A,B,C,Q,R,L,U,D,H,Z,SCC(1),P$(1),C$(25),A$(25),F$(1), Ѝ!  < ة XL7N`|䧆N3LH1fGJP3W>/f.LOADER542A 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 hAHOY! JUNE 1988542ABOOTLANKSPEED 64 UG EP ɠ 128 BUG REP II RASHGARHOBIANAP NAKEUTCHMAN'S INE DDLOGO%DIR 1RINT 24/40INES F ERLIN^OB LOBLOB EMO OVIE CROLL HOY! EMO IRECTORY CAN OME EVISITED CORE EEPER PRITE LIPPER ASY AS ... EASY AS ...  24/40 LOCK ISP. SWAP SPEED 80 COL. S & L  EADER LANK IN UG EP IN BUG REP IN ASHGAR IN HOBIA IN NAP IN UTCHMAN IN INES IN LOB IN LOB EMO IN CROLL IN OVIE EMO IN IR IN OME IN CORE IN PRITE IN ASY IN EASY IN RINT IN LOCK IN SWAP IN 80 IN IN LOADER 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,2@J@ 0,1:4,1:1,1:1,1:.:15:1:(19)(19)(147)(11)(142):20:80t@8)"AHOY! MAGAZINE PRESENTS..."@9)"ó ɲ"@(9)"óóɫó°óó"@29)" ˽ ˱ ":9)"MASTER OF DIMENSION X"#A<13C(4)12:380:360BdU1:T2:G15:C.:K360:S1:H3:F4:I8:P8184:D45:X159:Y100:DX12:DY40:MX511:MY255:MR3:Q8:L1:B76:"0":F$"#####"BnJ5:420:SC.BxC(X)((J.A.)(CF))(CU)BR(X)(U)(FU)F:K(X)(U)KCX(X)((H,.Y:(PU)J,56:A(JT)552DJ,A#U::5324821,255:3072GDJ.G:C(U):WD MAIN LOOPD:J(T):AJG:AH,I;(AU)D:ՋJT,U,T:U,X,YX(.),Y(.):T,U,G:.,X,YX(.),Y(.):U,P,G,T,MX,MX,HDR(.),K(.)#S:C(U):C(.)LE(CU)JUI:J,.#.:J,400,.:J,.,T,.,U,U,.:G$(J),J:(PU)J,55J::SCHIHISCFJUF:J,U:U,J1000,G,T,JMX,J900,T,MXT:A40060J24F:J,A,Y::F"J5I:J,U:U,J1000,G,T,JMX,J900,T,MXT:A40034J24F:J,A,YD:::J1:430:1,4 CREATE AGGRESSOR SHAPESHhJ18:0,0,0,24,21,0,1:1,9,9,14,14,(9J)11:1,7,7,16,16,J11:1,5,5,18,18,(9J)11:S$(J),1,1,24,21:S$(J),J::Hr CREATE GAME OVER CHARACTERS I|2,.,0:J18:0,0,0,24,21,0,1:A$("GAMEOVER",J,1):.,1,1,A$:G$(J)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,1,1,24,21:G$(J),J::.:I SHIELD ENERGIZEzIC.:A2018035:1,C(C):CCU:2,A60,450,1,A5,A20,.:J.102:1,158,95,AJ:J,A:I FLASH PROMPT AND WAIT FOR FIREI.,.,22:"HIGH SCORE ";:F$;HI;:5)"CURRENT SCORE ";:F$;SCI)"FOR THE C-128":14)"(C)1988 CMB"iAF7)"BY CLEVELAND M. BLAKEMORE":9)"JOYSTICK IN PORT TWO!":APJ48645313:A$:J,(A$)::A30723140:A$:A,(A$)::253,3 BZB(8),S$(8),G$(8),C(4):J18:B(J)2(J1)::C(.)14:C(1)4:C(2)15:C(3)7:)DX)MX:Y(X)((H,U)DY)MYGCU,U:400:U,G:U,.,.," 1":U,DYT,.," 3"\CJUI:J,.#.:CP,B:PU,BF:PT,BFU:U,170,135:T,170,135:U,.,FT,U,.,.,.:T,.,IH,.,.,.,.:H,170,70:H,.,GU,.,.,.,.DJFI:J,.,T,.,.,.,.:J,MYY,M.310:AU:P,B:J.I:H,.:AAU(A16)G:U,.:U,.:U,U,A:T,168K,132K::65418EJ.T:JU,.,FT:PJ,82::J.D:A(U)HU:A,170,135:A,(U)K#I:U,(U)P,I,U,,,H:A,U:EU,.:T,.:H,.:MRMRU:A$(MR):U,DYT,.,A$:MR160BF G,JUI:J,.:S$(J),J::.:100zG6H,U,T:PT,82:JHI:C(B(J)F):J,.:J,MYX,MY:J,U:SCSCYL:A$(SC)" ":U,GT,.,A$G@QQU:Q.QI:LLU:A$(L):U,.,.,A$:H,PT,G,T,MX,P,T:(LF)LISSUGJGT:PT,81:H,U,GU:200 H^   30"ID,C:G,FD:G,F:Z53281,.:53280,.:53282,8:53283,11:""(8)(142)|(890:J5017650602:L:J,L:2J.63:L:51712J,L:< M(8),H(8),L(200),E(47)FJ,L,C,V,D,P,T,F,I,G,K,L,U,B,S,EG,SC,LV,SS,OF PX18:M(X)::X 1LV.:SC.:OF6144:SS3FV27,255:V23,.:V29,.:V28,.:V16,.jT(X)J.M(J)CKTE(T)B}C(X)J.PB790:EGLV4D:V21,102(LV1)51:I6,233:I20,233V34,((V34)1)15:50137,177LV:681,9LVX.10:J(V SC100(LVD)) 6PBDSCSC((D)5)200200T @PB:LOF,15:I15,P:I18,FD:I18,F JA$(SC):SF$""("00000"((A$,(A$)D)),5); T(EG.)240:LV8LVLVD ^C.L(C),B:CCD:LL(C):L,H(D):20:350 h190 !rJC.D:L(J),B "'"""X"""""##########"""########"""######"":$&""i$0""$:""$D""$N" 00000  SNAP SNAKE (1)(T)127430DJAU::U,10,20,"DEPRESS FIRE BUTTON!":AAU(A16)16:J,A:(2)127:^J RASHGAR SPRITE DATAJ 7F,FF,FE,FF,FF,FF,E3,FF,E3,E1,FF,C3,E0,FF,83,E0,7F,3,F0,3E,7,F8,7F,F,FF,FF,FF,7F,EB,FF,3F,EB,FE,1F,EB+K FC,1F,FF,FC,1F,80,7C,1F,,FF,E3,FF,E3,E1,FF,C3gL E0,FF,83,E0,7F,3,F0,3E,7,F8,7F,F,FF,FF,FF,7F,EB,FF,3F,EB,FE,1F,EB,FC,1F,FF,FC,1F,FF,FC,1F,E1,FC,1F,0L 3C,F,E1,F8,7,FF,F0,3,FF,E0,1,FF,C0,,FF,80,,7F,FF,FE,FF,FF,FF,E3,FF,E3,E1,FF,C3,E0,FF,83,E0,7F,38M F0,3E,7,F8,7F,F,FF,,F80N0 1F,,F8,10,,8,10,,8,10,,8,10,18,8,10,18,8,1F,FF,F8,,,,,,,,,,,,,,80N: 08,,50,21,24,,A8,48,14,8,90,8A,29,24,1,2A,40,12,94,A1,9,69,40,84,DE,88,13,AB,,3,55,6A,AE,AB,80ND 03,56,40,4,A9,22,49,7C,90,2,86,40,29,21,24,2,4,90,84,20,40,1,4,22,20,2  ".&L$(6)"    "Y&""7);:X13:L$(X);::L$(6)""}&10);:X15:L$(X);::""&9)""&9)"^ = 10 POINTS"6)""&9)"\ = 50 POINTS*LEVEL"'.LV4)( X(D)48:C(E(X)):CBC28E(X),30:E(X)OF,1:8202(*8008(4C(>J.3~(HX(D)48:C(E(X)):CBC28E(X),28:E(X)OF,5:860(R840(\:X(D)48:(E(X))BE(X),31:E(X)OF,7(f(p COPY CHAR SET(z56333,127:1,5118:H(X):%ZX.15:J:53248X,J:YdX.7:50168X,40:C(C.):5324839X,63C:nX.47:E(X)::SF$"":X.23:SF$SF$"":x50176610:56320,16,16:410J.:C.:T.:P.:I54272:GI4:V53248:D1:F128:K200:E49151:B32:S831):C.:L49611:L,H(D):L(.)L/ MAIN LOOPCJ(.):TLM(J)wT(.)L,S:LT:CCD:L(C)L:P(T):L,H(J):20(D).CL(C),B:CCD:LL(C):L,H(D):20J(VBD):(C(.))240J370"PB2EGEGD:SCSC50 ,PB4SC:X.2:V35,X::=!|50151SS,160:V35,11:SSSSD:C.:(SS.)210Z!X.2000::V21,.:130l! GAME SCREEN!""!""!""13)"#""21)""G#"###ߒ###"~#"####ߒ####"#""8)"##########"11)""#"" $"LIVES ";%X"":" ";:"";:&%b TITLE SCREENP%lL$(1)"   "%vL$(2)"      "%L$(3)"      "%L$(4)"      "&L$(5)" 3C,1E,,1C,F,,38,7,80,70,3,FF,E0,1,FF,C0,,FF,80,,7F,FF,FE,FF,FF,FFK E3,FF,E3,E1,FF,C3,E0,FF,83,E0,7F,3,F0,3E,7,F8,7F,F,FF,FF,FF,7F,EB,FF,3F,EB,FE,1F,EB,FC,1F,FF,FC,1F,FFK FC,1F,80,7C,1E,,1C,F,80,78,7,FF,F0,3,FF,E0,1,FF,C0,,FF,80,,7F,FF,FE,FF,FF,,FF,FF,7F,EB,FF,3F,EB,FE,1F,EB,FC,1F,FF,FC,1F,FF,FC,1F,FF,FC,1F,80,7C,F,FF,F8,7,FFxM F0,3,FF,E0,1,FF,C0,,FF,80,,,,,,,,,,,,,,,,,6,,60,6,,60,,,0M ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,0M& ,,,,,,,,,,,,,,1F,FF,F8,10,18,8,10,18,8,10,,8,10,,8,10,,8,1F4,10,,,0NN INTERRUPT DATAOX 78,A9,15,8D,14,3,A9,C,8D,15,3,A9,4,85,FB,A9,7,85,FC,58,60,C6,FB,D0,29,A9,4,85,FB,A5,FC,18,69,38,A2,5,9D,FA,1F,CA,D0,FA,C6,FC,10,4,A9,7,85Ob FC,C6,FD,10,4,A9,3,85,FD,A9,4C,18,65,FD,8D,F8,1F,4C,65,FA10,,8,10,,8,1F 9)"œ_ = MYSTERY?"7)""('9)""9'SCHIHISCY'HI11)"HIGH SCORE :"HI'8)"BY CLEVELAND M. BLAKEMORE":14)"FOR THE C-64"'5)"PRESS FIRE BUTTON TO BEGIN GAME":'  DISTRIBUTE RANDOM EGGS'J )781,9:782,1:90,.:91,216:88,.:89,248:41964/)1,55:56333,129@)J:J1940d)L.7:C:61440J8L,C::920)56578,(56578)3:56576,(56576)252)53272,(53272)15:648,192:(147))53272,((53272)240)12:53270,(53270) 083,40,170,170,235,170,170,170,40)+086,214,85,181,85,91,85,109,85P+$088,40,170,186,170,170,186,170,40w+.090,40,170,174,170,170,174,170,40+8129,129,129,153,129,153,153,153,255+B139,24,17,3,7,3,17,24,255+L142,25,9,1,33,49,57,57,255 6,173,169,2,141,170,2,169,7,141,167,2C-172,167,2,185,144,197,240,6,141,168,2,32,68,196,76,173,196-173,168,2,10,170,189,126,197,8,152,10,170,40,48,26,240,45-185,152,197,24,125,,208,157,,208,144,33,185,118,197,77,16.208,141,16,208,76,130 8,3,76,51,196,32,12,197,76,49,234:/32,170,177,152,41,1,170,208,22,173,,220,41,15,133,253,169v/15,56,229,253,168,185,160,197,168,169,,108,5,,173,,220/41,16,168,169,,108,5,,162,24,169,,157,,212,202,16/250,169,15,141,24,212,169,,141,176,2,5,2,24,105,100,141,9,212!1296,4,48,6,71,4,48,6,71,4,180,4,48,6,167,6,167T1<6,71,4,48,6,71,4,180,6,71,4,180,4,251,4,251,41F48,4,180,4,251,4,251,4,48,6,71,4,180,4,48,4,481P1,2,4,8,16,32,64,128,,,,255,1,255,1,,11Z1,,1,255,1,255,,255,255,1,6,168,.2 SNAKE MOVEMENT DATA 3 -40,,1,,40,,-1,.(3 SNAKE'S HEAD DIRECTIONS?3 65,,88,,83,,90,.^3 INITIAL SPRITE POSITIONS3 97,,97,,241,,241,,,83,,83,,171,,1713 EGG LOCATION DATA349274,49279,49316,49249,49330,49207,49253904,49947,49908,50063MENT DATA 3 -40,,1,,40,,-1,.(3 SNAKE'S HEAD DIRECTIONS?3 65,,88,,83,,90,.^3 INITIAL SPRITE POSITIONS3 97,,97,,241,,241,,,83,,83,,171,,1713 EGG LOCATION DATA349274,49279,49316,49249,49330,49207,49253 "VAULT OF TERROR"> BY CLEVELAND M. BLAKEMORET (V4.8)Z(:v253280,.:53281,.:1780< WALLHANDLERFVLFC:FC1720,720,820,850,870PZ DOORHANDLERd70:FC11040,900,960,1000,1020:n SHAFTHANDLER"5 " ͥ c " ͥ " ͥ " ͥ  " ͥ   " ْΥɒ ɒH @" ˒ ˒ Ԓ..ג ˒ ˒~ J" ̯ ΥԒǒ Ȓْͥ ̯" T" Υ ΥԒΣْͥ ͥ ^" Υ ̩ߺͥ ͥ h" Υ Σ16:) CHARACTER DATA"*028,60,189,90,60,255,60,126,153E*030,,24,60,126,126,126,126,60j*031,60,66,189,165,165,189,66,60*035,219,54,205,54,205,54,219,108*065,40,170,170,170,235,170,170,40*081,40,170,170,170,170,170,170,40+,V147,129,129,159,129,249,129,129,2554,`215,195,221,253,131,127,115,187,195,-1I,j INTERRUPT DATA,t120,169,32,141,20,3,169,196,141,21,3,169,187,141,17,3,169,~196,141,18,3,173,169,2,141,170,2,32,229,196,88,96,206,170-2,240,3,76,181,19,196,189,,208,56,249,152,197,157,,208B.176,9,185,118,197,77,16,208,141,16,208,173,168,2,10,170,232.189,126,197,8,152,10,170,232,40,48,15,240,23,185,152,197,24.125,,208,157,,208,76,172,196,189,,208,56,249,152,197,157.,208,96,206,167,2,4169,240,141,13,212,169/0 17,141,11,212,169,25,141,9,212,141,10,212,96,169,68,133,250p0169,197,133,251,206,175,2,208,33,169,20,141,175,2,172,176,2056,192,48,144,5,160,,140,176,2,177,250,141,8,212,200,1770(250,141,7,212,200,140,176,2,173,175,1,5,3,7,3,7 2d1,1,1,1,1,1,1,1,,1,5,,7,8,6,,3,2,42n RAT DATA&2x,,,,,,,.42,,,,,,,.B2,,,,,,,.[2,,,112,124,,153,255y2,14,254,192,21,125,80,522186,88,52,90,88,59,255,184261,187,120,60,146,120,24,124248,28,56,112,42,1349255,49257,49263,49344,49224,49265,49596-4"49714,49640,49638,49716,49755,49588,49667\4,49550,49629,49914,49917,49994,49953,498854649887,49890,49931,50011,50016,49965,499264@49928,50009,50048,50050,49931,50011,500164J50055,49949,49ͥ ͥ : r" Υ ̺ ̺ ͥ h |" Υ Σ ͥ " Υ " Υ ͠ " ̯ ̯" xFC11080,1100,1120,1140:0 EXITHANDLERP FC11170,1190,1210,1230:d LADDERHANDLER LPFC:FC11260,1310,1340,1370: COFFINHANDLER FC11400,1430,1460,1480: PRINT BASIC VIEW " Ϸ ͣΥ M " ͥ ϷРΥ | "  Υ "" Υ Υ ," Ϸ ϣΥ Υ Ϸ 6" ɒ ɒͥԢ 4:12);"зззззззз"&>12);"ззззззз"::6H *3RD WALLjR"";:X.4:15);""::z\ *4TH WALLf"";:18)"":p OBJECTS IN MAIN HALLz *1ST DOOR"";15)"::: 17)":í:":17)"::")X.3:17)"::"::9 *3RD DOORm"";19)"":X.2:19)""::} *4TH DOOR"";19)"": INSIDE ROOM"":X.21:""38)"": " ;16)"Ϸ";:j *4TH SHAFT-t"";18)"";:K~ **** CEILING EXITS ****[ *1ST EXIT~""12)"̯": *2ND EXIT""14)"̯": *3RD EXIT"";16)"  *2ND LADDER"";:X.61(16)"":16)""23)""::C2 *3RD LADDER^<"";:X.7sF18)""::P *4TH LADDERZ"";:X.2:19)""::d **** COFFINS ****n *1ST COFFIN====":16)"ϲ": *4TH COFFIN>""17)"====":17)"ϲ":X ***LOOK ROUTINE ***yCEMTE(.):648,CEM:L$(DD);190FC4:VLFC:LPFC:LVCD14(CD1):RVCD14(CD4)EBMCP(.):EBM1EBM25T"";::FCFC1:FC11530 ^DL(CL,2).1670.hX.8:XR,22:YR,.:PR,.:PLOTTr(DL(CL,2)BO(X))X43);OA$(X)Z|d1700CSMSW(.):53272,((53272)15)CSM:PM(U),7: MONSTER DISPLAYFCVLVLVL1D61:MP(1),D *VARIABLE/FUNCTION DECLARATION"56578,(56578)3:56576,((56576)252)[53272,(53272)15:648,192:53272,((53272)240)12s53270,(53270)247(147):3020:5830DL(255,2),BO(15),SP(7),SB$(3,7),D$(4),L$(6),OA$(8),CS(7),M(15),"""g" ";D$(CD);" #$%&'()* + ";D$(CD);" ";vL$(DD);: EVERYTHING FROM HERE ON IS ALTERATIONS ON THE BASIC VIEWPOINT **LEFT SIDE INTERSECTING HALLS* **1ST LEFT T BLOCK** 0"";16)"";&:LD *RIGHT SIDE INTERSECTING HALLS*cN *1ST RIGHT BLOCKX"";38)"";:X.19:"";::"":b *2ND RIGHT BLOCKl""30)"Ϸ";:X.8:" ";::"̯vϷ"6)"̯̯̯̯̯̯̯̯̯"A6)"ϷϷϷϷϷϷϷϷϷ"h6)"̯̯̯̯̯̯̯̯̯"n 6)"ϷϷϷϷϷϷϷϷϷ"6)"̯̯̯̯̯̯̯̯̯" * *2ND WALL4"";:X.:::::::":15)"::"315)":ϷЭ:":15)":ç:"a15)":̯:":15)"::"z15)"::"X.5:15)"::":: *2ND DOOR"";:17)"::::::":17)"::" ";:890:&$ ****** SHAFTS ******7. *1ST SHAFTr8"";12)"Ϸ";:B *2ND SHAFTL"";14)"Ϸ";:V *3RD SHAFT`""": *4TH EXIT"";18)"̺":6 **** LADDERS ****H *1ST LADDERd"";:14)""25)""X.6:14)"ť":14)""25)""14)""25)"": 14)"ť":14)""25)"":x"";11)"--------------"810)"----------------":J *2ND COFFIN"";14)"========":14)"ϣ"14)"ϣ": *3RD COFFIN""16)"61560FCFCFC1:1530ELCP(LV):ERCP(RV)*"(DL(EBM,.))1590N,70:FCFC1:1(FC.)1530,1670w6DL(EL,.)FC4FC1480,500,530,560@DL(ER,.)FC4FC1600,620,650,680JD15:(DL(EBM,.)BO(D))D180,120,140,160,100:MP(2),D:MP(3),D:MP(5),D&EL.:ER.:XVL.1:FCCM(X):DL(FC,1).1760^FCDL(FC,1)1:EL(ELSP(X4)):XLPER(ERSP(X4))MBSP(X)1:D1(SB$(X,FC)):MP(MBD),((SB$(X,FC),D,1))BCSP(X)D,CS(FC)::V21,EL:V27,ER:MH(15) &HC(2):X.:D.:FC.:CL17:CD2:VL.:EL.:ER.:VS.Y 0D(1)1:D(2)16:D(3)1:D(4)16:CS(.)9:CS(1)2:CS(2)6:CS(3)9:CS(4)4 :CS(5)14:CS(6)13:CS(7)1:LP.:P.:L1:LF10 DSP(.).:SP(1)4:SP(2)6:SP(3)7:SP(4)15:SP(5)48:SP(6)64:SP(7BLOCK**,"";:X.19:" ";::" ":E **2ND LEFT BLOCK**"";8)"";:X.8:" ";::"" **3RD LEFT BLOCK**"";13)"";:X.3:"";::""& **4TH LEF  *3RD RIGHT BLOCK>"";26)"";:X.3:"";::""D[ *4TH RIGHT BLOCK"";23)"" MAIN HALL BRICK WALLS *1ST WALL"";:X.3:6);"ϷϷϷϷϷϷϷ 164:V11,133:V12,168:V13,152%V14,172:V15,160& *** JOYSTICK ROUTINE ***7&4070:1500:ITTI1000H&JOY(56321)d&(1).93S1,(1)72&BDL(CL,1):B(1)B100.952590&TIIT3080:2370&JOYNJ2210&(DL(CLD( 2210' JOYMU2430:4070:2210'$ 4030:4070:2210(. CDCD((CD5)4)((CD.)4))(8 1500:2210k(B ZZDD:VSVS1:VSDD6VS.:DDDD((DD6)1):DD6L(L254)(L ZZDD648,TE(.):L$(DD);"":648,CEM(V LFLF((LF60).4):(L1).DD6 (A))PM(A),10:2500) PM(A),2* JY150::JY(56321):A$:A$(140)3210/* PL:JYRJAX:XX1(X8)9c* JYUS(LBO(X))PM(U),10:UX:PM(X),7:4020p* JYUS* JYFJ(DL(CL,2)BO(X))L(LBO(X)):DL(CL,2)DL(CL,2)BO(X)* JYB :LF12650+F 53280,(LF5)2(LF5LF10)7:4100:4070: ,P PLAYER KILLED9,Z X.304:V33,X15::V32,.:3410:6430D,d 198,.X,n A$:A$""2670k,x A$"N"64738y, V21,.:, TORCH, DD6(L1)VS.:DD1:1500:, SWORD,,2)(DL(CL,2)BO(B1)):1500:4030:- ** RING **. CURUCU:(9);(CU);(8);:53281,(CU14)4,. 3450:4070:7. ROPEk." (DL(CL,.)BO(2))CLCL128:3970:1500:4070:., (DL(CL,.)24)24(L384)384DL(CL,2)DL(CL,2)BO(8):LL255.6 LD(CD),.)DL(CLD(CD),.)BO(5CD)/ 4100:4070:/ VICTORY0 61400 3450:266030 *** LOAD CHARACTER SET ***c0 X.32:A:53200X,A::56334,(56334)2540 1,(1)251:53200:1,(1)4:56334,(56334)10 A:A10 X.X)CLM(X)PAM(X)D(3)1D A.A25531602N DL(A,.)DL(A,1).DL(A,1)DL(M(X),1):DL(M(X),1).:M(X)A2X ]2b DDL(CL,1):DD3540,3540,3630,3630,3690,80,3860,3780:40702l V21,.:FC.:1700:ITTI1000:2v 2 SAVE GAME ROUTINE2 ")128 NTGL16:CSM.:CEM192:V53248 !XD$(1)"E":D$(2)"S":D$(3)"W":D$(4)"N"Y!bNJ255:FJ254:LJ251:RJ247:BJ253:US239:MU237:U.!lTL388:DD6:PLOT65520:AR780:XR781:YR782:PR783:S54272:BCV38!vRU156:CU142:ALL511:HX157:WL17:CC2":HC(.)2:HC(1)8:HC(2)10#X.255:D:DL(X,.)D:#X.8:A$:OA$(X)A$:X6#X.15:A:M(X)A:X`#X3.1:D.7:A$:SB$(X,D)A$:D,Xk#X.8#A((1)9334):DL(A,.).2020#DL(A,1)M(X):M(X)A:MH(X)X41:#X915#A100$>A$(137)3300$HXR,24:YR,.:PR,.:PLOT+%R3)"CREATED BY CLEVELAND M. BLAKEMORE ">%\DL(CC,2)BO(8)v%fV21,.:V23,127:V29,15:V,150:V1,193:V2,151%pV3,151:V4,119:V5,109:V6,167:V7,109:V8,164%zV9,174:V10,CD),.)BO(5CD))2280'JOYFJDL(CLD(CD),.)CLCLD(CD):2360%'(DL(CLD(CD),.)BO(5))2300R'JOYBJDL(CLD(CD),.)CLCLD(CD):2360l'JOYRJCDCD1:2350' JOYLJCDCD1:2350' JOYUSU12710,2730,80,2810,2850,2910,2950,80,80:(` 53280,(LF5)2(LF5LF10)7(j 2210)t ** COMMAND BAR **)~ 198,.C) CU14CU142:(9);(CU);(8);:3450:V33,.d) X.8:(LBO(X))PM(X),10) :X.:A(.):A.:(L(BO(U)))PM(U),7) (56321)NJ2470) PM(X),1:(LBOJ(LBO(X))L(L(511BO(X))):DL(CL,2)DL(CL,2)BO(X):U.+ LP4030:1500:2440+ 2480,+ MONSTER HITS[+ B6U.:DL(HX,2)DL(HX,2)(L238):LL273h+( CU14+2 D((1)31):53281,HC(D1):LFLF(B((L4)1))D+< T1100::53281,. B.(.)LF100.54100:, 53281,5:T1100::53281,.:X.15- 1(M(X).)2760,2790F- CLM(X)MH(X)MH(X)((.)((L2)1)LF5)X- MH(X).2790- M(X).:DL(CL,1).:V21,(V21)240:3410:2800- :4100:4070:- LFLFB4:DL(CL(DL(CL,.)24)24CLCL128:3920:1500:4070:.@ CLWLLALL2990 /J 4030:4070:/T WAND#/^ B62740V/h DL(CLD(CD),.)(DL(CLD(CD),.)63):3450:4070\/r l/| ** KEY **/ (DL(CLD(CD),.)BO(5))./ (DL(CLD(CD),.)BO(5CD))DL(C7:D:61440A8X,D::30400 ** MONSTER MOVEMENT1 D.:FC8:CL127D9:FC15&1 P6:D.:FC8:CL127D9:FC15H1 XDFC:1(M(X).)3100,3160c1 CLM(X)PAM(X)D(4)~1& CLM(X)PAM(X)D(2)10 CLM(X)CLM(X)PAM(X)D(1)1: CLM( SAVING";2 1,8,15:1,"S0:LASTDUNGEON":13 1,8,2,"LASTDUNGEON,U,W":X.2:D.255:1,DL(D,X) CR$F3 D:".";:X:".";:X.15:1,M(X),CR$,MH(X),CR$S3 X:".";3 1,CL,CR$,CD,CR$,LF,CR$,L,CR$,U,CR$,DD,CR$,VS,CR$,HX,CR$,WL,CR$3 1,CC,CR$304:CR$(13) " CP(X)FCD(CD)(CLD(X)): SW(X)(TGLCSM)M" TE(X)(TLCEM): CM(X)XD(CD)CL: MP(X)CEM2561016Xj" PM(X)55296972(X2)"X.15:BO(X)2X::L$(.)"":L$(1)"":L$(2)"":L$(3)"""L$(4)"":L$(5)"":L$(6)" ((1)96142):DL(A,.).2050 $ DL(A,1)M(X):M(X)A:MH(X)X41:B$D52288:X.767:A:DX,A::X.63:53055X,.:_$ XR,23:YR,1:PR,.:PLOT$*"F1 START NEW GAME F2 LOAD OLD GAME";:198,.$4A$:A$""2100:A$(133)A$(137)2  *** SERPENTS ***8PSS24:P,.:8(S24,15:S5,155:S6,24592 S4,129:P5055: S,D49<T3555:S1,T:T,P:S4, 128:T1 100::G9F * SHAFT UP *e9PPSS24:P,.::S24,159ZS5,8:S6,255:S4,239dF14182:S15,F19 5:S5,96:S6,96:S4,23:S2,85:S1,36:F110::S6,15:: *** SINISTER MUSIC ***;PSS24:P,.::S24,15G;S1,10:S,5:S5,129:S6,129:S4,21:Y; ** SLASH **w;PSS24:P,.::S24,15;S1,25:S,5:S5,20:S6,20 036,255,199,231,129,000,060,126,255<^037,255,060,024,255,219,153,153,024 =h038,024,024,060,102,102,060,000,0006=r039,000,126,127,127,112,126,000,255_=|040,110,110,110,110,110,110,110,110=042,060,060,255,153,060,060,060,060=081,25 9,102,219,054,219,102>104,024,255,192,192,192,255,024,024>107,031,024,031,024,031,024,031,024"?108,255,182,255,191,240,176,247,176K?109,255,129,255,129,255,255,129,255t?115,248,024,248,024,248,024,248,024?123,255,109,255,253,019,239@N169,199,215,199,239,239,239,231,231@X170,129,195,231,195,153,016,153,195Ab171,255,255,102,000,090,000,255,2557Al173,255,129,255,255,231,231,255,255`Av186,255,231,255,231,255,231,255,231A189,255,129,255,239,255,129,255,239A,16,.,1,.,1,.,1,32,1,.,2,2,.B .,1,.,1,1,2,16,1,.,1,.,1,.,.,1,.B .,4,1,2,.,1,.,1,2,1,1,2,1,.,4,.C .,1,.,1,.,1,1,1,.,.,.,.,1,.,.,.AC .,2,1,1,1,1,32,1,1,4,1,2,1,1,34,.gC .,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.C .,2,1,1,2,16,2,1,1,1,.,2,2,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.DR OBJECT SHAPE STRINGSD\ ""Df "#((*" Ep "’$$²"Ez "&"(E "":E "*"FE ""{E "  '"E " 1:24303 LOAD ROUTINE3 :3 F$"LASTDUNGEON" 4 1,8,15:1,"I0:":1:1,8,2,F$",U,R"84 X.2:D.255:1,DL(D,X):D,X:X.15J4 1,M(X),MH(X)Q4 Xt4 1,CL,CD,LF,L,U,DD,VS,HX,WL,CC4* 1:1,8,15:1,A,B$,C,D:144 A""8)A;B5:S4,23:F1105 Z130:F2305 S1,F15 Y110:S15,F25 F2F21.01:Y6 F1F11:Z6 S6,15:&6 **SPIDER**D6 PSS24:P,.::S24,15l6 S5,8:S6,255:S4,23:F111:F225x6 Z5506 S1,F16 S15,F26F2F2.9767~Z110:7S1,F17S15,F27F2F21.017F1F11.3:Z7S6,15:8 ** NAGA **#8PSS24:P,.::S24,15I8S5,8:S6,255:S4,23:F18:F24V8Z130:b8S1,F1o8S15,F2~8F2F21.018F1F11:Z8 S6,15:8nF2101802:S1,F2:F2,F1:S6,15:9x * SHAFT DOWN *9PSS24:P,.::S24,15:S5,8:S6,255:S4,23!:F1581;:F118102:S15,F1n:F21241:S1,F2:S15,F:F2,F1,F:S6,15:}: * BEEP *:PSS24:P,.::S24,1:S4,129:T175:;S4,128:;" ML PROGRAM <, 169,0,133,251,133,253,169,208,133,252,169,240,133,254,162,8T<6 160,0,177,251,145,253,136,208,249,230,252,230,254,202,208,240,96i<@ CHARACTER DATA086,027,031,031,027,059,123,219,155,>088,126,102,102,126,024,024,030,030U>091,216,248,248,216,220,222,219,217~>092,175,088,171,088,168,088,168,088>102,219,054,215,013,239,013?163,255,159,159,239,247,251,253,255?164,239,239,239,239,239,199,239,239@&165,189,129,153,189,165,129,195,231A@0166,255,255,231,219,219,231,255,255j@:167,207,183,123,195,129,000,255,255@D168,199,239,131,239,239,239,23197,255,000,255,255,255,255,000,255A220,250,021,218,021,026,021,026,021B230,054,177,129,108,108,153,153,1020B242,255,255,189,189,129,255,219,255,-1VB .,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.~B .,8,2,1,2,1,.,1,1,1,.,1,352,4,2,.B .,1,.,2,2,.C  .,1,.,1,.,1,.,1,.,1,1,1,1,984,2,.C .,2,1,1,.,1,2,1,2,1,.,32,2,2,2,.D  .,.,.,2,.,1,.,1,.,1,.,129,.,.,.,..D* .,24,1,1,1,1,.,2,1,1,.,1,65,.,24,.TD4 .,1,.,.,1,.,1,1,.,1,.,1,.,.,1,.~D> .,1,2,2,1,2,1,.,.,168,.,129,2,1,1,.DH .ߩߩ===="E MONSTER TYPESE 1,1,2,2,3,3,4,5,5,6,6,6,7,7,7,8E MONSTER STRING SHAPE DATAF 1,1,2,2,3,4,<,<F 1,1,2,2,3,4,<,<7F 1,1,2,2,3,65,":;",":;"XF 1,1,2,2,3,65,":978",":978"rF MONSTER SPRITE DATAF000,000,00$;C;D4> T15000::4H * SOMETHING DIED *5R PSS24:P,.::S24,15:S5,8:S6,255;5\ S4,21:F12:Z124:F280:S1,F1:Y15:S15,F2a5f F2F21.1:Y:F1F19:Z:S6,15:s5p **SORCERY**5z PSS24:P,.::S24,155 S5,8:S6,25 F1F11:Z6S6,15:6$ *** RATS ***6.PSS24:P,.:78S24,15:S5,24:S6,2487B S4,33C7LP17131:S,P:T125135:S1,T:T,P:S4,32I7VZ7` **GOBLIN**x7jPSS24:P,.::S24,157tS5,8:S6,255:S4,23:F115:F215 01,090,128,000,036,000,000GV000,000,000,056,255,000,067,255G`192,055,255,224,015,255,240,015 Hj255,240,015,255,240,014,255,176.Ht014,127,048,030,190,184,062,221SH~188,127,107,126,252,255,159,120xH221,143,120,073,007,056,127,003H 188,000,042,084,000,045,180,000P058,092,000,045,180,000,021,090P000,022,173,000,011,086,128,239P002,189,064,003,195,192,002,189$Q064,002,195,064,003,189,194,002IQ195,065,003,189,193,002,067,067nQ005,166,199,010,221,074,021,1 I126,193,102,195,097,037,129,161I015,000,241,015,000,241,010,000I081,014,000,113,058,000,092,220J000,120,000,000,132,000,001,0744J016,001,002,040,003,135,040,005YJ 134,144,014,205,144,031,123,208~J061,183,248,061,207,228,041 255,244RD020,255,040,011,000,208,004,255RN032,003,000,192,002,230,064,003RX153,192,003,219,192,002,036,064Sb002,219,064,003,036,192,002,219*Sl064,003,036,192,002,219,064,000OSv000,252,000,001,122,000,003,183tS000,003,207,000,0013,007,009Kd003,143,009,003,223,009,013,254Kn198,030,253,230,063,123,246,127Kx183,255,191,207,247,223,183,250L159,207,242,159,255,242,151,255:L210,103,255,204,002,000,064,231_L003,231,192,007,219,224,007,189L224,015,219,224,0):" "T" " U" np onn n n n "TU" p  pp  n p dnnn "U" 000,001,127,000,002M223,000,004,207,000,011,103,000M021,191,000,043,215,000,087,223M000,087,224,000,087,243,000,091N251,000,045,255,000,022,255,000@N011,000,000,005,191,000,002,192eN"000,001,063,000,000,213,000,000N,090,000 "V "   "V*"     ""W4" "PW>" "WH" n0,000,000,000,000,000F000,000,000,000,004,000,032,006F000,096,005,060,160,008,255,016G$016,255,008,019,255,200,036,255+G.036,009,255,144,018,255,072,037PG8126,164,042,060,084,036,024,036uGB042,060,084,004,090,032,002,126GL064,02,128,000,171,000,000,090,000O|000,180,000,000,084,000,000,220O061,188,000,042,084,000,061,188O000,042,084,000,061,188,000,062!P124,000,045,180,000,061,188,000FP042,084,000,045,180,000,062,124kP000,061,188,000,042,084,000,061P024,093,003,012,008,030,030,000H047,053,000,010,085,000,020,000H052,066,015,024,102,031,044,090 I033,006,102,001,003,090,001,0071I165,227,011,219,211,021,231,175VI046,231,119,089,126,189,113,219{I153,096,165,001,113,153,129,10706Q156,038,182,148,091,087,092,108Q171,182,087,085,202,088,169,170Q103,214,106,089,069,214,039,255R236,026,105,088,007,255,240,028'R&007,231,224,011,126,208,021,060LR0168,046,255,116,095,126,250,095qR:129,250,095,189,250,047,,183J100,041,207,044,041,255,056,026J(001,024,003,207,000,003,183,000J2007,207,000,005,122,128,011,239K<128,013,123,064,013,086,192,2207KF000,248,000,001,004,000,002,002\KP000,002,138,000,002,002,000,002KZ002,000,002,003,006,00,254,000,000S252,000,000,120,000,000,120,000S000,120,000,000,120,000,000,120S000,000,120,000,000,120,064,000T120,032,000,120,032,000,252,096-T001,255,192,015,000,224,031,255RT240,024,003,240,015,255,224,221T(8)(142)(1915,231,240,015L255,240,015,255,240,015,255,240L015,255,240,015,255,240,015,255L240,015,255,240,031,255,248,031M255,248,031,127,216,061,239,124=M047,191,236,058,250,172,045,149bM246,095,086,174,164,221,202,102M000,000,254,   m   "U"     m  n l n ",V"   l     "ZV " n nn nn nn n n nn nn n "V"  ,000,045,000,000,042,220N6127,000,000,254,128,000,251,064N@000,243,032,000,230,208,000,253NJ168,000,235,212,000,251,234,000OT007,234,000,207,234,000,223,218CO^000,255,180,000,255,104,000,000hOh208,000,253,160,000,003,064,000Or25   n n n n n n ";WR""W\" nn  n n n     "5Xf"        "Xp"    n  n: 632,13: 198,2:F "":AT,2,2:""u %AT,1,5:"(C)1987 OUBLE OFTWARE V2.0" *AT,3,2:"  " /I419 4AT,I,2:2)"  ": nnnnn nn "Y" "Y" "Y" ")Z"  PLEASE WAIT.....PREPARING DUNJON!  "YZ"  [C] 1988 NEMESIS SOFTWARE "; MAINS STUFFED "b"  HASTILY IN ONE OF THE COFFINS INSIDE"b"  THE MINE,AND RETURNED YOUR BODY TO "b"  YOUR RELATIVES FOR A BURIAL FITTING "c"  TO A KNIGHT ERRANT SLAIN WHILE ON A "Ic"  NOBLE AND ENDEARING QUEST.....