20 PRINT "HEXDUMP":GOTO 260
30 'PRINT BYTE IN HEX
40 H=INT(B/16):L=B-16*H
50 PRINT MID$(H$,H+1,1);
60 PRINT MID$(H$,L+1,1);
70 RETURN
80 'PRINT ASCII CHARACTERS
90 J=A1
100 B=PEEK(J)
110 IF B<32 THEN 115
111 IF B>126 THEN 115
112 !CHR$(B);:GOTO 120
115 !".";
120 D=INT(J/R):M=J-R*D
130 IF M=R-1 THEN RETURN
135 IF J=A2 THEN RETURN
140 J=J+1:GOTO 100
150 'PRINT BYTES IN HEX
160 J=A1
170 PRINT" ";
180 B=PEEK(J):GOSUB 30
190 D=INT(J/R):M=J-R*D
200 IF M=R-1 THEN RETURN
205 IF J=A2 THEN RETURN
210 J=J+1:GOTO 170
220 'PRINT A WORD IN HEX
230 B=INT(A1/256):GOSUB 30
240 B=A1-256*B:GOSUB 30
250 RETURN
260 'MAIN BLOCK
270 R=16:'NUMBER OF BYTES TO PRINT ON ONE LINE
280 H$="0123456789ABCDEF"
290 !"START ADDRESS":INPUT A1
300 !"END ADDRESS":INPUT A2
310 IF A2<A1 THEN GOTO 410
320 GOSUB 220
330 PRINT" ";
340 GOSUB 150
350 PRINT"  ";
360 GOSUB 80
370 PRINT
380 A1=A1+R
390 IF A1<=A2 THEN 320
400 END
410 PRINT "END ADDRESS SHOULD BE LARGER THAN START"
420 END