mirror of
https://github.com/bradgrantham/apple2a.git
synced 2024-05-29 06:41:31 +00:00
53 lines
935 B
QBasic
53 lines
935 B
QBasic
10 GR
|
|
20 TS = 40
|
|
30 DIM DX(9),DY(9),C(9),X(9),Y(9),T(9)
|
|
1000 DX(0) = 12
|
|
1005 DY(0) = 15
|
|
1010 C(0) = 6
|
|
1015 T(0) = 10
|
|
1100 DX(1) = 19
|
|
1105 DY(1) = 0
|
|
1110 C(1) = 5
|
|
1115 T(1) = 9
|
|
1200 DX(2) = -19
|
|
1205 DY(2) = -1
|
|
1210 C(2) = 9
|
|
1215 T(2) = 9
|
|
1300 DX(3) = -19
|
|
1305 DY(3) = 3
|
|
1310 C(3) = 1
|
|
1315 T(3) = 32
|
|
1400 DX(4) = -1
|
|
1405 DY(4) = 19
|
|
1410 C(4) = 7
|
|
1415 T(4) = 27
|
|
1500 DX(5) = -12
|
|
1505 DY(5) = -15
|
|
1510 C(5) = 12
|
|
1515 T(5) = 3
|
|
1600 DX(6) = -19
|
|
1605 DY(6) = -2
|
|
1610 C(6) = 7
|
|
1615 T(6) = 18
|
|
1700 DX(7) = 17
|
|
1705 DY(7) = 9
|
|
1710 C(7) = 13
|
|
1715 T(7) = 7
|
|
1800 DX(8) = -19
|
|
1805 DY(8) = 1
|
|
1810 C(8) = 10
|
|
1815 T(8) = 5
|
|
1900 DX(9) = 18
|
|
1905 DY(9) = 8
|
|
1910 C(9) = 1
|
|
1915 T(9) = 9
|
|
2200 I = 0
|
|
2210 OX = X(I) : OY = Y(I)
|
|
2220 X(I) = 20 + DX(I) * T(I) / 40
|
|
2230 Y(I) = 20 + DY(I) * T(I) / 40
|
|
2235 T(I) = T(I) + 1 : IF T(I) = TS THEN T(I) = 0
|
|
2240 COLOR=0 : PLOT OX, OY
|
|
2250 COLOR=C(I) : PLOT X(I), Y(I)
|
|
2260 I = I + 1 : IF I < 10 GOTO 2210
|
|
2300 GOTO 2200
|