10 GOSUB 310
20 DEFINT Z
30 PRINT CHR$(27);"[H";CHR$(27);"[2J"
40 PRINT "THIS PROGRAM DUMPS THE HEX CONTENTS OF MEMORY"
50 PRINT
60 INPUT "ENTER START ADDRESS (@XXXX)"A
70 INPUT " ENTER STOP ADDRESS (@XXXX)"A1
80 IF A>=A1 GOTO 60
90 PRINT CHR$(27);"[H";CHR$(27);"[2J"
95 PRINT "       0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F"
100 LET A=A/16*16
110 FOR X=A TO A1 STEP 16
120 LET Y=X: GOSUB 210
130 FOR Z=0 TO 15
140 LET Y=PEEK(X+Z)
145 OUT(0,4,Y)
150 GOSUB 240
160 NEXT Z
170 PRINT : NEXT X
180 PRINT : INPUT "MORE"Z$
190 IF MID$(Z$,1,1)="Y" GOTO 60
200 END
210 GOSUB 270
220 PRINT A$(Y1)+A$(Y2)+A$(Y3)+A$(Y4);":  ";
230 RETURN
240 LET N2=Y: GOSUB 290
250 PRINT A$(Y3)+A$(Y4);" ";
260 RETURN
270 LET Y1=Y/4096:N1=Y-Y1*4096
280 LET Y2=N1/256:N2=N1-Y2*256
290 LET Y3=N2/16:Y4=N2-Y3*16
300 RETURN
310 LET A$(0)="0"
320 LET A$(1)="1"
330 LET A$(2)="2"
340 LET A$(3)="3"
350 LET A$(4)="4"
360 LET A$(5)="5"
370 LET A$(6)="6"
380 LET A$(7)="7"
390 LET A$(8)="8"
400 LET A$(9)="9"
410 LET A$(10)="A"
420 LET A$(11)="B"
430 LET A$(12)="C"
440 LET A$(13)="D"
450 LET A$(14)="E"
460 LET A$(15)="F"
470 RETURN