1 CLS :CIRCLE(6,4),6,6  :LOCATE 4,5
8 FOR C = 1 TO 25400!
9 CIRCLE(C MOD 100,116),C MOD 100,C MOD 14,-C/1350,-1
10 LOCATE 1,1:PRINT C
11 NEXT C