home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
logo
/
labybug
/
grid.bug
< prev
next >
Wrap
Text File
|
1989-12-31
|
768b
|
59 lines
to "limits
WEST
NORTH
EAST
SOUTH
end
to "message
print [Each dot is 20 turtle steps apart.]
wait 20
print [Each line is 10 steps apart.]
wait 20
print [Where the lines meet is 0, 0.]
wait 20
end
to "y
PU SETXY -20 100
PD BK 10 FD 10 RT 45 FD 10 BK 10 LT 90
FD 10 PU HOME PD
end
to "x
PU SETXY 120 -20
PD RT 45 FD 10 BK 20 FD 10 RT 90 FD 10
BK 20 PU HOME PD
end
to "g :R
REPEAT 25 [D]
RT 90
REPEAT 15 [D]
end
to "grid
HT cleartext
print [Let's take a look at coordinates.]
wait 20
cleartext
G 120
wait 10
MESSAGE
end
to "wait :t
if :t = 0 [stop]
make "t :t - 1
wait :t
end
to "d
RT 90 FD 10 LT 90 BK 5 FD 5 RT 90
FD 10 LT 90 FD 2 BK 7 FD 5
end
:t = 0 [stop]
make "t :t - 1
wait :t