Job ISAMIIIEMU
;SJCBHB 950223
CancelOnError
EchoOff
PauseOff
;'\'<ISAMIII1.2.9>*Isam*\''
EMUVer    = 's1.2.9'
Datasheet = '<Datasheet>ISAMIIIs1.2.9.EMU.def'
Floppy2   = 'ISAM III s1.2.9 EMU 2 of 2'
Spec0 	  = '\'<IsamIII1.2.9>*\''
Spec1	  = '\'\''		
Spec2 	  = '\'*\''
Spec3 	  = '\'*\''

ClearScreen = '\\0Ch'
Beep        = '\\07h'

f5inch = ( DeviceType( DeviceFrom ) < 3 )

Datasheet = ConcatStrings(DeviceFrom, Datasheet)

if Public
	ToPath = '[Sys]<Sys>'
else
	ToPath = '[Sys]<Sys>'
endif

Displayline(ClearScreen)
Display    ('    AEWelcome to the CTOS ISAM III ')
Display( EMUVer )
DisplayLine(' EMU InstallationAA')
DisplayLine
DisplayLine
DisplayLine('             ***** Important  Please Read ***** ')
DisplayLine
DisplayLine
DisplayLine('     This EMU requires that the ISAMIII1.2.0 release version')
DisplayLine('     has previously been installed.  It should be installed')
DisplayLine('     on each workstation loaded with the ISAMIII 1.2 software')
DisplayLine('     exhibiting the problem corrected by the EMU.')
DisplayLine
DisplayLine('     The data sheet describing the problems corrected is on')
Display    ('     the floppy as the file ')
Display    ( Datasheet )
DisplayLine('.')
DisplayLine('     If you are installing the EMU to the server workstation')
DisplayLine('     it is important to ensure the client workstations will')
DisplayLine('     not interfere with the installation.   This may require')
DisplayLine('     you to turn some or all of them off, however doing this')
DisplayLine('     may not be strictly necessary.')
DisplayLine
DisplayLine('     Please ensure that the Isam Service is terminated before')
DisplayLine('     the installation of this EMU.')
DisplayLine
Displayandwait('          AEPress GO to proceed with the EMU installationAA')

;user selects items to install
MainMenu:
Displayline(ClearScreen)
DisplayLine

;path to selfextracting SuperZipt archive
Path '',DeviceFrom,Sys,''

;restore archived files
if ( f5inch )
	;resident version  utilities
	RUN ISAMIIIs1.2.91.run, 
		( Spec0, Spec1 ), 
		( Spec2, Spec3 ), 
		y, n, , , ToPath
	;swapping version, single user, or library on disk 2 of 5 media
		NextFloppy( Floppy2 )
		RUN ISAMIIIs1.2.92.run, 
			( Spec0, Spec1 ), 
			( Spec2, Spec3 ), 
			y, n, , , ToPath
else
		RUN ISAMIIIs1.2.9.run, 
		(Spec0, Spec1), 
		(Spec2, Spec3), 
	    y, n, , , ToPath
		
		endif

Path '',Sys,Sys,''

Displayline(ClearScreen)
DisplayLine
DisplayLine
DisplayLine('           The ISAM III s1.2.9 EMU installation is complete.')
DisplayLine('       Please remove the diskette and store it in a safe place.')
DisplayLine
DisplayLine
Displayandwait('    	            AEPress any key to finishAA ')

End
BD
utedNVFNv6H)d6C)FVRP6FV\9Pu9s6\RP60
RFQP6 $JP6R6 $]P6P6\PP6TVFNPX\06$\P6$\\06$^F\^G^GW^GW
vv6