1 SYS42336:FORB=512TO592:IFPEEK(B)<>0THENNEXT
2 IN$="":POKEPEEK(71)+256*PEEK(72)+1,0:POKEPEEK(71)+256*PEEK(72)+2,2
3 POKEPEEK(71)+256*PEEK(72),B-512:IN$=MID$(IN$,1)