home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / b / krt.ind < prev    next >
File List  |  2020-01-01  |  7KB  |  279 lines
  1. .; KRT.IND, 27-Jul-93, from Bob Schor's KERMIT.IND command file
  2. .;
  3. .; Build a custom KRT.INI init file, use it to run Kermit for some
  4. .; specific purpose, then clean up..
  5. .;
  6. .; N O T E:  This file _requires_ your own customization before use!
  7. .; It is a general guide from which site-specific procedeures may be
  8. .; developed.
  9.  
  10. .;******************************************************************;
  11. .;                                    ;
  12. .;   Copyright 1990,1991,1992,1993 Bob Schor                ;
  13. .;                   Eye and Ear Institute        ;
  14. .;                   203 Lothrop Street            ;
  15. .;                   Pittsburgh, PA  15213        ;
  16. .;                                    ;
  17. .; All rights reserved.  May not be copied without this notice.     ;
  18. .; This is being provided to all DECUS members, who can freely use, ;
  19. .; adapt, or modify this code for their own non-profit purposes.    ;
  20. .;                                    ;
  21. .;******************************************************************;
  22.  
  23. .; Version 10.1 -- first incarnation
  24. .; Version 10.4 -- allow multiple destinations (including modem)
  25. .; Version 10.5 -- build KER:KERMIT.INI (requires patched Kermit)
  26. .; Version 10.6 -- site variable added
  27. .; Version 10.6 -- set modem, dial timeout to 40 seconds
  28. .; Version 10.6 -- increased flexibility in site-specific options
  29. .; Version 10.10 -- some sites are default "remote" Kermits
  30. .; Version 10.10 -- optional exchange/extension, access for some numbers
  31. .; Version 11.1 -- define prefixes for internal, external extensions
  32. .; Version 12.1 -- comments and changes for greater flexibility, systems
  33. .;            not configured as we do our TSX systems
  34. .; Version 12.1 -- Host, Remote, and Server options
  35. .; Version 12.7 -- 11/93 option
  36.  
  37. .; KRT V03.62-8 -- Patched for KRT vs. Kermit-11 T3.60 differences
  38. .;           Renamed to KRT.IND    Billy Y..  27-Jul-93
  39.  
  40.  
  41. .; Initialization
  42.  
  43.     .enable        quiet
  44.     .enable        substitution
  45.     .disable    suffix
  46.     .disable    prefix
  47.  
  48.     .sets    versn    "KRT.IND V03.62-8"
  49.  
  50. .; The use of a named site allows much customization to be in subroutines
  51. .; at the end of this procedure.  Alternatively, in-line code here could
  52. .; be employed.  If so, remove routine "destin" and define "dest" as the
  53. .; device to be logically assigned to XL:
  54.  
  55.     .sets    site    "Pgh"
  56.  
  57. .; Set up site-specific parameters (most customization out there)
  58.  
  59.     .if    site = "Pgh"    .gosub    setpgh
  60.     .if    site = "RU"    .gosub    setru
  61.     .if    site = "BS-73"    .gosub    setbs
  62.  
  63. .; Set up baud rate for modem
  64.  
  65.     .sets    mbaud    "9600"
  66.  
  67. .; Sign-on display and mode selection
  68.  
  69.     ;
  70.     ;'versn'
  71.     ;
  72.  
  73.     ;Kermit may be run in Host, Remote, or Server mode.
  74.     ;
  75.     ;Host mode     This Kermit can "dial out" to another computer.
  76.     ;Remote mode   This computer has been called by another (Host) Kermit.
  77.     ;Server mode   Used for file transfers controlled by calling computer.
  78.     ;
  79.  
  80. .choose:.gosub    setmod
  81.     .if    mode    = "H"    .goto    host
  82.     .if    mode    = "R"    .goto    remote
  83.     .if    mode    = "S"    .goto    server
  84.     ;?KRTIND-W-Only H, R, or S acceptable; use ^C to abort
  85.     .goto    choose
  86.  
  87.  
  88. .; Run Kermit in Host mode, allowing access to phone lines
  89.  
  90. .host:    .gosub    destin
  91.     .if    dest = "phn"    .goto    phone
  92.     .; if not "phone" fall through to the direct connection below
  93.  
  94. .; Direct connection to another computer
  95.  
  96. .conect:assign vm krt
  97.     .open    krt:krt.ini
  98.     .data    set long_packets on
  99.     .data    set eof exit        ! in case of command file error
  100.     .data    set line km        ! or handler of your choice
  101.     .data    set speed 'mbaud'
  102.     .data    set terminal vt100
  103.     .data    set sl on,ked
  104.     .data    set prompt Kermit-11/'site'>
  105. .; May want to include other lines, such as
  106. .;    .data    set file type binary    ! for PC transfers
  107.     .close
  108.  
  109.     r krt
  110.     delete krt:krt.ini
  111.     deassign krt
  112.     .exit
  113.  
  114.  
  115. .; Connection via modem
  116.  
  117. .phone:    .sets    BSpref    "'BSacc''BSac''BSexch'" ;prefix for BS extensions
  118.     .sets    VWpref    "'VWacc''VWac''VWexch'" ;prefix for VW extensions
  119.     .sets    outsid    "9"            ;prefix for outside calls
  120.  
  121.     assign vm krt
  122.     .open    krt:krt.ini
  123.     .data    set long_packets on
  124.     .data    set eof exit        ! in case of command file error
  125.     .data    set line km        ! or handler of your choice
  126.     .data    set speed 'mbaud'
  127.     .data    set modem hayes_mnp    ! or modem of your choice, etc..
  128.     .data    set phone tone
  129.     .data    set phone number victor 'VWpref'7773
  130.     .data    set phone number bschor 'BSpref'2118
  131.     .data    set phone number pittvms 'outsid''BSac'6215954
  132.     .data    set phone number dcs 'outsid'18002477003
  133.     .data    set phone number ruvax 'VWpref'8716
  134.     .data    set terminal vt100
  135.     .data    set sl on,ked
  136.     .data    set prompt Kermit-11/'site'>
  137. .; May want to include other lines, such as
  138. .;    .data    set file type binary    ! for PC transfers
  139.     .close
  140.  
  141.     r krt
  142.     delete krt:krt.ini
  143.     deassign krt
  144.     .exit
  145.  
  146.  
  147. .; Run Kermit in Remote mode, no access to phone lines
  148.  
  149. .remote:assign vm krt
  150.     .open    krt:krt.ini
  151.     .data    set long_packets on
  152.     .data    set eof exit        ! in case of command file error
  153.     .data    set terminal vt100
  154.     .data    set sl on,ked
  155.     .data    set prompt Kermit-11/'site'>
  156. .; May want to include other lines, such as
  157. .;    .data    set file type binary    ! for PC transfers
  158.     .close
  159.  
  160.     r krt
  161.     delete krt:krt.ini
  162.     deassign krt
  163.     .exit
  164.  
  165.  
  166. .; Run Kermit in Server mode, no access to phone lines
  167.  
  168. .server:assign vm krt
  169.     .open    krt:krt.ini
  170.     .data    set long_packets on
  171.     .data    set eof exit        ! in case of command file error
  172.     .data    set terminal vt100
  173.     .data    set sl on,ked
  174.     .data    set prompt Kermit-11/'site'>
  175. .; May want to include other lines, such as
  176. .;    .data    set file type binary    ! for PC transfers
  177.     .data    set tt noquiet        ! display all of server init message
  178.     .data    server
  179.     .data    exit            ! exit Kermit after server is stopped
  180.     .close
  181.  
  182.     r krt
  183.     delete krt:krt.ini
  184.     deassign krt
  185.     .exit
  186.  
  187.  
  188. .; Subroutines to set site-specific phone parameters
  189.  
  190. .; Host is 11/73 in Pittsburgh
  191.  
  192. .setpgh:.sets    BSacc    ""        ;access code
  193.     .sets    BSac    ""        ;area code
  194.     .sets    BSexch    ""        ;exchange
  195.  
  196.     .sets    VWacc    "9"
  197.     .sets    VWac    "1212"
  198.     .sets    VWexch    "327"
  199.  
  200.     .sets    dest    "phn"        ;default destination
  201.     .sets    mode    "R"        ;default host/remote/server
  202.     .return
  203.  
  204. .; Host is 11/44 at Rockefeller
  205.  
  206. .setru:    .sets    BSacc    "9"        ;access code
  207.     .sets    BSac    "1412"        ;area code
  208.     .sets    BSexch    "647"        ;exchange
  209.  
  210.     .sets    VWacc    ""
  211.     .sets    VWac    ""
  212.     .sets    VWexch    ""
  213.  
  214.     .sets    mode    "S"        ;default host/remote/server
  215.     .return
  216.  
  217. .; Host is Bob's other 11/73
  218.  
  219. .setbs:    .sets    BSacc    "9"        ;access code
  220.     .sets    BSac    "1412"        ;area code
  221.     .sets    BSexch    "647"        ;exchange
  222.  
  223.     .sets    VWacc    ""
  224.     .sets    VWac    ""
  225.     .sets    VWexch    ""
  226.  
  227.     .sets    dest    "l44"        ;default destination
  228.     .sets    mode    "R"        ;default host/remote/server
  229.     .return
  230.  
  231.  
  232. .; Subroutine to choose a destination:    modem, 11/23, 11/73, 11/44, or 11/93
  233.  
  234. .destin:.if    site = "Pgh"    .goto    despgh    ;set Pgh destinations
  235.     .if    site = "RU"    .goto    desru    ;set RU destinations
  236.     .return                    ;other sites set by default
  237.  
  238. .despgh:.sets    dest    "M"
  239.     .disable    lowercase
  240.     .asks    [1:1:"'dest'"]    dest    M(odem) or 9(3) ['dest'] --
  241.     .enable        lowercase
  242.  
  243.     .if    dest = "M"    .goto    setdes
  244.     .if    dest = "9"    .goto    setdes
  245.  
  246.     ;?KRTIND-W-Only M or 9 acceptable; use ^C to abort
  247.     .goto    destin
  248.  
  249. .; RU destinations
  250.  
  251. .desru:    .sets    dest    "M"
  252.     .disable    lowercase
  253.     .asks    [1:1:"'dest'"]    dest    M(odem), 2(3), or 7(3) ['dest'] --
  254.     .enable        lowercase
  255.  
  256.     .if    dest = "M"    .goto    setdes
  257.     .if    dest = "2"    .goto    setdes
  258.     .if    dest = "7"    .goto    setdes
  259.  
  260.     ;?KRTIND-W-Only M, 2, or 7 acceptable; use ^C to abort
  261.     .goto    destin
  262.  
  263. .; Pgh destinations
  264.  
  265. .setdes:.if    dest = "M"    .sets    dest    "phn"
  266.     .if    dest = "2"    .sets    dest    "l23"
  267.     .if    dest = "7"    .sets    dest    "l73"
  268.     .if    dest = "9"    .sets    dest    "l93
  269.     .if    dest = "4"    .sets    dest    "l44"
  270.     .return
  271.  
  272.  
  273. .; Subroutine to choose default host/remote/server, site-dependent
  274.  
  275. .setmod:.disable    lowercase
  276.     .asks    [1:1:"'mode'"]    mode    H(ost), R(emote), or S(erver) ['mode'] --
  277.     .enable        lowercase
  278.     .return
  279.