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
|