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