home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / iclvme2900.tar.gz / iclvme2900.tar / kermit next >
Text File  |  1987-07-14  |  2KB  |  36 lines
  1. @******************************************************************************@
  2. @                                                                              @
  3. @     VME Kermit User Interface Procedure.                                     @
  4. @     ------------------------------------                                     @
  5. @                                                                              @
  6. @     Installation instructions:                                               @
  7. @                                                                              @
  8. @     1. The BOOL value ASG should be set to TRUE if terminal connection       @
  9. @        to VME is via ASG, otherwise set to FALSE (for CSC, NIC etc).         @
  10. @                                                                              @
  11. @     2. The default option may be changed from "COMMAND" to "SERVER" if       @
  12. @        desired.                                                              @
  13. @                                                                              @
  14. @******************************************************************************@
  15.  
  16.  
  17. PROC KERMIT IS (
  18.       LITERAL  (OPTION)   OPT := "COMMAND",  @ "SERVER" is a valid alternative @
  19.       LITERAL  (VME_FILE) VF  := "",
  20.       LITERAL  (REM_FILE) RF  := "",
  21.       RESPONSE (RESPONSE) R   := RESULT)
  22.  
  23. PROCBEGIN
  24.  
  25.    EXT PROC KERMIT_THE_FROG IS (
  26.          LITERAL  OPTION   := "COMMAND",     @ DON'T change this to "SERVER"   @
  27.          LITERAL  VME_FILE := "",
  28.          LITERAL  REM_FILE := "",
  29.          RESPONSE RESPONSE := RESULT)
  30.  
  31.    BOOL ASG IS FALSE   @ TRUE : comms route is via ASG, FALSE : via CSC or NIC @
  32.  
  33.    KERMIT_THE_FROG(VAL OPT,VAL VF,VAL RF,R)
  34.  
  35. PROCEND
  36.