Willus.com
Home
|
Archive
|
About
CASSHOT2.BAS
(1292 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 5D 6A 05 00 20 93 20 2A 20 43 41 53 54 4C 45 .]j.. . * CASTLE 000010: 20 53 48 4F 54 20 2A 00 7D 6A 0A 00 20 89 20 22 SHOT *.}j.. . " 000020: 45 4E 54 45 52 20 59 4F 55 52 20 49 4E 49 54 49 ENTER YOUR INITI 000030: 41 4C 53 22 3B 41 24 00 84 6A 14 00 20 84 00 8E ALS";A$..j.. ... 000040: 6A 1E 00 20 5A D5 37 34 00 9F 6A 28 00 20 81 20 j.. Z.74..j(. . 000050: 59 D5 31 37 20 BD 20 34 37 00 B0 6A 32 00 20 81 Y.17 . 47..j2. . 000060: 20 58 D5 5A 20 BD 20 31 32 37 00 BD 6A 3C 00 20 X.Z . 127..j<. 000070: 83 20 28 58 2C 59 29 00 C6 6A 46 00 20 87 20 58 . (X,Y)..jF. . X 000080: 00 DA 6A 50 00 20 8F 20 59 D6 32 33 20 CA 20 5A ..jP. . Y.23 . Z 000090: D5 5A CD 32 00 E3 6A C8 00 20 87 20 59 00 F9 6A .Z.2..j.. . Y..j 0000A0: D2 00 20 81 20 58 D5 37 35 20 BD 20 31 32 33 20 .. . X.75 . 123 0000B0: CC 20 34 00 07 6B DC 00 20 83 20 28 58 2C 31 36 . 4..k.. . (X,16 0000C0: 29 00 17 6B E6 00 20 83 20 28 58 CD 31 2C 31 36 )..k.. . (X.1,16 0000D0: 29 00 20 6B F0 00 20 87 20 58 00 29 6B FA 00 20 ). k.. . X.)k.. 0000E0: 51 D5 30 00 3F 6B 2C 01 20 81 20 58 D5 39 35 20 Q.0.?k,. . X.95 0000F0: BD 20 31 32 35 20 CC 20 35 00 55 6B 36 01 20 81 . 125 . 5.Uk6. . 000100: 20 59 D5 34 37 20 BD 20 33 35 20 CC 20 CE 31 00 Y.47 . 35 . .1. 000110: 62 6B 40 01 20 82 20 28 58 2C 59 29 00 6B 6B 4A bk@. . (X,Y).kkJ 000120: 01 20 87 20 59 00 74 6B 54 01 20 87 20 58 00 86 . . Y.tkT. . X.. 000130: 6B 90 01 20 81 20 58 D5 39 35 20 BD 20 31 32 35 k.. . X.95 . 125 000140: 00 94 6B 9A 01 20 82 20 28 58 2C 33 34 29 00 9D ..k.. . (X,34).. 000150: 6B A4 01 20 87 20 58 00 BD 6B F4 01 20 B2 20 41 k.. . X..k.. . A 000160: 54 20 36 38 38 2C 20 41 24 3B 22 27 53 20 43 41 T 688, A$;"'S CA 000170: 53 54 4C 45 22 20 3B 00 CF 6B 58 02 20 81 20 58 STLE" ;..kX. . X 000180: D5 37 33 20 BD 20 31 30 30 00 DD 6B 62 02 20 83 .73 . 100..kb. . 000190: 20 28 58 2C 31 32 29 00 EB 6B 6C 02 20 83 20 28 (X,12)..kl. . ( 0001A0: 58 2C 31 33 29 00 F4 6B 76 02 20 87 20 58 00 05 X,13)..kv. . X.. 0001B0: 6C BC 02 20 81 20 58 D5 38 35 20 BD 20 39 35 00 l.. . X.85 . 95. 0001C0: 13 6C C6 02 20 83 20 28 58 2C 31 34 29 00 21 6C .l.. . (X,14).!l 0001D0: D0 02 20 83 20 28 58 2C 31 35 29 00 2A 6C DA 02 .. . (X,15).*l.. 0001E0: 20 87 20 58 00 39 6C E4 02 20 82 20 28 39 30 2C . X.9l.. . (90, 0001F0: 31 33 29 00 48 6C EE 02 20 82 20 28 39 31 2C 31 13).Hl.. . (91,1 000200: 33 29 00 57 6C E8 03 20 81 20 5A D5 31 20 BD 20 3).Wl.. . Z.1 . 000210: 32 00 67 6C F2 03 20 81 20 58 D5 32 20 BD 20 31 2.gl.. . X.2 . 1 000220: 34 00 78 6C FC 03 20 81 20 59 D5 34 30 20 BD 20 4.xl.. . Y.40 . 000230: 34 33 00 85 6C 06 04 20 83 20 28 58 2C 59 29 00 43..l.. . (X,Y). 000240: 8E 6C 10 04 20 87 20 59 00 97 6C 1A 04 20 87 20 .l.. . Y..l.. . 000250: 58 00 AB 6C 4C 04 20 81 20 58 D5 33 20 BD 20 31 X..lL. . X.3 . 1 000260: 33 20 CC 20 32 00 B9 6C 56 04 20 82 20 28 58 2C 3 . 2..lV. . (X, 000270: 34 31 29 00 C2 6C 60 04 20 87 20 58 00 D0 6C 6A 41)..l`. . X..lj 000280: 04 20 82 20 28 37 2C 34 33 29 00 DE 6C 74 04 20 . . (7,43)..lt. 000290: 82 20 28 38 2C 34 33 29 00 08 6D A6 04 20 93 2D . (8,43)..m.. .- 0002A0: 2D 2D 54 48 49 53 20 57 49 4C 4C 20 4D 41 4B 45 --THIS WILL MAKE 0002B0: 20 54 48 45 20 43 41 4E 4E 4F 4E 20 52 45 43 4F THE CANNON RECO 0002C0: 49 4C 00 1D 6D B0 04 20 81 20 58 D5 31 20 BD 20 IL..m.. . X.1 . 0002D0: 31 30 30 3A 87 20 58 00 2C 6D BA 04 20 82 20 28 100:. X.,m.. . ( 0002E0: 37 33 2C 31 32 29 00 3B 6D C4 04 20 82 20 28 37 73,12).;m.. . (7 0002F0: 33 2C 31 33 29 00 4A 6D CE 04 20 82 20 28 37 34 3,13).Jm.. . (74 000300: 2C 31 32 29 00 59 6D D8 04 20 82 20 28 37 34 2C ,12).Ym.. . (74, 000310: 31 33 29 00 69 6D E2 04 20 83 20 28 31 30 31 2C 13).im.. . (101, 000320: 31 32 29 00 79 6D EC 04 20 83 20 28 31 30 31 2C 12).ym.. . (101, 000330: 31 33 29 00 89 6D F6 04 20 83 20 28 31 30 32 2C 13)..m.. . (102, 000340: 31 32 29 00 99 6D 00 05 20 83 20 28 31 30 32 2C 12)..m.. . (102, 000350: 31 33 29 00 AE 6D 0A 05 20 81 20 58 D5 31 20 BD 13)..m.. . X.1 . 000360: 20 31 30 30 3A 87 20 58 00 BD 6D 14 05 20 83 20 100:. X..m.. . 000370: 28 37 34 2C 31 32 29 00 CC 6D 1E 05 20 83 20 28 (74,12)..m.. . ( 000380: 37 34 2C 31 33 29 00 DB 6D 28 05 20 83 20 28 37 74,13)..m(. . (7 000390: 33 2C 31 32 29 00 EA 6D 32 05 20 83 20 28 37 33 3,12)..m2. . (73 0003A0: 2C 31 33 29 00 FA 6D 3C 05 20 82 20 28 31 30 32 ,13)..m<. . (102 0003B0: 2C 31 32 29 00 0A 6E 46 05 20 82 20 28 31 30 32 ,12)..nF. . (102 0003C0: 2C 31 33 29 00 1A 6E 50 05 20 82 20 28 31 30 31 ,13)..nP. . (101 0003D0: 2C 31 32 29 00 2A 6E 5A 05 20 82 20 28 31 30 31 ,12).*nZ. . (101 0003E0: 2C 31 33 29 00 3F 6E DC 05 20 81 20 58 D5 37 31 ,13).?n.. . X.71 0003F0: 20 BD 20 32 20 CC 20 CE 31 00 4B 6E E6 05 20 50 . 2 . .1.Kn.. P 000400: D5 58 CE 37 33 00 5F 6E F0 05 20 59 D5 50 CF 50 .X.73._n.. Y.P.P 000410: D0 31 35 30 20 CD 20 31 32 00 6C 6E FA 05 20 83 .150 . 12.ln.. . 000420: 20 28 58 2C 59 29 00 7B 6E 04 06 20 83 20 28 58 (X,Y).{n.. . (X 000430: CE 31 2C 59 29 00 8A 6E 40 06 20 82 20 28 58 CD .1,Y)..n@. . (X. 000440: 31 2C 51 29 00 97 6E 4A 06 20 82 20 28 58 2C 51 1,Q)..nJ. . (X,Q 000450: 29 00 A0 6E 54 06 20 51 D5 59 00 A9 6E 5E 06 20 )..nT. Q.Y..n^. 000460: 87 20 58 00 C2 6E 68 06 20 B2 20 41 54 20 37 37 . X..nh. . AT 77 000470: 31 2C 20 22 4B 41 50 4F 57 21 22 3B 00 CE 6E A4 1, "KAPOW!";..n. 000480: 06 20 91 20 31 39 30 30 00 DE 6E AE 06 20 81 20 . . 1900..n.. . 000490: 58 D5 31 20 BD 20 31 38 00 EC 6E B8 06 20 82 20 X.1 . 18..n.. . 0004A0: 28 58 2C 34 35 29 00 FA 6E C2 06 20 82 20 28 58 (X,45)..n.. . (X 0004B0: 2C 33 36 29 00 08 6F CC 06 20 82 20 28 58 2C 33 ,36)..o.. . (X,3 0004C0: 37 29 00 11 6F D6 06 20 87 20 58 00 1A 6F 08 07 7)..o.. . X..o.. 0004D0: 20 87 20 5A 00 26 6F 12 07 20 B2 20 41 54 20 30 . Z.&o.. . AT 0 0004E0: 00 2D 6F 1C 07 20 80 00 3F 6F 6C 07 20 81 20 58 .-o.. ..?ol. . X 0004F0: D5 31 20 BD 20 31 30 30 30 00 48 6F 76 07 20 87 .1 . 1000.Hov. . 000500: 20 58 00 4F 6F 80 07 20 92 00 00 00 X.Oo.. .... 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