TO STAR :LN :COLR›SETPC 1 :COLR›REPEAT 36 [RT 170 FD :LN]›END››TO MAIN :COLR›HOME›SETBG RANDOM 16›CLEAN›FS HT PU FD 90 PD›MAKE "LN 180›STAR :LN :COLR›MAKE "COLR :COLR + 1›IF :COLR = 16 [MAKE "COLR 1]›MAIN :COLR›END›››MAKE "LN 180›