5 'SAVE "CB"
100 KEY OFF: CLS
200 WIDTH 80: DEF SEG=0: A=PEEK(&H410): POKE &H410,(A AND &HCF) OR &H20
210 WIDTH  40: LOCATE ,,1,6,7
220 SYSTEM