100 BGET #3\0
110 FOR F=0 TO 3:PRINT #2;INKEY$(#3;-1);
115 PRINT #2;" ";
120 FOR F=4 TO 13 STEP 2
130  GET #3;A%
140  PRINT #2;HEX$(A%,16);" ";
150 END FOR F
160 FLNM=A%
170 :
180 PRINT #2
190 GET #3;A%,B%
200 PRINT #2;" ";HEX$(A%,16);
210 PRINT #2;HEX$(B%,16);" ";
220 :
230 FOR F=18 TO 25 STEP 2
240  GET #3;A%
250  PRINT #2;HEX$(A%,16);" ";
260 END FOR F
270 :
280 PRINT #2:PRINT #2
290 FOR F=1 TO FLNM
300  GET #3;A%,B%,C%,D%
310  PRINT #2;HEX$(A%,16);" ";
320  PRINT #2;HEX$(B%,16);" ";
330  PRINT #2;HEX$(C%,16);" ";
340  PRINT #2;HEX$(D%,16)
350 END FOR F
360 :
370 GET #3;A$
380 PRINT #2;A$
