1 POKE808,225
10 IFA=0THENA=1:PRINT"[147]":POKE211,9:POKE214,12:POKE53280,1:POKE53281,1:SYS58640
20 IFA=1THENA=2:PRINTCHR$(8)CHR$(142)"ROULETTE WIRD GELADEN.":LOAD"ZS.ROU*",8,1
30 PRINT"[147]";:POKE781,200:POKE780,0:POKE91,203:POKE90,232:POKE89,219
40 POKE88,232:SYS50856:POKE53280,5:POKE53281,5:POKE56576,0:POKE53272,49
50 POKE648,204:LOAD"HP.ROULETTE",8