Con este sencillo programa conseguiremos 72 figuras geometricas.
10 CLS: A=0
15 CLS: A=A+1: B=(Al)/2
20 IF A menor que 0 OR A mayor que 72 THEN 10
30 SCREEN 2
50 IF B=INT(B) THEN C=710 ELSE C=1420
80 FOR D=0 TO C STEP 10
90 E=95*COS(B*D)
100 X=328+E*SIN(D)
105 Y=96E*COS(D)
110 LINE (X,Y)
120 NEXT
130 IF STRIG(0)menor que mayor que 1 THEN 140
140 B=B*.5: LOCATE 2,2: PRINT A"
150 IF B=36 THEN GOTO 160
160 FOR T=1 TO 20000: NEXT T
170 GOTO 15