q* DELETE"0:TURTLE'TUTOR13"@(C)1984 COMAL USERS GROUP USA LTD BY CAPTAIN COMAL & FRIENDSSAVE "0:TURTLE'TUTOR15"(2<F 7P(_KefRETURNING TO MAIN MENU...e`aZdMnx MENU p{ hj - F _  x   ", 6@J ÊT^h ܊r|     '  @  Y  r& 0!: D"N#Xblv} pÌ{$&%&(' (( )(*:+:B,:B-:B::B.:D:B" ((< %jK`K(`K(H p1`{R \RfSp 2!z 3 F3G"F1#"F3#"HSTOP#"F7#"F5# 4!#" NEXT SCREEN #" AUTO #"h QUIT ##" PREVIOUS SCREEN ##" SEE EXAMPLE # 3! 4"&#34$5?6.")#8 5:B}1LV p0{`3:2:B6:Bj7:8:B9:Bt::;:B<:B~= :> :B? :B@ :A :B4:B:B}0 pCLtD{ 2 E DQ:FE%G):G (F)D(G A}C pGtH{ $&H< I:( 42"JbK#< IF"J$#P 4Z"8JbK#d 5=n"J)#x I}G px{S >? P Q 4/c5!"/$)(#"/$))#/ 5:D} pKΑ{"*:,:B-:B+D:B,K1CLEAR BUFFER6@M:J hiT^ 'K<F1hnr '<|o 'K> F1*C: hj,C: =h.0j:K` F3 7:+C:Ky F5,C:K F7-C: @h*j.:&0:*+9,9-99D}KNX p {bL煇lhK-jD: F3vL} pM{ 5= 4"J&#5=N5$):B/GOJ':5=B"J&#5=PNO'G%':B 3P4}M Jג{5$) J*4 pQNtD{> 2HG DR A\!"J' NO PARAMETERS#f/5!Gp 2zN}QpRtDtStT{ 2G D ;" DQ'G$J'S#G ( DQ'^K(G ( DQ'%( (T(/5!G 2N}R  pUtDtVtW{ &/ DQ'G$:X DQ' VQ'G$:B $ 2 .G D 8 A B"/J'V# L 2 V"X)J',# ` 4 j"XJ'W# t A ~G (/%^K( 4 "XJ'^K# A G (/%bK( 4 +"XJ'% Y COORDINATE (0-199)(# A .G (/%%( X COORDINATE (0-319)( /5!G 2 N }U  " START COMMAND PROCEDURES HERE   p{ ( CBACK 2-G%MOVES TURTLE BACKWARD NUMBER OF STEPS <GGIVEN. FM P} Z d p |{ n+RBACK15NUMBER OF STEPS TO MOVE xK h,ix JK K o }  p { CFORWARD &GMOVE THE TURTLE FORWARD IN THE (G DIRECTION THE TURTLE IS POINTING M }   p T{ .RFORWARD15NUMBER OF STEPS TO MOVE K " h,iP , 9: 6K @o J} T ^ p ӗ{ hC HIDETURTLE r,G$TURNS OFF TURTLE IMAGE. THIS HAS THE |)G!ADVANTAGE OF SPEEDING UP DRAWING. M }  p { Q HIDETURTLE K h,i S K o }  p{  CHOME (G MOVE TURTLE TO THE CENTER OF THE "GSCREEN (LOCATION 160,100). &M 0} : D pҘ{ N QHOME X3dK4 bB lK v h,iΘ T K o }  pK{ CLEFT 'GTURN TURTLE THE GIVEN NUMBER OF .G&DEGREES TO THE LEFT (360 IS A CIRCLE.) M }  p{ #RLEFT45DEGREES TO TURN K  h,i <-= *K 4o >} H R p { \CMOVETO f(G MOVES TURTLE TO GIVEN COORDINATE pGWITHOUT DRAWING. zM }  p[{ UMOVETO10075 K h,iW 3dK4 K o }  pۚ{ CPENCOLOR+G#CHANGE DRAWING COLOR (SAME FOR TEXT-G%SCREEN) TO GIVEN COLOR NUMBER (0-15).M$}.8 p2{B#RPENCOLOR8 COLOR NUMBERLKV h,i.` <jKto~} p{CPENDOWN-G%AFTER THIS COMMAND, WHEN YOU MOVE THE(G TURTLE IT WILL DRAW AS IT MOVES.M} p{QPENDOWNK h,iD ,/ 5 ,UTP)P'UT6Ko(}2< p{F CPENUPP.G&AFTER THIS COMMAND THE TURTLE WILL NOTZGDRAW WHEN IT IS MOVED.dMn}x p{ QPENUPK h,iB,/ ; ,UTP)P'UT6Ko} p\{ CRIGHT*G"TURN TURTLE TO THE RIGHT THE GIVENGNUMBER OF DEGREES.M}", p{6.RRIGHT25NUMBER OF DEGREES TO TURN@KJ h,iT HI^Khor}| p7{C SETHEADING.G&SET THE HEADING OF THE TURTLE (0 IS UP GAND INCREASES CLOCKWISE.M} p{,R SETHEADING135HEADING OF TURTLEK h,i >?Ko}& p{0 CSETXY:$GMOVE THE TURTLE TO THE GIVEND-G%COORDINATE (WILL DRAW IF PEN IS DOWN)NMX}bl pd{vUSETXY10090K h,i`D;dZ6Ko} p {C SHOWTURTLE+G#THIS WILL TURN ON THE TURTLE IMAGE.GM}   p!{ Q SHOWTURTLE*S4K> h,iHNRK\of}!pz p"y{C TURTLESIZE#GTHE TURTLE CAN BE 10 SIZES.$GSMALL (0) THROUGH LARGE (10)M}" p#ܠ{.R TURTLESIZE5SIZE OF TURTLE (0-10)K h,iؠ PQKo}#. ב)ƕ%]ܗۘTd;"eȝ@mʟׯЯsGB=83$ǐϮŮ ޮٮԮʮUWINITSTOP'KEYMAIN AUTO'MODEDELAY SCROLL'UP SCREEN'CODEBACK'BACK'EXFORWARD' FORWARD'EX HIDETURTLE' HIDETURTLE'EXHOME'HOME'EXLEFT'LEFT'EXMOVETO' MOVETO'EX PENCOLOR' PENCOLOR'EXPENDOWN' PENDOWN'EXPENUP'PENUP'EXRIGHT'RIGHT'EX SETHEADING' SETHEADING'EXSETXY'SETXY'EX SHOWTURTLE' SHOWTURTLE'EX TURTLESIZE' TURTLESIZE'EXOUTR'TURNTOP'LINECSPACE BOTTOM'LINEF1F3F5F7NUM'OF'SCREENSX SET'UP'COLORS SET'UP'TITLEWHITEBLACKLT'BLUELINEREDCYANPURPLEGREENBLUEYELLOWORANGEBROWNLT'REDGREYMED'GRAYLT'GREENLT'GRAYTITLENAMELENGTHSTARTDISPLAYWORD OLD'PENCOLORPOSITIONWAIT WASTE'TIMEGRAPHICS'SCREEN GRAPH'TOP GRAPH'BOTTOMHOME'YEX0EX1VALUEMEANINGEX2VAL1VAL2Y