home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / RBBSCONN.ZIP / RSB5CONN.MRG < prev   
Text File  |  1991-10-02  |  588b  |  14 lines
  1. 20785 ZBlocksInFile# = ZBlocksInFile# / _
  2.             VAL(MID$("000003000450120024004800960144019203840", -4 * ZBPS, 4))  ' DB093001
  3.       ZBlocksInFile# = ZBlocksInFile# * ZFLen / ZSpeedFactor!
  4.       IF (ZAnsIndex > 1 AND ZConcatFIles) THEN _
  5.          RETURN
  6.       ZOutTxt$ = ZOutTxt$ + _
  7.            STR$(ZBytesInFile#) + _
  8.            " Bytes"                                                  ' TC090101
  9.       GOSUB 21630                                                    ' TC090101
  10.       IF ZFileSysParm > 1 THEN _
  11.          RETURN
  12.       IF ZBytesInFile# < 1 THEN _
  13.          RETURN
  14.