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.
Amiga7878