home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / luxorabc80 / kermdump.bas < prev    next >
BASIC Source File  |  2020-01-01  |  784b  |  23 lines
  1. 100 REM +++++++++++++++++++++++++++++++
  2. 101 REM ! Program ....   KERMDUMP
  3. 102 REM ! Utg}va  1.0    87-11-08
  4. 103 REM ! av Anders Franz`n <5258>
  5. 104 REM +++++++++++++++++++++++++++++++
  6. 105 REM
  7. 106 REM F%=0% : PREPARE 'trace.txt' ASFILE F%
  8. 107 A%=135%*256% : B%=A%+1%
  9. 108 I%=PEEK(A%) : A%=A%+1%
  10. 109 IF I%<>1% GOTO 119
  11. 110 FOR K%=B%-1% TO A%-2%
  12. 111 L%=PEEK(K%) AND 127%
  13. 112 IF L%>32% AND L%<128% ; #F%,'   'CHR$(L%); ELSE ; #F%,'    ';
  14. 113 N%=N%+1% : IF N%=15% LET N%=0% : ; #F%
  15. 114 NEXT K% : N%=0%
  16. 115 ; #F% : GET T$ : ; #F%
  17. 116 IF T$='S' CLOSE F% : END
  18. 117 ; #F%,'typ='CHR$(PEEK(A%+2%))'  seq='RIGHT$(NUM$(PEEK(A%+1%)-32%),2%)'  len='RIGHT$(NUM$(PEEK(A%)-32%),2%)
  19. 118 B%=A%
  20. 119 ; #F%,SPACE$(4%-LEN(NUM$(I% AND 127%)))I% AND 127%;
  21. 120 N%=N%+1% : IF N%=15% LET N%=0% : ; #F%
  22. 121 GOTO 108
  23.