OPEN "MAN.dat" FOR RANDOM AS #1 LEN = 1
FIELD #1, 1 AS byt$
OPEN "man.lst" FOR OUTPUT AS #2

WHILE NOT EOF(1)
 GET #1
 b$ = byt$
 IF b$ = CHR$(10) GOTO 100
 IF b$ = CHR$(13) GOTO 100
 IF b$ = CHR$(115) GOTO 100
 IF b$ = CHR$(118) GOTO 100
 IF b$ = CHR$(102) THEN b$ = "f": GOTO 100
 IF b$ = CHR$(119) THEN b$ = " ": GOTO 100
 IF b$ = CHR$(238) THEN b$ = "'": GOTO 100

REM Test for unprintable characters
 b = ASC(b$)
 IF (b > 96 OR b < 2) THEN b$ = "?=" + STR$(b) + " " ELSE b$ = CHR$(128 - b)

100 PRINT #2, b$;
WEND

CLOSE