10 ! Program f|r ABC806
20 ! opkonst 1   av Magnus <8042> december 1991
30 ! 
40 ! "GRED" f|r att fungera med monkrom sk{rm,
50 ! avslutning om tangent trycks <7759>
60 ! 
70 FLOAT : NO EXTEND 
80 ; CHR$(12%)
90 FGCTL BLK+GRED : FGPOINT 0%,0%,0% : FGFILL 511%,239%
100 F1=0 : F2=0 : F3=0 : F4=0
110 R1=80 : R2=20 : R3=70 : R4=15
120 E1=(2*PI/100) : E2=(2*PI/36) : E3=(2*PI/50) : E4=(2*PI/80)
130 X1%=255% : Y1%=100% : X2%=190% : Y2%=170%
140 X%=X1%+2*(R1*COS(F1)) : Y%=Y1%+(R1*SIN(F1)) : FGPOINT X%+(R2*COS(F2)),Y%+(R2*SIN(F2)),1%
150 X%=X2%+(R2*COS(F3)) : Y%=Y2%+(R2*SIN(F3)) : FGLINE X%+(R4*COS(F4)),Y%+(R4*SIN(F4)),1%
160 F1=F1+E1 : IF F1>2*PI THEN F1=0
170 F2=F2+E2 : IF F2>2*PI THEN F2=0
180 F3=F3+E3 : IF F3>2*PI THEN F3=0
190 F4=F4+E4 : IF F4>2*PI THEN F4=0
200 IF SYS(5)=0 THEN 140
210 GET Z$
220 END