home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / 173_LIT.ZIP / FOSSIL31.LIT < prev    next >
Encoding:
Text File  |  1990-01-13  |  940 b   |  20 lines
  1. *[FOSSIL31.LIT]***************************************************************
  2. * Description: Removes FOSSIL support.                                       *
  3. * RBBS-PC Level: CPC17.3                                                √ AM *
  4. * Module Affected: RBBSSUB3.BAS                                              *
  5. * Selection Option: FOSSIL = OFF                                             *
  6. * Additional files:                                                          *
  7. ******************************************************************************
  8. 42005 SUB CheckCarrier STATIC                                        ' KG061203
  9.       IF ZSubParm = -1 THEN _
  10.          EXIT SUB
  11.       Speedy = ZSubParm
  12.       ZSubParm = 0
  13.       IF ZLocalUser THEN _
  14.          EXIT SUB
  15. 42015 IF Speedy = -10 THEN _
  16.          GOTO 42020
  17.       CALL DelayTime (ZModemInitWaitTime)
  18.       IF INP(ZModemStatusReg) > 127 THEN _
  19.          EXIT SUB
  20.