home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 158.img / RELAY1.ZIP / INSTALL.SCR < prev    next >
Encoding:
Text File  |  1989-11-30  |  1.3 KB  |  37 lines
  1. *---------------------------------------------------------------------*
  2. *          RELAY Gold Version 4.0 Installation Script          *
  3. *---------------------------------------------------------------------*
  4. *
  5. *  "INSTALL.SCR" - New User Configuration for RELAY Gold/Silver
  6. *
  7. *  (c) Copyright 1983,89 by Microcom Software Division
  8. *      All rights reserved.
  9. *
  10.     IF (&1="") AND (&NETUSER="") ARGSTRING X
  11.     IF (&1="") AND (&NETUSER<>"") ARGSTRING X INSTALL
  12.     GLOBAL &IDRIVE
  13.     &IDRIVE = "&FDIR(&RDRIVE)"
  14.     IF (&1="X") AND EXISTS &IDRIVE.SYSFILES.DAT ARGSTRING 1 &1 &2 &3
  15.     &LIB = "INSTALL.LIB"
  16.     IF (&1<>"X") &LIB = "INSTALL.INI"
  17.     IF EXISTS &IDRIVE.&LIB GOTO -GOTIT
  18.     &IDRIVE = "&OPTION(EXTRADISK)"
  19.     IF (&IDRIVE="OFF") &IDRIVE = "*:" ; GOTO -GOTIT
  20.     IF NOT EXISTS &IDRIVE.&LIB GOSUB -XASK
  21. -GOTIT    SET LIBSCR &IDRIVE.&LIB
  22.     CHAIN INSTALL&1 &2 &3 &4
  23.  
  24. *
  25. *    Subroutine to prompt for the 'Help and Extra' diskette.
  26. *
  27. -XASK    TYPE
  28.     TYPE "Please remove the diskette from drive &IDRIVE, then"
  29.     TYPE "insert your working copy of the 'Help and Extra'"
  30.     TYPE "diskette in that drive."
  31.     TYPE
  32.     READ LINE &REPLY "QPress ENTER when you are ready ..."
  33.     &REPLY = &TRIM(&UPPER(&REPLY))
  34.     IF (&REPLY="EXIT") OR (&REPLY="QUIT") STOP 99
  35.     IF NOT EXISTS &IDRIVE.EXTRA.IDN GOTO -XASK
  36.     RETURN
  37.