Apple II Basic Visual Program

1 REM HYPERBOOL / ONEINDIGE LUS
10 HOME : HGR2
13 FOR C=1 TO 7
15 HCOLOR=C
20 PI=3.14159 : D=1.95
30 FOR A = 0 TO PI *2 STEP PI/30
40 X1=INT(280/2) + COS(A) * 40 + 0.5
50 Y1=30 + SIN(A) * 20 + 0.5
60 X2=INT(280/2) + COS(A+D) * 50 + 0.5
70 Y2=140+SIN(A+D)*40+0.5
80 HPLOT X1,Y1 TO X2,Y2
90 FOR Q=1 TO 500: NEXT Q
100 NEXT
101 NEXT C
105 CLEAR
107 GOTO 13
110 END