home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
c
/
cilogo11.zip
/
DEMO
< prev
next >
Wrap
Text File
|
1980-01-01
|
2KB
|
153 lines
TO SPOKE
FD 60
RT 90
FD 5
BK 10
FD 5
RT 90
FD 60 RT 180
END
TO WHEEL
HT
COUNT UP
COUNT IF> 18 STOP
SPOKE
RT 20
WHEEL
COUNT ZERO
END
TO BIGL
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 BIGO
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 BIGG
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 22 RT 90 FD 10 PU
RT 90 FD 10 FILL 1
LT 90 FD 18 LT 90 BACK 30 LT 90 FD 5
END
TO BANNER
LT 90 PU
FD 80 RT 90 BIGL
PU RT 90 FD 30 LT 90 BIGO
PU RT 90 FD 45 LT 90 BIGG
PU RT 90 FD 40 LT 90 BIGO
RT 90 FD 40 LT 90
END
TO BOX
FORWARD 30
RIGHT 90
FORWARD 30
RIGHT 90
FD 30
RT 90
FD 30
RT 90
END
TO RECTANGL
REPEAT 2 [ FD 100 RT 90 FD 20 RT 90 ]
PU RT 45 FD 15 FILL 1 BACK 15 LT 45 PD
END
TO STAR
REPEAT 5 [ FD 30 RT 144 ]
END
TO CIRCLE
REPEAT 36 [ FD 10 RT 10 ]
RT 90 PU
FD 15
FILL 2
BACK 15
LT 90 PENDOWN
END
TO HEXAGON
REPEAT 6 [ FORWARD 20 RIGHT 60 ]
PU RT 45 FD 20 FILL 3 BACK 20
LT 45 PD
END
TO DOSHAPES
RECTANGL
PU RT 90 FD 50 PD
STAR
PENUP FD 50 PENDOWN
CIRCLE
PU FD 99 RT 22 PD
BOX
PU FD 50 PD
HEXAGON
COUNT UP
COUNT IF> 5 STOP
DOSHAPES
END
TO RUN
PENDOWN
CS
WHEEL
COUNT ZERO
PD
DOSHAPES
COUNT ZERO
DELAY 1000
CS
ST
PD
BANNER
LOAD ABC123
ST
SETXY -70 60
PD
W
E
L
C
O
M
E
SPACE
T
O
SETXY -90 -50
SETPC 2
HT
B
Y
SPACE
M
I
K
E
SPACE
C
A
U
G
H
R
A
N
SETXY 60 0
END