Radio Shack TRS-80 User Manual 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