10
20 INPUT"File: "in$:in%=OPENIN(in$)
30 ON ERROR REPORT:PROCClose:PRINT:END
40 DIM mem% 15:REPEAT:FOR line%=1 TO 16
50 PRINTFNh0(PTR#in%,6);" ";
60 FOR A%=0 TO 15:mem%?A%=BGET#in%:PRINTFNh0(mem%?A%,2);" ";:NEXT
70 FOR A%=0 TO 15:PRINTFNc(mem%?A%);:NEXT:IF line%<16:PRINT
80 NEXT:A%=GET AND &DF:PRINT
90 IF A%=ASC"B":IF PTR#in%>511:PTR#in%=PTR#in%-512:CLS
100 IF A%=ASC"A":INPUT "ADDRESS &"A$:PTR#in%=EVAL("&"+A$)
110 UNTILEOF#in%:CLOSE#in%:in%=0:END
120 DEFFNh0(A%,N%)=RIGHT$("0000000"+STR$~A%,N%)
130 DEFFNc(A%):A%=A%AND127:IFA%<32 OR A%=127:="." ELSE =CHR$A%
140 DEFPROCClose:in%=in%:A%=in%:in%=0:IFA%:CLOSE#A%
150 ENDPROC