TO PICT
HOME
PD
RT 90
FD 150
BK 300
HOME
FD 100
BK 200
HOME
PU
MAKE "X 75
MAKE "Y -60
MAKE "R 0
LABEL "TWO
PU
SETY :Y SETX :X
MAKE "R :R + 1
PD FD :R RT 112.5
REPEAT 8 [FD (2 * :R * SIN (22.5)) RT 45]
IF :R > 40 [STOP]
LT 112.5
GO "TWO
HT
END

TO DEMO
SETPC 15
FS CS SETBG 1
HOME
PD
RT 90
FD 150
BK 300
HOME
FD 100
BK 200
HOME
PICT
LOAD "DEMO.OV1
BAR
END

MAKE "Y -60
MAKE "X 75
MAKE "R 2
PACKAGE "DEMO "PICT
PACKAGE "DEMO "DEMO
EMO "PICT
PACKAGE "DEMO "DEMO
E