Path: utzoo!attcan!uunet!lll-winken!lll-tis!helios.ee.lbl.gov!nosc!ucsd!ncr-sd!jimmy From: jimmy@ncr-sd.SanDiego.NCR.COM (Jim Mealhouse) Newsgroups: comp.sys.ibm.pc Subject: Re: UUENCODE for MS-DOS - Source for Pascal version, newly modified Message-ID: <2393@ncr-sd.SanDiego.NCR.COM> Date: 25 Jul 88 20:36:49 GMT References: <7521@cup.portal.com> <2960@dalcs.UUCP> Reply-To: jimmy@ncr-sd.SanDiego.NCR.COM (0000-Jim Mealhouse) Organization: NCR Corporation, Rancho Bernardo Lines: 28 In article <2960@dalcs.UUCP> lane@dalcs.UUCP (John Wright/Dr. Pat Lane) writes: >Following are the sources of my Pascal version of UUENCODE and UUDECODE. >---------------------UUENCODE.PAS--------------------------------------- >---------------------UUDECODE.PAS--------------------------------------- >{ Known bugs: > Appears to open the input file in write mode (read-only files fail). > Program does not read and encode file read-only attribute (not implemented). > Bytes counts over 32768 go negative in user report. >-- >John Wright ////////////////// Phone: 902-424-3805 or 902-424-6527 >Post: c/o Dr Pat Lane, Biology Dept, Dalhousie U, Halifax N.S., CANADA B3H-4H8 >Cdn/Bitnet: lane@cs.dal.cdn Arpa: lane%dalcs.uucp@uunet.uu.net >Uucp: lane@dalcs.uucp or {uunet,watmath,utai,garfield}!dalcs!lane There is a fix for the byte counts over 32768. In Turbo Pascal 3.0 there are some new functions - LongFileSize,LongFilePosition,LongSeek-. They use Reals. So change the routines that use FileSize to use the new functions. Remember to use reals. page 199 in TP 3.0 manual. [================] James Mealhouse UseNet!!ncr-sd!jimmy jimmy@ncr-sd.SanDiego.NCR.COM [================]