Columbia Kermit/kermit.zip/iclvme2900/kermit

Text File | 2020-01-01 | 2KB | 36 lines

@******************************************************************************@
@                                                                              @
@     VME Kermit User Interface Procedure.                                     @
@     ------------------------------------                                     @
@                                                                              @
@     Installation instructions:                                               @
@                                                                              @
@     1. The BOOL value ASG should be set to TRUE if terminal connection       @
@        to VME is via ASG, otherwise set to FALSE (for CSC, NIC etc).         @
@                                                                              @
@     2. The default option may be changed from "COMMAND" to "SERVER" if       @
@        desired.                                                              @
@                                                                              @
@******************************************************************************@


PROC KERMIT IS (
      LITERAL  (OPTION)   OPT := "COMMAND",  @ "SERVER" is a valid alternative @
      LITERAL  (VME_FILE) VF  := "",
      LITERAL  (REM_FILE) RF  := "",
      RESPONSE (RESPONSE) R   := RESULT)

PROCBEGIN

   EXT PROC KERMIT_THE_FROG IS (
         LITERAL  OPTION   := "COMMAND",     @ DON'T change this to "SERVER"   @
         LITERAL  VME_FILE := "",
         LITERAL  REM_FILE := "",
         RESPONSE RESPONSE := RESULT)

   BOOL ASG IS FALSE   @ TRUE : comms route is via ASG, FALSE : via CSC or NIC @

   KERMIT_THE_FROG(VAL OPT,VAL VF,VAL RF,R)

PROCEND