INPUT "Input archive - ", inf$
        INPUT "output archve - ", outf$
        OPEN inf$ FOR INPUT AS #1
        OPEN outf$ FOR OUTPUT AS #2
        DO
          INPUT #1, line$
          IF LEFT$(line$, 1) <> ":" THEN 100

          c = 2
          WHILE c < LEN(line$)
            a = ASC(MID$(line$, c, 1)) - 48
            IF a > 9 THEN a = a - 7
            b = ASC(MID$(line$, c + 1, 1)) - 48
            IF b > 9 THEN b = b - 7
            s$ = s$ + CHR$(a * 16 + b)
            c = c + 2
          WEND

100     LOOP UNTIL EOF(1)
        PRINT #2, s$
        CLOSE (1)
        CLOSE (2)