5 CLS:KEY OFF
10 SCREEN 9
20 FOR X = 1 TO 500
30 CIRCLE (300,160),X,X MOD 15,-(X MOD 1),-(X MOD 7)
40 NEXT X
41 FOR Y = 1 TO 500
42 CIRCLE (300,165),Y,0
43 NEXT Y
44 FOR R = 500 TO 1 STEP -1
45 CIRCLE (300,165),R,R MOD 15,-((R MOD 15)*.3),-(R MOD 4)
46 NEXT R
49 LOCATE 23,1
50 FOR S = 1 TO 500
51 CIRCLE (300,160),S,1
52 NEXT S
59 PRINT"Press any key to continue...":WHILE INKEY$ = "":WEND
60 SCREEN 0,0,0
70 PRINT 1,2,3,4,5,6,7,8,9,,,,,,,,,,,,,,,,,,,,,,,1,2,3,5
80 PRINT"Press any key to continue...":WHILE INKEY$ = "":WEND
81 SCREEN 8
82 FOR B = 1 TO 500:CIRCLE(B,B),B,B MOD 15,B MOD 4,B MOD 7
83 NEXT B
84 PRINT"Press any key to continue...":WHILE INKEY$ = "":WEND
85 WIDTH 40:SCREEN 0,0,0
90 PRINT 3,5,6
95 SCREEN 9
100 FOR X = 150 TO 175:CIRCLE (223,X),X,X MOD 8,-.8,-5.8 :PAINT (223-1,X),X MOD 42:NEXT