10 A=160:E=192:FORI=0TO1:POKE53,0:POKE54,A
20 POKE780,255:POKE781,PEEK(53):POKE782,PEEK(54):SYS46728:IFPEEK(54)<>ETHEN20
30 A=224:E=0:NEXT