home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / 173_LIT.ZIP / FOSSIL42.LIT < prev    next >
Encoding:
Text File  |  1990-01-13  |  974 b   |  21 lines
  1. *[FOSSIL42.LIT]***************************************************************
  2. * Description: Removes FOSSIL support.                                       *
  3. * RBBS-PC Level: CPC17.3                                                √ AM *
  4. * Module Affected: RBBSSUB4.BAS                                              *
  5. * Selection Option: FOSSIL = OFF                                             *
  6. * Additional files:                                                          *
  7. ******************************************************************************
  8. 59600 SUB SetEcho (NewEcho$) STATIC
  9.       IF NewEcho$ = PrevEcho$ THEN _
  10.          EXIT SUB
  11.       IF NewEcho$ = "R" THEN _
  12.          ZRemoteEcho = (NOT ZLocalUser) _
  13.       ELSE ZRemoteEcho = ZFalse
  14.       IF ZLocalUser THEN _
  15.          GOTO 59602
  16.       IF NewEcho$ = "I" THEN _
  17.          PRINT #3,ZHostEchoOn$; : _
  18.                GOTO 59602
  19.       IF PrevEcho$ = "I" THEN _
  20.          PRINT #3,ZHostEchoOff$;
  21.