10  POKE VAL "23611", CODE " TO " : RANDOMIZE USR VAL "7030"
15  BORDER NOT PI : PAPER NOT PI : INK NOT PI : BRIGHT NOT PI : CLS : CLEAR VAL "25087"
20  LOAD "EFFECT" CODE
30  POKE VAL "23388", VAL "16" : OUT VAL "32765", VAL "16" : LOAD "PAGE0" CODE
40  POKE VAL "23388", VAL "17" : OUT VAL "32765", VAL "17" : LOAD "PAGE1" CODE
50  POKE VAL "23388", VAL "23" : OUT VAL "32765", VAL "23" : LOAD "PAGE7" CODE
60  POKE VAL "23388", VAL "22" : OUT VAL "32765", VAL "22" : LOAD "MUSIC" CODE
70  RANDOMIZE USR VAL "25088"