4 CLS: KEY OFF
5 ON ERROR GOTO 1000
6 CLEAR,,,32768!
7 DIM A%[400]
10 FOR I = 1 TO 10
20 SCREEN I:IF E=I THEN 50
25 OPEN "GET"+HEX$(I)+".DAT" FOR OUTPUT AS 1
30 FOR L=37 TO 0 STEP -1
35 CLS:PRINT L:LINE (10,10)-(20,20),L MOD 16,BF:LINE(0,0)-(10,10),2,B
40 GET(0,0)-(L,L),A%
45 GOSUB 2000
50 NEXT L
60 CLOSE 1
70 NEXT I
999 END
1000 E=I:RESUME NEXT
2000 PRINT#1, L;
2010 FOR K=0 TO 400
2020 PRINT#1, MKI$(A%[K]);
2030 NEXT
2050 RETURN

