The World of Computer Software/World_Of_Computer_Software-02-387-Vol-3of3.iso/c/cilogo11.zip/TUTORIAL

Text File | 1980-01-01 | 4KB | 232 lines

to tutor1
rt 18
repeat 5 [ fd 50 rt 144 ]
print [ this is a demonstration of LOGO ]
delay 2000
print [ clearscreen (or cs) ]
delay 2000
cs
print [ hideturtle (or ht) ]
delay 2000
hideturtle
print [ showturtle (st) ]
delay 2000
st
print [ forward 10 (or fd 10) ]
delay 2000
fd 10
print [ forward 40 (or fd 40) ]
delay 2000
cs
fd 40
print [ rightturn 45 (or rt 45) ]
delay 2000
cs
rt 45
print [ leftturn 45 (or lt 45) ]
delay 2000
cs
lt 45
print [ leftturn 90 (or lt 90) ]
delay 2000
cs
lt 90
delay 2000
cs
print [ ]
print [ ]
print [ lets make a box by using fd and rt ]
delay 4000
print [ ]
print [ ]
print [ fd 40 rt 90 (first time) ]
delay 2000
cs
fd 40 rt 90
print [ ]
print [ ]
print [ fd 40 rt 90 (again) ]
delay 2000
fd 40 rt 90
print [ ]
print [ ]
print [ fd 40 rt 90 (and again) ]
delay 2000
fd 40 rt 90
print [ ]
print [ ]
print [ fd 40 rt 90 (last time) ]
delay 2000
fd 40 rt 90
delay 2000
print [ ]
print [ ]
print [ now lets make an octagon ]
delay 4000
cs
print [ fd 40 lt 45 ]
delay 2000
fd 40 lt 45
print [ fd 40 lt 45  (again) ]
delay 2000
fd 40 lt 45
print [ ]
print [ ]
print [ fd 40 lt 45  (again) ]
delay 2000
fd 40 lt 45
print [ ]
print [ ]
print [ fd 40 lt 45  (again) ]
delay 2000
fd 40 lt 45
print [ ]
print [ ]
print [ fd 40 lt 45  (again) ]
delay 2000
fd 40 lt 45
print [ ]
print [ ]
print [ fd 40 lt 45  (again) ]
delay 2000
fd 40 lt 45
print [ ]
print [ ]
print [ fd 40 lt 45  (almost there) ]
delay 2000
fd 40 lt 45
print [ ]
print [ ]
delay 2000
print [ fd 40 lt 45  (finally !!) ]
fd 40 lt 45
delay 2000
print [ ]
print [ lets fill the shape with color ]
print [ for the heck of it ]
delay 2000
print [ ]
print [ first we have to move into the shape ]
delay 1000
print [ lt 90 ]
delay 1000
lt 90
print [ fd 10 ]
delay 1000
fd 10
delay 3000
print [ ]
print [ then we fill the shape ]
print [ fill 2   (fill w / color 2) ]
delay 2000
fill 2
delay 3000
print [ to draw an octagon quickly: ]
print [ use :  repeat 8 [ fd 40 rt 45 ] ]
delay 5000
cs
repeat 8 [ fd 40 rt 45 ]
end
to tutor2
print [ to draw a circle: ]
print [ repeat 36 [ fd 10 rt 10 ] ]
delay 3000
cs
repeat 36 [ fd 10 rt 10 ]
print [ or: ]
print [ repeat 360 [ fd 1 rt 1 ] ]
delay 3000
cs
repeat 360 [ fd 1 rt 1 ]
print [ its faster if you hideturtle first ]
print [ ht repeat 360 [ fd 1 rt 1 ] ]
delay 3000
cs
ht repeat 360 [ fd 1 rt 1 ]
delay 1000
print [ then showturtle when finished ]
st
delay 1000
print [ a star is : ]
print [ repeat 5 [ fd 40 rt 144 ] ]
delay 2000
cs
repeat 5 [ fd 40 rt 144 ]
delay 4000
print [ to get into highres graphics mode: ]
print [ highres (or hr) ]
delay 3000
hr
print [ repeat 36 [ fd 10 rt 10 ] ]
repeat 36 [ fd 10 rt 10 ]
delay 3000
print [ back to medres (mr) ]
delay 3000
mr
print [ textmode (tm) ]
delay 2000
tm
print [ pots ]
delay 2000
pots
delay 1000
cstext
print [ poall ]
delay 2000
poall
cstext
print [ po tutor2 ]
delay 2000
po tutor2
delay 1000
cstext
print [ medres (mr) graphics mode ]
delay 2000
mr
end
to tutor3
print [ procedure examples: ]
delay 2000
print [ to square ]
delay 2000
print [ repeat 4 [ rt 90 fd 40 ] ]
delay 1000
print [ end ]
delay 1000
print [ square ]
delay 1000
square
delay 1000
cs
print [ to fourbox ]
delay 1000
print [ rt 90 square
delay 1000
print [ rt 90 square ]
delay 1000
print [ rt 90 square ]
delay 1000
print [ rt 90 square ]
delay 1000
print [ end ]
delay 1000
print [ fourbox ]

fourbox
end
TO SQUARE
REPEAT 4 [ RT 90 FD 40 ]
END
to fourbox
rt 90 square
rt 90 square
rt 90 square
rt 90 square
end
to run
tutor1
tutor2
tutor3
print [ thats the end of the tutorial ]
end