INT "input number 2 to 12" 
INPUT m 
SET MODE "color" 
SET WINDOW 0,1026,0,750 
SET COLOR MIX (1) 0,0, 0 
SET BACKGROUND COLOR "white" 
LET x=1 
LET y=1 
LET c=0 
LET s1=250/1.30 
LET s2 =(s1)*750/1026 
DIM a(50),b(50) 
FOR i=1 to m 
   LET a(i)=cos(2*pi*i/m) 
   LET b(i)=sin(2*pi*i/m) 
NEXT i 
PRINT " GENERAL woggle dragon I.F.S. " 
PRINT " BY R.L.BAGULA 19 April 1999(C) copy rights reserved" 
RANDOMIZE 
PRINT " M=";m 
LET r=sqr(1.25)*sqr(m) 
LET ra=1/sqr(3) 
FOR n= 1 TO 2000000 
   LET c =RND 
   LET l=1+int(c*m) 
   LET ra=1/(sqr(3)*sqr(x*x+y*y)) 
   IF mod(l,2)=0 THEN 
      LET x1=-x/r+ra*y/r+a(l) 
      LET y1=-ra*x/r-y/r+b(l) 
   END IF 
   IF mod(l,2)=1 THEN 
      LET x1=x/r+ra*y/r+a(l) 
      LET y1=-ra*x/r+y/r+b(l) 
   END IF
   SET COLOR 255 
   LET x=x1 
   LET y=y1 
   IF n>10 THEN PLOT 1026/2+s1*x-20,750/2+s2*y 
NEXT n 
END