10 ! GRAFIK2.BAC 20 ! Program av Magnus <8042> 1991 30 ! 40 ! "GRED" f|r att det ska fungera med monokrom sk{rm <7759> 50 ! 60 INTEGER : NO EXTEND 70 ; CHR$(12) : FGCTL BLK+GRED 80 FGPOINT 0,0,0 : FGFILL 511,239 90 E.=(2.*PI/36.) : E1.=(2.*PI/100.) : F1.=0. : F.=0. : R=40 : R1=60 100 X=255 : Y=120 110 X1=X+2*(R*COS(F.)) : Y1=Y+1.2*(R*SIN(F.)) 120 X2=X+2*(R1*COS(F1.)) : Y2=Y+1.2*(R1*SIN(F1.)) 130 FGPOINT X1,Y1,1 : FGLINE X2,Y2 140 F.=F.+E. : IF F.>2.*PI THEN F.=0. 150 F1.=F1.+E1. : IF F1.>2.*PI THEN F1.=0. 160 GOTO 110