home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
c
/
cilogo11.zip
/
AUTOLOGO.LOG
< prev
next >
Wrap
Text File
|
1980-01-01
|
666b
|
40 lines
TO L
PD
FD 40 RT 90 FD 10 RT 90 FD 30
LT 90 FD 20 RT 90 FD 10 RT 90
FD 30 RT 120 PU FD 10 FILL 1
BACK 10 LT 30
END
TO O
PU FD 18 PD
REPEAT 18 [ FD 7 RT 20 ]
PU RT 90 FD 8
LT 90 PD FD 1
REPEAT 18 [ FD 4 RT 20 ]
LT 90 PU FD 4 FILL 3
FD 4 RT 90 BACK 19
END
TO G
PU
RT 90 FD 40 LT 90 FD 18 RT 180
PD
REPEAT 16 [ FD 8 RT 20 ]
RT 90 FD 8 RT 90
REPEAT 16 [ FD 4 LT 20 ]
LT 90 FD 10 RT 90 FD 5 RT 90
FD 24 RT 90 FD 10 PU
RT 90 FD 10 FILL 2
LT 90 FD 18 LT 90 BACK 30 LT 90 FD 5
END
TO RUN
HIDETURTLE
LT 90 PU FD 80 RT 90 L
PU RT 90 FD 30 LT 90 O
PU RT 90 FD 45 LT 90 G
PU RT 90 FD 40 LT 90 O
RT 90 FD 40 LT 90 PD
SHOWTURTLE
ERALL
END