This file is intended for one whose
terminal program does not permit
downloading using a file transfer
protocol, such as Xmodem or CompuServe
B protocol.  Only the capability to
capture a text file to a buffer, and
then to SAVE the file to diskette, is
necessary.  The procedure is as
follows:

Type in the BASIC program that follows
these instructions, and SAVE it to
disk.  Then, log onto CIS and work your
way to the library where the file that
you want resides.  REAd the file, as
you are reading this file, but instead
of typing in REA, type REA INT.  The
file in question may be binary, ascii,
or image.  After you enter the filename
in response to the filename prompt,
open your capture buffer BEFORE you
press RETURN.  When you see "Press
<CR> !" at the end of the file, close
your capture buffer.  Off-line, you can
SAVE the file to disk.  Next, LOAD the
BASIC program that you typed in and RUN
it.  Enter the filename of the file
that you captured at the prompt.  The
processing should then begin.  When the
activity light of the drive goes out,
the disk directory should list the
desired file as the original filename
followed by a plus sign.  It can, of
course, be renamed by typing in:

OPEN15,8,15,"R0:NEWNAME=OLDNAME"
CLOSE15

The size of the captured file is
limited to 49437 bytes.  If the file is
an IMG (image) file, the six byte
header must be stripped in order to RUN
the program.  That can be done by
changing the 0 in line 40 of the BASIC
program to 6.  The INTEL protocol used
when you REAd INTel, sends the file in
hexadecimal format, with more error
checking than is done using Xmodem.  If
an error is detected by the BASIC
program, the message "DATA ERROR" will
be seen and the operation aborted.  You
will then have to REAd INTel the file
again, possibly at a lower baud rate.
The assumption is made that ascii to
petascii conversion is taking place, as
in normal creation of a text file on
disk.  Make sure that the conversion
(or translation) is not disabled.
The BASIC program:

10 z=1:ifathen40
20 fori=53021to53247:ready
30 pokei,y:b=b+y:next:printb-32457
40 poke53022,0
50 poke2053,65:poke55,255:poke56,13:clr
60 input"filename";f$:iff$=""then60
70 open8,8,8,f$:sys53021
80 ifpeek(2)thenprint"data error"
90 poke55,0:poke56,160:clr
100 data169,0,133,172,162,0,134,174,134
110 data155,134,156,134,2,202,134,139
120 data134,140,169,14,133,173,133,175
130 data162,8,32,198,255,166,139,228
140 data140,208,82,162,0,134,139,134
150 data141,134,143,32,228,255,201,58
160 data208,47,165,144,240,63,169,8,32
170 data195,255,32,204,255,164,183,169
180 data43,145,187,230,183,198,1,169,1
190 data133,185,32,192,255,162,8,32,201
200 data255,160,0,32,36,246,230,1,169
210 data8,32,195,255,96,165,144,208,209
220 data240,196,166,141,134,2,165,2
230 data208,236,165,144,208,195,240
240 data168,32,228,255,72,32,228,255
250 data170,104,168,138,32,246,207,133
260 data150,152,32,246,207,10,10,10
270 data10,5,150,168,101,141,133,141
280 data152,230,139,166,139,228,140
290 data240,202,202,240,27,202,240,30
300 data202,240,31,202,240,40,230,155
310 data208,2,230,156,160,0,145,174
320 data230,174,208,180,230,175,208,176
330 data105,5,133,140,208,170,133,143
340 data144,166,197,155,208,12,165,143
350 data197,156,208,6,176,154,133,2
360 data144,150,202,208,145,56,233
370 data183,201,16,144,2,233,121,96

One final note.  When the BASIC program
is first RUN, a 0 should appear above
the filename prompt.  If a different
number appears, it indicates that the
numbers in the DATA statements are
incorrect.  A common error made when
typing in the numbers, is following the
last number of a line with a comma.
No line in THIS program should end with
a comma.
