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