15 lines
381 B
QBasic
15 lines
381 B
QBasic
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 |