Willus.com
Home
|
Archive
|
About
CASEDT
(4422 bytes)
EMULATE AS:
DEFAULT TYPE (BASIC)
|
CMD program
|
Program on Disk
|
2-Disk Debug
|
Disk Download
SHOW BELOW AS:
BASIC program
(download)
|
Text File
(download)
|
Z-80 Program
(download)
|
EDTASM File
(download)
|
Graphic
(download)
|
Hex File
(download)
|
SCRIPSIT File
(download)
Return to TRS-80 software list.
000000: FF 4F 6A 05 00 8D 31 30 30 00 6A 6A 0A 00 49 D5 .Oj...100.jj..I. 000010: C0 28 4B 23 28 58 CE 31 2C 59 CE 31 29 29 CD 5A .(K#(X.1,Y.1)).Z 000020: CE 31 3A 92 00 85 6A 14 00 49 D5 E5 28 49 29 CD .1:...j..I..(I). 000030: 31 30 30 CF 28 E5 28 49 29 D4 39 39 29 3A 92 00 100.(.(I).99):.. 000040: 9F 6A 1E 00 49 D5 49 CD 38 CF 28 28 49 D5 39 29 .j..I.I.8.((I.9) 000050: CE 28 49 D5 30 29 29 3A 92 00 BB 6A 28 00 49 D5 .(I.0)):...j(.I. 000060: CE 49 CF 28 49 D6 31 39 29 CE 31 38 CF 28 49 D4 .I.(I.19).18.(I. 000070: 31 38 29 3A 92 00 DF 6A 32 00 58 D5 DE 28 38 29 18):...j2.X..(8) 000080: 3A 59 D5 DE 28 38 29 3A 91 31 30 3A 8F E5 28 49 :Y..(8):.10:..(I 000090: 29 D6 D4 31 30 31 CA 35 30 00 EA 6A 3C 00 B1 49 )..101.50..j<..I 0000A0: 2C 51 3A 92 00 29 6B 64 00 B8 33 35 30 3A 99 41 ,Q:..)kd..350:.A 0000B0: CE 46 2C 48 CE 5A 3A 8A 4B 23 28 37 2C 37 29 2C .F,H.Z:.K#(7,7), 0000C0: 43 24 28 33 33 29 2C 52 50 28 33 33 29 2C 43 28 C$(33),RP(33),C( 0000D0: 33 2C 34 29 3A 49 D5 30 3A 86 3A 54 D5 DE 28 31 3,4):I.0:.:T..(1 0000E0: 32 38 29 00 5B 6B 6E 00 84 3A B2 BC 31 36 29 3B 28).[kn..:..16); 0000F0: 22 43 41 53 54 4C 45 20 44 55 4E 47 45 4F 4E 20 "CASTLE DUNGEON 000100: 4D 41 4B 45 52 2E 20 20 31 32 2F 32 39 2F 38 32 MAKER. 12/29/82 000110: 22 3A B2 3A B2 00 77 6B 73 00 90 3A 81 51 D5 31 ":.:..wks..:.Q.1 000120: BD 33 33 3A 8B 43 24 28 51 29 3A 87 51 3A 8B 49 .33:.C$(Q):.Q:.I 000130: 24 00 C5 6B 78 00 44 46 24 D5 22 43 41 53 44 55 $..kx.DF$."CASDU 000140: 4E 2F 44 41 54 22 3A 89 22 57 48 41 54 20 46 49 N/DAT":."WHAT FI 000150: 4C 45 4E 41 4D 45 20 44 4F 20 59 4F 55 20 57 41 LENAME DO YOU WA 000160: 4E 54 20 54 4F 20 55 53 45 20 46 4F 52 20 59 4F NT TO USE FOR YO 000170: 55 52 20 44 55 4E 47 45 4F 4E 22 3B 44 46 24 00 UR DUNGEON";DF$. 000180: D7 6B 82 00 8F 20 44 46 24 D5 22 22 CA 20 31 32 .k... DF$."". 12 000190: 30 00 EB 6B 8C 00 8F 20 F3 28 44 46 24 29 D4 31 0..k... .(DF$).1 0001A0: 32 CA 31 32 30 00 FF 6B 96 00 A2 22 52 22 2C 31 2.120..k..."R",1 0001B0: 2C 44 46 24 2C 22 4D 55 22 00 19 6C A0 00 8F 20 ,DF$,"MU"..l... 0001C0: EA 28 31 29 24 D5 CE 31 20 CA 20 A6 20 3A 20 8D .(1)$..1 . . : . 0001D0: 31 37 30 00 4E 6C A5 00 81 20 51 20 D5 20 30 20 170.Nl... Q . 0 0001E0: BD 20 37 20 3A 20 A4 20 31 2C 2C 35 31 30 30 30 . 7 : . 1,,51000 0001F0: 20 3A 20 87 20 51 20 3A 20 A4 20 31 2C 2C 2C 4F : . Q : . 1,,,O 000200: 31 2C 4F 32 2C 4F 33 3B 00 62 6C A6 00 A4 20 31 1,O2,O3;.bl... 1 000210: 2C 2C 2C 52 31 2C 52 32 2C 52 33 3B 00 92 6C A7 ,,,R1,R2,R3;..l. 000220: 00 81 20 51 20 D5 20 31 20 BD 20 33 20 3A 20 A4 .. Q . 1 . 3 : . 000230: 20 31 2C 2C 35 31 30 31 30 20 3A 20 87 20 51 20 1,,51010 : . Q 000240: 3A 20 A6 20 3A 20 8D 20 32 30 30 30 00 BD 6C AA : . : . 2000..l. 000250: 00 81 5A D5 31 BD 38 3A 81 59 D5 31 BD 38 3A 81 ..Z.1.8:.Y.1.8:. 000260: 58 D5 31 BD 38 3A 91 31 30 3A B1 49 2C 31 30 31 X.1.8:.10:.I,101 000270: 3A 87 58 2C 59 2C 5A 00 D1 6C B4 00 58 D5 31 3A :.X,Y,Z..l..X.1: 000280: 59 D5 34 3A 5A D5 31 3A 51 D5 32 00 DD 6C BE 00 Y.4:Z.1:Q.2..l.. 000290: 91 31 30 3A 91 36 30 00 EE 6C D2 00 81 20 51 20 .10:.60..l... Q 0002A0: D5 20 33 20 BD 20 33 33 00 3B 6D DC 00 41 24 D5 . 3 . 33.;m..A$. 0002B0: 22 22 3A B2 22 44 4F 20 59 4F 55 20 57 41 4E 54 "":."DO YOU WANT 0002C0: 20 27 22 3B 43 24 28 51 29 3B 22 27 0A 52 41 4E '";C$(Q);"'.RAN 0002D0: 44 4F 4D 4C 59 20 50 4C 41 43 45 44 20 41 52 4F DOMLY PLACED ARO 0002E0: 55 4E 44 20 54 48 45 20 44 55 4E 47 45 4F 4E 22 UND THE DUNGEON" 0002F0: 3B 3A 89 41 24 00 54 6D E6 00 8F 41 24 D5 22 51 ;:.A$.Tm...A$."Q 000300: 22 CA 51 D5 33 33 20 3A 20 8D 20 33 32 30 00 AD ".Q.33 : . 320.. 000310: 6D F0 00 8F 41 24 D5 22 22 CA 32 32 30 3A 95 8F m...A$."".220:.. 000320: F8 28 41 24 2C 31 29 D5 22 59 22 CA 41 24 D5 22 .(A$,1)."Y".A$." 000330: 22 3A 89 22 44 4F 20 59 4F 55 20 57 49 53 48 20 ":."DO YOU WISH 000340: 54 4F 20 41 44 44 20 4D 4F 52 45 22 3B 41 24 3A TO ADD MORE";A$: 000350: 8F 41 24 D5 22 22 CA 32 34 30 3A 95 8F 41 24 D5 .A$."".240:..A$. 000360: 22 4E 22 CA 33 30 30 00 E1 6D FA 00 A1 20 51 CE "N".300..m... Q. 000370: 32 20 91 20 35 30 30 2C 35 30 30 2C 36 30 30 2C 2 . 500,500,600, 000380: 36 30 30 2C 36 30 30 2C 36 30 30 2C 36 30 30 2C 600,600,600,600, 000390: 36 30 30 2C 36 30 30 2C 36 30 30 00 FB 6D 04 01 600,600,600..m.. 0003A0: 8F 20 51 D4 31 32 20 D2 20 51 D6 32 35 20 CA 20 . Q.12 . Q.25 . 0003B0: 91 20 37 30 30 00 0E 6E 0E 01 8F 20 51 D5 32 35 . 700..n... Q.25 0003C0: 20 CA 20 91 20 36 30 30 00 21 6E 18 01 8F 20 51 . . 600.!n... Q 0003D0: D4 32 35 20 CA 20 91 20 38 30 30 00 33 6E 22 01 .25 . . 800.3n". 0003E0: 52 50 28 51 29 D5 CE 31 3A 8D 33 31 30 00 3F 6E RP(Q)..1:.310.?n 0003F0: 2C 01 52 50 28 51 29 D5 30 00 62 6E 36 01 8F 51 ,.RP(Q).0.bn6..Q 000400: D6 32 36 20 CA 20 89 22 4C 45 53 53 20 48 4F 57 .26 . ."LESS HOW 000410: 20 4D 41 4E 59 22 3B 52 50 28 51 29 00 6A 6E 40 MANY";RP(Q).jn@ 000420: 01 87 20 51 00 7A 6E 42 01 81 20 51 20 D5 20 31 .. Q.znB.. Q . 1 000430: 20 BD 20 33 00 A8 6E 44 01 B2 22 57 48 45 52 45 . 3..nD.."WHERE 000440: 20 44 4F 20 59 4F 55 20 57 48 41 54 20 54 48 45 DO YOU WHAT THE 000450: 20 33 20 43 55 52 53 45 53 20 50 4C 41 43 45 44 3 CURSES PLACED 000460: 3F 22 00 B4 6E 46 01 91 20 31 30 30 30 30 00 DC ?"..nF.. 10000.. 000470: 6E 48 01 43 28 51 2C 31 29 D5 58 3A 43 28 51 2C nH.C(Q,1).X:C(Q, 000480: 32 29 D5 59 3A 43 28 51 2C 33 29 D5 5A 3A 43 28 2).Y:C(Q,3).Z:C( 000490: 51 2C 34 29 D5 30 00 E3 6E 49 01 87 51 00 13 6F Q,4).0..nI..Q..o 0004A0: 4A 01 B2 22 57 48 45 52 45 20 44 4F 20 59 4F 55 J.."WHERE DO YOU 0004B0: 20 57 41 4E 54 20 54 48 45 20 4F 52 42 20 4F 46 WANT THE ORB OF 0004C0: 20 5A 4F 54 20 50 4C 41 43 45 44 3F 22 00 1D 6F ZOT PLACED?"..o 0004D0: 54 01 91 33 30 30 30 00 4B 6F 60 01 B2 22 57 48 T..3000.Ko`.."WH 0004E0: 45 52 45 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 ERE DO YOU WANT 0004F0: 54 48 45 20 52 55 4E 53 54 41 46 46 20 50 4C 41 THE RUNSTAFF PLA 000500: 43 45 44 3F 22 00 55 6F 62 01 91 34 30 30 30 00 CED?".Uob..4000. 000510: A3 6F 64 01 89 22 57 48 41 54 20 4D 4F 4E 53 54 .od.."WHAT MONST 000520: 45 52 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 49 ER DO YOU WANT I 000530: 54 20 50 4C 41 43 45 44 20 55 4E 44 45 52 20 28 T PLACED UNDER ( 000540: 31 2D 31 32 29 22 3B 51 20 3A 20 8F 20 51 D6 31 1-12)";Q : . Q.1 000550: 20 D3 20 51 D4 31 32 20 CA 20 33 35 36 00 BB 6F . Q.12 . 356..o 000560: 65 01 51 D5 51 CD 31 31 32 3A 91 20 31 30 20 3A e.Q.Q.112:. 10 : 000570: 20 91 20 36 30 00 CB 6F 68 01 81 20 51 33 D5 34 . 60..oh.. Q3.4 000580: 20 BD 20 33 33 00 E0 6F 72 01 8F 52 50 28 51 33 . 33..or..RP(Q3 000590: 29 D5 CE 31 20 CA 20 34 33 30 00 F3 6F 7C 01 8F )..1 . 430..o|.. 0005A0: 20 51 33 D5 34 20 CA 20 91 20 39 30 30 00 0F 70 Q3.4 . . 900..p 0005B0: 86 01 8F 20 51 33 D4 34 20 D2 20 51 33 D6 31 33 ... Q3.4 . Q3.13 0005C0: 20 CA 20 91 20 31 30 30 30 00 2C 70 90 01 8F 20 . . 1000.,p... 0005D0: 51 33 D4 31 32 20 D2 20 51 33 D6 32 35 20 CA 20 Q3.12 . Q3.25 . 0005E0: 91 20 31 31 30 30 00 41 70 9A 01 8F 20 51 33 D5 . 1100.Ap... Q3. 0005F0: 32 35 20 CA 20 91 20 31 32 30 30 00 56 70 A4 01 25 . . 1200.Vp.. 000600: 8F 20 51 33 D4 32 35 20 CA 20 91 20 31 33 30 30 . Q3.25 . . 1300 000610: 00 5E 70 AE 01 87 51 33 00 72 70 B8 01 A2 22 4F .^p...Q3.rp..."O 000620: 22 2C 31 2C 44 46 24 2C 22 4D 55 22 00 80 70 C2 ",1,DF$,"MU"..p. 000630: 01 81 20 51 D5 30 20 BD 20 37 00 8E 70 CC 01 A5 .. Q.0 . 7..p... 000640: 31 2C 2C 35 31 30 30 30 00 96 70 D6 01 87 20 51 1,,51000..p... Q 000650: 00 A9 70 E0 01 A5 31 2C 2C 2C 4F 31 2C 4F 32 2C ..p...1,,,O1,O2, 000660: 4F 33 3B 00 BC 70 E3 01 A5 31 2C 2C 2C 52 31 2C O3;..p...1,,,R1, 000670: 52 32 2C 52 33 3B 00 DF 70 E5 01 81 20 51 20 D5 R2,R3;..p... Q . 000680: 20 31 20 BD 20 33 20 3A 20 A5 20 31 2C 2C 35 31 1 . 3 : . 1,,51 000690: 30 31 30 20 3A 20 87 20 51 00 F0 70 EA 01 A6 3A 010 : . Q..p...: 0006A0: B2 22 44 4F 4E 45 2E 22 3A 80 00 30 71 F4 01 B2 ."DONE.":..0q... 0006B0: 22 4E 4F 52 4D 41 4C 4C 59 20 32 20 53 45 54 53 "NORMALLY 2 SETS 0006C0: 20 4F 46 20 55 50 2F 44 4F 57 4E 20 53 54 41 49 OF UP/DOWN STAI 0006D0: 52 53 20 41 52 45 20 50 4C 41 43 45 44 20 4F 4E RS ARE PLACED ON 0006E0: 20 41 20 4C 45 56 45 4C 2E 22 00 7D 71 FE 01 41 A LEVEL.".}q..A 0006F0: 24 D5 22 22 3A 89 22 57 48 45 4E 20 50 4C 41 43 $."":."WHEN PLAC 000700: 49 4E 47 20 53 54 41 49 52 53 2C 20 44 4F 20 59 ING STAIRS, DO Y 000710: 4F 55 20 57 49 53 48 20 41 20 43 4F 55 4E 54 45 OU WISH A COUNTE 000720: 52 20 50 41 49 52 20 4F 46 20 53 54 45 50 53 20 R PAIR OF STEPS 000730: 53 45 54 22 3B 41 24 00 A5 71 08 02 8F 41 24 D5 SET";A$..q...A$. 000740: 22 22 CA 35 31 30 3A 95 8F F8 28 41 24 2C 31 29 "".510:...(A$,1) 000750: D5 22 59 22 CA 51 32 D5 31 3A 95 51 32 D5 30 00 ."Y".Q2.1:.Q2.0. 000760: B1 71 12 02 91 20 31 31 30 30 30 00 C2 71 1C 02 .q... 11000..q.. 000770: 8F 58 D5 30 D3 59 D5 30 20 CA 20 92 00 CF 71 26 .X.0.Y.0 . ...q& 000780: 02 B1 49 2C 31 30 30 CD 51 00 F2 71 30 02 8F 20 ..I,100.Q..q0.. 000790: 51 32 D5 31 20 D2 20 51 D5 33 20 D2 20 5A D6 D4 Q2.1 . Q.3 . Z.. 0007A0: 31 20 CA 20 B1 49 CE 31 2C 31 30 34 00 15 72 3A 1 . .I.1,104..r: 0007B0: 02 8F 20 51 32 D5 31 20 D2 20 51 D5 34 20 D2 20 .. Q2.1 . Q.4 . 0007C0: 5A D6 D4 38 20 CA 20 B1 49 CD 31 2C 31 30 33 00 Z..8 . .I.1,103. 0007D0: 1E 72 44 02 8D 35 33 30 00 49 72 58 02 B2 22 54 .rD..530.IrX.."T 0007E0: 48 45 52 45 20 41 52 45 20 4E 4F 52 4D 41 4C 4C HERE ARE NORMALL 0007F0: 59 20 54 48 52 45 45 20 50 45 52 20 4C 45 56 45 Y THREE PER LEVE 000800: 4C 2E 22 00 55 72 62 02 91 20 31 31 30 30 30 00 L.".Urb.. 11000. 000810: 66 72 6C 02 8F 58 D5 30 D3 59 D5 30 20 CA 20 92 frl..X.0.Y.0 . . 000820: 00 73 72 76 02 B1 49 2C 51 CD 31 30 30 00 7C 72 .srv..I,Q.100.|r 000830: 80 02 8D 36 31 30 00 B2 72 BC 02 B2 22 54 48 45 ...610..r..."THE 000840: 52 45 20 49 53 20 4E 4F 52 4D 41 4C 4C 59 20 31 RE IS NORMALLY 1 000850: 20 4F 46 20 45 41 43 48 20 4D 4F 4E 53 54 45 52 OF EACH MONSTER 000860: 20 50 45 52 20 4C 45 56 45 4C 2E 22 00 BD 72 C6 PER LEVEL."..r. 000870: 02 91 31 31 30 30 30 00 CA 72 D0 02 B1 49 2C 51 ..11000..r...I,Q 000880: CD 31 30 30 00 DB 72 DA 02 8F 58 D5 30 D3 59 D5 .100..r...X.0.Y. 000890: 30 20 CA 20 92 00 E4 72 E4 02 8D 37 31 30 00 0F 0 . ...r...710.. 0008A0: 73 20 03 B2 22 54 48 45 52 45 20 49 53 20 4F 4E s .."THERE IS ON 0008B0: 45 20 4F 46 20 45 41 43 48 20 54 52 45 41 53 55 E OF EACH TREASU 0008C0: 52 45 2E 22 3A 8D 37 31 30 00 1F 73 84 03 8F 52 RE.":.710..s...R 0008D0: 50 28 51 33 29 D4 30 CA 92 00 4E 73 8E 03 81 5A P(Q3).0...Ns...Z 0008E0: D5 31 BD 37 3A 81 51 31 D5 31 BD 32 3A 51 D5 31 .1.7:.Q1.1.2:Q.1 0008F0: 30 34 3A 91 35 30 3A B1 49 CD 31 2C 31 30 33 3A 04:.50:.I.1,103: 000900: 87 51 31 3A 87 5A 3A 92 00 61 73 E8 03 8F 20 52 .Q1:.Z:..as... R 000910: 50 28 51 33 29 D4 32 20 CA 20 92 00 91 73 F2 03 P(Q3).2 . ...s.. 000920: 81 5A D5 31 BD 38 3A 81 51 31 D5 31 BD 33 CE 52 .Z.1.8:.Q1.1.3.R 000930: 50 28 51 33 29 3A 51 D5 51 33 CD 31 30 30 3A 91 P(Q3):Q.Q3.100:. 000940: 35 30 3A 87 51 31 3A 87 5A 3A 92 00 A4 73 4C 04 50:.Q1:.Z:...sL. 000950: 8F 20 52 50 28 51 33 29 D4 37 20 CA 20 92 00 B8 . RP(Q3).7 . ... 000960: 73 56 04 81 5A D5 31 BD 38 3A 51 D5 51 33 CD 31 sV..Z.1.8:Q.Q3.1 000970: 30 30 00 D1 73 60 04 8F 20 DE 28 52 50 28 51 33 00..s`.. .(RP(Q3 000980: 29 29 D6 D4 31 20 CA 20 91 35 30 00 DA 73 6A 04 ))..1 . .50..sj. 000990: 87 5A 3A 92 00 ED 73 B0 04 8F 20 52 50 28 51 33 .Z:...s... RP(Q3 0009A0: 29 D4 37 20 CA 20 92 00 06 74 BA 04 81 5A D5 31 ).7 . ...t...Z.1 0009B0: BD 38 3A 81 51 31 D5 31 BD 33 3A 51 D5 31 32 35 .8:.Q1.1.3:Q.125 0009C0: 00 20 74 C4 04 8F 20 DE 28 52 50 28 51 33 29 29 . t... .(RP(Q3)) 0009D0: D6 D4 31 20 CA 20 91 20 35 30 00 2D 74 CE 04 87 ..1 . . 50.-t... 0009E0: 51 31 3A 87 5A 3A 92 00 40 74 14 05 8F 20 52 50 Q1:.Z:..@t... RP 0009F0: 28 51 33 29 D4 30 20 CA 20 92 00 5A 74 1E 05 51 (Q3).0 . ..Zt..Q 000A00: D5 51 33 CD 31 30 30 3A 5A D5 DE 28 38 29 3A 91 .Q3.100:Z..(8):. 000A10: 35 30 3A 92 00 60 74 D0 07 84 00 8D 74 DA 07 B2 50:..`t.....t... 000A20: 22 43 48 4F 4F 53 45 20 41 20 54 48 49 4E 47 20 "CHOOSE A THING 000A30: 54 4F 20 50 55 54 20 49 4E 20 54 48 45 20 44 55 TO PUT IN THE DU 000A40: 4E 47 45 4F 4E 2E 22 00 9B 74 E4 07 81 20 51 31 NGEON."..t... Q1 000A50: D5 31 BD 31 31 00 B7 74 EE 07 B2 BF 22 23 23 22 .1.11..t...."##" 000A60: 3B 51 31 3B 3A B2 22 20 22 3B 43 24 28 51 31 29 ;Q1;:." ";C$(Q1) 000A70: 3B 00 E0 74 F8 07 B2 BC 32 31 29 3B 3A B2 BF 22 ;..t....21);:.." 000A80: 23 23 22 3B 51 31 CD 31 31 3B 3A B2 22 20 22 3B ##";Q1.11;:." "; 000A90: 43 24 28 51 31 CD 31 31 29 3B 00 08 75 02 08 B2 C$(Q1.11);..u... 000AA0: BC 34 33 29 3B 3A B2 BF 22 23 23 22 3B 51 31 CD .43);:.."##";Q1. 000AB0: 32 32 3B 3A B2 22 20 22 3B 43 24 28 51 31 CD 32 22;:." ";C$(Q1.2 000AC0: 32 29 00 10 75 0C 08 87 51 31 00 3A 75 11 08 B2 2)..u...Q1.:u... 000AD0: 22 33 34 20 52 55 4E 53 54 41 46 46 22 3B BC 32 "34 RUNSTAFF";.2 000AE0: 31 29 3B 3A B2 22 33 35 20 4F 52 42 20 4F 46 20 1);:."35 ORB OF 000AF0: 5A 4F 54 22 00 5D 75 16 08 B2 BC 32 30 29 3B 3A ZOT".]u....20);: 000B00: 89 22 4E 55 4D 42 45 52 20 28 30 20 54 4F 20 51 ."NUMBER (0 TO Q 000B10: 55 49 54 29 22 3B 51 00 7E 75 20 08 8F 20 51 D6 UIT)";Q.~u .. Q. 000B20: 30 20 D3 20 51 D4 33 35 20 CA 20 B2 F7 28 32 37 0 . Q.35 . ..(27 000B30: 29 3B 3A 8D 32 30 37 30 00 8D 75 25 08 8F 51 D5 );:.2070..u%..Q. 000B40: 30 20 CA 20 34 34 30 00 A9 75 26 08 8F 51 D5 33 0 . 440..u&..Q.3 000B50: 35 20 CA 20 91 20 33 30 30 30 20 3A 20 8D 20 32 5 . . 3000 : . 2 000B60: 30 30 30 00 C5 75 27 08 8F 51 D5 33 34 20 CA 20 000..u'..Q.34 . 000B70: 91 20 34 30 30 30 20 3A 20 8D 20 32 30 30 30 00 . 4000 : . 2000. 000B80: D0 75 2A 08 91 31 31 30 30 30 00 ED 75 34 08 8F .u*..11000..u4.. 000B90: 20 58 D5 30 20 D3 20 59 D5 30 20 D3 20 5A D5 30 X.0 . Y.0 . Z.0 000BA0: 20 CA 20 32 30 30 30 00 F5 75 39 08 91 31 30 00 . 2000..u9..10. 000BB0: 03 76 3E 08 B1 20 49 2C 51 CD 31 30 30 00 0E 76 .v>.. I,Q.100..v 000BC0: 48 08 8D 20 32 30 39 30 00 1A 76 B8 0B 91 20 31 H.. 2090..v... 1 000BD0: 30 30 30 30 00 38 76 C2 0B 4F 31 D5 58 3A 4F 32 0000.8v..O1.X:O2 000BE0: D5 59 3A 4F 33 D5 5A 3A 91 31 30 3A B1 49 2C 31 .Y:O3.Z:.10:.I,1 000BF0: 30 39 00 3E 76 CC 0B 92 00 5B 76 A0 0F 91 20 31 09.>v....[v... 1 000C00: 30 30 30 30 20 3A 20 52 31 D5 58 3A 52 32 D5 59 0000 : R1.X:R2.Y 000C10: 3A 52 33 D5 5A 00 61 76 AA 0F 92 00 8B 76 10 27 :R3.Z.av.....v.' 000C20: B2 22 30 2C 30 2C 30 20 54 4F 20 53 54 4F 50 2C ."0,0,0 TO STOP, 000C30: 20 2D 31 2C 2D 31 2C 28 4C 56 4C 29 20 46 4F 52 -1,-1,(LVL) FOR 000C40: 20 4D 41 50 22 00 A0 76 1A 27 89 22 28 58 2C 59 MAP"..v.'."(X,Y 000C50: 2C 5A 29 22 3B 58 2C 59 2C 5A 00 BA 76 24 27 8F ,Z)";X,Y,Z..v$'. 000C60: 20 58 D5 30 20 D3 20 59 D5 30 20 D3 20 5A D5 30 X.0 . Y.0 . Z.0 000C70: 20 CA 20 92 00 E2 76 2E 27 8F 20 28 58 D5 CE 31 . ...v.'. (X..1 000C80: 20 D3 20 59 D5 CE 31 29 20 D2 20 5A D6 39 20 D2 . Y..1) . Z.9 . 000C90: 20 5A D4 30 20 CA 20 31 30 30 37 30 00 12 77 38 Z.0 . 10070..w8 000CA0: 27 8F 20 58 D4 39 20 D3 20 58 D6 31 20 D3 20 59 '. X.9 . X.1 . Y 000CB0: D4 39 20 D3 20 59 D6 31 20 D3 20 5A D4 39 20 D3 .9 . Y.1 . Z.9 . 000CC0: 20 5A D6 31 20 CA 20 31 30 30 31 30 00 1F 77 42 Z.1 . 10010..wB 000CD0: 27 91 20 31 30 20 3A 20 92 00 52 77 4C 27 3A 93 '. 10 : ..RwL':. 000CE0: FB 4D 41 50 20 44 52 41 57 45 52 2E 20 20 4F 4E .MAP DRAWER. ON 000CF0: 20 45 4E 54 52 59 20 27 5A 27 20 48 4F 4C 44 53 ENTRY 'Z' HOLDS 000D00: 20 4C 56 4C 20 54 4F 20 44 52 41 57 00 77 77 56 LVL TO DRAW.wwV 000D10: 27 53 51 D5 51 3A 84 3A B2 22 4D 41 50 20 4F 46 'SQ.Q:.:."MAP OF 000D20: 20 4C 45 56 45 4C 22 3B 5A 3A 41 D5 58 3A 42 D5 LEVEL";Z:A.X:B. 000D30: 59 00 A4 77 5B 27 81 58 D5 31 BD 38 3A 81 59 D5 Y..w['.X.1.8:.Y. 000D40: 31 BD 38 3A 91 31 30 3A 51 D5 E5 28 49 29 3A 8F 1.8:.10:Q..(I):. 000D50: 51 D4 39 39 20 CA 20 51 D5 51 CE 31 30 30 00 DF Q.99 . Q.Q.100.. 000D60: 77 60 27 3A 93 FB 49 46 58 3D 41 41 4E 44 59 3D w`':..IFX=AANDY= 000D70: 42 54 48 45 4E 50 52 49 4E 54 22 3C 22 3B 4D 49 BTHENPRINT"<";MI 000D80: 44 24 28 49 24 2C 51 2C 31 29 3B 22 3E 22 3B 3A D$(I$,Q,1);">";: 000D90: 47 4F 54 4F 31 30 31 30 30 00 F7 77 6A 27 B2 22 GOTO10100..wj'." 000DA0: 20 22 3B FA 28 49 24 2C 51 2C 31 29 3B 22 20 22 ";.(I$,Q,1);" " 000DB0: 3B 00 0F 78 74 27 87 59 3A B2 3A 87 58 3A 51 D5 ;..xt'.Y:.:.X:Q. 000DC0: 53 51 3A 8D 31 30 30 31 30 00 56 78 F8 2A B2 22 SQ:.10010.Vx.*." 000DD0: 57 48 45 52 45 20 44 4F 20 59 4F 55 20 57 41 4E WHERE DO YOU WAN 000DE0: 54 20 54 4F 20 50 4C 41 43 45 20 22 3B 43 24 28 T TO PLACE ";C$( 000DF0: 51 29 3B 3A 8F F9 28 43 24 28 51 29 2C 31 29 D6 Q);:..(C$(Q),1). 000E00: D4 22 53 22 CA B2 22 53 3F 22 3A 95 B2 22 3F 22 ."S".."S?":.."?" 000E10: 00 61 78 02 2B 91 31 30 30 30 30 00 7B 78 07 2B .ax.+.10000.{x.+ 000E20: 8F 20 58 D5 30 20 D3 20 59 D5 30 20 D3 20 5A D5 . X.0 . Y.0 . Z. 000E30: 30 20 CA 20 92 00 8D 78 0C 2B 8F E5 28 49 29 D5 0 . ...x.+..(I). 000E40: 31 30 31 20 CA 20 92 00 E9 78 16 2B B2 22 54 48 101 . ...x.+."TH 000E50: 45 52 45 20 49 53 20 41 4C 52 45 41 44 59 20 22 ERE IS ALREADY " 000E60: 3B 43 24 28 E5 28 49 29 CD 28 E5 28 49 29 D4 39 ;C$(.(I).(.(I).9 000E70: 39 29 CF 31 30 30 29 3B 22 20 54 48 45 52 45 2C 9).100);" THERE, 000E80: 0A 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 .DO YOU WISH TO 000E90: 4F 56 45 52 2D 57 52 49 54 45 20 49 54 22 3B 3A OVER-WRITE IT";: 000EA0: 89 41 24 00 0E 79 20 2B 8F 41 24 D5 22 22 CA 31 .A$..y +.A$."".1 000EB0: 31 30 33 30 3A 95 8F F8 28 41 24 2C 31 29 D5 22 1030:...(A$,1)." 000EC0: 4E 22 CA 31 31 30 31 30 00 14 79 2A 2B 92 00 5D N".11010..y*+..] 000ED0: 79 52 4E 3A 93 FB 49 46 20 4C 45 46 54 24 28 41 yRN:..IF LEFT$(A 000EE0: 24 2C 31 29 3D 22 59 22 20 54 48 45 4E 20 46 4F $,1)="Y" THEN FO 000EF0: 52 51 3D 31 32 36 54 4F 31 33 33 3A 5A 3D 52 4E RQ=126TO133:Z=RN 000F00: 44 28 38 29 3A 47 4F 53 55 42 35 30 3A 4E 45 58 D(8):GOSUB50:NEX 000F10: 54 51 3A 47 4F 54 4F 00 86 79 40 9C 81 5A 5A D5 TQ:GOTO..y@..ZZ. 000F20: 31 35 33 36 30 BD 31 35 33 36 30 CD 32 35 35 3A 15360.15360.255: 000F30: B1 5A 5A 2C 5A 5A CE 31 35 33 36 30 3A 87 3A 94 .ZZ,ZZ.15360:.:. 000F40: 00 74 7A 50 C3 88 41 4E 20 45 4D 50 54 59 20 52 .tzP..AN EMPTY R 000F50: 4F 4F 4D 2C 54 48 45 20 45 4E 54 52 41 4E 43 45 OOM,THE ENTRANCE 000F60: 2C 53 54 41 49 52 53 20 47 4F 49 4E 47 20 55 50 ,STAIRS GOING UP 000F70: 2C 53 54 41 49 52 53 20 47 4F 49 4E 47 20 44 4F ,STAIRS GOING DO 000F80: 57 4E 2C 41 20 50 4F 4F 4C 2C 41 20 43 48 45 53 WN,A POOL,A CHES 000F90: 54 2C 47 4F 4C 44 20 50 49 45 43 45 53 2C 46 4C T,GOLD PIECES,FL 000FA0: 41 52 45 53 2C 41 20 57 41 52 50 2C 41 20 53 49 ARES,A WARP,A SI 000FB0: 4E 4B 48 4F 4C 45 2C 41 20 43 52 59 53 54 41 4C NKHOLE,A CRYSTAL 000FC0: 20 4F 52 42 2C 41 20 42 4F 4F 4B 2C 41 20 4B 4F ORB,A BOOK,A KO 000FD0: 42 4F 4C 44 2C 41 4E 20 4F 52 43 2C 41 20 57 4F BOLD,AN ORC,A WO 000FE0: 4C 46 2C 41 20 47 4F 42 4C 49 4E 2C 41 20 48 41 LF,A GOBLIN,A HA 000FF0: 4C 46 4C 49 4E 47 2C 41 20 54 52 4F 4C 4C 2C 41 LFLING,A TROLL,A 001000: 20 4A 41 43 4B 45 4C 2C 41 20 4D 49 4E 4F 54 41 JACKEL,A MINOTA 001010: 55 52 2C 41 20 56 41 4D 50 49 52 45 2C 41 20 43 UR,A VAMPIRE,A C 001020: 48 49 4D 45 52 41 2C 41 20 4E 59 4D 50 48 00 1F HIMERA,A NYMPH.. 001030: 7B 5A C3 88 41 20 44 52 41 47 4F 4E 2C 41 20 56 {Z..A DRAGON,A V 001040: 45 4E 44 4F 52 2C 54 48 45 20 52 55 42 59 20 52 ENDOR,THE RUBY R 001050: 45 44 2C 54 48 45 20 4E 4F 52 4E 20 53 54 4F 4E ED,THE NORN STON 001060: 45 2C 54 48 45 20 50 41 4C 45 20 50 45 41 52 4C E,THE PALE PEARL 001070: 2C 54 48 45 20 4F 50 41 4C 20 45 59 45 2C 54 48 ,THE OPAL EYE,TH 001080: 45 20 47 52 45 45 4E 20 47 45 4D 2C 54 48 45 20 E GREEN GEM,THE 001090: 42 4C 55 45 20 46 4C 41 4D 45 2C 54 48 45 20 50 BLUE FLAME,THE P 0010A0: 41 4C 41 4E 54 49 52 2C 54 48 45 20 53 49 4C 4D ALANTIR,THE SILM 0010B0: 41 52 49 4C 2C 22 2E 45 5B 5C 50 43 24 46 7F 53 ARIL,".E[\PC$FS 0010C0: 4F 42 6B 6F 77 67 68 74 6A 6D 76 63 6E 64 56 54 OBkowghtjmvcndVT 0010D0: 54 54 54 54 54 54 54 3F 22 00 64 7B 38 C7 4B 23 TTTTTTT?".d{8.K# 0010E0: 28 51 2C 30 29 2C 4B 23 28 51 2C 31 29 2C 4B 23 (Q,0),K#(Q,1),K# 0010F0: 28 51 2C 32 29 2C 4B 23 28 51 2C 33 29 2C 4B 23 (Q,2),K#(Q,3),K# 001100: 28 51 2C 34 29 2C 4B 23 28 51 2C 35 29 2C 4B 23 (Q,4),K#(Q,5),K# 001110: 28 51 2C 36 29 2C 4B 23 28 51 2C 37 29 3B 00 89 (Q,6),K#(Q,7);.. 001120: 7B 42 C7 43 25 28 51 2C 31 29 2C 43 25 28 51 2C {B.C%(Q,1),C%(Q, 001130: 32 29 2C 43 25 28 51 2C 33 29 2C 43 25 28 51 2C 2),C%(Q,3),C%(Q, 001140: 34 29 3B 00 00 00 4);... 9001 'RELOCATABLE Z-80 CODE 9002 POKE 16526,73:POKE 16527,44 9003 DEFINT A,I:READAD,AS:FORI=1TOAS:READAV:POKEAD+I-1,AV:NEXTI:RETURN 9004 DATA 20768,141 9005 DATA 51,213,52,32,202,32,145,32,57,48,48,0,15,112,134,1 9006 DATA 143,32,81,51,212,52,32,210,32,81,51,214,49,51,32,202 9007 DATA 32,145,32,49,48,48,48,0,44,112,144,1,143,32,81,51 9008 DATA 212,49,50,32,210,32,81,51,214,50,53,32,202,32,145,32 9009 DATA 49,49,48,48,0,65,112,154,1,143,32,81,51,213,50,53 9010 DATA 32,202,32,145,32,49,50,48,48,0,86,112,164,1,143,32 9011 DATA 81,51,212,50,53,32,202,32,145,32,49,51,48,48,0,94 9012 DATA 112,174,1,135,81,51,0,114,112,184,1,162,34,79,34,44 9013 DATA 49,44,68,70,36,44,34,77,85,34,0,128,112