Piper's Pit BBS/FTP: ibm 0010 - 0019/ibm0010-0019/ibm0010.tar/ibm0010/REFLECT.ZIP/NEWVUSER.RCL

Text File | 1989-07-03 | 9.6 KB | 221 lines

Q COMMAND ON
;PROGRAM FOR NEW USER CONFIGURATION
DISPLAY "^[[1;1H^[[0J^J                        REFLECTION FOR NEW USERS^M^J^J"
DISPLAY "     Welcome to REFLECTION!^M^J^J"
DISPLAY "     This interactive session is designed to help you establish ^M^J"
DISPLAY "     communications with your VAX.^M^J^J"
DISPLAY "     Written in REFLECTION's command language, this program will prompt ^M^J"
DISPLAY "     you for information and make changes automatically using REFLECTION's ^M^J"
DISPLAY "     SET command.^M^J^J"
DISPLAY "     Choices are listed prior to a prompt or at the end within parentheses.^M^J"
DISPLAY "     Defaults are marked with an asterisk.  (Pressing Return selects the ^M^J"
DISPLAY "     default.)^M^J^J"
DISPLAY "     Your changes will be made active and, optionally, will be saved on disk.^M^J^J"
DISPLAY "     You may exit this (or any) command file by entering Ctrl-Y (and Return).^M^J"
DISPLAY "     You may exit REFLECTION from any screen by entering Alt-X.^M^J^J^J"
DISPLAY "     Continue? (Y* / N): "
ACCEPT V9 LIMIT 1
IF UPPER(V9) = "N"
   DISPLAY "^[[1;1H^[[0J"
   Q COMMAND OFF
   Q STATUS  OFF
   STOP
ENDIF
DISPLAY "^[[1;1H^[[0J^J                         REFLECTION FOR NEW USERS^M^J^J^J"
DISPLAY "     REFLECTION is shipped to you without a configuration file on disk.^M^J"
DISPLAY "     When you run REFLECTION, you may specify a configuration file to use.^M^J"
DISPLAY "     If no configuration file is specified, REFLECTION attempts to read the^M^J"
DISPLAY "     default configuration file, so that any changes you have made and saved ^M^J"
DISPLAY "     will be used whenever you run REFLECTION.  If the configuration^M^J"
DISPLAY "     file does not exist, REFLECTION will use its preset configured values.^M^J"
DISPLAY "     This program will save your changes to the default file name.^M^J^J"
DISPLAY "     If you want to restart the configuration process, you should erase or^M^J"
DISPLAY "     rename the default configuration file.  You can save a configuration by^M^J"
DISPLAY "     pressing the function key labeled 'Save to Disk' from any configuration^M^J"
DISPLAY "     menu screen or, as this program does, by using REFLECTION's^M^J"
DISPLAY "     SAVE command.^M^J^J"
DISPLAY "     Continue? (Y*/N): "
ACCEPT V9 LIMIT 1
IF UPPER(V9) = "N"
   DISPLAY "^[[1;1H^[[0J"
   Q COMMAND OFF
   Q STATUS  OFF
   STOP
ENDIF
DISPLAY "^[[1;1H^[[0J^J                      ESTABLISHING HOST COMMUNICATIONS^M^J^J"
DISPLAY "     This section is designed to help you log on to your host VAX computer.^M^J"
DISPLAY "     The default settings work in the most common situation, where^M^J^J"
DISPLAY "         1)  you have an 'in house' VAX,^M^J"
DISPLAY "         2)  set for 9600 baud, no parity, and 1 stop bits,^M^J"
DISPLAY "         3)  with XON/XOFF receive and transmit pacing,^M^J"
DISPLAY "         4)  that is directly connected, with standard RS-232C interfaces,^M^J"
DISPLAY "         5)  to an IBM PC's serial port, configured as COM1 (using IRQ4).^M^J^J"
DISPLAY "     If this describes your situation and you have not yet tried to establish^M^J"
DISPLAY "     host communications, you should exit this help program now (Ctrl-Y) and^M^J"
DISPLAY "     press the Return key a few times.  If you have the default situation,^M^J"
DISPLAY "     the host should issue a prompt on your screen.  When the prompt appears,^M^J"
DISPLAY "     you are ready to log in and begin a session.^M^J^J"
DISPLAY "     If your host is not a VAX, you should skip this section and refer^M^J"
DISPLAY "     to the Configuration or Set-up section in your REFLECTION Technical Reference^M^J"
DISPLAY "     manual for more specific information.^M^J^J"
DISPLAY "     Continue with Establishing Host Communications? (Y*/N): "
ACCEPT V9 LIMIT 1
IF UPPER(V9) = "N"
   DISPLAY "^[[1;1H^[[0J"
   GOTO FINISH
ENDIF
:COMM
DISPLAY "^[[1;1H^[[0J^J                      ESTABLISHING HOST COMMUNICATIONS^M^J^J"
DISPLAY "     Your PC may have from one to four serial (COMmunications) ports.  If you^M^J"
DISPLAY "     are using a PS/2, you may have from 1 to 8 com ports available to you.^M^J"
DISPLAY "     The serial port is a MALE 25-pin connector which should not be confused^M^J"
DISPLAY "     with the parallel printer interface, which is a FEMALE 25-pin connector.^M^J^J"
DISPLAY "     IBM ATs and IBM AT clones are unique because they use a male 9-pin ^M^J"
DISPLAY "     connector for the serial port.  To use the AT's serial port you will ^M^J"
DISPLAY "     probably need a 9 to 25-pin adapter cable.^M^J^J"
DISPLAY "     REFLECTION requires your host or modem connection to be COM1-COM8 for^M^J"
DISPLAY "     data communications.  COM1-COM4 may be used for either serial or^M^J"
DISPLAY "     parallel printer interface.^M^J^J"
DISPLAY "     If you would like a Local Area Network as your Datacomm choice,^M^J"
DISPLAY "     configure this field in the Datacomm Configuration Menu after you have^M^J"
DISPLAY "     finished with this program. "
:askagin
DISPLAY "^M^J^J     Which COM Port will you be using for Datacomm?  (numeric value only): "
ACCEPT V9 LIMIT 1
IF V9 <> "1" and V9 <> "2" AND V9 <> "3" AND V9 <> "4" AND V9 <> "5" and V9 <> "6" AND V9 <> "7" AND V9 <> "8"
   DISPLAY "^M^J^J     The Datacomm connection cannot be COM$9."
   GOTO askagin
ENDIF
IF V9 = "1"
   LET V1 = "1"
ENDIF
IF V9 = "2"
   LET V1 = "2"
ENDIF
IF V9 = "3"
   LET V1 = "3"
ENDIF
IF V9 = "4"
   LET V1 = "4"
ENDIF
IF V9 = "5"
   LET V1 = "5"
ENDIF
IF V9 = "6"
   LET V1 = "6"
ENDIF
IF V9 = "7"
   LET V1 = "7"
ENDIF
IF V9 = "8"
   LET V1 = "8"
ENDIF
DISPLAY "^M^J^J     You are connecting to COM$1.  Correct? (Y*/N): "
ACCEPT V9 LIMIT 1
IF UPPER(V9) = "N"
   GOTO COMM
ENDIF
IF V1 = "1"
   SET DATACOMM-PORT COM1
ENDIF
IF V1 = "2"
   SET DATACOMM-PORT COM2
ENDIF
IF V1 = "3"
   SET DATACOMM-PORT COM3
ENDIF
IF V1 = "4"
   SET DATACOMM-PORT COM4
ENDIF
IF V1 = "5"
   SET DATACOMM-PORT COM5
ENDIF
IF V1 = "6"
   SET DATACOMM-PORT COM6
ENDIF
IF V1 = "7"
   SET DATACOMM-PORT COM7
ENDIF
IF V1 = "8"
   SET DATACOMM-PORT COM8
ENDIF
:COMCHECK
DISPLAY "^[[1;1H^[[0J^J                  ESTABLISHING HOST COMMUNICATIONS^M^J^J"
DISPLAY "   The utility program COMCHECK.COM is provided on your production diskettes. ^M^J"
DISPLAY "   This program checks the status of your serial ports to determine their^M^J"
DISPLAY "   ability to send and receive data.^M^J^J"
DISPLAY "   If you have difficulty establishing a host connection, the COMCHECK.COM ^M^J"
DISPLAY "   program is often a useful diagnostic tool to determine whether your serial^M^J"
DISPLAY "   ports are functioning correctly.^M^J^J"
DISPLAY "   To run this program, make sure that COMCHECK.COM is in the current^M^J"
DISPLAY "   drive, then type:^M^J"
DISPLAY "                               COMCHECK^M^J^J"
DISPLAY "   In a rare case, you may not want to check all ports simultaneously.  If ^M^J"
DISPLAY "   you are using a 3270 coaxial board, such as Attachmate, you should check^M^J"
DISPLAY "   your serial ports one by one.  To check COM1 alone, type the following:^M^J^J"
DISPLAY "                         COMCHECK /1 ^M^J^J"
DISPLAY "   Continue?  (Y*/N) "
ACCEPT V9 LIMIT 1
IF UPPER(V9) = "N"
   DISPLAY "^[H^[J"
   GOTO FINISH
ENDIF
:SBAUD
DISPLAY "^[[1;1H^[[0J^J                      ESTABLISHING HOST COMMUNICATIONS^M^J^J^J"
DISPLAY "     The baud rate specifies the speed at which data is transmitted^M^J"
DISPLAY "     and received through the serial (communications) port.  The host^M^J"
DISPLAY "     is usually configured for a specific baud rate or has the capability^M^J"
DISPLAY "     to speed sense the baud rate within a limited range.  You should set^M^J"
DISPLAY "     the baud rate to the highest speed available on your modem or recognized^M^J"
DISPLAY "     by the host computer.^M^J^J"
DISPLAY "     Note that file transfers are also governed by this setting.^M^J^J^J"
:RBAUD
DISPLAY "   110   150   300   600   1200   1800   2400   4800   9600*   19200   38400^M^J^J"
DISPLAY "     Enter the baud rate: "
LET V4 = 9600
ACCEPT V9 LIMIT 5
IF LENGTH(V9) > 0
  LET V4 = PACK(V9)
ENDIF
DISPLAY "^M^J^J^J     You have selected a speed of $4 baud.  Correct? (Y*/N): "
ACCEPT V9 LIMIT 1
IF UPPER(V9) = "N"
   GOTO SBAUD
ENDIF
CONTINUE
SET BAUD $4
IF ERROR
   DISPLAY "^[[5A^M^[[0J"
   DISPLAY "^G^M^J     Unable to set the baud rate entered. Please try again.^M^J"
   GOTO RBAUD
ENDIF
:SAVE
DISPLAY "^[[1;1H^[[0J^J                      ESTABLISHING HOST COMMUNICATIONS^M^J^J^J"
DISPLAY "     The new configuration information has been made (temporarily) active for^M^J"
DISPLAY "     the current execution of REFLECTION.^M^J^J"
DISPLAY "     To make these configuration changes permanent so they will be used^M^J"
DISPLAY "     for your next execution of REFLECTION, they must be saved on disk to^M^J"
DISPLAY "     the default configuration file.^M^J^J^J"
DISPLAY "     Do you want these changes saved in a configuration file? (Y*/N): "
ACCEPT V9 LIMIT 1
DISPLAY "^[[1;1H^[[0J^J^J"
DISPLAY "     Your changes have been made active.^M^J"
IF UPPER(V9) = "N"
   DISPLAY "     Your configuration changes have NOT been saved.^G^M^J"
   DISPLAY "     (Enter SAVE on the command line if you want to save the configuration.)^M^J"
   GOTO FINISH
ENDIF
CONTINUE
SAVE
IF ERROR
   DISPLAY "     An ERROR occurred while trying to SAVE the configuration.^M^J"
   DISPLAY "     Your configuration changes have NOT been saved.^G^M^J"
ELSE
   DISPLAY "     Your configuration changes have been SAVED to the default^M^J"
   DISPLAY "     configuration file.^M^J"
ENDIF
:FINISH
Q COMMAND OFF
Q STATUS  OFF
STOP