25 Years of Programming
An open source source for C, C++, OWL, BASIC, MDB, XLS, DOT, and more...
Home   Projects   Up   Sitemap   Search   Blog   Forum+Chat   About Us   Privacy   Terms of Use   Feedback   FAQ   Images   Services   Ads   Donate   Humor

HDOS serial port file transfer

11-12-99 This program was written in Extended Benton Harbor Basic to run under HDOS. It transmits a file from an HDOS disk out through H89 port 330Q (216d) to another computer. I wrote it to rescue some HDOS files because I didn't have an HDOS modem or file transfer program. BHBasic is so slow that even at the specified rate of 9600 baud, the effective rate is only about 300 baud, but with apparently zero errors. However, it does tend to transmit garbage after the last sector, so watch out for garbage at the end of the destination file. Benton Harbor Basic was the original HDOS Basic dialect.

00010 REM HDOSTRF.BAS
00020 REM COPYRIGHT (C)1984 STEVEN WHITNEY.
00030 REM Published under GNU GPL (General Public License) Version 2, with ABSOLUTELY NO WARRANTY.
00040 OUT 219,128
00050 OUT 216,12
00060 OUT 219,3
00070 OUT 217,0
00080 OUT 218,1
00090 OUT 220,11
00100 OUT 221,96
00110 OUT 222,176
00120 PRINT "THIS PROGRAM WORKS ONLY FOR 8-BIT, 9600 BAUD TRANSFERS"
00130 INPUT "WHAT FILE DO YOU WANT TO TRANSFER";A$
00140 OPEN A$ FOR READ AS FILE #1
00150 A = CIN(1)
00160 REM I think the Autoscribe word processor used < as its end of line char.
00170 REM so I translate them to CRLF here.
00180 IF A = 60 THEN OUT 216,13 : OUT 216,10
00190 IF A <> 60 THEN OUT 216,A
00200 REM append a LF to each CR
00210 IF A = 13 THEN OUT 216,10
00220 GOTO 150

 

 

Valid HTML 4.01 Transitional Valid CSS
View content labeling at ICRA.
Copyright ©2007 Steven Whitney. Last modified 09/25/2007.