SET MODE "color"
SET WINDOW 0,1026,0,750
SET BACKGROUND COLOR "white"
LET x=rnd
LET y=rnd
LET z=rnd
LET a=0
LET b =0
LET s1=500
LET s2 =s1*750/1026
RANDOMIZE
PRINT"    Grinch Dragon"
PRINT"   BY R.L.BAGULA 22 Aug 1999 ©"
LET b=1/(sqr(3))
LET r=2.
FOR n= 1  TO  2560000
    LET a = RND
       IF a <= 1/3 THEN
          LET x1=(x+y*b)/r
          LET y1=( b*x-y)/r
       END IF
       IF  a<= 2/3 AND a>1/3 THEN
          LET x1=(x-b*y)/r+1/r
          LET y1=( -b*x-y)/r+b/r
       END IF
 
       IF a>=2/3 then
          LET x1=(x+y*b)/r+1
          LET y1=-( b*x-y)/r
       END IF

    SET COLOR 255
    LET x=x1
    LET y=y1
    IF n>10 THEN PLOT 1026/2+s1*x/(1+z/4)-400,750/2+s2*y/(1+z/4)
NEXT n
END