' seasons greetings from TassyJim

 OPTION EXPLICIT
 OPTION DEFAULT FLOAT
 'mode 1
 DIM stX=MM.HRES/2           'Tree starting point
 DIM stY=MM.VRES*0.9
 DIM newX, newY, leng
 DIM angle = 30 '-30
 DIM stL = MM.VRES/5
 DIM delta = stL/7
 DIM dr = 270
 DIM TurtleSpeed = 15    'speed options
 DIM AS FLOAT stack(100)      'FILO stack
 DIM AS INTEGER cols(6)
 cols(0)= RGB(RED)
 cols(1)= RGB(WHITE)
 cols(2)= RGB(YELLOW)
 cols(3)= RGB(GREEN)
 cols(4)= RGB(BLUE)
 cols(5)= RGB(MAGENTA)
 
 DIM stackpos=1
 DIM c=0
 CLS
 
 DO
   newX=stX
   newY=stY
   leng = stL
   angle = 0 - angle ' flip this each cycle to give windscreen washer action
   dr = 270
   c=(c+1) MOD 6
   LINE newX, newY-1, newX, newY ,1,cols(c)
   drawtree
 LOOP
END

SUB drawtree
 LOCAL oldx, oldy, c
 
 IF (leng > 0) THEN
 c = INT(RND()*6)
   oldX=newX
   oldY=newY
   newX=oldX - COS(RAD(dr))*leng
   newY=oldY + SIN(RAD(dr))*leng
   LINE oldX, oldY, newX, newY,1,cols(c)
   PAUSE TurtleSpeed
   dr=dr+angle
   stack(stackpos)=leng
   stackpos=stackpos+1
   leng = leng - delta
   drawtree    'recursive calling itself
   dr=dr-(angle * 2)
   drawtree    'recursive calling itself
   dr=dr+angle
   stackpos=stackpos-1
   leng = stack(stackpos)
   oldX=newX
   oldY=newY
   newX=oldX - COS(RAD(dr)+3.14159)*leng
   newY=oldY + SIN(RAD(dr)+3.14159)*leng
   LINE oldX, oldY, newX, newY,1,cols(c)
   PAUSE TurtleSpeed
       TEXT stX, stY+10, TIME$, cm
 ENDIF
END SUB