;*PW2: ENQBTGL.WAS - Toggle between ENQ CISB and ENQ OFF.                   *
;*                                                                          *
;*Some of us leave ENQuiry set OFF for normal operation, and only set it    *
;*to CISB when it is needed.  But the setting is buried in the Setup, so    *
;*this script, which can be attached to a MetaKey, makes it possible to     *
;*quickly toiggle it to CISB or OFF should you need to do so in a hurry.    *
;*                                                                          *
;****************************************************************************

proc main                                         ;label for proc
    integer status                                ;integer to hold enq status

    fetch terminal enquiry status                 ;fetch enq state to status
    if status == 0                                ;if it was OFF
       set terminal enquiry CISB                  ;set it to CISB
       statmsg "Was ENQ OFF - Now ENQ CISB"       ;and say so
    elseif status == 1                            ;if it was ON
       set terminal enquiry CISB                  ;set it to CISB
       statmsg "Was ENQ ON - Now ENQ OFF"         ;and say so
    elseif status == 2                            ;if it was CISB
       set terminal enquiry OFF                   ;set it to OFF
       statmsg "Was ENQ CISB - Now ENQ OFF"       ;and say so
    endif                                         ;end the if
endproc                                           ;label for end of proc main
;
;end of script