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.
1 CLS 5 REM*** CASTLE SHOT *** 10 INPUT "ENTER YOUR FIRST NAME (6 LETTERS MAXIMUM)" ;A$ 11 IF LEN(A$)<=6 THEN 20 :ELSE CLS 12 PRINT"COME ON YOU DUMMY! CANT YOU COUNT??!!!":PRINT"TRY AGAIN!!!":FOR JIMBO=1 TO 1000:NEXT JIMBO:GOTO 1 20 CLS 30 Z=74 40 FOR Y=17 TO 47 50 FOR X=Z TO 127 60 SET (X,Y) 70 NEXT X 80 IF Y<23 THEN Z=Z+2 200 NEXT Y 210 FOR X=75 TO 123 STEP 4 220 SET (X,16) 230 SET (X+1,16) 240 NEXT X 250 Q=0 300 FOR X=95 TO 125 STEP 5 310 FOR Y=47 TO 35 STEP -1 320 RESET (X,Y) 330 NEXT Y 340 NEXT X 400 FOR X=95 TO 125 410 RESET (X,34) 420 NEXT X 500 PRINT@ 688, A$"'S CASTLE" ; 600 FOR X=73 TO 100 610 SET (X,12) 620 SET (X,13) 630 NEXT X 700 FOR X=85 TO 95 710 SET (X,14) 720 SET (X,15) 730 NEXT X 740 RESET (90,13) 750 RESET (91,13) 1000 FOR Z=1 TO 2 1010 FOR X=2 TO 14 1020 FOR Y=40 TO 43 1030 SET (X,Y) 1040 NEXT Y 1050 NEXT X 1100 FOR X=3 TO 13 STEP 2 1110 RESET (X,41) 1120 NEXT X 1130 RESET (7,43) 1140 RESET (8,43) 1190 REM---THIS WILL MAKE THE CANNON RECOIL! 1200 FOR X=1 TO 100:NEXT X 1210 RESET (73,12) 1220 RESET (73,13) 1230 RESET (74,12) 1240 RESET (74,13) 1250 SET (101,12) 1260 SET (101,13) 1270 SET (102,12) 1280 SET (102,13) 1290 FOR X=1 TO 100 1300 SET (74,12) 1310 SET (74,13) 1320 SET (73,12) 1330 SET (73,13) 1340 RESET (102,12) 1350 RESET (102,13) 1360 RESET (101,12) 1370 RESET (101,13) 1500 FOR X=71 TO 2 STEP -1 1510 P=X-73 1520 Y=P*P/150 +12 1530 SET (X,Y) 1540 SET (X-1,Y) 1600 RESET (X+1,Q) 1610 RESET (X,Q) 1620 Q=Y 1630 NEXT X 1640 PRINT@ 771,"KAPOW!" ; 1700 GOSUB 1900 1710 FOR X=1 TO 18 1720 RESET (X,45) 1730 RESET (X,36) 1740 RESET (X,37) 1750 NEXT X 1800 NEXT Z 1810 PRINT@ 0,"" 1820 GOTO 20 1900 FOR X=1 TO 1000 1910 NEXT X 1920 RETURN 1999 GOTO 20