home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / 173_LIT.ZIP / FOSSIL51.LIT < prev    next >
Encoding:
Text File  |  1990-01-13  |  835 b   |  15 lines
  1. *[FOSSIL51.LIT]***************************************************************
  2. * Description: Removes FOSSIL support.                                       *
  3. * RBBS-PC Level: CPC17.3                                                √ AM *
  4. * Module Affected: RBBSSUB5.BAS                                              *
  5. * Selection Option: FOSSIL = OFF                                             *
  6. * Additional files:                                                          *
  7. ******************************************************************************
  8. 63310 SUB RestoreCom STATIC
  9.       Parity$ = MID$(",N,8,1,E,7,1",7 + 6 * ZEightBit,6)
  10.       IF ZLocalUser THEN _
  11.          EXIT SUB
  12.       CALL SetBaud                                                   ' KG052102
  13.       CALL OpenCom(ZTalkToModemAt$,Parity$)
  14.       END SUB
  15.