KERMIT(KERMIT - DX10 VERSION 1.0)=4,
ISC CONSOLE TERMINAL?,
REMOTE TERMINAL?=NAME(@ME)
*
* CHECK FOR NON-STANDARD OR NON-931 TERMINAL
* PROMPT FOR THIS IN EXPERT MODE
*
.IF "&ISC CONSOLE TERMINAL?",GE,"Y"
  .SYN $RISC="ISC"
.ELSE
  .SYN $RISC="NOISC"
.ENDIF
*
* SET LOCAL OR REMOTE MODE
*
.IF "&REMOTE TERMINAL?",EQ,"@ME"
  .SYN $RTER="REMOTE"
.ELSE
  .SYN $RTER="LOCAL"
.ENDIF
*
.SYN $QUIT=""
*
* BID TASK FROM .PROG or whatever program file you choose
*
AL AN=.PROG,PF=YES,D=NO
*
.BID TASK=KERMIT,LUNO=@$$LU,
  PARMS=(9,1,"&REMOTE TERMINAL?","@ME",".KERLOG@$$ST",
           "@$RTER","@$RISC")
*
* CLEAN UP
RL L=@$$LU
.SYN $RTER="",$RISC=""
*
.IF "@$QUIT",GE,"Y"  ! BYE OPTION RECEIVED IN KERMIT
  .SYN $QUIT=""      ! SETS $QUIT - SO CLEAR THE SYN
  Q                  ! AND LOGOFF THE SYSTEM.
.ENDIF
*