rem disable BASIC extenders
5 print chr$(11)
8 j=0
10 read a
15 if a=-1then 30
20 poke 13313+j,a:j=j+1
25 goto 10
30 POKE14340,1:POKE14341,52:j=usr(0)
1000 data195,137,0,-1

