PRINT "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.4
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 COORAL dragon I.F.S. "
PRINT "  BY R.L.BAGULA 20 April 1999© copy rights reserved"
RANDOMIZE
PRINT "  M=";m
let r=sqr(1.05)*sqr(m)
let ra=1/sqr(3)
FOR n= 1  TO  2000000
    LET c =RND
    LET l=1+int(c*m)
    LET ra=(sqr(3)*sqr(x*x+y*y))
    IF mod(l,2)=0 THEN
            LET x1=-(-x/r+y/(r*RA))+a(l)
            LET y1=-(-x/(r*RA)-y/r)+b(l)
    END IF
    IF mod(l,2)=1 THEN
           LET x1=x/r+y/(r*RA)+a(l)
       LET y1=-x/(r*RA)+y/r+b(l)  
    END IF
    SET COLOR 128+4*mod(int(l*c),m)
    LET x=x1
    LET y=y1
    IF n>10 THEN PLOT 1026/2+s1*x,750/2+s2*y
NEXT n
END