TURTLE LIBRARY

UPDATED on FEBRUARY 25, 2020

Copy and paste this library at the end of your TURTLE IDE generated code
(look at my sample image in this forum to get an idea of how this should look)

DEFPROCt(mess$,amt)
     PRIVATE angle,x,y,pen$,dracol,sz
     IF sz<1 THEN sz=1
     GCOL dracol
     IF pen$="" THEN pen$="down"
     IF mess$="a" THEN angle=amt
     IF mess$= "r" THEN angle=angle - amt
     IF mess$= "l" THEN angle=angle + amt
     IF mess$= "f" THEN VDU 23,23,sz|:PROC_turtle(amt,angle,pen$,x,y)
     IF mess$= "u" THEN pen$="up"
     IF mess$= "d" THEN pen$="down"
     IF mess$= "p" THEN FILL x,y
     IF mess$= "c" THEN IF amt=16 THEN amt=0
     IF mess$= "c" THEN GCOL amt:dracol=amt
     IF mess$= "s" THEN sz=amt
     VDU 23,23,sz|
     IF mess$= "m" THEN
       x=amt:y=amt
       pen$="move"
     ENDIF
     PROC_turtle(0,angle,pen$,x,y)
     ENDPROC
     DEFPROC_turtle(coun,angle,pen$,RETURN x,RETURN y)
     PRIVATE sx,sy

     IF pen$="move" THEN sx=x:sy=y
     IF pen$="up" OR pen$="down" THEN
       sx+=coun*COS(RAD(angle))
       sy+=coun*SIN(RAD(angle))
       IF pen$="down" THEN LINE x,y,sx,sy
     ENDIF
     x=sx:y=sy
     ENDPROC