10MODE 2
   20CLT.
   30A$="CPTPCPTTPCPTT"
   40FOR Z%=1 TO LEN(A$)
   50CASE INSTR("PTC",MID$(A$,Z%,1)) THEN PROCpal,PROCtri,PROCcirc
   60NEXT
   70REPEATUNTILGET:GOTO350
   80 
   90DEF PROCpal
  100READ B%:GCOL 0,B%:ENDPROC
  110DEF PROCtri
  120READ A%,B%,C%,D%,E%,F%
  130MOVE A%,B%
  140MOVE C%,D%
  150PLOT 85,E%,F%
  160ENDPROC
  170 
  180DEF PROCcirc
  190READ A%,B%,C%
  200ARC 1,A%,B%,C%,C%
  210ENDPROC
  220DATA 640,300,300
  230DATA 1
  240DATA 340,400,940,400,640,900
  250DATA7
  260DATA 640,900,50
  270DATA4
  280DATA 400,350,550,350,550,300
  290DATA 880,350,730,350,730,300
  300DATA1
  310DATA 640,250,50
  320DATA3
  330DATA 640,140,640,60,400,250
  340DATA 640,140,640,60,880,250
  350MODE 1
  360VDU28,0,3,39,0,12
  370VDU29,640;512;
  380CLTRANS
  390C=1
  400FOR A=0 TO 64
  410C=C MOD 2+1:GCOL1,C
  420ROTATE PI/32
  430ARC 0,100,-100,200,100
  440NEXT
  450C=1
  460REPEAT
  470VDU19,C,0,0,0,0
  480C=C MOD 2+1
  490VDU19,C,3,0,0,0
  500REPEAT UNTIL INKEY(9)
  510UNTIL INKEY(-1)
  520MODE 0
  530CLT.
  540VDU 29,640;512;
  550FOR A=0 TO 39
  560ARC 0,100,100,200,300
  570ROT.PI/20
  580NEXT
  590REPEATUNTILGET
  600CLT.
  610offset=40
  620NUMSIDE=4
  630MODE 1
  640GCOL0,1
  650FOR A=0 TO offset-1
  660ARC 0,640,512,100,500,NUMSIDE,0,2*PI,A*PI/offset
  670NEXT
  680GCOL 0,3
  690ARC 0,640,512,100,100
  700ARC 0,640,512,500,500