home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / basicaid.zip / TRANDUMP.BAS < prev    next >
BASIC Source File  |  1983-08-20  |  1KB  |  54 lines

  1. 100 DEFINT A-Z
  2. 110 CLS : CLOSE
  3. 120 PRINT "Hex File Display Program"
  4. 130 INPUT "Enter file name: ", FILENAME$
  5. 140 OPEN "R",#1,FILENAME$,128
  6. 150 FIELD #1,128 AS RECORD$
  7. 160 PRINT "Dumping "+FILENAME$+" . . ."
  8. 170 OPEN "lpt1:" FOR OUTPUT AS #2
  9. 180 PRINT #2, "Dumping "+FILENAME$+" . . ."
  10. 190 PRINT #2,""
  11. 200 OFFSET = 0
  12. 210 RECORDOUT$ = ""
  13. 220 RECORDOUT1$ = ""
  14. 230 '
  15. 240   GET #1
  16. 250   PRINT #2, ""
  17. 260   IF EOF(1) THEN 410
  18. 270   FOR I=1 TO LEN(RECORD$)
  19. 280     CHAR = ASC(MID$(RECORD$,I,1))
  20. 290     CHAR$ = HEX$(CHAR)
  21. 300     IF LEN(CHAR$)=1 THEN CHAR$="0"+CHAR$
  22. 310     RECORDOUT$=RECORDOUT$+CHAR$
  23. 320     CHARPRT$ = "."
  24. 330     IF CHAR < 32 THEN 360
  25. 340     IF CHAR >= 127 THEN 360
  26. 350     CHARPRT$ = CHR$(CHAR)
  27. 360     RECORDOUT1$ = RECORDOUT1$ + CHARPRT$
  28. 370     IF LEN(RECORDOUT$) >= 32 THEN GOSUB 460
  29. 380   NEXT I
  30. 390   GOTO 240
  31. 400 '
  32. 410 GOSUB 460
  33. 420 CLOSE
  34. 430 PRINT "File Display Program Ended"
  35. 440 STOP
  36. 450 '
  37. 460 RECLEN = LEN(RECORDOUT$)
  38. 470 IF RECLEN = 0 THEN 600
  39. 480 OFFSET$="    "+HEX$(OFFSET)
  40. 490 OFFSET$=MID$(OFFSET$,LEN(OFFSET$)-4,5)
  41. 500 PRINT #2,OFFSET$+":  ";
  42. 510 J=1
  43. 520   IF RECLEN-J < 8 THEN 560
  44. 530   PRINT #2,MID$(RECORDOUT$,J,8)+" ";
  45. 540   J = J + 8
  46. 550   GOTO 520
  47. 560 PRINT #2,MID$(RECORDOUT$,J) + "  *" + RECORDOUT1$ + "*"
  48. 570 OFFSET = OFFSET + RECLEN/2
  49. 580 RECORDOUT$ = ""
  50. 590 RECORDOUT1$ = ""
  51. 600 RETURN
  52. 610 '
  53. 620 END
  54. *" + RECORD