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