gmgauthier/tandy-scripts
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add SER1.BAS

Browse Source
This commit is contained in:
Greg Gauthier 2024-07-28 22:23:00 +00:00
parent 4354d3ae2e
commit 7f1a8a3164
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
SER1.BAS Normal file
View File

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