1990 POKE20,0:IFPEEK(20)=0THEN(null)0:SYSPEEK(46)*256+66:END
2000 SYSPEEK(44)*256+66:END