quell$ = COMMAND$(1)
ziel$ = COMMAND$(2)

OPEN quell$ FOR BINARY AS #1
OPEN ziel$ FOR BINARY AS #2


WHILE NOT (EOF(1))
i = i + 1

GET #1, i, a%

d% = a% MOD 256
IF d% < 1 THEN d% = d% + 256


zei = d%

merker = zei MOD 64

IF merker < 32 THEN zei2 = zei + 32
IF merker >= 32 THEN zei2 = zei - 32

merker = zei MOD 16

IF merker < 4 THEN zei3 = zei2 + 4
IF merker >= 4 AND merker < 8 THEN zei3 = zei2 - 4
IF merker >= 8 AND merker < 12 THEN zei3 = zei2 + 4
IF merker >= 12 AND merker < 16 THEN zei3 = zei2 - 4

merker = zei MOD 4

IF merker = 0 THEN zei4 = zei3 + 1
IF merker = 1 THEN zei4 = zei3 - 1
IF merker = 2 THEN zei4 = zei3 + 1
IF merker = 3 THEN zei4 = zei3 - 1

'PRINT zei4; "("; HEX$(zei4); ") => "; CHR$(zei4)

e% = zei4


PUT #2, i, e%

WEND

CLOSE