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