Поделить бинарный файл на два

[Serg6845]

Мне нужно делить не по принципу четные-нечетные байты, а каждый байт делить на старшие 4 бита и на младшие 4 бита. У каждой ПЗУ выход на 4 разряда

тогда например вот так

DIM m AS STRING * 1
cmd$ = COMMAND$
OPEN cmd$ FOR BINARY AS #1
OPEN "low.bin" FOR OUTPUT AS #2
OPEN "high.bin" FOR OUTPUT AS #3

FOR k = 1 TO LOF(1)
GET #1, k, m
n = ASC(m)
b_low = n AND 15
b_high = (n AND 240) / 16

PRINT #2, CHR$(b_low);
PRINT #3, CHR$(b_high);
NEXT k
RESET

END

Microsoft visual basic/DOS v1.0