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