Willus.com
Home
|
Archive
|
About
CASTLE.BAS
(236 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 7B 6D 0A 00 B8 31 35 30 30 3A 84 3A A2 22 49 .{m...1500:.:."I 000010: 22 2C 31 2C 22 43 41 53 54 4C 45 2F 44 41 54 22 ",1,"CASTLE/DAT" 000020: 3A 81 49 D5 30 BD 33 3A 89 23 31 2C 41 24 28 49 :.I.0.3:.#1,A$(I 000030: 29 3A 87 00 99 6D 14 00 84 3A B2 40 33 31 2C 3B ):...m...:.@31,; 000040: 3A 81 49 D5 30 BD 33 3A B2 41 24 28 49 29 3B 3A :.I.0.3:.A$(I);: 000050: 87 00 DF 6D 1E 00 81 49 D5 31 35 33 36 30 20 BD ...m...I.15360 . 000060: 20 31 36 33 38 33 3A 20 8F 20 49 D5 36 32 20 D3 16383: . I.62 . 000070: 20 49 D5 36 33 20 CA 20 35 30 20 3A 95 20 8F 20 I.63 . 50 :. . 000080: E5 28 49 29 D5 33 32 20 CA 20 B1 20 49 2C 31 39 .(I).32 . . I,19 000090: 31 3A 20 8D 20 35 30 00 22 6E 28 00 51 D5 E5 28 1: . 50."n(.Q..( 0000A0: 49 29 3A 20 8F 20 51 D4 31 35 39 20 CA 20 B1 20 I): . Q.159 . . 0000B0: 49 2C 31 36 30 CE 28 51 CE 31 35 39 29 20 3A 95 I,160.(Q.159) :. 0000C0: 20 8F 20 51 D6 31 36 30 20 CA 20 B1 20 49 2C 31 . Q.160 . . I,1 0000D0: 35 39 CD 28 31 36 30 CE 51 29 00 28 6E 32 00 87 59.(160.Q).(n2.. 0000E0: 00 31 6E 3C 00 8D 20 36 30 00 00 00 .1n<.. 60... 9001 'RELOCATABLE Z-80 CODE 9002 POKE 16526,0:POKE 16527,256 9003 DEFINT A,I:READAD,AS:FORI=1TOAS:READAV:POKEAD+I-1,AV:NEXTI:RETURN 9004 DATA 0,-65536