CLS
SCREEN 12
FOR i = 1 TO 9: INPUT a(i): NEXT i
FOR i = 1 TO 9: READ b(i): NEXT i
FOR i = 1 TO 9: READ c(i): NEXT i
FOR i = 1 TO 9: READ d(i), e(i), f(i): NEXT i
DATA 7,6,1,4,14,6,10,9,7,9.8,7.2,6.1,4.9,2.7,2,1.4,1.2,1
DATA 3.5,0,0,4.8,0,0,5.2,0,0,5,0,0,8,10,15,5,9,9,3,8,10,4,8,2,2,0,0
10 CLS
CIRCLE (320, 240), 20, 14
PAINT (320, 240), 4, 14
FOR i = 1 TO 9: k = (20 + i * 20)
CIRCLE (320, 240), 20 + i * 20, 14
x = k * COS(a(i) * 6.28 / (k * 3.14)) + 320
y = k * SIN(a(i) * 6.28 / (k * 3.14)) + 240
CIRCLE (x, y), e(i), f(i)
IF i <> 5 THEN k = b(i) ELSE k = 1
IF i = 6 THEN FOR j = 7 TO 8: CIRCLE (x, y), j, j: NEXT j
CIRCLE (x, y), d(i), k
PAINT (x, y), b(i), k
NEXT i: FOR j = 1 TO 1000000: NEXT j
IF INKEY$ <> "" THEN END
FOR i = 1 TO 9: k = (20 + i * 20)
a(i) = a(i) + c(i): IF a(i) > k * 3.14 THEN a(i) = a(i) - k * 3.14
NEXT i
GOTO 10