10 PRINT CHR$(26):PRINT:PRINT
20 INPUT"300 or 1200 Baud? ",B$
40 IF B$="300" THEN 5000
50 IF B$="1200" THEN 5050
5000 PRINT CHR$(26)
5005 OPEN "I",#1,"300XFR.TX#"
5010 GOSUB 7000
5050 PRINT CHR$(26)
5055 OPEN "I",#1,"1200XFR.TX#"
5060 GOSUB 7000
7000 IF EOF(1) THEN END
7010 INPUT #1,A$
7020 PRINT A$:GOTO 7000
7030 END