home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / send.ba < prev    next >
Text File  |  2006-10-19  |  882b  |  22 lines
  1. 0 'SEND.BA - BY BOB B.
  2. 1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 'TRS MODEL100 - *SEND/BAS*
  4. 3 'SEND TRANSMITS DATA FROM A
  5. 4 '.DO FILE IN THE MOD 100 TO
  6. 5 'ANOTHER COMPUTER VIA THE
  7. 6 'RS-232 PORT. CHANGE THE PAR-
  8. 7 'AMETERS FOR COM: AND THE
  9. 8 'EOF CHARACTER DEPENDING ON
  10. 9 'YOUR SYSTEM.  -BOB B.
  11. 10 '
  12. 11 'SEND FILE TO COMPUTER
  13. 12 MAXFILES=2:F$=CHR$(26):'END-OF-FILE CHARACTER
  14. 13 CLS:FILES:INPUT"FILENAME:";N$:ON ERROR GOTO 18:IF N$="" THEN 13
  15. 14 OPEN "RAM:"+N$+".DO" FOR INPUT AS 1:OPEN "COM:58N1E" FOR OUTPUT AS 2:INPUT"HIT 'ENTER' TO START";X$:'
  16. 15 IF EOF(1) THEN 17
  17. 16 C$="":LINE INPUT #1,C$:PRINT #2,C$:PRINT C$:GOTO 15:'
  18. 17 PRINT #2,F$:CLOSE 1,2:PRINT"FILES CLOSED":PRINT"DONE":BEEP:END:'
  19. 18 IF ERR=52 THEN PRINT"FILE "+N$+".DO NOT FOUND"ELSE 20
  20. 19 FORI=1 TO 2000:NEXT:RESUME 13
  21. 20 PRINT"ERROR";ERR;"IN LINE";ERL:STOP
  22.