home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol040 / xfertime.bas < prev   
Encoding:
BASIC Source File  |  1984-04-29  |  1.2 KB  |  26 lines
  1. 10 REM  File Transfer Time Program for RCPM's, by Kelly Smith
  2. 20 REM 
  3. 30 REM  This  program may be used by a RCPM user to  determine 
  4. 40 REM the  total time in minutes to transfer files to or from 
  5. 50 REM a RCPM system.  Time  is rounded down  to  the  nearest 
  6. 60 REM minute,  but  detailed information may be  obtained  by 
  7. 70 REM removing the 'REM's in the following code. This program 
  8. 80 REM is compatible with Microsoft BASIC, and will compile to 
  9. 90 REM a 11 kilobyte (Gag!) file utilizing BASCOM.
  10. 100 REM
  11. 110 PRINT:INPUT "What is the Baud Rate (60 to 1200)";B
  12. 120 IF B<>60 AND B<>110 AND B<>300 AND B<>450 THEN GOTO 140
  13. 130 GOTO 180
  14. 140 IF B<>600 AND B<>710 AND B<>1200 THEN GOTO 160
  15. 150 GOTO 180
  16. 160 PRINT:PRINT"+++ Invalid Baud Rate +++":PRINT
  17. 170 PRINT"Must be 60, 110, 300, 450, 600, 710, or 1200 Baud!":GOTO 110
  18. 180 INPUT "What is the File Size in kilobytes";S
  19. 190 IF S<1 THEN GOTO 180
  20. 200 S=S*1024:T=S/(B/10):TM=T/60
  21. 210 REM PRINT:PRINT"Total number of characters in this file is";S
  22. 220 REM PRINT"This file will take";T;"seconds"
  23. 230 REM PRINT"Which equals";TM;"minutes"
  24. 240 PRINT:PRINT"Transfer time will be approximately";
  25. 250 T=INT(TM):IF T>1 THEN PRINT T "minutes" ELSE PRINT" 1 minute""
  26.