Willus.com
Home
|
Archive
|
About
CASSHOT3.BAS
(1360 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 4C 6A 01 00 84 00 65 6A 05 00 93 2A 2A 2A 20 .Lj....ej...*** 000010: 43 41 53 54 4C 45 20 53 48 4F 54 20 2A 2A 2A 00 CASTLE SHOT ***. 000020: 9B 6A 0A 00 89 20 22 45 4E 54 45 52 20 59 4F 55 .j... "ENTER YOU 000030: 52 20 46 49 52 53 54 20 4E 41 4D 45 20 28 36 20 R FIRST NAME (6 000040: 4C 45 54 54 45 52 53 20 4D 41 58 49 4D 55 4D 29 LETTERS MAXIMUM) 000050: 22 20 3B 41 24 00 B4 6A 0B 00 8F 20 F3 28 41 24 " ;A$..j... .(A$ 000060: 29 D6 D5 36 20 CA 20 32 30 20 3A 95 20 84 00 0F )..6 . 20 :. ... 000070: 6B 0C 00 B2 22 43 4F 4D 45 20 4F 4E 20 59 4F 55 k..."COME ON YOU 000080: 20 44 55 4D 4D 59 21 20 43 41 4E 54 20 59 4F 55 DUMMY! CANT YOU 000090: 20 43 4F 55 4E 54 3F 3F 21 21 21 22 3A B2 22 54 COUNT??!!!":."T 0000A0: 52 59 20 41 47 41 49 4E 21 21 21 22 3A 81 20 4A RY AGAIN!!!":. J 0000B0: 49 4D 42 4F D5 31 20 BD 20 31 30 30 30 3A 87 20 IMBO.1 . 1000:. 0000C0: 4A 49 4D 42 4F 3A 8D 20 31 00 15 6B 14 00 84 00 JIMBO:. 1..k.... 0000D0: 1E 6B 1E 00 5A D5 37 34 00 2E 6B 28 00 81 20 59 .k..Z.74..k(.. Y 0000E0: D5 31 37 20 BD 20 34 37 00 3E 6B 32 00 81 20 58 .17 . 47.>k2.. X 0000F0: D5 5A 20 BD 20 31 32 37 00 4A 6B 3C 00 83 20 28 .Z . 127.Jk<.. ( 000100: 58 2C 59 29 00 52 6B 46 00 87 20 58 00 65 6B 50 X,Y).RkF.. X.ekP 000110: 00 8F 20 59 D6 32 33 20 CA 20 5A D5 5A CD 32 00 .. Y.23 . Z.Z.2. 000120: 6D 6B C8 00 87 20 59 00 82 6B D2 00 81 20 58 D5 mk... Y..k... X. 000130: 37 35 20 BD 20 31 32 33 20 CC 20 34 00 8F 6B DC 75 . 123 . 4..k. 000140: 00 83 20 28 58 2C 31 36 29 00 9E 6B E6 00 83 20 .. (X,16)..k... 000150: 28 58 CD 31 2C 31 36 29 00 A6 6B F0 00 87 20 58 (X.1,16)..k... X 000160: 00 AE 6B FA 00 51 D5 30 00 C3 6B 2C 01 81 20 58 ..k..Q.0..k,.. X 000170: D5 39 35 20 BD 20 31 32 35 20 CC 20 35 00 D8 6B .95 . 125 . 5..k 000180: 36 01 81 20 59 D5 34 37 20 BD 20 33 35 20 CC 20 6.. Y.47 . 35 . 000190: CE 31 00 E4 6B 40 01 82 20 28 58 2C 59 29 00 ED .1..k@.. (X,Y).. 0001A0: 6B 4A 01 20 87 20 59 00 F5 6B 54 01 87 20 58 00 kJ. . Y..kT.. X. 0001B0: 06 6C 90 01 81 20 58 D5 39 35 20 BD 20 31 32 35 .l... X.95 . 125 0001C0: 00 13 6C 9A 01 82 20 28 58 2C 33 34 29 00 1B 6C ..l... (X,34)..l 0001D0: A4 01 87 20 58 00 37 6C F4 01 B2 40 20 36 38 38 ... X.7l...@ 688 0001E0: 2C 20 41 24 22 27 53 20 43 41 53 54 4C 45 22 20 , A$"'S CASTLE" 0001F0: 3B 00 48 6C 58 02 81 20 58 D5 37 33 20 BD 20 31 ;.HlX.. X.73 . 1 000200: 30 30 00 56 6C 62 02 83 20 20 28 58 2C 31 32 29 00.Vlb.. (X,12) 000210: 00 63 6C 6C 02 83 20 28 58 2C 31 33 29 00 6B 6C .cll.. (X,13).kl 000220: 76 02 87 20 58 00 7B 6C BC 02 81 20 58 D5 38 35 v.. X.{l... X.85 000230: 20 BD 20 39 35 00 88 6C C6 02 83 20 28 58 2C 31 . 95..l... (X,1 000240: 34 29 00 95 6C D0 02 83 20 28 58 2C 31 35 29 00 4)..l... (X,15). 000250: 9D 6C DA 02 87 20 58 00 AB 6C E4 02 82 20 28 39 .l... X..l... (9 000260: 30 2C 31 33 29 00 B9 6C EE 02 82 20 28 39 31 2C 0,13)..l... (91, 000270: 31 33 29 00 C7 6C E8 03 81 20 5A D5 31 20 BD 20 13)..l... Z.1 . 000280: 32 00 D6 6C F2 03 81 20 58 D5 32 20 BD 20 31 34 2..l... X.2 . 14 000290: 00 E6 6C FC 03 81 20 59 D5 34 30 20 BD 20 34 33 ..l... Y.40 . 43 0002A0: 00 F2 6C 06 04 83 20 28 58 2C 59 29 00 FA 6C 10 ..l... (X,Y)..l. 0002B0: 04 87 20 59 00 02 6D 1A 04 87 20 58 00 15 6D 4C .. Y..m... X..mL 0002C0: 04 81 20 58 D5 33 20 BD 20 31 33 20 CC 20 32 00 .. X.3 . 13 . 2. 0002D0: 22 6D 56 04 82 20 28 58 2C 34 31 29 00 2A 6D 60 "mV.. (X,41).*m` 0002E0: 04 87 20 58 00 37 6D 6A 04 82 20 28 37 2C 34 33 .. X.7mj.. (7,43 0002F0: 29 00 44 6D 74 04 82 20 28 38 2C 34 33 29 00 6E ).Dmt.. (8,43).n 000300: 6D A6 04 93 2D 2D 2D 54 48 49 53 20 57 49 4C 4C m...---THIS WILL 000310: 20 4D 41 4B 45 20 54 48 45 20 43 41 4E 4E 4F 4E MAKE THE CANNON 000320: 20 52 45 43 4F 49 4C 21 00 82 6D B0 04 81 20 58 RECOIL!..m... X 000330: D5 31 20 BD 20 31 30 30 3A 87 20 58 00 90 6D BA .1 . 100:. X..m. 000340: 04 82 20 28 37 33 2C 31 32 29 00 9E 6D C4 04 82 .. (73,12)..m... 000350: 20 28 37 33 2C 31 33 29 00 AC 6D CE 04 82 20 28 (73,13)..m... ( 000360: 37 34 2C 31 32 29 00 BA 6D D8 04 82 20 28 37 34 74,12)..m... (74 000370: 2C 31 33 29 00 C9 6D E2 04 83 20 28 31 30 31 2C ,13)..m... (101, 000380: 31 32 29 00 D8 6D EC 04 83 20 28 31 30 31 2C 31 12)..m... (101,1 000390: 33 29 00 E7 6D F6 04 83 20 28 31 30 32 2C 31 32 3)..m... (102,12 0003A0: 29 00 F6 6D 00 05 83 20 28 31 30 32 2C 31 33 29 )..m... (102,13) 0003B0: 00 06 6E 0A 05 81 20 58 D5 31 20 BD 20 31 30 30 ..n... X.1 . 100 0003C0: 00 14 6E 14 05 83 20 28 37 34 2C 31 32 29 00 22 ..n... (74,12)." 0003D0: 6E 1E 05 83 20 28 37 34 2C 31 33 29 00 30 6E 28 n... (74,13).0n( 0003E0: 05 83 20 28 37 33 2C 31 32 29 00 3E 6E 32 05 83 .. (73,12).>n2.. 0003F0: 20 28 37 33 2C 31 33 29 00 4D 6E 3C 05 82 20 28 (73,13).Mn<.. ( 000400: 31 30 32 2C 31 32 29 00 5C 6E 46 05 82 20 28 31 102,12).\nF.. (1 000410: 30 32 2C 31 33 29 00 6B 6E 50 05 82 20 28 31 30 02,13).knP.. (10 000420: 31 2C 31 32 29 00 7A 6E 5A 05 82 20 28 31 30 31 1,12).znZ.. (101 000430: 2C 31 33 29 00 8E 6E DC 05 81 20 58 D5 37 31 20 ,13)..n... X.71 000440: BD 20 32 20 CC 20 CE 31 00 99 6E E6 05 50 D5 58 . 2 . .1..n..P.X 000450: CE 37 33 00 AB 6E F0 05 59 D5 50 CF 50 D0 31 35 .73..n..Y.P.P.15 000460: 30 20 CD 31 32 00 B7 6E FA 05 83 20 28 58 2C 59 0 .12..n... (X,Y 000470: 29 00 C5 6E 04 06 83 20 28 58 CE 31 2C 59 29 00 )..n... (X.1,Y). 000480: D3 6E 40 06 82 20 28 58 CD 31 2C 51 29 00 DF 6E .n@.. (X.1,Q)..n 000490: 4A 06 82 20 28 58 2C 51 29 00 E7 6E 54 06 51 D5 J.. (X,Q)..nT.Q. 0004A0: 59 00 EF 6E 5E 06 87 20 58 00 05 6F 68 06 B2 40 Y..n^.. X..oh..@ 0004B0: 20 37 37 31 2C 22 4B 41 50 4F 57 21 22 20 3B 00 771,"KAPOW!" ;. 0004C0: 10 6F A4 06 91 20 31 39 30 30 00 1F 6F AE 06 81 .o... 1900..o... 0004D0: 20 58 D5 31 20 BD 20 31 38 00 2C 6F B8 06 82 20 X.1 . 18.,o... 0004E0: 28 58 2C 34 35 29 00 39 6F C2 06 82 20 28 58 2C (X,45).9o... (X, 0004F0: 33 36 29 00 46 6F CC 06 82 20 28 58 2C 33 37 29 36).Fo... (X,37) 000500: 00 4E 6F D6 06 87 20 58 00 56 6F 08 07 87 20 5A .No... X.Vo... Z 000510: 00 62 6F 12 07 B2 40 20 30 2C 22 22 00 6B 6F 1C .bo...@ 0,"".ko. 000520: 07 8D 20 32 30 00 7C 6F 6C 07 81 20 58 D5 31 20 .. 20.|ol.. X.1 000530: BD 20 31 30 30 30 00 84 6F 76 07 87 20 58 00 8A . 1000..ov.. X.. 000540: 6F 80 07 92 00 93 6F CF 07 8D 20 32 30 00 00 00 o.....o... 20... 9001 'RELOCATABLE Z-80 CODE: (102,13) 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