10 A=A+1:IFA=1THENPOKE53280,0:POKE53281,1:POKE808,234
15 IFA=1THENPOKE147,0:SYS57812"COLOUR",8,1:SYS62631
20 SYS57812"SCREEN",8,1:SYS62631
30 POKE45,150:POKE46,85:CLR:LOAD"TEXTED MAIN",8