10
20 PRINT'CHR$8;:A%=POS:PRINT'CHR$11;:IFA%<70:MODE0
30 B%=TOP:X%=B%+16:Y%=X%DIV256:A%=5
40 M%=PAGE:INPUT"ADDRESS: &"$TOP:IF?TOP<>13:M%=EVAL("&"+$TOP)
50 REPEAT:FORD%=M%TOM%+255STEP16
60 PRINTRIGHT$("000"+STR$~D%,4)SPC1;
70 FORN%=0TO15:IFD%<0:!X%=D%+N%:CALL&FFF1:B%?N%=X%?4 ELSE B%?N%=D%?N%
80 PRINTRIGHT$("0"+STR$~B%?N%,2)SPC1;:NEXT
90 FORN%=0TO15:C%=B%?N%AND127:IFC%<32ORC%=127:VDU46ELSEVDUC%
100 NEXT:PRINT:NEXT:M%=D%
110 IF(GETAND&53)=65:INPUT"ADDRESS: &"$TOP:M%=EVAL("&"+$TOP)
120 UNTILFALSE