10IFPEEK(-16384)>=128THENPRINTPEEK(-16384)-128:POKE-16368,0
20GOTO10