home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbadv.zip / DUMP.PRG < prev    next >
Text File  |  1986-02-25  |  1KB  |  39 lines
  1. SET talk OFF
  2. *sample data byte to start 29970
  3. *sample data byte to end 30000
  4. * find the memory range
  5. INPUT "What byte to start?" TO byte
  6. INPUT "What byte to stop? " TO lastbyte
  7. DO WHILE byte <= lastbyte
  8.   *print the current address
  9.   ? str(byte,6)
  10.   * print the next 10 bytes in decimal
  11.   STORE 1 TO counter
  12.   DO WHILE counter < 11
  13.     ?? peek(byte)
  14.     STORE byte +1 TO byte
  15.     STORE counter +1 TO counter
  16.   ENDDO WHILE counter < 11 
  17.   **backup and print the same 10 bytes in ascii
  18.   STORE byte - 10 TO byte
  19.   STORE 1 TO counter
  20.   DO WHILE counter < 11
  21.     *** if it is a printing character, print it ***
  22.     *** else print a "." 
  23.     IF peek(byte) > 27 .AND peek(byte) <127
  24.       ?? chr(peek(byte))
  25.     ELSE
  26.       ?? "." 
  27.     ENDIF peek(byte) > 27 .AND peek(byte) <127 
  28.     STORE byte +1 TO byte
  29.     STORE counter +1 TO counter
  30.   ENDDO WHILE counter < 11 
  31. ENDDO WHILE byte <= lastbyte 
  32. *cleanup
  33. RELEASE byte, lastbyte, counter
  34. SET talk ON
  35. ***************************************************************
  36. ***************************************************************
  37. ***************************************************************
  38. ***************************************************************
  39.