jsbasic/samples/sample.radar.txt
2020-02-09 21:02:04 -08:00

30 lines
495 B
Plaintext

10 HGR2
13 R = 4.76
15 HCOLOR= 3
20 GOSUB 300
25 HCOLOR= 3
30 LX = 140 + 93 * COS (R)
40 LY = 96 + 93 * SIN (R)
45 HCOLOR= 3
48 GOSUB 200
49 FOR W = 1 TO 100
50 NEXT W
51 R = R + 0.02
52 SX = 140 + 93 * COS (R)
53 SY = 96 + 93 * SIN (R)
55 HCOLOR = 0
57 GOSUB 200
60 LX = SX
65 LY = SY
70 GOTO 45
200 HPLOT 140,96 TO LX,LY
210 RETURN
300 FOR D = 1 TO 30
310 CX = 140 + 95 * COS (C)
320 CY = 96 + 95 * SIN (C)
330 HPLOT CX,CY
335 C = C + 0.21
336 FOR Q = 1 TO 100
337 NEXT Q
340 NEXT D
350 RETURN