10 poke 8193,60:poke 8194,158
20 for i=512 to 518
30 poke i,4:poke i+9,4
40 next i
50 poke 519,85:poke 520,85
60 for i=0 to 191
70 poke i,0:poke i+192,32:next i
80 poke 40960,1:poke 40961,129:rem move cursor off screen
90 input k:poke 40960,2:rem wait for return key
100 poke 8194,30:rem return to alphanumeric mode
