home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / rcpm / xfrtable.lbr / XFRTIME.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-07-26  |  384 b   |  14 lines
  1. 10 PRINT CHR$(26):PRINT:PRINT
  2. 20 INPUT"300 or 1200 Baud? ",B$
  3. 40 IF B$="300" THEN 5000
  4. 50 IF B$="1200" THEN 5050
  5. 5000 PRINT CHR$(26)
  6. 5005 OPEN "I",#1,"300XFR.TX#"
  7. 5010 GOSUB 7000
  8. 5050 PRINT CHR$(26)
  9. 5055 OPEN "I",#1,"1200XFR.TX#"
  10. 5060 GOSUB 7000
  11. 7000 IF EOF(1) THEN END
  12. 7010 INPUT #1,A$
  13. 7020 PRINT A$:GOTO 7000
  14. 7030 END