10 BORDER NOT PI : PAPER NOT PI : INK  NOT PI : BRIGHT NOT PI : CLS : CLEAR VAL "25087"
20 LOAD "0" CODE VAL "29696" : RANDOMIZE USR VAL "29804"
30 LOAD "2" CODE VAL "32768" : POKE VAL "29698", VAL "0" : RANDOMIZE USR VAL "29696"
40 LOAD "1" CODE VAL "32768" : POKE VAL "29698", VAL "1" : RANDOMIZE USR VAL "29696"
50 LOAD "3" CODE VAL "32768" : POKE VAL "29698", VAL "3" : RANDOMIZE USR VAL "29696"
60 LOAD "4" CODE VAL "32768" : POKE VAL "29698", VAL "4" : RANDOMIZE USR VAL "29696"
70 LOAD "6" CODE VAL "32768" : POKE VAL "29698", VAL "6" : RANDOMIZE USR VAL "29696"
80 LOAD "7" CODE VAL "32768" : RANDOMIZE USR VAL "29791" : RANDOMIZE USR VAL "32768"
90 POKE VAL "23388", VAL "16" : OUT VAL "32765", VAL "16" : RANDOMIZE USR VAL "49152"
95 RANDOMIZE USR VAL "25088"
100 LOAD "4" CODE VAL "32768" : POKE VAL "29698", VAL "4" : RANDOMIZE USR VAL "29696"
110 LOAD "13" CODE VAL "32768" : POKE VAL "29698", VAL "3" : RANDOMIZE USR VAL "29696" : RANDOMIZE USR VAL "25103"
120 LOAD "11" CODE VAL "32768" : POKE VAL "29698", VAL "1" : RANDOMIZE USR VAL "29696" : RANDOMIZE USR VAL "25103"
130 LOAD "16" CODE VAL "32768" : POKE VAL "29698", VAL "6" : RANDOMIZE USR VAL "29696" : RANDOMIZE USR VAL "25103"
140 LOAD "10" CODE VAL "32768" : POKE VAL "29698", VAL "0" : RANDOMIZE USR VAL "29696" : RANDOMIZE USR VAL "25103"
150 LOAD "17" CODE VAL "32768" : POKE VAL "29698", VAL "3" : RANDOMIZE USR VAL "29791" : RANDOMIZE USR VAL "32768" : RANDOMIZE USR VAL "25103"