*[ANSWER.LIT]*****************************************************************
* Description: Part of SYSMENU.LIT.  Adjusts ANSWERIT routine.               *
* RBBS-PC Level: 17.3A                                                       *
* Module Affected: RBBSSUB2.BAS                                              *
* Selection Option: SYSMENU = OFF & RBBSANS = ON                             *
* Additional files: SYSMENU.LIT                                              *
******************************************************************************
237 LOCATE 18,76
    IF ZDosANSI THEN _
       CALL LPrnt(ZEscape$ + "[05m" + "YES" + ZEscape$ + "[00m",0) _
    ELSE CALL LPrnt ("YES",0)
    COLOR ZFG,ZBG,ZBorder
    LOCATE 20,56
'
' *****************************************************************************
' *  GET READY TO ANSWER INCOMMING CALL:                                      *
' *       1.  LET THE MODEM "AUTO-ANSWER" FOR RBBS-PC.                        *
' *           REQUIRED RINGS = 0 AND S0 = 1 IN MODEM INIT COMMAND.            *
' *       2.  ANSWER THE MODEM ON A SPECIFIED NUMBER OF RINGS.                *
' *           REQUIRED RINGS > 0 AND S0 = 254 IN MODEM INIT COMMAND.          *
' *       3.  ANSWER THE MODEM ON A SPECIFIED NUMBER OF RINGS AFTER A USER    *
' *           FIRST CALLS AND THEN HANGS UP (I.E. RING-BACK).                 *
' *           REQUIRED RINGS > 0 AND S0 = 255 IN MODEM INIT COMMAND.          *
' *****************************************************************************
'
    WasQQ = 255
    WasI = INSTR(ZModemInitCmd$,"S0")
    IF WasI = 0 OR PCJr THEN _
       GOTO 239
    IF VAL(MID$(ZModemInitCmd$,WasI + 3,3)) = 255 THEN _
       WasQQ = 0 : _
       ZBlk = WasQQ
    ZSecsUsedSession! = TIMER
    ZSubParm = 1
    CALL Line25
    RingAnswer = ZTrue
    IF RingBack THEN _
       RingAnswer = ZFalse