From 7f1a8a3164b3966857bc0222ad88449a0ed81b63 Mon Sep 17 00:00:00 2001
From: Greg Gauthier <gmgauthier@noreply.localhost>
Date: Sun, 28 Jul 2024 22:23:00 +0000
Subject: [PATCH] Add SER1.BAS

---
 SER1.BAS | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 SER1.BAS

diff --git a/SER1.BAS b/SER1.BAS
new file mode 100644
index 0000000..556c003
--- /dev/null
+++ b/SER1.BAS
@@ -0,0 +1,15 @@
+REM **************************
+REM * SEND FILES VIA SERIAL  *
+REM **************************
+10 OPEN "COM:88N1E" FOR OUTPUT AS 1
+15 OPEN "FUN2.DO" FOR INPUT AS 2
+19 PRINT #1, "BEGINNING OF FILE"
+20 PRINT #1, "--------------------"
+25 DIM A$(1)
+30 INPUT #2,A$
+35 PRINT #1,A$
+40 A$=""
+45 IF NOT EOF(2) GOTO 30
+50 PRINT #1,"--------------------"
+52 PRINT #1,"END OF FILE"
+55 CLOSE 1,2
\ No newline at end of file