5 REM HEX/ASCII MEMORY DISPLAY BY TONY STEVENS.
10 PRINT CHR$(26)
20 INPUT "MIN.MEMORY LOCATION (HEX)    ",MIN$:MIN=VAL("&H"+MIN$)
30 INPUT "MAX.MEMORY LOCATION (HEX)    ",MAX$:MAX=VAL("&H"+MAX$)
40 PRINT CHR$(26)
50 PRINT "       0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F "
60 PRINT
70 MIN=16*INT(MIN/16)
80 MAX=16*INT(1+(MAX/16))-1
90 FOR N= MIN TO MAX
100 N$=HEX$(N):L=LEN(N$)
110 ON L GOTO 120,130,140,150
120 N$="000"+N$:GOTO 150
130 N$="00" +N$:GOTO 150
140 N$="0"  +N$:GOTO 150 
150 IF RIGHT$(N$,1)="0" THEN PRINT N$+"   ";
160 A=PEEK(N):A$=HEX$(A)
170 IF A>127 OR A<32 THEN D$="." ELSE D$=CHR$(A)
180 C$=C$+D$
190 IF LEN(A$)=1 THEN A$="0"+A$
200 PRINT A$+" ";
210 IF LEN(C$)=16 THEN PRINT "   "+C$:C$=""
220 NEXT
230 B$=INKEY$:IF B$="" GOTO 230
240 IF ASC(B$)=32 GOTO 250 ELSE 10
250 MIN=MAX+1
260 MAX=MIN+&H100
270 PRINT CHR$(13):PRINT:GOTO 50