home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG055.ARC / DDUMP.BAS < prev    next >
BASIC Source File  |  1979-12-31  |  768b  |  38 lines
  1. 10 '
  2. 20 PRINT
  3. 30 INPUT "HEX START ADDRESS";START$
  4. 40 GOSUB 280
  5. 50 LC=6
  6. 60 WHILE LC>0
  7. 70 N$="      "+HEX$(START):M$=RIGHT$(N$,5):PRINT:PRINT M$;
  8. 80 ROWCOUNT=16
  9. 90 WHILE ROWCOUNT>0
  10. 100 N$=HEX$(PEEK(START)+256):M$=" "+RIGHT$(N$,2)
  11. 110 PRINT M$;:START=START+1
  12. 120 ROWCOUNT=ROWCOUNT-1
  13. 130 WEND
  14. 140 GOSUB 180
  15. 150 LC=LC-1
  16. 160 WEND
  17. 170 GOTO 10
  18. 180 '
  19. 190 START=START-16
  20. 200 PRINT "      ";
  21. 210 FOR J=1 TO 16
  22. 220 Z=PEEK(START):START=START+1
  23. 230 IF Z<32 THEN Z$="." ELSE Z$=CHR$(Z)
  24. 240 PRINT Z$;
  25. 250 NEXT
  26. 260 RETURN
  27. 270 '
  28. 280 '
  29. 290 IF LEN(START$)=0 THEN RETURN
  30. 300 START=0
  31. 310 FOR K=1 TO LEN(START$)
  32. 320 START=START*16+INSTR("0123456789ABCDEF",MID$(START$,K,1))
  33. 330 START=START-1
  34. 340 NEXT
  35. 350 RETURN
  36. 360 END
  37.  LEN(START$)
  38. 320 START=START*16+I