home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / memdmp.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  16 lines
  1. 0 'MEMDMP.BA - AUTHOR UNKNOWN
  2. 1 'Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 MAXFILES=0: CLEAR 1000,HIMEM:LN = 500: LL = 57: PN = 0
  4. 3 PRINT "START";:INPUT X$: IF X$ = "MENU" OR X$ = "Menu" THEN LPRINT CHR$(12): MENU
  5. 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$+"??  "
  6. 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
  7. 6 X$=X$+CHR$(X+48):X=INT(A/256):A=INT(A-X*256):IF X>9THEN X=X+7
  8. 7 X$=X$+CHR$(X+48):X=INT(A/16):A=INT(A-X*16):IF X>9 THEN X=X+7
  9. 8 X$=X$+CHR$(X+48):IF A>9 THEN A=A+7
  10. 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
  11. 10 IF X>9 THEN X=X+7
  12. 11 Y=Y+48: X=X+48:Z$=Z$+" "+CHR$(Y)+CHR$(X)+" ":NEXT J:LPRINT Z$: Z$="":LPRINT "":NEXT I:GOTO 3
  13. 12 LN = LN+4:IF LN <LL THEN RETURN
  14. 13 IF PN <> 0 THEN LPRINT CHR$(12)
  15. 14 PN = PN+1: LPRINT "": LPRINT "":LPRINT "        New World Magic, inc.    Memory dump utility.":LPRINT "": LPRINT "":LN = 6:RETURN
  16.