TO KOCH0 :SIZE              
FD :SIZE
END

TO KOCH1 :SIZE
KOCH0 :SIZE/3 LT 60
KOCH0 :SIZE/3 RT 120
KOCH0 :SIZE/3 LT 60
KOCH0 :SIZE/3
END

TO KOCH2 :SIZE
KOCH1 :SIZE/3 LT 60
KOCH1 :SIZE/3 RT 120
KOCH1 :SIZE/3 LT 60
KOCH1 :SIZE/3
END

TO KOCH3 :SIZE
KOCH2 :SIZE/3 LT 60
KOCH2 :SIZE/3 RT 120
KOCH2 :SIZE/3 LT 60 
KOCH2 :SIZE/3 
END

TO QUADRIC :SIZE :LIMIT
IF :SIZE < :LIMIT [FD :SIZE STOP]
QUADRIC :SIZE/3 :LIMIT
LT 90
QUADRIC :SIZE/3 :LIMIT
RT 90
QUADRIC :SIZE/3 :LIMIT
RT 90
QUADRIC :SIZE/3 :LIMIT
LT 90
QUADRIC :SIZE/3 :LIMIT
END

TO SETUP1
CS PU SETPOS [-240 -120] PD RT 90
END

TO SETUP2
CS PU SETPOS [-240 -120] PD RT 90
END

TO SETUP3
PU HOME SETPOS [-240 -120] PD
RT 90
END

TO START
CS SETUP1 KOCH1 486
CS SETUP1 KOCH2 486
CS SETUP1 KOCH3 486
SETUP2 TRIAD 486 486
SETUP2 TRIAD 486 81
SETUP2 TRIAD 486 27
SETUP2 TRIAD 486 9
SETUP3 SETPC [255 0 0]
QUADRIC 486 486
SETUP3 SETPC [0 0 255]
QUADRIC 486 81
SETUP3 SETPC [0 255 0]
QUADRIC 486 27
SETUP3 SETPC[255 0 255]
QUADRIC 486 9
END

TO TRIAD :SIZE :LIMIT
IF :SIZE < :LIMIT [FD :SIZE STOP]
TRIAD :SIZE/3 :LIMIT
LT 60
TRIAD :SIZE/3 :LIMIT
RT 120
TRIAD :SIZE/3 :LIMIT
LT 60
TRIAD :SIZE/3 :LIMIT
END

Make "author [Michael Friendly]
Make "cc 3
Make "count 17
Make "date [Apr 29, 1987]
Make "dd 0
Make "file "FRACTALM
Make "from 2
Make "it "
Make "lastmove [3 1]
Make "moves 2
Make "needle1 [3]
Make "needle2 [1]
Make "needle3 [2]
Make "needlef [1]
Make "needlet [2]
Make "oldmoves [[3 1] [2 1] [] [] []]
Make "ringnum 3
Make "side 200
Make "starttime 13793167
Make "startup [START]
Make "to 3
Pprop ".system "BURY "TRUE
Pprop "@lst "BURY "TRUE
Pprop "aids "BURY "TRUE
Pprop "colors "BURY "TRUE
Pprop "drives "BURY "TRUE
Pprop "lstfiles "BURY "TRUE
Pprop "properties "BURY "TRUE