home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / pc / termprog / ca28_1.zoo / install.cmd < prev    next >
Encoding:
Text File  |  1991-07-08  |  16.8 KB  |  555 lines
  1.     SET TTHRU OFF        ; Must be 1st line to suppress typethrough
  2.     ON ESCAPE GOSUB Escape    ; Exit if ESC
  3. ;****    TRACE ON        ; Debugging
  4. ;
  5. ; ----- COM-AND INSTALL script for automatic execution
  6. ;    Commenced: 10/90 R.McG
  7. ; -----------------------------------------------------------------------
  8. ;    Purpose:
  9. ;       This script, named INSTALL.CMD, is executed automatically by
  10. ;    COM-AND after the load-time creation of the DFT file.  It may be
  11. ;    manually invoked through the F2 window at any time, as well.
  12. ; -----------------------------------------------------------------------
  13. ;
  14. ;    Initialization
  15. ;
  16.     LEGEND "Welcome..."
  17.     SET RDISP OFF        ; Ignore received chars
  18. ;
  19. ;    Establish a DWINDOW, and change the text display to window default.
  20. ;    .. Save the previous text display attribute, for restoration later.
  21. ;
  22.     DWIND 1,2 22,78     ; Establish scrolling region
  23.     N99 = "_TEXT"           ; Save original text attr
  24.     SET TEXT "_DEFA"        ; Set text attr
  25. ;
  26. ;    Perform tasks
  27. ;
  28. Again:
  29.     GOSUB Intro        ; Paint intro screen
  30.     GOSUB Set        ; Look at autoexec file
  31.     GOSUB Port        ; Select port for default use
  32.     GOSUB Speed        ; Select speed for default use
  33.     GOSUB Type        ; Select modem type
  34.     GOSUB Update        ; Ending "do it again?" query
  35.     IF FAILED GOTO Again
  36. ;
  37. ;    Save current settings
  38. ;
  39.     SET TEXT N99        ; Reset text attr for store
  40.     STORE DEFAULT        ; Update defaults
  41.     GOTO Almost        ; Skip Escape tests
  42. ;
  43. ;    Escape was hit - if runtime invocation, do the CODA.
  44. ;
  45. Escape:
  46.     IF STRCMP "_RUNT" "NO" GOTO Exit
  47. ;
  48. ;    Last words
  49. ;
  50. Almost:
  51.     ON ESCAPE GOSUB EXIT    ; New ESC processor
  52.     SET TEXT "_DEFA"        ; Set text attr
  53.     GOSUB Coda        ; Ending last words
  54. ;
  55. ;    Exit the script
  56. ;
  57. Exit:
  58.     SET TEXT N99        ; Reset text attr finally
  59.     DWINDOW CLEAR        ; Clear any scrolling region
  60.     CLEAR            ; Clear entire text window
  61.     EXIT
  62. ;
  63. ; ----- Subroutine: Intro -> introductory screen
  64. ;    .. note: BOX instead of WOPEN is used - allowing global ESC
  65. ;
  66. Intro:
  67.     BOX   0,0 23,79 (default)
  68.     ATSAY 0,2 (default)   " INSTALL intro "
  69.     ATSAY 23,25 (default) " Press ESC to cancel INSTALL "
  70.     LOCATE 2,2
  71.  
  72.     MESS "   ▓▓▓▓▓▓▓▓  ▓▓▓▓▓▓▓▓  ▓▓▓   ▓▓▓             ▓▓▓▓▓▓▓  ▓▓     ▓▓  ▓▓▓▓▓▓▓  "
  73.     MESS "   ▓▓        ▓▓    ▓▓  ▓▓ ▓▓▓ ▓▓            ▓▓     ▓▓ ▓▓▓    ▓▓  ▓▓    ▓▓ "
  74.     MESS "   ▓▓        ▓▓    ▓▓  ▓▓  ▓  ▓▓            ▓▓     ▓▓ ▓▓ ▓   ▓▓  ▓▓    ▓▓ "
  75.     MESS "   ▓▓        ▓▓    ▓▓  ▓▓     ▓▓  ▓▓▓▓▓▓▓▓  ▓▓▓▓▓▓▓▓▓ ▓▓  ▓  ▓▓  ▓▓    ▓▓ "
  76.     MESS "   ▓▓        ▓▓    ▓▓  ▓▓     ▓▓            ▓▓     ▓▓ ▓▓   ▓ ▓▓  ▓▓    ▓▓ "
  77.     MESS "   ▓▓        ▓▓    ▓▓  ▓▓     ▓▓            ▓▓     ▓▓ ▓▓    ▓▓▓  ▓▓    ▓▓ "
  78.     MESS "   ▓▓▓▓▓▓▓▓  ▓▓▓▓▓▓▓▓  ▓▓     ▓▓            ▓▓     ▓▓ ▓▓     ▓▓  ▓▓▓▓▓▓▓  "
  79.     MESS " "
  80. ;
  81. ;    Add introductory text
  82. ;
  83.     IF STRCMP "_RUNT" "YES"
  84.        MESS "COM-AND has created a file named COM-AND.DFT for default values.  This means"
  85.        MESS "that this is the first time COM-AND has executed under these conditions.  A"
  86.        MESS "script (INSTALL.CMD) included with the COM-AND release will help install the"
  87.        MESS "settings you will use in this and subsequent COM-AND sessions."
  88.     ELSE
  89.        MESS "You have invoked INSTALL.CMD to change COM-AND's default settings.  The IN-"
  90.        MESS "STALL will allow you to 1) add a COM-AND= environment variable to the auto-"
  91.        MESS "exec.bat, 2) set modem port and type, and 3) set operating values for this"
  92.        MESS "and subsequent COM-AND sessions."
  93.     ENDIF
  94.     MESS " "
  95.     MESS "In order to use this script, you will need to know a few facts about your PC"
  96.     MESS "and its configuration.  You will need to know the boot drive, the modem port"
  97.     MESS "and the type of modem you will be using.  This script will help you decide"
  98.     MESS "these matters (as much as it is able) and change the DFT file accordingly."
  99.     MESS " "
  100.     MESS "You may skip this installation script by pressing ESC now (or anytime during"
  101.     MESS "the installation).  Press any other key to continue..."
  102. ;
  103. ;    Wait for a keypress
  104. ;
  105.     KEYGET S0        ; Wait for it
  106.     RETURN            ; And we're done
  107. ;
  108. ; ----- Subroutine: Set -> Inform of update autoexec.bat with COM-AND=
  109. ;
  110. Set:
  111.     BOX   0,0 23,79 (default)
  112.     ATSAY 0,2 (default)   " Boot config "
  113.     ATSAY 23,25 (default) " Press ESC to cancel INSTALL "
  114.     LOCATE 2,2
  115.  
  116.     MESS "COM-AND works best if a single subdirectory is used for COM-AND files and"
  117.     MESS "scripts.  COM-AND is executing currently from the subdirectory: "
  118.     MESS " "
  119.     MESS "_SUBD"
  120.     MESS " "
  121.     MESS "COM-AND looks for files and scripts 1) in the subdirectory it finds at run-"
  122.     MESS "time, and if not there 2) in the subdirectory pointed out by the environment"
  123.     MESS "variable 'COM-AND='.  If COM-AND's working subdirectory is indicated by that"
  124.     MESS "environment variable, COM-AND may be executed in ANY subdirectory and still"
  125.     MESS "find scripts and files."
  126.     MESS " "
  127.     MESS "You may use this script to update your AUTOEXEC.BAT file to SET the environ-"
  128.     MESS "ment variable, or skip this step."
  129.     MESS " "
  130.     MESS "Select S)kip, U)pdate, or ESCape (escape cancels this script): "
  131. ;
  132. ;    Wait for a keypress
  133. ;
  134.     GET S0 1        ; Wait for a char
  135.     SWITCH S0        ; Switch on the return
  136.        CASE "S"             ; S)kip
  137.        ENDCASE
  138.        CASE "U"             ; U)pdate
  139.         GOSUB Autoexec    ; Do the update
  140.        ENDCASE
  141.        DEFAULT        ; Any other selection
  142.         SOUND 100,100
  143.         GOTO Set
  144.        ENDCASE
  145.     ENDSWITCH
  146.     RETURN            ; And continue
  147. ;
  148. ; ----- Error:    Open a window, display a message, and exit
  149. ;    S0 passes the error message
  150. ;
  151. Error:
  152.     WOPEN 10,10,12,70 (contrast)
  153.     ATSAY 10,12 (contrast) " Error "
  154.     ATSAY 11,12 (contrast) S0(0:55); Max msg width 55 chars
  155.     ATSAY 12,26 (contrast) " Press any key to continue "
  156.     ;
  157.     ;    Wait a keypress
  158.     ;
  159.     KEYGET S0            ; Wait for any key
  160.     WCLOSE
  161.     RETURN
  162. ;
  163. ; ----- Subroutine: Autoexec -> update autoexec.bat with COM-AND=
  164. ;
  165. Autoexec:
  166.     BOX   0,0 23,79 (default)
  167.     ATSAY 0,2 (default)   " AUTOEXEC update "
  168.     ATSAY 23,25 (default) " Press ESC to cancel INSTALL "
  169.     LOCATE 2,2
  170.  
  171.     MESS "Please enter the drive letter (A,B,C...) from which your PC is booted.  If"
  172.     MESS "a diskette is used for boot, please see that the boot disk is in that drive."
  173.     MESS " "
  174.     MESS "Select drive: A,B,C...: "
  175. ;
  176. ;    Wait for a keypress
  177. ;
  178.     GET S0 1        ; Wait for a char
  179.     IF NOT ALPHA S0
  180.        SOUND 100,100
  181.        GOTO Autoexec
  182.        ENDIF
  183. ;
  184. ;    Look for an autoexec.bat file on that drive
  185. ;
  186.     S1 = S0*":\AUTOEXEC.BAT"
  187.     IF ISFILE S1 GOTO Auto200
  188. ;
  189. ;    Missing autoexec.bat
  190. ;
  191.     MESS " "
  192.     MESS "No AUTOEXEC.BAT file was found on the indicated drive.  One will be created"
  193.     MESS "if you wish, or you may try another drive."
  194.     MESS " "
  195.     MESS "Select C)reate, A)nother-drive, or ESCape (escape cancels this script): "
  196. ;
  197. ;    Wait for a keypress
  198. ;
  199.     GET S0 1        ; Wait for a char
  200.     SWITCH S0        ; Switch on the return
  201.        CASE "C"             ; C)reate
  202.         GOTO AUTO100
  203.        ENDCASE
  204.        CASE "A"             ; A)nother
  205.         GOTO Autoexec    ; Do it again
  206.        ENDCASE
  207.        DEFAULT        ; Any other selection
  208.         SOUND 100,100
  209.         GOTO Autoexec
  210.        ENDCASE
  211.     ENDSWITCH
  212. ;
  213. ;    Create AUTOEXEC... get parameter for the subdirectory
  214. ;
  215. Auto100:
  216.     GOSUB GetSetVal
  217. ;
  218. ;    Create it
  219. ;
  220.     FOPENO S1 TEXT        ; Open for output
  221.     IF FAILED        ; If open failed
  222.        S0 = "Error opening "*S1
  223.        GOSUB Error
  224.        GOTO Autoexec
  225.        ENDIF
  226.     WRITE "SET COM-AND="*S0*"!"
  227.     WRITE "DATE!"
  228.     WRITE "TIME!"
  229.     WRITE "^Z"              ; ASCII EOF
  230.     FCLOSEO         ; Close it
  231.     RETURN            ; And we're done creating it
  232. ;
  233. ;    AUTOEXEC exists... append SET COM-AND= to the file
  234. ;    .. note: I don't test for the presence of SHELL or another COM-AND=
  235. ;
  236. Auto200:
  237.     GOSUB GetSetVal
  238. ;
  239. ;    Create it
  240. ;
  241.     FOPENO S1 TEXT APPEND    ; Open for output - appending at EOF
  242.     IF FAILED        ; If open failed
  243.        S0 = "Error opening "*S1
  244.        GOSUB Error
  245.        GOTO Autoexec
  246.        ENDIF
  247.     WRITE "SET COM-AND="*S0*"!"
  248.     WRITE "^Z"              ; ASCII EOF
  249.     FCLOSEO         ; Close it
  250.     RETURN            ; And we're done creating it
  251. ;
  252. ;    Subroutine: GetSETVal (S0 returns value)
  253. ;
  254. GetSetVal:
  255.     MESS "COM-AND is executing currently from the subdirectory: "
  256.     MESS " "
  257.     MESS "_SUBD"
  258.     MESS " "
  259.     MESS "Please enter the subdirectory you will use for COM-AND.  If the current sub-"
  260.     MESS "directory is the one, just press return.  Otherwise enter the new subdirec-"
  261.     MESS "tory as d:\path (d being drive letter, and path being fully qualified path)."
  262.     MESS " "
  263.     MESS "Enter COM-AND's working subdirectory (or press CR):!"
  264. ;
  265. ;    Read working subdir
  266. ;
  267.     GET S0 76        ; Read response
  268.     IF NULL S0 S0="_SUBD"   ; Make default condition
  269.     RETURN
  270. ;
  271. ; ----- Subroutine: Port -> Select the port we'll use
  272. ;
  273. Port:
  274.     BOX   0,0 23,79 (default)
  275.     ATSAY 0,2 (default)   " Port selection "
  276.     ATSAY 23,25 (default) " Press ESC to cancel INSTALL "
  277.     LOCATE 2,2
  278.  
  279.     MESS "COM-AND is defaulted to "*"_PARM"(11:14)*" for serial communications."
  280.     MESS " "
  281.     MESS "This may or may not be right for your PC.  At this point, you may skip"
  282.     MESS "changing the setting, select another serial port for the default, and"
  283.     MESS "optionally find ports on your machine for possible choices. "
  284.     MESS " "
  285.     MESS "Select S)kip, F)ind, or numeric port number (1,2,3,4): "
  286.     CURSOR N1,N2        ; Save current cursor
  287.  
  288.     MESS " "
  289.     MESS "Alt-P may be used at any time in CRT mode to change this default."
  290.     CURSOR N3,N4        ; Save cursor here, too
  291. ;
  292. ;    Wait for a keypress
  293. ;
  294. Port100:
  295.     ATSAY N1,N2 (default) " "
  296.     LOCATE N1,N2        ; Relocate cursor
  297.     GET S0 1        ; Wait for a char
  298.     SWITCH S0        ; Switch on the return
  299.        CASE "S"             ; S)kip
  300.        ENDCASE
  301.        CASE "F"             ; Find
  302.         LOCATE N3,N4    ; Relocate cursor
  303.         GOSUB Survey    ; Do the survey
  304.         GOTO Port100    ; And ask again
  305.        ENDCASE
  306.        CASE "1"             ; COM1
  307.         SET PORT COM1    ; Do the update
  308.        ENDCASE
  309.        CASE "2"             ; COM2
  310.         SET PORT COM2    ; Do the update
  311.        ENDCASE
  312.        CASE "3"             ; COM3
  313.         SET PORT COM3    ; Do the update
  314.        ENDCASE
  315.        CASE "4"             ; COM4
  316.         SET PORT COM4    ; Do the update
  317.        ENDCASE
  318.        DEFAULT        ; Any other selection
  319.         SOUND 100,100
  320.         GOTO Port
  321.        ENDCASE
  322.     ENDSWITCH
  323.     RETURN            ; And continue
  324. ;
  325. ; ----- Test existing ports...
  326. ;
  327. Survey:
  328.     COMPARMS S0        ; Get current settings
  329.     S0 = S0(11:14)        ; Save original value
  330.     N0 = 0            ; Make a counter of ports found
  331.     MESS " "                ; new line
  332.     SET PORT COM1
  333.     IF "_UART" GE 0
  334.        MESS " I believe COM1 is a serial port"
  335.        INC N0
  336.        ENDIF
  337.     SET PORT COM2
  338.     IF "_UART" GE 0
  339.        MESS " I believe COM2 is a serial port"
  340.        INC N0
  341.        ENDIF
  342.     SET PORT COM3
  343.     IF "_UART" GE 0
  344.        MESS " I believe COM3 is a serial port"
  345.        INC N0
  346.        ENDIF
  347.     SET PORT COM4
  348.     IF "_UART" GE 0
  349.        MESS " I believe COM4 is a serial port"
  350.        INC N0
  351.        ENDIF
  352.     SET PORT S0        ; Restore default
  353.  
  354.     IF N0 eq 0 MESS " I can't find serial ports on COM1/2/3 or 4"
  355.     RETURN
  356. ;
  357. ; ----- Subroutine: Speed -> Select the default speed we'll use
  358. ;
  359. Speed:
  360.     BOX   0,0 23,79 (default)
  361.     ATSAY 0,2 (default)   " Speed selection "
  362.     ATSAY 23,25 (default) " Press ESC to cancel INSTALL "
  363.     LOCATE 2,2
  364.  
  365.     MESS "The current serial port "*"_PARM"(11:14)*" is defaulted to "*"_PARM"(0:3)*" baud."
  366.     MESS " "
  367.     MESS "This may or may not be right the best speed for your modem.  Please select"
  368.     MESS "the HIGHEST speed your modem is able to use.  As before, you may skip this"
  369.     MESS "step if you wish."
  370.     MESS " "
  371.     MESS "Select S)kip, or from below (1 through 5): "
  372.     CURSOR N1,N2
  373.  
  374.     MESS " "
  375.     MESS "    1)   300 baud"
  376.     MESS "    2)  1200 baud"
  377.     MESS "    3)  2400 baud"
  378.     MESS "    4)  9600 baud"
  379.     MESS "    5) 19.2K baud"
  380.  
  381.     MESS " "
  382.     MESS "Alt-P may be used at any time in CRT mode to change this default."
  383. ;
  384. ;    Wait for a keypress
  385. ;
  386.     LOCATE N1,N2        ; Relocate cursor
  387.     GET S0 1        ; Wait for a char
  388.     SWITCH S0        ; Switch on the return
  389.        CASE "S"             ; Skip
  390.        ENDCASE
  391.        CASE "1"
  392.         SET BAUD 300    ; Do the update
  393.        ENDCASE
  394.        CASE "2"
  395.         SET BAUD 1200    ; Do the update
  396.        ENDCASE
  397.        CASE "3"
  398.         SET BAUD 2400    ; Do the update
  399.        ENDCASE
  400.        CASE "4"
  401.         SET BAUD 9600    ; Do the update
  402.        ENDCASE
  403.        CASE "5"
  404.         SET BAUD 19.2    ; Do the update
  405.        ENDCASE
  406.        DEFAULT        ; Any other selection
  407.         SOUND 100,100
  408.         GOTO Speed
  409.        ENDCASE
  410.     ENDSWITCH
  411.     RETURN            ; And continue
  412. ;
  413. ; ----- Subroutine: Type -> Select the modem type we'll use
  414. ;
  415. Type:
  416.     BOX   0,0 23,79 (default)
  417.     ATSAY 0,2 (default)   " Modem type "
  418.     ATSAY 23,25 (default) " Press ESC to cancel INSTALL "
  419.     LOCATE 2,2
  420.  
  421.     MESS "When COM-AND created its defaults, modem commands were set to simple Hayes"
  422.     MESS "(tm) commands.  You may select from one of the following modem types for"
  423.     MESS "default values.  [This list is hardly comprehensive.  If your particular"
  424.     MESS "modem is not listed, and you wish to change the modem commands, please use"
  425.     MESS "setup (Alt-S) in CRT mode, and refer to your modem manual.]"
  426.     MESS " "
  427.     MESS "Select S)kip, or from below (1 through 6): "
  428.     CURSOR N1,N2
  429.  
  430.     MESS " "
  431.     MESS "    1) MICROCOM 9624c"
  432.     MESS "    2) Everex 2400 internal"
  433.     MESS "    3) Leading Edge 2400B half-size internal"
  434.     MESS "    4) Practical Peripherals 2400 half-size internal"
  435.     MESS "    5) Everex, Evercom 24+ (MNP)"
  436.     MESS "    6) Original default commands (Hayes compatible)"
  437.  
  438.     MESS " "
  439.     MESS "Alt-S may be used at any time in CRT mode to change default values.  You"
  440.     MESS "will need to know: 1) modem initialization command, 2) dialing command (pre-"
  441.     MESS "fix and suffix), 3) modem CONNECT string and 4) modem hangup command.  Other"
  442.     MESS "settings controlling the modem may be made in Alt-O (options)."
  443. ;
  444. ;    Wait for a keypress
  445. ;
  446.     LOCATE N1,N2        ; Relocate cursor
  447.     GET S0 1        ; Wait for a char
  448.     SWITCH S0        ; Switch on the return
  449.        CASE "S"             ; Skip
  450.        ENDCASE
  451.        CASE "1"             ; MICROCOM 9624c
  452.         SET MINIT "ATE1\C1\G0\J1\K5\N3\Q0&T5\V1V1\X1S0=0!"
  453.         SET DPREF "AT\N3DT"
  454.         SET DSUFF "!"
  455.         SET DROPDTR ON
  456.        ENDCASE
  457.        CASE "2"             ; Everex 2400 internal
  458.         SET MINIT "AT&D2S7=60!"
  459.         SET DROPDTR ON
  460.        ENDCASE
  461.        CASE "3"             ; Leading Edge 2400B half-size internal
  462.         SET MINIT "ATS7=60X3!"
  463.         SET DROPDTR ON
  464.        ENDCASE
  465.        CASE "4"             ; Practical Peripherals 2400 half-size internal
  466.         SET MINIT "AT&C1&D2L0X3!"
  467.         SET DROPDTR ON
  468.        ENDCASE
  469.        CASE "5"             ; Everex, Evercom 24+ (MNP)
  470.         SET MINIT "AT\N3\Q1\K5\V1\X1\C1!"
  471.         SET DPREF "AT\N3DT"
  472.         SET DSUFF "!"
  473.         SET DROPDTR ON
  474.        ENDCASE
  475.        CASE "6"             ; Hayes compatible
  476.         SET MINIT "ATE0 S7=250 V1 X0 S11=55!"
  477.         SET DPREF "ATDT"
  478.         SET DSUFF "!"
  479.         SET MCONN "CONNECT"
  480.         SET MHANG "ATH0!"
  481.        ENDCASE
  482.        DEFAULT        ; Any other selection
  483.         SOUND 100,100
  484.         GOTO Type
  485.        ENDCASE
  486.     ENDSWITCH
  487.     RETURN            ; And continue
  488. ;
  489. ; ----- Subroutine: Download -> Select default download directory
  490. ;
  491. Update:
  492.     BOX   0,0 23,79 (default)
  493.     ATSAY 0,2 (default)   " Update "
  494.     ATSAY 23,25 (default) " Press ESC to cancel INSTALL "
  495.     LOCATE 2,2
  496.  
  497.     MESS "The INSTALL script is now complete.  You may press ESC at this point to can-"
  498.     MESS "cel any settings you have made, and later invoke INSTALL with F2 (Scripts)."
  499.     MESS " "
  500.     MESS "You may run through the installation again if you wish.  Otherwise, changes"
  501.     MESS "made here will be saved for COM-AND this session and in future sesions."
  502.     MESS " "
  503.     MESS "Select A)gain, U)pdate, or ESCape (escape cancels this script): "
  504. ;
  505. ;    Wait for a keypress
  506. ;
  507.     GET S0 1        ; Wait for a char
  508.     SWITCH S0        ; Switch on the return
  509.        CASE "A"             ; A)gain
  510.         SET SUCCESS OFF
  511.        ENDCASE
  512.        CASE "U"             ; U)pdate
  513.         SET SUCCESS ON
  514.        ENDCASE
  515.        DEFAULT        ; Any other selection
  516.         SOUND 100,100
  517.         GOTO Update
  518.        ENDCASE
  519.     ENDSWITCH
  520.     RETURN            ; And continue
  521. ;
  522. ; ----- Subroutine: Coda -> last words.
  523. ;
  524. Coda:
  525.     BOX   0,0 23,79 (default)
  526.     ATSAY 0,2 (default)   " INSTALL Coda "
  527.     LOCATE 2,2
  528.  
  529.     MESS "The following manual keys may be used to set default values for COM-AND:"
  530.     MESS " "
  531.     MESS "    Alt-S: Default values (modem strings, files, and constant values)"
  532.     MESS "    Alt-O: Option settings (modem, display and programmatic flags)"
  533.     MESS "    Alt-P: Communication parameters (speed, data/stop bits, parity, port)"
  534.     MESS "    Alt-J: Menu, text and status bar color choices"
  535.     MESS "    F4:    Default download subdirectory (unqualified downloads)"
  536.     MESS " "
  537.     MESS "To dial a number, you must setup at least one dialing directory entry."
  538.     MESS "After INSTALL, use the Alt-D key to call up the dialing directory, and"
  539.     MESS "the 'r'subcommand to revise an entry.  Once the entry has been revised,"
  540.     MESS "dial it through Alt-D by its entry number."
  541.     MESS " "
  542.     MESS "There are two other directories that may be setup, F1 (accessories) and"
  543.     MESS "Alt-M (macros).  However, these do not need to be setup immediately."
  544.     MESS " "
  545.     MESS "Please refer to the document COM-AND.DOC provided with this release for"
  546.     MESS "a discussion of all the manual functions available.  A summary of key"
  547.     MESS "commands, too, may be invoked in CRT mode at any time by pressing F10."
  548.     MESS " "
  549.     MESS "Press any key to terminate"
  550. ;
  551. ;    Wait for a keypress
  552. ;
  553.     KEYGET S0        ; Wait for a char
  554.     RETURN            ; And continue
  555.