0 'MEMDMP.BA - AUTHOR UNKNOWN 1 'Club 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 MAXFILES=0: CLEAR 1000,HIMEM:LN = 500: LL = 57: PN = 0 3 PRINT "START";:INPUT X$: IF X$ = "MENU" OR X$ = "Menu" THEN LPRINT CHR$(12): MENU 4 ST=VAL(X$):PRINT "STOP";:INPUT EN:LPRINT "": LN = LN+1:FOR I=ST TO EN STEP 16:X$="": Y$="": Z$="":FOR J=I TO I+15:Z=PEEK(J):IF Z>31 AND Z<127 THEN X$=X$+" "+CHR$(Z)+" " ELSE X$=X$+"?? " 5 NEXT J:GOSUB 12:LPRINT USING "########";I;:LPRINT " ";X$: X$="":LPRINT USING "########";I;:LPRINT " ";:FOR J=I TO I+15:LPRINT USING"###";PEEK(J);: LPRINT " ";:NEXT J:LPRINT "":X$="": A=I:X=INT(A/4096):A=INT(A-X*4096):IFX>9 THEN X=X+7 6 X$=X$+CHR$(X+48):X=INT(A/256):A=INT(A-X*256):IF X>9THEN X=X+7 7 X$=X$+CHR$(X+48):X=INT(A/16):A=INT(A-X*16):IF X>9 THEN X=X+7 8 X$=X$+CHR$(X+48):IF A>9 THEN A=A+7 9 X$=X$+CHR$(A+48):LPRINT " ";X$;" ";:FOR J=I TO I+15:X=PEEK(J):Y=INT(X/16): X=INT(X-Y*16):IF Y>9 THEN Y=Y+7 10 IF X>9 THEN X=X+7 11 Y=Y+48: X=X+48:Z$=Z$+" "+CHR$(Y)+CHR$(X)+" ":NEXT J:LPRINT Z$: Z$="":LPRINT "":NEXT I:GOTO 3 12 LN = LN+4:IF LN 0 THEN LPRINT CHR$(12) 14 PN = PN+1: LPRINT "": LPRINT "":LPRINT " New World Magic, inc. Memory dump utility.":LPRINT "": LPRINT "":LN = 6:RETURN