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

Creation of the "Down Pillow"
Compression Algorithm Control
Codes:  Step 12 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 12 of 88

Run the following QBASIC program
to list the group numbers 1 through
393216 in an ascii file.


--------------------------------------
REM QBASIC program: GROUPLST.BAS
REM This program lists the group
'   numbers 1 through 393216 and
'   prints them to an ascii file
'   in a single 10-character column.

OPEN "O", #1, "DPC12_01.DAT"

FOR a& = 1 TO 393216
LET a$ = STR$(a&)
LET b$ = SPACE$(10)
RSET b$ = a$
PRINT #1, b$
NEXT a&

CLOSE
END
---------------------------------------

More to follow.