10INPUT LINE "From: &" F$ 20INPUT LINE "To: &" T$ 30FOR H = EVAL("&"+F$) TO EVAL("&"+T$) STEP 16 40 PROC_row(H) 50NEXT 60END 70DEFPROC_row(I) 80LOCAL J 81PROC_hex(I DIV 256):PROC_hex (I MOD 256):PRINT": "; 90FOR J = I TO I + 15 100 PROC_hex (?J) 101 VDU 32 110NEXT 111PRINT " "; 120FOR J = I TO I + 15 130 PROC_char (?J) 140NEXT 150PRINT 160ENDPROC 170DEFPROC_hex(K) 180VDU ASC(RIGHT$("0123456789abcdef",16-(K DIV 16))) 181VDU ASC(RIGHT$("0123456789abcdef",(16-K MOD 16))) 190ENDPROC 200DEFPROC_char(K) 210IF K>=32 AND K<127 THEN VDU K ELSE VDU ASC(".") 220ENDPROC