"Down Pillow" Control Code Creation: Step 3 of 88

Creation of the "Down Pillow"
Compression Algorithm Control
Codes:  Step 3 of 88

I am posting a series of steps
to comp.compression so that
there can be an external record
of my efforts to create a
sucessful copy of control codes
to use in the "Down Pillow"
compression algorithm as
discussed earlier this year.

Please disregard these posts
if you value your time; time
is money of course.  You are
warned up front, so don't
accuse me of wasting your time.
Concern yourself only if I am
sucessful.  If that time comes
you will have access to everything
you need to know in the archive.
But, if you are like me and love
wasting your time on frivolous
pursuits play along with me if
you dare.

Erik T. Evenson


Step 3 of 88

Convert the nine (base-256) files
from the last step to HEXADECIMAL
(base 16) in ascii.

DPC02_01.DAT convert to DPC03_01.DAT
DPC02_02.DAT convert to DPC03_02.DAT
DPC02_03.DAT convert to DPC03_03.DAT
DPC02_04.DAT convert to DPC03_04.DAT
DPC02_05.DAT convert to DPC03_05.DAT
DPC02_06.DAT convert to DPC03_06.DAT
DPC02_07.DAT convert to DPC03_07.DAT
DPC02_08.DAT convert to DPC03_08.DAT
DPC02_09.DAT convert to DPC03_09.DAT



Use the following QBASIC program
or its equivalent.

--------------------------

REM PROGRAM: CONVRT16.BAS
REM This program takes a random (base 256)
'   file and converts it to a HEX (base 16) ascii file.
INPUT "INPUT FILE ", q$
INPUT "OUTPUT FILE ", q1$
OPEN "R", #1, q$, 1
OPEN "R", #2, q1$, 2
FIELD #1, 1 AS s$
FIELD #2, 2 AS t$
w# = LOF(1)
FOR a# = 1 TO w#
GET #1, a#
GET #2, a#
LET w$ = s$
LET w1 = ASC(w$)
LET w2$ = HEX$(w1)
LET w2$ = "0" + w2$
LET x$ = SPACE$(3)
RSET x$ = w2$
LET y$ = MID$(x$, 2, 2)
LSET t$ = y$
PUT #2, a#
NEXT a#
CLOSE
END

-----------------------------

More to follow.