10 DEF SEG=&H40
20 POKE &H17,PEEK(&H17) OR &H40
30 DEF SEG