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.
Lj ej *** CASTLE SHOT *** j "ENTER YOUR FIRST NAME (6 LETTERS MAXIMUM)" ;A$ j (A$)6 20 : k "COME ON YOU DUMMY! CANT YOU COUNT??!!!":"TRY AGAIN!!!": JIMBO1 1000: JIMBO: 1 k k Z74 .k( Y17 47 >k2 XZ 127 Jk< (X,Y) RkF X ekP Y23 ZZ2 mk Y k X75 123 4 k (X,16) k (X1,16) k X k Q0 k, X95 125 5 k6 Y47 35 1 k@ (X,Y) kJ Y kT X l X95 125 l (X,34) l X 7l@ 688, A$"'S CASTLE" ; HlX X73 100 Vlb (X,12) cll (X,13) klv X {l X85 95 l (X,14) l (X,15) l X l (90,13) l (91,13) l Z1 2 l X2 14 l Y40 43 l (X,Y) l Y m X mL X3 13 2 "mV (X,41) *m` X 7mj (7,43) Dmt (8,43) nm---THIS WILL MAKE THE CANNON RECOIL! m X1 100: X m (73,12) m (73,13) m (74,12) m (74,13) m (101,12) m (101,13) m (102,12) m (102,13) n X1 100 n (74,12) "n (74,13) 0n( (73,12) >n2 (73,13) Mn< (102,12) \nF (102,13) knP (101,12) znZ (101,13) n X71 2 1 nPX73 nYPP150 12 n (X,Y) n (X1,Y) n@ (X1,Q) nJ (X,Q) nTQY n^ X oh@ 771,"KAPOW!" ; o 1900 o X1 18 ,o (X,45) 9o (X,36) Fo (X,37) No X Vo Z bo@ 0,"" ko 20 |ol X1 1000 ov X o o 20