Radio Shack TRS-80 - Page 215

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 AT 6B8,
A*i'"S
CASTLE"
j
600 FOR
X=73
TO 100
610
SET (X.12)
620 SET <X,13>
6
30
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=l TO 2
1010 FOR
X=2
TO
14
1020
FDR Y=40
TO
43
1030 SET
( X,
Y)
1040 NEXT Y
1050 NEXT X
1100 FOR X=3 TO 13 STEP
2
11
10 RESET <X,41
)
1120 NEXT X
1130
RESET
(7.43)
1 140 RESET
(8,43)
1190 REM THIS WILL MAKE
THE
CANNON
RECOIL
1200 FOR
X=l
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
t
102,
13)
1290 FOR X=l TO
100INEXT
X
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-l , Y)
1600 RESET (X+1,0)
1610 RESET
(X,Q
)
1620
Q=Y
1630
NEXT X
1640 PRINT AT
771,
"
KAPOW
!
"
1700 GOSUB
1900
1710
FOR
X=l TO
IS
1720 RESET
(
X,
45
)
1730 RESET (X,36)
1740 RESET
(
X
, 37
)
213