OPEN "br-sd1b.cfs" FOR INPUT AS #1
OPEN "br-sd1b.txt" FOR OUTPUT AS #2

LINE INPUT #1, lin$
PRINT #2, lin$

WHILE NOT EOF(1)
LINE INPUT #1, lin$
L = LEN(lin$)

FOR I = 1 TO L
ch$ = MID$(lin$, I, 1)
ch = ASC(ch$)
IF ch$ = "#" THEN ch = &H3B: GOTO 100
IF ch$ = "A" THEN ch = &H20: GOTO 100
IF ch$ = "." THEN GOTO 100
IF ch$ = " " THEN GOTO 100
IF (ch >= &H36) AND (ch <= &H3F) THEN ch = ch - 6: GOTO 100
IF (ch >= &H4A) AND (ch <= &H63) THEN ch = ch - 9: GOTO 100
IF (ch >= &H66) AND (ch <= &H7F) THEN ch = ch - 5: GOTO 100
ch = &H5F
100 PRINT #2, CHR$(ch);
NEXT I

PRINT #2,
WEND

CLOSE