10 OPEN1,4
20 FORA=0TO24
30 :  FORB=0TO39
40 :     L=PEEK(1024+A*40+B)
50 :     IFL<32THENL=L+64
60 :     PRINT#1,CHR$(L);
70 :  NEXT B
80 :  PRINT#1,CHR$(13)
90 NEXT A
100 CLOSE1
109 END