|
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 transfer11-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
|
|
|
|
|
|