DATA -48, -51, -54, -49, -52, 41, 46, 43
DATA -48, 45, -54, -49, 44, -55, -50, 43

DIM cod(1 TO 16)

FOR i = 1 TO 16
 READ cod(i)
NEXT i


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

count = 1

WHILE NOT EOF(1)
 GET #1
 b$ = byt$
 IF b$ = CHR$(10) GOTO 100
 IF b$ = CHR$(13) GOTO 100
 IF b$ = CHR$(146) THEN b$ = "'": GOTO 100
 b = ASC(b$)
 b = b + cod(count)
REM IF NOT (count = 1 OR count = 9) THEN b = b + cod(count) + 8 ELSE b = b + cod(count)
IF b < 32 THEN b = b + 96
 IF b > 127 THEN b = b - 96
 b$ = CHR$(b)
 count = count + 1
 IF count > 16 THEN count = count - 16
100 PRINT #2, b$;

WEND

CLOSE