From: koreth@panarthea.ebay.sun.com (Steven Grimm) Newsgroups: comp.sources.atari.st Subject: v03i057: gfa-uucode -- Uuencode/decode program in GFA BASIC Message-ID: <2066@male.EBay.Sun.COM> Date: 31 May 90 04:32:46 GMT Approved: koreth@panarthea.ebay.sun.com Submitted-by: wscart01@ulkyvx.bitnet (Stuart Carter) Posting-number: Volume 3, Issue 57 Archive-name: gfa-uucode Here is a UUE encoder and decoder. This is for mainly the people who don't have a UUE untility. Simply capture this file in your buffer and later load it into GFA basic and edit out the non-program and run. This will create a UUCODE.ACC which is a UUE accesory that will allow you access to the UUE world. I cant take credit for this accesory, Moches Branner made about two years ago, and no one has yet inproved on it's speed. Stuart Carter University Of Louisville Physics Dept. '---------------------------CUT HERE--------------------------------- ' Stuart Carter's Hex-decoder ' ' Version 1.0 4/10/90 ' ' ------------------------------------------------------------------' ' This program is a simple Hex decoder that contains Moshse Branner's ' (Sorry if i misspelled it) UUCODE acessory. This program will help ' you get started with using file transfers that require ASCII codeings. ' Useing UUCODE.ACC is simple and straight forward except for that: ' 1) Check to make sure UUE file has been re-assembled into one smooth ' flow of data. (I use Tempus to put files back together.) ' 2) Some UUE files dont have a little "u" or such to end a line. This ' causes loss of data if end character is a space. Manualy insert ' spaces if you have a file like this. (Better yet, write a program ' to do it for you.) ' ' Have Fun, Stuart READ bytes DIM code%(bytes/2) code_adr%=V:code%(0) get_data: READ line$ FOR line=1 TO LEN(line$) STEP 2 byte%=VAL("&h"+MID$(line$,line,2)) POKE code_adr%+byte_num%,byte% INC byte_num% NEXT line PRINT AT(70,1);bytes-byte_num%;" " IF byte_num%