level 1
2
3
turtle
ARC length angle
CIRCLE radius
CLEARTEXT
HIDETURTLE
PENWIDTH width
PRINT [ . ]
RESET
SETHEADING angle
SETX x
SETXY x y
SETY y
SHOWTURTLE
maths
ARCTAN number
COS angle
INT number
RANDOM number
ROUND number
SIN angle
SQRT number
lists
BUTFIRST list
BUTLAST list
FIRST list
FPUT thing list
ITEM index thing
LAST list
LPUT thing list
SETITEM index array value
; PROGRAM TO PRINT ; TIMES TABLES cs make "x 0 make "spacing 32 make "offset 200 make "table "blue PU HT ; procedure for making headings stand out TO myheading colour "red setlabelheight 16 END REPEAT 10 [ make "y 0 make "x :x + 1 REPEAT 10 [ make "y :y + 1 ; set the colour to use colour :table setlabelheight 14 if :y=1 myheading if :x=1 myheading if :x=:y colour "green ; calculate the result make "res :x * :y ; work out print position make "x1 :spacing * :x make "y1 :spacing * :y setxy :x1 - :offset :offset - :y1 ; output the result label :res ] ] ; now add a border bk 35 lt 90 bk 50 pd penwidth 3 repeat 4 [ fd 370 rt 90 ]
Your browser doesn't support canvas tags.