AmigActive 13/AACD13.ISO/AACD/System/EASys/InstallPack_47/EASys!_inst/EASys!_iGuide/Init/init

Text File | 2000-08-02 | 118KB | 4,079 lines

/*
  EASys! sets new standards for your system comfort © TNE) since 1995
  000627 T.Neidhardt, [e-mail], EasySystem

  iGuide Installation Script (documentation not yet available)
  for EASys! Base-Archive.
*/

/* -------------- BEGIN Definition Block ------------------ */

InstApp="EASys!  © since 1995 TNE)"
Author="© since 1995 Tom Neidhardt, 91058 Erlangen, GERMANY"

/* The Base Archive must have the same name for InstBase and InstModule */
InstBase='EASys!'    /* do not use more than 12 characters here! */
InstModule='EASys!'  /* do not use more than 12 characters here! */
Inst_Ver='4.7.2'
Update_StartVer='4.6'
Update_EndVer='4.6.6'
VersionLog='SYS:EASys!/Help/EASys!.version'

CDname='EASys!_CD'
ContribDir='EASys!_4.7/Contributions'

ADDRESS COMMAND
'setenv CDNAME 'CDname
'setenv CONTRIBDIR 'ContribDir

/* Supply at least one Guide with the Name  <InstBase>'.guide'
   which has a Headline beginning with   <InstBase>', '       */

/* Presets section ---------- */
CALL Init
EASys_from_HD=0

/* -------------- END Definition Block ------------------ */

CALL CheckInstallDir('iGuide:init')

CALL InitVersion
CALL CheckUpdate
CALL RexxInstallInfo

CALL ActionMessage('_Intro1')

IF User_Ver>=Update_StartVer & User_Ver<Update_EndVer THEN CALL UpdateCurrentVer

CALL ActionMessage('_Intro2')

/* ------------------------- */
main:

CALL EASysMain
CALL EASys_rexx
CALL EASys_bin
CALL System
CALL ModAS

ADDRESS COMMAND 'delete >NIL: devs:DosDrivers/#?'date'#?'

IF update>0 THEN CALL References_Init
CALL InitBase
CALL References
CALL Prefs
CALL CreateTrash

r=ShowMessage('enhance_Infos',,,,AppName)

CALL WBmenu
CALL ToolManager

ADDRESS COMMAND 'rx EASys!:Prefs/Internet_Apps.rexx'

CALL BU_Manager
CALL Help

CALL MakeVer

CALL Dictionary
CALL SayTime
CALL SongPlayer
CALL MultiTracker
CALL MultiMediaBoot

CALL PRAGMA('DIRECTORY','iGuide:')
r=ShowMessage('_last_Infos',,,,AppName)

IF wb_port=1 THEN
DO
 ADDRESS WORKBENCH WINDOW "SYS:ShutDown" OPEN
 CALL DELAY(100)
 ADDRESS WORKBENCH WINDOW "SYS:StartSys" OPEN
 CALL DELAY(100)
 ADDRESS WORKBENCH WINDOW "SYS:EASys!" OPEN
 CALL DELAY(150)
END

CALL ExitMe('REGULAR_END')

/* -------------- BEGIN Specific Procedures ------------------ */
CheckUpdate:
InstName=' EASys! Checking update ... '

SELECT
 WHEN (User_ver >= Update_EndVer) THEN
 DO
  update=0
  CALL Msg_Con_Log('HHHH New installation over version > 'Update_EndVer'')
 END

 WHEN (EXISTS('ENVARC:MARInA/FileManager.rexx') | EXISTS('SYS:MARInA_bin/man')) THEN
 DO
  update=1
  user_ver=2.6
  CALL Msg_Con_Log('HHH Updating: MARInA System becomes EASys!...')
  CALL Msg_Con_Log('HH Updating: To be installed: 'Inst_ver)
 END

 WHEN (User_ver>0 & Inst_Ver>=User_ver) | EXISTS('SYS:EASys!/Presentate') THEN
 DO
  update=2
  CALL Msg_Con_Log('HHHH Update: EASys! ... repeated try for installation or updating.')
  CALL Msg_Con_Log('HH Version found:   'User_ver)
  CALL Msg_Con_Log('HH To be installed: 'Inst_ver)
 END

 WHEN User_Ver>=Inst_ver THEN
 DO
  update=3
  CALL Msg_Con_Log('HHHH User version is higher than installer-Version !?')
 END

 OTHERWISE
 DO
  update=0
  CALL Msg_Con_Log('HHHH First installation for EASys!')
 END
END /* SELECT */

IF update>0 THEN CALL UnpackArchive(StarterDir'EASys!_update.lha','iGuide:update/')

CALL CloseCon
RETURN

/* ------------------------- */
MakeVer:
InstName=' EASys! Finishing procedure '

r=WriteLn(LOGFILE,'Finishing EASys! installation ...')
CALL ExecScript('iGuide:Finish.script','')

CMD.1='protect 'VersionLog' +rwd'
CMD.2='echo >'VersionLog' "'Inst_Ver'"'
CMD.3='protect 'VersionLog' -wd'
CALL Do_and_Log

CALL DELAY(100)
RETURN

/* ------------------------- */
UpdateCurrentVer:
InstName=' EASys! updating process '

ADDRESS COMMAND 'Install_C:CLIexchange MultiNotify KILL'

CALL Msg_Con_Log('HHH Updating: current 'User_ver' system ... doing some bugfixes.')
CMD.1='delete >NIL: EASys!:Config FORCE ALL QUIET'
CMD.2='delete >NIL: EASys!:SysDatabase/english QUIET'
CMD.3='delete >NIL: EASys!:Prefs/english QUIET'
CMD.4='delete >NIL: EASys!:bin/english QUIET'
CMD.5='delete >NIL: EASys!:StartFileMenu/english QUIET'
CMD.6='delete >NIL: EASys!_rexx:english QUIET'
CALL Do_and_Log

IF EXISTS(StarterDir'EASys!_english.lha') THEN
   CALL UnpackArchive(StarterDir'EASys!_english.lha','SYS:EASys!/')

IF ~EXISTS('EASys!:Programs/english') & EXISTS('EASys!:Programs/'RealLanguage) THEN
DO
  CMD.1='copy EASys!:bin/'RealLanguage' EASys!:bin/english CLONE ALL QUIET'
  CMD.2='copy EASys!:Config/'RealLanguage' EASys!:Config/english CLONE ALL QUIET'
  CMD.3='copy EASys!:Prefs/'RealLanguage' EASys!:Prefs/english CLONE ALL QUIET'
  CMD.4='copy EASys!:Programs/'RealLanguage' EASys!:Programs/english CLONE ALL QUIET'
  CMD.5='copy EASys!:StartFileMenu/'RealLanguage' EASys!:StartFileMenu/english CLONE ALL QUIET'
  CMD.6='copy EASys!:SysDatabase/'RealLanguage' EASys!:SysDatabase/english CLONE ALL QUIET'
  CALL Do_and_Log
END

IF user_ver<Update_EndVer THEN
DO
 CMD.1='copy iGuide:update/EASys! SYS:EASys! CLONE ALL QUIET'
 CMD.2='copy iGuide:update/EASys!/Programs EASys!_rexx: CLONE ALL QUIET'
 CMD.3='copy iGuide:update/l SYS:l CLONE ALL QUIET'
 CALL Do_and_Log

 CMD.1='copy iGuide:update/libs SYS:libs CLONE ALL QUIET'
 CMD.2='copy iGuide:update/Prefs SYS:Prefs CLONE ALL QUIET'
 CMD.3='copy iGuide:update/Prefs/ENV-Archive ENV: CLONE ALL QUIET'
 CALL Do_and_Log
END

CMD.1='makedir >NIL: EASys!:EasyMail'
CMD.2='makedir >NIL: EASys!:EasyPrint'
CMD.3='makedir >NIL: EASys!:EasyArc'
CMD.4='makedir >NIL: EASys!:EasyView'
CMD.5='makedir >NIL: EASys!:EasySnap'
CALL Do_and_Log

CALL References_Init
CALL References

CALL ModAS
CALL InitBase
CALL WBmenu
CALL ToolManager('QUICK')

ADDRESS COMMAND 'rx EASys!:Prefs/Internet_Apps.rexx'

CALL Dictionary
CALL SayTime
CALL SongPlayer
CALL MultiTracker
CALL MultiMediaBoot

CALL MakeVer
CALL DELAY(100)
CALL Msg_Con_Log('HHH Updating done: You may continue work now...')
CALL DELAY(200)
CALL CloseCon
CALL ExitMe('REGULAR_END')

/* ------------------------- */
EASysMain:
InstName=' EASys! main installation '

CALL Msg_Con_Log('HHH Preparing: Check system for earlier EASys! fragments ...')

/* Kill Multinotify immediately when starting Deinstaller ! in first place */
r=wdi('T:CLIexchange MultiNotify KILL')
r=wdi('echo "*e[1m Removing EASys!: assign*e[0m"')
r=wdi('resident EASys!_bin:IDer REMOVE')
r=wdi('path EASys!_bin: REMOVE')
r=wdi('path SYS:EASys!/bin REMOVE')
r=wdi('assign EASys!_bin: EASys!:bin REMOVE')
r=wdi('delete SYS:EASys!.info')
CALL SpaceNextEntry

/* Kill Multinotify within Preparing Installer */
CALL ExecScript('iGuide:PrepareInstall.script','')
CALL SpaceNextEntry
CALL CloseCon


InstName=' EASys!.lha '
r=ActionMessage('EASys!_main')

CALL UnpackArchive(StarterDir'EASys!.lha','SYS:')

r=wdi('echo "*e[1m Removing EASys! preconfiguration ...*e[0m*n"')
r=wdi('wait 3')
r=wdi('delete SYS:StartSys/c_Prepare/EASys! FORCE')
r=wdi('rx T:remoteed.rexx movetext s:User-Startup "BEGIN EASys!" "END EASys!" T:Trash')
CALL SpaceNextEntry
CALL CloseCon
RETURN

/* ------------------------- */
EASys_rexx:

InstName=' EASys!_rexx '

r=ActionMessage('EASys!_rexx_copy')
IF r=1 THEN EASys_from_HD=0
IF r=2 THEN EASys_from_HD=1

lang.1='deutsch'
lang.2='english'
lang.3='español'
lang.4='français'
lang.count=4

one_language=ShowMessage('EASys!_language',,,,AppName,RealLanguage)
IF one_language=1 THEN
DO
 IF EXISTS(StarterDir'EASys!_'RealLanguage'.lha') THEN
    CALL UnpackArchive(StarterDir'EASys!_'RealLanguage'.lha','SYS:EASys!/')

 IF ~(RealLanguage='english') THEN
    CALL UnpackArchive(StarterDir'EASys!_english.lha','SYS:EASys!/')
END
ELSE
DO n=1 to lang.count
   CALL UnpackArchive(StarterDir'EASys!_'lang.n'.lha','SYS:EASys!/')
   lang.n=''
END

CMD.1='copy iGuide:upd/EASys!/#? SYS:EASys! CLONE ALL QUIET'
CALL Do_and_Log

RETURN

/* ------------------------- */
EASys_bin:

InstName=' EASys!_System and binaries '

IF EXISTS('ENVARC:MagicMenu.prefs') THEN ADDRESS COMMAND 'copy ENVARC:MagicMenu.prefs ENVARC:MagicMenu.prefs'TimeStamp' CLONE QUIET'

IF update=1 THEN
DO
 oldbin_dir=MyGetENV('RefTable/Dir-MARInA_bin')
 oldbin=UPPER(STRIP(oldbin_dir,'T','/'))

 IF ~(oldbin='???') THEN ADDRESS COMMAND 'assign MARInA_bin: "'oldbin'" REMOVE'
 IF ~(oldbin='C:' | oldbin='SYS:C' | oldbin='SYS:UTILITIES' | oldbin='SYS:SYSTEM' | oldbin='SYS:TOOLS') THEN
 DO
    ADDRESS COMMAND
    'copy "'oldbin_dir'#?" SYS:EASys!/bin CLONE ALL QUIET'
    'delete >NIL: "'oldbin'" ALL QUIET'
 END
END

r=ActionMessage('EASys!_bin_unpack')
CALL UnpackArchive(StarterDir'EASys!_System.lha','iGuide_root:')

ADDRESS COMMAND
'copy ENVARC:EDIT ENV: CLONE QUIET'
'copy ENVARC:EDITOR ENV: CLONE QUIET'

r=wdi('echo "*e[1m Removing EASys!_bin: assign*e[0m" NOLINE')
r=wdi('assign EASys!_bin: SYS:EASys!/bin REMOVE')
CALL SpaceNextEntry
RETURN

/* ------------------------- */
System:

InstName=' activating Libs&Prefs&Catalogs&ENV '
SourceDir='iGuide_root:EASys!_System'
DestDir1='SYS:'
DoCheck=1
CALL CopyAction

ADDRESS COMMAND
'copy "iGuide_root:EASys!_System/Prefs/env-archive" ENV: CLONE ALL QUIET'
'run >NIL: delete "iGuide_root:EASys!_System#?" FORCE ALL QUIET'

IF EXISTS('ENVARC:ActualPath') THEN ADDRESS COMMAND move' ENVARC:ACTUAL#? SYS:EASys!/flags CLONE QUIET'
RETURN

/* ------------------------- */
ModAS:

ModAS_User=0
InstallModAS=0
InstName=' ModAS_System '
CALL OpenCon(' ModAS ©TNE  Installation ...')

ADDRESS COMMAND
'Install_C:CLIexchange MultiNotify KILL'
'protect s:startup-sequence +wd'
'protect s:startup-sequence.before_ModAS +wd'
'protect s:user-startup +wd'
'protect s:user-startup.before_ModAS +wd'
'delete >NIL: ENVARC:Flags FORCE QUIET'
'delete >NIL: ENV:Flags FORCE QUIET'
'makedir >NIL: ENVARC:Flags'
'makedir >NIL: ENV:Flags'
'delete >NIL: ENVARC:Flags/Boot_Menu'
'delete >NIL: ENV:Flags/Boot_Menu'
'delete >NIL: SYS:StartSys/Profiles/#?/ENV/Flags/Boot_Menu'

/* Backup for all standarad startup scripts */
CALL Msg_Con_Log('HHH Creating TimeStamp Backup for startup: SYS:s/#?'TimeStamp)
CALL DELAY(300)

CMD.1='copy s:startup-sequence s:startup-sequence$TimeStamp'
CMD.2='copy s:user-startup s:user-startup$TimeStamp'

IF ~EXISTS('S:Startup-Sequence.before_ModAS') THEN
DO
 IF EXISTS('S:Startup-Sequence.1') THEN
    CMD.3'copy s:startup-sequence.1 s:startup-sequence.before_ModAS CLONE QUIET'
 ELSE
    CMD.3='copy s:startup-sequence s:startup-sequence.before_ModAS CLONE QUIET'
END

IF ~EXISTS('S:user-startup.before_ModAS') THEN
DO
 IF EXISTS('S:user-startup.1') THEN
    CMD.4='copy s:user-startup.1 s:user-startup.before_ModAS CLONE QUIET'
 ELSE
    CMD.4='copy s:user-startup s:user-startup.before_ModAS CLONE QUIET'
END
CALL Do_and_Log

CALL Msg_Con_Log('HHH Unpacking ModAS_System to temporary path ( iGuide_root: )')
CALL DELAY(200)

CALL UnpackArchive(StarterDir'ModAS_System.lha','iGuide_root:')

IF user_ver<Update_EndVer THEN
DO
 /* update StartSys Base */
 IF update>0 THEN ADDRESS COMMAND 'copy iGuide:update/StartSys "iGuide_root:ModAS_System/StartSys" CLONE ALL QUIET'
END

/* Buffer for some important calls (installed later) */
ADDRESS COMMAND
'copy "iGuide_root:ModAS_System/StartSys/a_Init/Rexx" T: CLONE QUIET'
'copy "iGuide_root:ModAS_System/StartSys/c_Prepare/KCON" T: CLONE QUIET'
'copy "iGuide_root:ModAS_System/StartSys/e_WB/2_MenuShortcuts" T: CLONE QUIET'
'copy "iGuide_root:ModAS_System/StartSys/e_WB/7_PubScreens" T: CLONE QUIET'

/*------------------------------ Check for previous installed ModAS */
SELECT
 WHEN user_ver<=3.6 & (~EXISTS('SYS:StartSys/e_WB/3_Workbench') | ~EXISTS('SYS:StartSys/a_Init/3_Assigns')) THEN Update_ModAS=0
 WHEN user_ver>3.6 & ~EXISTS('ENVARC:ModAS_activated') & ~EXISTS('SYS:StartSys/ModAS_activated') THEN Update_ModAS=0
 OTHERWISE Update_ModAS=1
END

/*------------------------------ Simply Update ModAS */
SELECT
 WHEN EXISTS('SYS:StartSys/c_Profile') THEN
 DO
  ModAS_User=1
  InstallModAS=3

  CALL Msg_Con_Log('HHH Converting ModAS from MARInA to EASys!..')
  CALL ExecScript('iGuide:Mar2eas_ModAS.script','')
  CALL ExecScript('iGuide:Upd_StartSys.script',user_ver)
  CALL DELAY(200)
 END

 WHEN Update_ModAS=1 THEN
 DO
  InstallModAS=ActionMessage('ModAS-Startup.2')
  IF InstallModAS=1 THEN
  DO
   ModAS_User=1
   InstallModAS=3

   CALL Msg_Con_Log('HHH Updating an already running ModAS System..')
   CALL ExecScript('iGuide:Upd_StartSys.script',user_ver)
   CALL DELAY(200)
  END
 END

 OTHERWISE InstallModAS=ActionMessage('ModAS-Startup.1','ModAS-Startup.2')
END

/*------------------------------ No ModAS */
IF InstallModAS=2 THEN
DO
 ModAS_User=0

 CALL Msg_Con_Log('H ModAS deactivated by user request ..')
 CALL DELAY(100)

 IF EXISTS('SYS:StartSys/a_Init') & EXISTS('SYS:StartSys/e_WB') & EXISTS('S:User-Startup.before_ModAS') & EXISTS('S:Startup-Sequence.before_ModAS') THEN
 DO
  CALL Msg_Con_Log('HHH Reconstructing standard startup...')
  CALL ExecScript('iGuide:StartupStandard.script','')
  CALL DELAY(100)
 END
 ELSE IF EXISTS('SYS:StartSys/a_Init') & EXISTS('SYS:StartSys/e_WB') THEN
 DO
  CALL Msg_Con_Log('HHH Converting  ModAS to Standard startup...')
  CALL ExecScript('iGuide:ModAS2Standard.script','')
  CALL DELAY(100)
 END

 CMD.1=rEdit'movetext s:User-Startup ";ModAS" ";END ModAS" T:Trash'
 CALL Do_and_Log
END

/*------------------------------ (re-) Install ModAS on the system */

IF InstallModAS=1 THEN
DO
 SELECT
  WHEN EXISTS('SYS:StartSys/a_Init/2_ENV') & EXISTS('S:Startup-Sequence.before_ModAS') & EXISTS('S:User-Startup.before_ModAS') THEN
  DO
    CALL Msg_Con_Log('HHH Reconstructing startup for a new ModAS conversion ...')
    CALL ExecScript('iGuide:StartupStandard.script','')
    CALL DELAY(100)
  END

  /* ModAS2Standard has been activated before */
  WHEN ~EXISTS('SYS:StartSys/a_Init') & EXISTS('S:Startup-Sequence.ModAS') & EXISTS('S:User-Startup.ModAS') & EXISTS('S:Startup-Sequence.before_ModAS') & EXISTS('S:User-Startup.before_ModAS') THEN
  DO
    CALL Msg_Con_Log('HHH Reverting to standard startup before updating ...')
    CALL ExecScript('iGuide:RevertToStdStartup.script','')
    CALL DELAY(100)
  END

  OTHERWISE NOP
 END /* SELECT */

 /* Basic ModAS PreInstallation */
 InstName=' ModAS Startup '
 SourceDir='iGuide_root:ModAS_System'
 DestDir1='SYS:'
 NoDeInstForFiles=1
 CALL CopyAction


 CALL Msg_Con_Log('H ModAS © TNE  automatic creation...')
 CMD.1='assign Profile: SYS:StartSys/profiles/root'
 CMD.2='setenv LOGIN root'
 CMD.3='setenv LoggedLast root'
 CMD.4='setenv LoggedPrevious guest'
 CMD.5='copy ENV:Logged#? ENVARC CLONE QUIET'
 CALL Do_and_Log
 CALL DELAY(80)

 module='SYS:StartSys/c_Prepare/_Call_user-startup'
 CALL Msg_Con_Log('HHH Extracting User-Startup-Call. This is included within ModAS now')
 CMD.1=rEdit'movetext s:startup-sequence "if exists s:USER-STARTUP" "EndIf" 'module
 CMD.2=rEdit'movetext s:startup-sequence "execute s:USER-STARTUP" "1LiNe" 'module
 CMD.3='delete >NIL: SYS:StartSys/b_GUI/_Call_user-startup FORCE QUIET'
 CALL Do_and_Log

 /* in any case, remove old stuff first */
 CALL Msg_Con_Log('HHH Extracting old ModAS parts from Startup-Sequence..')
 CMD.1=rEdit'movetext s:Startup-Sequence ";BEGIN ModAS" ";END ModAS" T:Trash'
 CMD.2=rEdit'movetext s:Startup-Sequence ";BEGIN _MenuShortcuts" ";END _MenuShortcuts" T:Trash'
 CMD.3=rEdit'movetext s:Startup-Sequence ";BEGIN _PubScreens" ";END _PubScreens" T:Trash'
 CALL Do_and_Log
 CALL DELAY(80)

 CALL Msg_Con_Log('HHH Extracting old ModAS parts from User-Startup.')
 CMD.1=rEdit'movetext s:User-Startup ";ModAS © TNE)  Startup Phases" ";END ModAS" T:Trash'
 CALL Do_and_Log
 CALL DELAY(80)

 CALL Msg_Con_Log('HHH Extracting ConClip')
 CMD.1=rEdit'movetext s:startup-sequence "ConClip" "1LiNe" T:Trash'
 CALL Do_and_Log
 CALL DELAY(80)

 CALL Msg_Con_Log('HHH Processing XPK .. see SYS:StartSys/c_Prepare/xpk')
 CALL rmFromWBstartup('XFH#?','SYS:StartSys/c_prepare/xpk')

 CMD.1=rEdit'movetext s:startup-sequence ";BEGIN XPK" ";END" T:Trash'
 CMD.2=rEdit'movetext s:startup-sequence "xpkmaster" "1LiNe" T:Trash'
 CMD.3=rEdit'movetext s:startup-sequence "xpkmaster" "1LiNe" T:Trash'
 CMD.4=rEdit'movetext s:startup-sequence ";BEGIN XFH" ";END" T:Trash'
 CMD.5=rEdit'movetext s:startup-sequence "XFH" "1LiNe" T:Trash'
 CMD.6=rEdit'movetext s:startup-sequence "XFH" "1LiNe" T:Trash'
 CALL Do_and_Log

 CMD.1=rEdit'movetext s:User-Startup ";BEGIN XPK" ";END" T:Trash'
 CMD.2=rEdit'movetext s:User-Startup "xpkmaster" "1LiNe" T:Trash'
 CMD.3=rEdit'movetext s:User-Startup "xpkmaster" "1LiNe" T:Trash'
 CMD.4=rEdit'movetext s:User-Startup ";BEGIN XFH" ";END" T:Trash'
 CMD.5=rEdit'movetext s:User-Startup "XFH" "1LiNe" T:Trash'
 CMD.6=rEdit'movetext s:User-Startup "XFH" "1LiNe" T:Trash'
 CALL Do_and_Log
 CALL DELAY(80)

 CALL Msg_Con_Log('HHH Extracting ENV and ENVARC stuff.')
 CMD.1=rEdit'movetext s:startup-sequence " ENV: REMOVE" "1LiNe" T:Trash'
 CMD.2=rEdit'movetext s:startup-sequence " ENV: ENVARC:" "1LiNe" T:Trash'
 CMD.3=rEdit'movetext s:user-startup " ENV: ENVARC:" "1LiNe" T:Trash'
 CMD.4=rEdit'movetext s:startup-sequence "HappyENV" "1LiNe" T:Trash'
 CMD.5=rEdit'movetext s:user-startup "HappyENV" "1LiNe" T:Trash'
 CALL Do_and_Log
 CALL DELAY(80)

 module='SYS:StartSys/d_System/4_BeforeLoadWB'
 CALL Msg_Con_Log('HHH Processing DefIcons ..')
 CMD.1=rEdit'movetext s:startup-sequence "DefIcon" "1LiNe" 'module
 CMD.2=rEdit'movetext s:startup-sequence "DefIcon" "1LiNe" 'module

 IF wb_port=1 THEN
 DO
  CALL Msg_Con_Log('HHH Removing OS3.5 incompatible stuff: startup-sequence ..')
  CMD.1=rEdit'movetext s:startup-sequence "MathFFP" "1LiNe" T:Trash'
  CMD.2=rEdit'movetext s:startup-sequence "MathFFP" "1LiNe" T:Trash'
  CMD.3=rEdit'movetext s:startup-sequence "NSDpatch" "1LiNe" T:Trash'
  CMD.4=rEdit'movetext s:startup-sequence "NSDpatch" "1LiNe" T:Trash'
  CMD.5=rEdit'movetext s:startup-sequence "ramlibpatch" "1LiNe" T:Trash'
  CMD.6=rEdit'movetext s:startup-sequence "iprefspatch" "1LiNe" T:Trash'
  CMD.7=rEdit'movetext s:startup-sequence "iprefspatch" "1LiNe" T:Trash'
  CMD.8=rEdit'movetext s:startup-sequence "PatchOpenWB" "1LiNe" T:Trash'
  CMD.9=rEdit'movetext s:startup-sequence "PatchOpenWB" "1LiNe" T:Trash'
  CALL Do_and_Log

  CALL Msg_Con_Log('HHH Removing OS3.5 incompatible stuff: user-startup ..')
  CMD.1=rEdit'movetext s:user-startup ";BEGIN NewIcons" ";END" T:Trash'
  CMD.2=rEdit'movetext s:user-startup "NewIcons" "1LiNe" T:Trash'
  CMD.3=rEdit'movetext s:user-startup "MathFFP" "1LiNe" T:Trash'
  CMD.4=rEdit'movetext s:user-startup ";BEGIN NSDpatch" ";END" T:Trash'
  CMD.5=rEdit'movetext s:user-startup "NSDpatch" "1LiNe" T:Trash'
  CALL Do_and_Log
  CALL DELAY(80)
 END

 CALL Msg_Con_Log('HHH Extracting KingCON if available')
 CMD.1=rEdit'movetext s:Startup-Sequence ";BEGIN KCON" ";END" T:Trash'
 CMD.2=rEdit'movetext s:Startup-Sequence ";BEGIN KingCON" ";END" T:Trash'
 CMD.3=rEdit'movetext s:Startup-Sequence "KCON:" "1LiNe" T:Trash'
 CMD.4=rEdit'movetext s:Startup-Sequence "KRAW:" "1LiNe" T:Trash'

 CMD.5=rEdit'movetext s:User-Startup ";BEGIN KCON" ";END" T:Trash'
 CMD.6=rEdit'movetext s:User-Startup ";BEGIN KingCON" ";END" T:Trash'
 CMD.7=rEdit'movetext s:User-Startup "KCON:" "1LiNe" T:Trash'
 CMD.8=rEdit'movetext s:User-Startup "KRAW:" "1LiNe" T:Trash'
 CALL Do_and_Log
 CALL DELAY(80)

 module='SYS:StartSys/a_Init/0_Patches'
 CALL Msg_Con_Log('HHH Moving Patch-calls to 'module)
 CMD.1=rEdit'movetext s:startup-sequence "PatchControl" "1LiNe" 'module
 CMD.2=rEdit'movetext s:startup-sequence "PatchControl" "1LiNe" 'module
 CMD.3=rEdit'movetext s:user-startup "PatchControl" "1LiNe" 'module
 CMD.4=rEdit'movetext s:user-startup "PatchControl" "1LiNe" 'module
 CMD.5=rEdit'movetext s:startup-sequence "ramlibpatch" "1LiNe" 'module
 CMD.6=rEdit'movetext s:startup-sequence "iprefspatch" "1LiNe" 'module
 CMD.7=rEdit'movetext s:startup-sequence "iprefspatch" "1LiNe" 'module
 CMD.8=rEdit'movetext s:startup-sequence "PatchOpenWB" "1LiNe" 'module
 CMD.9=rEdit'movetext s:startup-sequence "PatchOpenWB" "1LiNe" 'module
 CMD.10=rEdit'movetext s:startup-sequence "betteropenlibs" "1LiNe" 'module
 CALL Do_and_Log
 CALL DELAY(80)

 CALL Msg_Con_Log('HHH Processing WB Colour allocation tasks .. SYS:StartSys/b_GUI/1_IntuitionStartup')
 CMD.1=rEdit'movetext s:user-startup "MagicWB-Demon" "1LiNe" T:Trash'
 CMD.2=rEdit'movetext s:user-startup "MagicWB-Demon" "1LiNe" T:Trash'
 CMD.3=rEdit'movetext s:user-startup "FullPalette" "1LiNe" T:Trash'
 CMD.4=rEdit'movetext s:user-startup "FullPalette" "1LiNe" T:Trash'
 CMD.5=rEdit'movetext s:startup-sequence "MagicWB-Demon" "1LiNe" T:Trash'
 CMD.6=rEdit'movetext s:startup-sequence "MagicWB-Demon" "1LiNe" T:Trash'
 CMD.7=rEdit'movetext s:startup-sequence "FullPalette" "1LiNe" T:Trash'
 CMD.8=rEdit'movetext s:startup-sequence "FullPalette" "1LiNe" T:Trash'
 CALL Do_and_Log
 CALL DELAY(80)

 CALL Msg_Con_Log('HHH Processing ENVARC-Copying')
 CMD.1=rEdit'movetext s:startup-sequence "ENVARC: RAM:ENV" "1LiNe" T:Trash'
 CALL Do_and_Log
 CALL DELAY(80)

 module='SYS:StartSys/a_Init/4_Path'
 CALL Msg_Con_Log('HHH Extracting Path settings to 'module)
 CMD.1=rEdit'movetext s:startup-sequence "PATH" "*sAmE" 'module
 CALL Do_and_Log
 CALL DELAY(80)

 module='SYS:StartSys/a_Init/1_Residents'
 CALL Msg_Con_Log('HHH Extracting Residents to 'module)
 CMD.1=rEdit'movetext s:startup-sequence "resident" "*sAmE" 'module
 CALL Do_and_Log
 CALL DELAY(80)

 CALL Msg_Con_Log('HHH Extracting System assignments to SYS:StartSys/a_Init/3_Assigns')
 CMD.1=rEdit'movetext s:startup-sequence "DEVS:PRINTERS" "1LiNe" T:Trash'
 CMD.2=rEdit'movetext s:startup-sequence "DEVS:Keymaps" "1LiNe" T:Trash'
 CMD.3=rEdit'movetext s:startup-sequence "SYS:Locale/HELP" "1LiNe" T:Trash'
 CMD.4=rEdit'movetext s:startup-sequence "Locale:HELP" "1LiNe" T:Trash'
 CMD.5=rEdit'movetext s:startup-sequence "SYS:Locale" "1LiNe" T:Trash'
 CMD.6=rEdit'movetext s:startup-sequence "SYS:Classes" "1LiNe" T:Trash'
 CALL Do_and_Log
 CALL DELAY(80)

 module='SYS:StartSys/a_Init/3_Mouse'
 CALL Msg_Con_Log('HHH Processing mouse drivers if in use .. 'module)
 CMD.1='echo >'module' "failat 30*nstack 8192"'
 CMD.2=rEdit'movetext s:startup-sequence "4dplus" "1LiNe" 'module
 CMD.3=rEdit'movetext s:startup-sequence "4dplus" "1LiNe" 'module
 CMD.4=rEdit'movetext s:startup-sequence "NewMouse" "1LiNe" 'module
 CMD.5=rEdit'movetext s:startup-sequence "NewMouse" "1LiNe" 'module
 CMD.6=rEdit'movetext s:startup-sequence "SerMouse" "1LiNe" 'module
 CMD.7=rEdit'movetext s:startup-sequence "SerMouse" "1LiNe" 'module
 CMD.8=rEdit'movetext s:startup-sequence "MouseWheel" "1LiNe" 'module
 CMD.9=rEdit'movetext s:startup-sequence "MouseWheel" "1LiNe" 'module
 CMD.10=rEdit'movetext s:startup-sequence "MUIwheelPatch" "1LiNe" 'module
 CMD.11=rEdit'movetext s:startup-sequence "MUIwheelPatch" "1LiNe" 'module
 CMD.12=rEdit'movetext s:startup-sequence "MButton" "1LiNe" 'module
 CMD.13=rEdit'movetext s:startup-sequence "MButton" "1LiNe" 'module
 CMD.14=rEdit'movetext s:User-Startup "BEGIN 4dplus" ";END " 'module
 CMD.15=rEdit'movetext s:User-Startup "4dplus" "1LiNe" 'module
 CMD.16=rEdit'movetext s:User-Startup "BEGIN NewMouse" ";END " 'module
 CMD.17=rEdit'movetext s:User-Startup "NewMosue" "1LiNe" 'module
 CMD.18=rEdit'movetext s:User-Startup "BEGIN SerMouse" ";END " 'module
 CMD.19=rEdit'movetext s:User-Startup "SerMouse" "1LiNe" 'module
 CMD.20=rEdit'movetext s:User-Startup "BEGIN MouseWheel" ";END " 'module
 CMD.21=rEdit'movetext s:User-Startup "MouseWheel" "1LiNe" 'module
 CMD.22=rEdit'movetext s:User-Startup "BEGIN MUIwheelPatch" ";END " 'module
 CMD.23=rEdit'movetext s:User-Startup "MUIwheelPatch" "1LiNe" 'module
 CMD.24=rEdit'movetext s:User-Startup "BEGIN MButton" ";END " 'module
 CMD.25=rEdit'movetext s:User-Startup "MButton" "1LiNe" 'module
 CALL Do_and_Log
 CALL DELAY(80)

 module='SYS:StartSys/a_Init/3_IOcard'
 CALL Msg_Con_Log('HHH Processing Serial expansions if available .. 'module)
 CMD.1='echo >'module' "failat 30*nstack 8192"'
 CMD.2=rEdit'movetext s:startup-sequence "BEGIN IOblix" ";END " 'module
 CMD.3=rEdit'movetext s:startup-sequence "IOblix" "1LiNe" 'module
 CMD.4=rEdit'movetext s:startup-sequence "IOblix" "1LiNe" 'module
 CMD.5=rEdit'movetext s:User-Startup "BEGIN IOblix" ";END " 'module
 CMD.6=rEdit'movetext s:User-Startup "IOblix" "1LiNe" 'module
 CMD.7=rEdit'movetext s:User-Startup "IOblix" "1LiNe" 'module

 CMD.8=rEdit'movetext s:startup-sequence "BEGIN HyperCOM" ";END " 'module
 CMD.9=rEdit'movetext s:startup-sequence "HyperCOM" "1LiNe" 'module
 CMD.10=rEdit'movetext s:startup-sequence "HyperCOM" "1LiNe" 'module
 CMD.11=rEdit'movetext s:User-Startup "BEGIN HyperCOM" ";END " 'module
 CMD.12=rEdit'movetext s:User-Startup "HyperCOM" "1LiNe" 'module

 CMD.13=rEdit'movetext s:startup-sequence "BEGIN MFC3" ";END " 'module
 CMD.14=rEdit'movetext s:startup-sequence "MFC3" "1LiNe" 'module
 CMD.15=rEdit'movetext s:startup-sequence "MFC3" "1LiNe" 'module
 CMD.16=rEdit'movetext s:User-Startup "BEGIN MFC3" ";END " 'module
 CMD.17=rEdit'movetext s:User-Startup "MFC3" "1LiNe" 'module

 CMD.18=rEdit'movetext s:startup-sequence "BEGIN MultiFace" ";END " 'module
 CMD.19=rEdit'movetext s:startup-sequence "MultiFace" "1LiNe" 'module
 CMD.20=rEdit'movetext s:startup-sequence "MultiFace" "1LiNe" 'module
 CMD.21=rEdit'movetext s:User-Startup "BEGIN MultiFace" ";END " 'module
 CMD.22=rEdit'movetext s:User-Startup "MultiFace" "1LiNe" 'module
 CALL Do_and_Log
 CALL DELAY(80)

 CALL Msg_Con_Log('HHH Extracting Monitor-Setup to SYS:StartSys/a_Init/5_MonitorSetup')
 CMD.1=rEdit'movetext s:startup-sequence "BEGIN Picasso96" ";END Picasso96" T:P96'
 CMD.2=rEdit'movetext s:startup-sequence "Picasso96" "1LiNe" T:P96'
 CMD.3=rEdit'movetext s:user-startup "BEGIN Picasso96" ";END Picasso96" T:P96'
 CMD.4=rEdit'movetext s:user-startup "Picasso96" "1LiNe" T:P96'
 CMD.5=rEdit'movetext s:startup-sequence "IF EXISTS DEVS:MONITORS/VGAONLY" "ENDIF" SYS:StartSys/a_Init/_5_MonitorSetupVGA'
 CMD.6=rEdit'movetext s:startup-sequence "IF EXISTS DEVS:MONITORS/MULTISYNC" "ENDIF" SYS:StartSys/a_Init/_5_MonitorSetupMSync'
 CMD.7=rEdit'movetext s:startup-sequence "IF EXISTS DEVS:MONITORS" "ENDIF" SYS:StartSys/a_Init/_5_MonitorSetup.bak'
 CMD.8=rEdit'movetext s:startup-sequence "DEVS:MONITORS" "*sAmE" SYS:StartSys/a_Init/_5_MonitorSetup.bak'
 CMD.9=rEdit'movetext s:startup-sequence "execute T:M" "1LiNe" SYS:StartSys/a_Init/_5_MonitorSetup.bak'
 CMD.10=rEdit'movetext s:startup-sequence "delete >NIL: T:M" "1LiNe" SYS:StartSys/a_Init/_5_MonitorSetup.bak'
 CALL Do_and_Log

 IF EXISTS('T:P96') THEN
 DO
  CMD.1='echo >T:P96_1 "failat 30"'
  CMD.2='join T:P96_1 T:P96 as T:P96_2'
  CMD.3='join T:P96_2 SYS:StartSys/a_Init/5_MonitorSetup as T:P96_3'
  CMD.4='copy T:P96_3 SYS:StartSys/a_Init/5_MonitorSetup CLONE QUIET'
  CALL Do_and_Log

  ADDRESS COMMAND 'delete >NIL: T:P96#? FORCE QUIET'
 END
 CALL DELAY(80)

 module='SYS:StartSys/d_System/2_Devices'
 CALL Msg_Con_Log('HHH Extracting DosDrivers Setup to 'module)
 CMD.1=rEdit'movetext s:startup-sequence "BindDrivers" "DEVS:DOSDRIVERS" 'module
 CMD.2=rEdit'movetext s:startup-sequence "DEVS:DOSDRIVERS" "*sAmE" 'module
 CALL Do_and_Log
 CALL DELAY(80)

 module='SYS:StartSys/d_System/4_BeforeLoadWB'
 CALL Msg_Con_Log('HHH Extracting Intuition-Preconfig to 'module)
 CMD.1=rEdit'movetext s:startup-sequence "Rainboot" "1LiNe" SYS:StartSys/b_GUI/5_MultiMediaBoot'
 CMD.2=rEdit'movetext s:startup-sequence "~~C:IPrefs" "~~LoadWB" 'module
 CMD.3=rEdit'movetext s:startup-sequence "~~C/IPrefs" "~~C/LoadWB" 'module
 CMD.4=rEdit'movetext s:startup-sequence "~~C:FastIPrefs" "~~C:LoadWB" 'module
 CMD.5=rEdit'movetext s:startup-sequence "~~IPrefs" "~~LoadWB" 'module
 CMD.6=rEdit'movetext s:startup-sequence "~~FastIPrefs" "~~LoadWB" 'module
 CALL Do_and_Log
 CALL DELAY(80)

 module='SYS:StartSys/e_WB/4_AfterLoadWB'
 CALL Msg_Con_Log('HHH Extracting Post-Workbench-Parts to 'module)
 CMD.1=rEdit'movetext s:startup-sequence "~~C:LoadWB" "~~EndCLI" 'module
 CMD.2=rEdit'movetext s:startup-sequence "~~LoadWB" "~~EndCLI" 'module
 CMD.3=rEdit'movetext s:startup-sequence "~~C:Scalos" "~~EndCLI" 'module
 CMD.4=rEdit'movetext s:startup-sequence "~~Scalos" "~~EndCLI" 'module
 CMD.5=rEdit'movetext s:startup-sequence "~~C:DOpus" "~~EndCLI" 'module
 CMD.6=rEdit'movetext s:startup-sequence "~~DOpus" "~~EndCLI" 'module
 CMD.7=rEdit'movetext s:startup-sequence "~~C:DirectoryOpus" "~~EndCLI" 'module
 CMD.8=rEdit'movetext s:startup-sequence "~~DirectoryOpus" "~~EndCLI" 'module
 CMD.9=rEdit'movetext s:startup-sequence "~~C:Magellan" "~~EndCLI" 'module
 CALL Do_and_Log
 CALL DELAY(80)

 module='SYS:StartSys/e_WB/1_Workbench'
 envT='ENV:WB-Loader'
 ADDRESS COMMAND 'delete >NIL: 'envT' FORCE QUIET'
 CALL Msg_Con_Log('HHH Extracting Workbench-Start to 'module)
 CMD.1=rEdit'movetext s:startup-sequence "C:LoadWB" "1LiNe" 'envT
 CMD.2=rEdit'movetext s:startup-sequence "LOADWB" "1LiNe" 'envT
 CMD.3=rEdit'movetext s:startup-sequence "LOADWB" "1LiNe" 'envT
 CMD.4=rEdit'movetext s:startup-sequence "Scalos" "1LiNe" 'envT
 CMD.5=rEdit'movetext s:startup-sequence "Scalos" "1LiNe" 'envT
 CMD.6=rEdit'movetext s:startup-sequence "DOpus" "1LiNe" 'envT
 CMD.7=rEdit'movetext s:startup-sequence "DOpus" "1LiNe" 'envT
 CMD.8=rEdit'movetext s:startup-sequence "DirectoryOpus" "1LiNe" 'envT
 CMD.9=rEdit'movetext s:startup-sequence "DirectoryOpus" "1LiNe" 'envT
 CMD.10=rEdit'movetext s:startup-sequence "Magellan" "1LiNe" 'envT
 CMD.11=rEdit'movetext s:startup-sequence "Magellan" "1LiNe" 'envT
 CMD.12='Install_C:ReplaceStrings 'module' "c:LoadWB" "${WB-Loader}"'
 CALL Do_and_Log
 CALL DELAY(80)

 module='S:Startup-Sequence'
 CALL Msg_Con_Log('HHH Inserting ModAS Module into 'module)
 CMD.1=rEdit'inserttext "iGuide:init/ModAS.sseq" "IPREFS" 'module
 CALL Do_and_Log
 CALL DELAY(80)

 module='SYS:StartSys/b_GUI/1_IntuitionStartup'
 CALL Msg_Con_Log('HHH Processing WBCtrl if available .. 'module)
 CMD.1=rEdit'movetext s:startup-sequence "WBCtrl" "1LiNe" 'module
 CMD.2=rEdit'movetext s:startup-sequence "WBCtrl" "1LiNe" 'module
 CMD.3=rEdit'movetext s:user-startup "WBCtrl" "1LiNe" 'module
 CMD.4=rEdit'movetext s:user-startup "WBCtrl" "1LiNe" 'module

 /* already supplied with sys:startsys/b_GUI/1_IntuitionStartup - remove here */
 CMD.5=rEdit'movetext s:user-startup "LoadResource" "1LiNe" T:Trash'
 CMD.6=rEdit'movetext s:user-startup "LoadResource" "1LiNe" T:Trash'
 CMD.7=rEdit'movetext s:user-startup "AddDataTypes" "1LiNe" T:Trash'
 CMD.8=rEdit'movetext s:user-startup "AddDataTypes" "1LiNe" T:Trash'
 CALL Do_and_Log
 CALL DELAY(80)

 module='SYS:StartSys/b_GUI/1_IntuitionStartup'
 CALL Msg_Con_Log('HHH Processing GUI patches if available .. 'module)
 CMD.1=rEdit'movetext s:startup-sequence ";BEGIN VisualPrefs" ";END" 'module
 CMD.2=rEdit'movetext s:startup-sequence "VisualPrefs" "1LiNe" 'module
 CMD.3=rEdit'movetext s:startup-sequence "VisualPrefs" "1LiNe" 'module
 CMD.4=rEdit'movetext s:user-startup ";BEGIN VisualPrefs" ";END" 'module
 CMD.5=rEdit'movetext s:user-startup "VisualPrefs" "1LiNe" 'module
 CMD.6=rEdit'movetext s:user-startup "VisualPrefs" "1LiNe" 'module

 CMD.7=rEdit'movetext s:user-startup ";BEGIN Birdie" ";END" 'module
 CMD.8=rEdit'movetext s:user-startup "Birdie" "1LiNe" 'module
 CMD.9=rEdit'movetext s:user-startup "Birdie" "1LiNe" 'module
 CMD.10=rEdit'movetext s:startup-sequence ";BEGIN Birdie" ";END" 'module
 CMD.11=rEdit'movetext s:startup-sequence "Birdie" "1LiNe" 'module
 CMD.12=rEdit'movetext s:startup-sequence "Birdie" "1LiNe" 'module
 CALL Do_and_Log

 CMD.1=rEdit'movetext s:startup-sequence ";BEGIN SysIHack" ";END" 'module
 CMD.2=rEdit'movetext s:startup-sequence "SysIHack" "1LiNe" 'module
 CMD.3=rEdit'movetext s:startup-sequence "SysIHack" "1LiNe" 'module

 CMD.4=rEdit'movetext s:startup-sequence ";BEGIN SysI2" ";END" 'module
 CMD.5=rEdit'movetext s:startup-sequence "SysI2" "1LiNe" 'module
 CMD.6=rEdit'movetext s:startup-sequence "SysI2" "1LiNe" 'module

 CMD.7=rEdit'movetext s:startup-sequence ";BEGIN Urou" ";END" 'module
 CMD.8=rEdit'movetext s:startup-sequence "Urou" "1LiNe" 'module
 CMD.9=rEdit'movetext s:startup-sequence "Urou" "1LiNe" 'module

 CMD.10=rEdit'movetext s:user-startup ";BEGIN SysIHack" ";END" 'module
 CMD.11=rEdit'movetext s:user-startup "SysIHack" "1LiNe" 'module
 CMD.12=rEdit'movetext s:user-startup "SysIHack" "1LiNe" 'module

 CMD.13=rEdit'movetext s:user-startup ";BEGIN SysI2" ";END" 'module
 CMD.14=rEdit'movetext s:user-startup "SysI2" "1LiNe" 'module
 CMD.15=rEdit'movetext s:user-startup "SysI2" "1LiNe" 'module

 CMD.16=rEdit'movetext s:user-startup ";BEGIN Urou" ";END" 'module
 CMD.17=rEdit'movetext s:user-startup "Urou" "1LiNe" 'module
 CMD.18=rEdit'movetext s:user-startup "Urou" "1LiNe" 'module
 CALL Do_and_Log
 CALL DELAY(80)

 module='SYS:StartSys/b_GUI/1_IntuitionStartup'
 CALL Msg_Con_Log('HHH Processing Intuition-Startup .. 'module)
 CMD.1=rEdit'movetext s:startup-sequence "FastIPrefs" "1LiNe" 'module
 CMD.2=rEdit'movetext s:startup-sequence "FastIPrefs" "1LiNe" 'module
 CMD.3=rEdit'movetext s:startup-sequence "IPrefs" "1LiNe" 'module
 CMD.4=rEdit'movetext s:startup-sequence "IPrefs" "1LiNe" 'module
 CALL Do_and_Log
 CALL DELAY(80)

 CALL Msg_Con_Log('HHH Processing Rexx initialisation: SYS:StartSys/a_Init/Rexx')
 CMD.1=rEdit'movetext s:user-startup ";BEGIN REXX" ";END" T:Trash'
 CMD.2=rEdit'movetext s:user-startup "RexxMast" "1LiNe" T:Trash'
 CMD.3=rEdit'movetext s:user-startup "RexxMast" "1LiNe" T:Trash'
 CMD.4=rEdit'movetext s:startup-sequence "RexxMast" "1LiNe" T:Trash'
 CMD.5=rEdit'movetext s:startup-sequence "RexxMast" "1LiNe" T:Trash'

 CMD.6='copy >NIL: SYS:WBstartup/RexxMast#? SYS:System CLONE QUIET'
 CMD.7='copy >NIL: "SYS:WBstartup/WBstartup (enabled)/RexxMast#?" SYS:System CLONE QUIET'
 CMD.8='copy >NIL: SYS:WBstartup/WBstartup(enabled)/RexxMast#? SYS:System CLONE QUIET'
 CMD.9='copy >NIL: "SYS:WBstartup (enabled)/RexxMast#?" SYS:System CLONE QUIET'
 CMD.10='copy >NIL: SYS:WBstartup(enabled)/RexxMast#? SYS:System CLONE QUIET'
 CALL Do_and_Log

 CALL rmFromWBstartup('RexxMast#?','SYS:StartSys/a_Init/Rexx')
 CALL DELAY(80)

 /* merged scripts exist already on systems starting EASys! version 4.6.4 */
 IF user_ver<4.6.4 THEN
 DO
   module='SYS:StartSys/b_GUI/7_ShellConfig'
   CALL Msg_Con_Log('HHH Joining EASys! Shell Init and S:Shell-Startup to 'module)
   CMD.1=rEdit'movetext s:Shell-Startup ";BEGIN EASys!_ShellConfig" ";END EASys!_ShellConfig" T:Trash'
   CMD.2=rEdit'movetext s:Shell-Startup ";BEGIN s:Shell-Startup appended" ";END s:Shell-Startup appended" T:Trash'
   CMD.3='echo >>'module' "*n;BEGIN s:Shell-Startup appended."'
   CMD.4='type >>'module' s:Shell-Startup'
   CMD.5='echo >>'module' ";END s:Shell-Startup appended.*n"'
   CALL Do_and_Log
   CALL DELAY(80)
 END

 CALL Msg_Con_Log('HHH Extracting Application modules from s:User-Startup to SYS:StartSys/c_Prepare/')
 CMD.1='rx Install_C:Extract-User-Startup.rexx'
 CMD.2='delete >NIL: SYS:StartSys/ModAS_activated FORCE QUIET'
 CMD.3='date >SYS:StartSys/ModAS_activated'
 CALL Do_and_Log
 CALL DELAY(80)
END
/*------------------------------ Finish ModAS */
InstName=' Finish ModAS '

IF ~EXISTS('SYS:StartSys/ModAS_activated') THEN
 ModAS_user=0
ELSE
DO
 ModAS_user=1

 CALL Msg_Con_Log('HHHHH Finishing ModAS Setup ...')
 CALL ExecScript('iGuide:FinishModAS.script','')
 CALL DELAY(80)

 CALL Msg_Con_Log('HHHHH Completing DeInstaller code for ModAS ...')
 r=wdi('echo "*e[1m Reactivating original Startup.*e[0m" NOLINE')
 r=wdi('wait 3')
 r=wdi('execute SYS:StartSys/ModAS2Standard')
 r=wdi('wait 15')
 CALL SpaceNextEntry

 IF wb_port=1 THEN
 DO
  /* OS3.5 users should not and need not use NewIcons anymore */
  CMD.1='echo >ENV:Flags/NEW_ICONS "0"'
  CMD.2='echo >SYS:StartSys/Profiles/$LOGIN/ENV/Flags/NEW_ICONS "0"'
  CMD.3='echo >SYS:StartSys/Profiles/root/ENV/Flags/NEW_ICONS "0"'
  CMD.4='echo >SYS:StartSys/Profiles/guest/ENV/Flags/NEW_ICONS "0"'
  CALL Do_and_Log
 END

 CMD.1='copy SYS:disk.info SYS:StartSys/profiles/root/Icons/SYS CLONE QUIET'
 CMD.2='copy SYS:disk.info SYS:StartSys/profiles/guest/Icons/SYS CLONE QUIET'
 CMD.3='copy RAM:disk.info SYS:StartSys/profiles/root/Icons/RAM CLONE QUIET'
 CMD.4='copy RAM:disk.info SYS:StartSys/profiles/guest/Icons/RAM CLONE QUIET'
 CMD.5='copy ENV:sys SYS:StartSys/profiles/root/ENV/sys CLONE ALL QUIET'
 CMD.6='copy SYS:StartSys/profiles/root/ENV SYS:StartSys/profiles/guest/ENV CLONE ALL QUIET'
 CALL Do_and_Log

 CMD.1='copy iGuide:upd/StartSys/#? SYS:StartSys CLONE ALL QUIET'
 CALL Do_and_Log
END

IF ModAS_user=0 & User_Ver<4.6.4 THEN
DO
 module='S:Shell-Startup'
 CMD.1='echo >>'module' "*n;BEGIN EASys!_ShellConfig appended."'
 CMD.2='type >>'module' "iGuide_root:ModAS_System/StartSys/b_GUI/7_ShellConfig"'
 CMD.3='echo >>'module' "*n;END EASys!_ShellConfig appended.*n"'
 CMD.4=rEdit'movetext 'module' ";BEGIN ModAS_StartupShell" ";END ModAS_StartupShell" T:Trash'
 CMD.5=rEdit'movetext 'module' ";BEGIN ActualPath" "1LiNe" T:Trash'
 CMD.6=rEdit'movetext 'module' ";END ActualPath" "1LiNe" T:Trash'
 CALL Do_and_Log
 CALL DELAY(80)
END

IF EXISTS('s:startup-sequence'TimeStamp) THEN ADDRESS COMMAND 'delete s:startup-sequence.1 FORCE QUIET'
IF EXISTS('SYS:StartSys/b_GUI/7_ShellConfig') THEN
 ADDRESS COMMAND 'setenv SHELLSTARTUP "SYS:StartSys/b_GUI/7_ShellConfig"'
ELSE
 ADDRESS COMMAND 'setenv SHELLSTARTUP "S:Shell-Startup"'

ADDRESS COMMAND 'delete >NIL: iGuide_root:ModAS_System FORCE ALL QUIET'

CALL SpaceNextEntry
CALL CloseCon
RETURN

/* ------------------------- */
References_Init:
InstName=' Preparing EASys! References ...'
CALL Msg_Con_Log('HHHHH Updating References ...')

IF ~EXISTS('ENV:RefTable') THEN
DO
 CMD.1='makedir >NIL: ENV:RefTable'
 CALL Do_and_Log
END

IF user_ver<Update_EndVer & update>0 THEN
DO
  CMD.1='copy iGuide:update/EASys!/SysDataBase/RefTable SYS:EASys!/SysDataBase/RefTable CLONE ALL QUIET'
  CMD.2='copy iGuide:update/EASys!/SysDataBase/RefTable ENV:RefTable CLONE ALL QUIET'
  CALL Do_and_Log
END

IF EXISTS('ENV:RefTable/WindowChecker') | EXISTS('ENV:RefTable/net-mailscreen') | EXISTS('ENV:RefTable/FileManager') THEN
DO
 Action=ShowMessage('UserReferences-Update',,,,AppName)
 CALL Msg_Con_Log('HHH Converting old References and update ...')
 CMD.1='rx iGuide:ConvertOldRefs.rexx'
 CALL Do_and_Log
END

IF (User_Ver < 4.6.4) & (Update > 0) THEN
DO
 CALL Msg_Con_Log('HHH References finishing ...')
 CALL ExecScript('iGuide:NewRefs.script','')
END

CALL CloseCon
CALL SpaceNextEntry
RETURN

/* ------------------------- */
InitBase:
InstName=' Preparing EASys! '
moduleSrc='iGuide:Init/EASys!'
CALL Msg_Con_Log('H Preparing EASys! for immediate usability ...')

/* prevent wb_menu from starting immediately: */
CALL setclip('Language','')

IF EASys_from_HD=0 THEN
 ADDRESS COMMAND 'type >>"'moduleSrc'" "iGuide:init/EASys!.ENV"'
ELSE
 ADDRESS COMMAND 'type >>"'moduleSrc'" "iGuide:init/EASys!.HD"'

ADDRESS COMMAND
'type >>"'moduleSrc'" "iGuide:init/EASys!.aliases"'
'copy ENVARC:MultiNotify.prefs ENV: CLONE QUIET'

IF ModAS_user=1 THEN
DO
 module='SYS:StartSys/c_Prepare/EASys!'
 ADDRESS COMMAND 'copy "'moduleSrc'" "'module'" CLONE QUIET'
END
ELSE /* No ModAS User... does not want to have a more modern system :( */
DO
 module='s:User-Startup'

 ADDRESS COMMAND
 rEdit'movetext 'module' ";BEGIN EASys!" ";END EASys!" T:Trash'
 rEdit'movetext 'module' ";BEGIN EASys!" ";END EASys!" T:Trash'
 rEdit'movetext 'module' ";BEGIN KCON" ";END" T:Trash'
 rEdit'movetext 'module' ";BEGIN KINGCON" ";END" T:Trash'
 'echo >>'module' ";BEGIN EASys!"'
 'type >>'module' "'moduleSrc'"'
 'echo >>'module' ";END EASys!"'
 'echo >>'module' ";BEGIN KCON"'
 'type >>'module' T:KCON'
 'echo >>'module' ";END KCON"'
END

IF ~Assigned('KCON:') THEN
DO
 CMD.1='execute "T:KCON"'
 CMD.2=WBrun' devs:dosdrivers/KCON'
 CALL Do_and_Log
END

/* Start EASys!, but keep MultiNotify (File Notify Deamon) disabled
   until end of installation (Finish.script)*/

CMD.1='execute "'moduleSrc'"'
CMD.2='SYS:EASys!/bin/CLIexchange MultiNotify DISABLE'
CALL Do_and_Log

CALL removeCdity('MultiNotify','New place: EASys!:bin/ .. Startup within "'module'"')

r=wdi('echo "*e[1m Removing EASys! main directory[0m" NOLINE')
r=wdi('delete SYS:EASys! FORCE ALL')
CALL SpaceNextEntry
CALL CloseCon
RETURN

/* ------------------------- */
mkRef:
PARSE ARG ref,line,getflag

IF getflag='GETREF' THEN
 line='rx EASys!:SysDatabase/ReferencePrefs.rexx 'ref
ELSE
 CALL Msg_Con_Log('HHHH Created Reference: ${RefTable/'ref'}HHH Value: 'line)

CALL OPEN(fTMP,'EASys!:SysDataBase/RefTable/'ref,'W')
CALL WRITELN(fTMP,line)
CALL Close(fTMP)

CALL OPEN(fTMP,'ENV:RefTable/'ref,'W')
CALL WRITELN(fTMP,line)
CALL Close(fTMP)

IF assigned('Profile:') THEN
DO
 IF EXISTS('Profile:RefTable/'ref) THEN
 DO
  CALL OPEN(fTMP,'Profile:RefTable/'ref,'W')
  CALL WRITELN(fTMP,line)
  CALL Close(fTMP)
 END
END

RETURN
/* ------------------------- */
References:
InstName=' References installer '
r=ShowMessage('UserReferences',,,,AppName)
r=ShowMessage('UserReferences2',,,,AppName)

CALL Msg_Con_Log('H Installing EASys! Reference system...')

IF wb_port=1 THEN
DO
 CALL mkRef('Archive-Manager','rx EASys!_rexx:ArchiveManager.rexx')
 CALL mkRef('File-Presentate','rx EASys!_rexx:Presentate.rexx')
END
ELSE
DO
 CALL mkRef('Archive-Manager','rx EASys!_rexx:ArchiveManager_OS31.rexx')
 CALL mkRef('File-Presentate','rx EASys!_rexx:Presentate_OS31.rexx')
END

SnoopDos=FindProg('SnoopDos','SnoopDos2')
IF ~(SnoopDos='') THEN
 CALL mkRef('Disk-Snoop','EASys!_bin:WBrun "'SnoopDos'"')
ELSE
 CALL mkRef('Disk-Snoop','','GETREF')

DiskSalv=FindProg('DiskSalv','DiskSalv2')
IF ~(DiskSalv='') THEN
 CALL mkRef('DiskSalv',DiskSalv)
ELSE
 CALL mkRef('DiskSalv','','GETREF')

PDFview=FindProg('Apdf','Apdf')
IF ~(PDFview='') THEN
 CALL mkRef('Text-ViewPDF','EASys!_bin:WBrun "'PDFview'" ARGS')
ELSE
 CALL mkRef('Text-ViewPDF','','GETREF')

CALL mkRef('Text-ViewHTML','rx EASys!_bin:Network/Browser/Browser-Start_HTML.rexx')

CALL mkRef('ViewPix-ILBM','SYS:Utilities/MultiView')
CALL mkRef('ViewPix-ILBM-Opts',' ')
CALL mkRef('ViewPix-HAM','SYS:Utilities/MultiView')
CALL mkRef('ViewPix-HAM-Opts','>NIL: SCREEN')

ViewPix=''
CyberShow=FindProg('cybershow','cybershow')
IF CyberShow='' THEN Visage=FindProg('Visage','Visage')
IF Visage='' THEN FastView=FindProg('FastView','FastView')
IF FastView='' THEN ViewPix='SYS:Utilities/MultiView'

IF ~(FastView='') THEN ViewPix=FastView
IF ~(Visage='') THEN ViewPix=Visage
IF ~(CyberShow='') THEN ViewPix=CyberShow
IF ~(ViewPix='') THEN
DO
 CALL mkRef('ViewPix-JPG',ViewPix)
 CALL mkRef('ViewPix-BMP',ViewPix)
 CALL mkRef('ViewPix-GIF',ViewPix)
 CALL mkRef('ViewPix-PCX',ViewPix)
 CALL mkRef('ViewPix-PNG',ViewPix)
 CALL mkRef('ViewPix-std',ViewPix)
 CALL mkRef('ViewPix-PNG',ViewPix)
END
ELSE
DO
 CALL mkRef(tref,'','GETREF')
 CALL mkRef('ViewPix-JPG','','GETREF')
 CALL mkRef('ViewPix-BMP','','GETREF')
 CALL mkRef('ViewPix-GIF','','GETREF')
 CALL mkRef('ViewPix-PCX','','GETREF')
 CALL mkRef('ViewPix-PNG','','GETREF')
 CALL mkRef('ViewPix-std','','GETREF')
 CALL mkRef('ViewPix-PNG','','GETREF')
END

ViewVT=FindProg('VT','ViewTek')
IF ~(ViewVT='') THEN
DO
 CALL mkRef('ViewPix-PIC',ViewVT)
 CALL mkRef('ViewPix-PIC-Opts','>NIL: DF')
 CALL mkRef('ViewPix-VT',ViewVT)
 CALL mkRef('ViewPix-VT-Opts','>NIL: DF')
END
ELSE
DO
 CALL mkRef('ViewPix-PIC','','GETREF')
 CALL mkRef('ViewPix-VT','','GETREF')
END

MaVI=FindProg('Mavi','MoviePlayer')
IF ~(MaVI='') THEN
DO
 CALL mkRef('Video-QT','EASys!_bin:WBrun "'MaVI'"')
 CALL mkRef('Video-MOV','EASys!_bin:WBrun "'MaVI'"')
END
ELSE
DO
 CALL mkRef('Video-QT','','GETREF')
 CALL mkRef('Video-MOV','','GETREF')
END

CyberQT=FindProg('CyberQT','CyberQT')
IF ~(CyberQT='') THEN
DO
 CALL mkRef('Video-QT',CyberQT' FILES')
 CALL mkRef('Video-MOV',CyberQT' FILES')
END
ELSE
DO
 CALL mkRef('Video-QT','','GETREF')
 CALL mkRef('Video-MOV','','GETREF')
END

CyberAVI=FindProg('CyberAVI','CyberAVI')
IF ~(CyberAVI='') THEN
DO
 CALL mkRef('Video-AVI',CyberAVI)
 CALL mkRef('Video-AVI-Opts','BUFFERSIZE=100 FILES')
END
ELSE
 CALL mkRef('Video-AVI','','GETREF')

VideoMPG=FindProg('Osiris','Isis')
IF ~(VideoMPG='') THEN
 CALL mkRef('Video-MPG',VideoMPG)
ELSE
 CALL mkRef('Video-MPG','','GETREF')


PhotoAlbum=FindProg('PhotoAlbum','PhotoAlbum')
IF ~(PhotoAlbum='') THEN
DO
 CALL mkRef('Gfx-PictureBrowser','EASys!_bin:WBrun "'PhotoAlbum'"')
 CALL mkRef('Gfx-PictureAlbum','EASys!_bin:WBrun "'PhotoAlbum'"')
END
ELSE
DO
 CALL mkRef('Gfx-PictureBrowser','','GETREF')
 CALL mkRef('Gfx-PictureAlbum','','GETREF')
END

IF Assigned('Pic_Manager:') THEN
DO
 CALL mkRef('Gfx-PictureAlbum','EASys!_bin:WBrun PIC_Manager:PMPro')
 CALL mkRef('Gfx-PictureAlbum','EASys!_bin:WBrun PIC_Manager:PMPro')
 CALL mkRef('Gfx-ImageWorks','EASys!_bin:WBrun PIC_Manager:PMPro')
 CALL mkRef('Gfx-ImageWorks-Prg','PIC_Manager:PMPro')
END
ELSE
DO
 CALL mkRef('Gfx-PictureAlbum','','GETREF')
 CALL mkRef('Gfx-PictureAlbum','','GETREF')
 CALL mkRef('Gfx-ImageWorks','','GETREF')
 CALL mkRef('Gfx-ImageWorks-Prg','','GETREF')
END

IF Assigned('IE:') THEN
DO
 CALL mkRef('Gfx-ImageWorks','EASys!_bin:WBrun IE:IE')
 CALL mkRef('Gfx-ImageWorks-Prg','IE:IE')
END
ELSE
DO
 CALL mkRef('Gfx-ImageWorks','','GETREF')
 CALL mkRef('Gfx-ImageWorks-Prg','','GETREF')
END

IF Assigned('ArtEffect:') THEN
DO
 CALL mkRef('Gfx-ArtEffect','EASys!_bin:WBrun ArtEffect:ArtEffect')
 CALL mkRef('Gfx-ImageWorks','EASys!_bin:WBrun ArtEffect:ArtEffect')
 CALL mkRef('Gfx-ImageWorks-Prg','ArtEffect:ArtEffect')
END
ELSE
DO
 CALL mkRef('Gfx-ArtEffect','','GETREF')
 CALL mkRef('Gfx-ImageWorks','','GETREF')
 CALL mkRef('Gfx-ImageWorks-Prg','','GETREF')
END

IF Assigned('PhotoGenics:') THEN
DO
 CALL mkRef('Gfx-ImageWorks','EASys!_bin:WBrun PhotoGenics:PhotoGenics')
 CALL mkRef('Gfx-ImageWorks-Prg','PhotoGenics:PhotoGenics')
END
ELSE
DO
 CALL mkRef('Gfx-ImageWorks','','GETREF')
 CALL mkRef('Gfx-ImageWorks-Prg','','GETREF')
END

Scan=FindProg('ScanQuix','ScanQuix5')
IF Scan='' THEN Scan=FindProg('fxScan','fxScan')
IF ~(Scan='') THEN CALL mkRef('Gfx-Scanner','EASys!_bin:WBrun "'Scan'"')
ELSE CALL mkRef('Gfx-Scanner','','GETREF')


CDplayer=FindProg('PlayCD','PlayCD')
IF CDplayer='' THEN CDplayer=FindProg('GroovyCDplayer','GroovyPlayer')
IF ~(CDplayer='') THEN CALL mkRef('Sound-CDPlayer','EASys!_bin:WBrun "'CDplayer'"')
ELSE CALL mkRef('Sound-CDPlayer','','GETREF')

SoundDigi=FindProg('PSound_3.2','PSound')
IF SoundDigi='' THEN SoundDigi=FindProg('Samplitude','Samplitude')
IF ~(SoundDigi='') THEN CALL mkRef('Sound-Digitizer','EASys!_bin:WBrun "'SoundDigi'"')
ELSE CALL mkRef('Sound-Digitizer','','GETREF')


TheEd=''
SELECT
 WHEN Assigned('GoldEd:') THEN TheEd='GoldEd:Ed'
 WHEN EXISTS('c:ed') & EXISTS('c:GED') THEN TheEd='c:ed'
 WHEN EXISTS('c:ed') & EXISTS('c:CEd') THEN TheEd='c:ed'
 OTHERWISE NOP
END

IF ~(TheEd='') THEN
  StickyEd=TheEd' -STICKY'
ELSE
DO
 IF wb_port=1 THEN TheEd='SYS:Tools/EditPad'
 ELSE TheEd='c:ed'

 StickyEd=TheEd
END

CALL mkRef('Text-Editor',TheEd)
CALL mkRef('Text-Editor-Sync',StickyEd)


/* Reset Internet references. Will be set later within calling EASys!:Prefs/Internet_Prefs */
CALL mkRef('Net-Mail','','GETREF')
CALL mkRef('Net-TCPIP','','GETREF')
CALL mkRef('Net-Browser','','GETREF')
CALL mkRef('Net-Telnet','','GETREF')
CALL mkRef('Net-FTP','','GETREF')
CALL mkRef('Net-News','','GETREF')
CALL mkRef('Net-IRC','','GETREF')
CALL mkRef('Net-PGP','','GETREF')


Mounter=FindProg('UnitControl','UnitControl2')
IF Mounter='' THEN Mounter=FindProg('Mounter','Mounter')
IF Mounter='' THEN Mounter=FindProg('SCSImounter','SCSImount')
IF ~(Mounter='') THEN
 CALL mkRef('Disk-SCSI-mounter','EASys!_bin:WBrun "'Mounter'"')
ELSE
 CALL mkRef('Disk-SCSI-mounter','','GETREF')


IF Assigned('TurboPrint:') THEN
DO
 GfxP1='TurboPrint:GrafikPublisher'
 GfxP2='TurboPrint:PicturePublisher'
 GfxP3='TurboPrint:GraphicsPublisher'
 GfxP4='TurboPrint:GraphicPublisher'
 IF EXISTS(GfxP1) THEN GfxP=GfxP1
 IF EXISTS(GfxP2) THEN GfxP=GfxP2
 IF EXISTS(GfxP3) THEN GfxP=GfxP3
 IF EXISTS(GfxP4) THEN GfxP=GfxP4

 CALL mkRef('Gfx-Gfx-Publisher','EASys!_bin:WBrun "'GfxP'"')
 CALL mkRef('Prefs-TurboPrint','EASys!_bin:WBrun EASys!_bin:WBrun TurboPrint:TurboPrefs')
END
ELSE
DO
 CALL mkRef('Gfx-Gfx-Publisher','','GETREF')
 CALL mkRef('Prefs-TurboPrint','','GETREF')
END

SELECT
 WHEN Assigned('DPaint:') THEN PaintBitmap='DPaint:DPaint'
 WHEN Assigned('DPaint5:') THEN PaintBitmap='DPaint5:DPaint'
 WHEN Assigned('DPaint_5:') THEN PaintBitmap='DPaint_5:DPaint'
 WHEN Assigned('DPaintV:') THEN PaintBitmap='DPaintV:DPaint'
 WHEN Assigned('DPaint_V:') THEN PaintBitmap='DPaint_V:DPaint'
 WHEN Assigned('DPaint4:') THEN PaintBitmap='DPaint4:DPaint'
 WHEN Assigned('DPaint4:') THEN PaintBitmap='DPaint_4:DPaint'
 WHEN Assigned('DPaintIV:') THEN PaintBitmap='DPaintIV:DPaint'
 WHEN Assigned('DPaint_IV:') THEN PaintBitmap='DPaint_IV:DPaint'
 WHEN Assigned('DPaint3:') THEN PaintBitmap='DPaint3:DPaint'
 WHEN Assigned('DPaint3:') THEN PaintBitmap='DPaint_3:DPaint'
 WHEN Assigned('DPaintIII:') THEN PaintBitmap='DPaintIII:DPaint'
 WHEN Assigned('DPaint_III:') THEN PaintBitmap='DPaint_III:DPaint'
 OTHERWISE PaintBitmap=''
END

IF Assigned('PPaint:') THEN
DO
 PaintBitmap='PPaint:PPaint'
 CALL mkRef('Gfx-Paint-Bitmap','rx EASys!_rexx:Paint.rexx')
 CALL mkRef('Gfx-Paint-Bitmap-Prog',PaintBitmap)
 CALL mkRef('Gfx-Paint-Bitmap-RX-Front','ScreenToFront')
 CALL mkRef('Gfx-Paint-Bitmap-RX-Load','LoadBrush FILE')
 CALL mkRef('Gfx-Paint-Bitmap-RX-Port','PPAINT')
END
ELSE
IF ~(PaintBitmap='') THEN
DO
 CALL mkRef('Gfx-Paint-Bitmap','rx EASys!_rexx:Paint.rexx')
 CALL mkRef('Gfx-Paint-Bitmap-Prog',PaintBitmap)
 CALL mkRef('Gfx-Paint-Bitmap-RX-Front',' ')
 CALL mkRef('Gfx-Paint-Bitmap-RX-Load',' ')
 CALL mkRef('Gfx-Paint-Bitmap-RX-Port','DPAINT')
END

IF PaintBitmap='' THEN
DO
 CALL mkRef('Gfx-Paint-Bitmap','','GETREF')
 CALL mkRef('Gfx-Paint-Bitmap-Prog','','GETREF')
END

Calc=FindProg('ARcalc','Calc')
IF Calc='' THEN Calc=FindProg('Calc3.0','Calc')
IF Calc='' THEN Calc=FindProg('Calc','Calculator')
IF ~(Calc='') THEN
 CALL mkRef('Office-Calculator','EASys!_bin:WBrun "'Calc'"')
ELSE
 CALL mkRef('Office-Calculator','','GETREF')

Organizer=FindProg('Organizer','Organiser')
IF Organizer='' THEN
DO
 CALL mkRef('Office-Organizer','','GETREF')
 CALL mkRef('Office-PhoneBook','','GETREF')
 CALL mkRef('Office-Adress-DB','','GETREF')
END
ELSE
DO
 CALL mkRef('Office-Organizer','EASys!_bin:WBrun "'Organizer'"')
 CALL mkRef('Office-PhoneBook','EASys!_bin:WBrun "'Organizer'"')
 CALL mkRef('Office-Adress-DB','EASys!_bin:WBrun "'Organizer'"')
END

IF Assigned('CManager:') THEN
DO
 CALL mkRef('Office-PhoneBook','EASys!_bin:WBrun CManager:CManager')
 CALL mkRef('Office-Adress-DB','EASys!_bin:WBrun CManager:CManager')
END
ELSE
DO
 CALL mkRef('Office-PhoneBook','','GETREF')
 CALL mkRef('Office-Adress-DB','','GETREF')
END

IF Assigned('AmiAtlas:') THEN
 CALL mkRef('Office-RoutePlaner','EASys!_bin:WBrun AmiAtlas:AmiAtlas')
ELSE
 CALL mkRef('Office-RoutePlaner','','GETREF')

IF Assigned('MaxonAtlas:') THEN
 CALL mkRef('Office-RoutePlaner','EASys!_bin:WBrun MaxonAtlas:MaxonAtlas')
ELSE
 CALL mkRef('Office-RoutePlaner','','GETREF')

IF Assigned('MultiFax:') THEN
DO
 CALL mkRef('Office-Fax','EASys!_bin:WBrun MultiFax:Desk')
 CALL mkRef('Office-FaxConfig','EASys!_bin:WBrun MultiFax:Config')
 CALL mkRef('Office-FaxView','EASys!_bin:WBrun MultiFax:View')
END
ELSE
DO
 CALL mkRef('Office-Fax','','GETREF')
 CALL mkRef('Office-FaxConfig','','GETREF')
 CALL mkRef('Office-FaxView','','GETREF')
END

AmigaWriter=FindProg('AmigaWriter','AmigaWriter')
IF ~(AmigaWriter='') THEN
DO
 CALL mkRef('Office-AmigaWriter','EASys!_bin:WBrun "'AmigaWriter'"')
 CALL mkRef('Office-WordProcessor','EASys!_bin:WBrun "'AmigaWriter'"')
END
ELSE
 CALL mkRef('Office-AmigaWriter','','GETREF')

WWorth=FindProg('WordWorth','WordWorth6')
IF WWorth='' THEN WWorth=FindProg('WordWorth','WordWorth7')
IF ~(WWorth='') THEN
DO
 CALL mkRef('Office-WordWorth','EASys!_bin:WBrun "'WWorth'"')
 CALL mkRef('Office-WordProcessor','EASys!_bin:WBrun "'WWorth'"')
END
ELSE
 CALL mkRef('Office-WordWorth','','GETREF')

FinalW=FindProg('FinalWriter_D','FinalWriter')
IF ~(FinalW='') THEN
DO
 CALL mkRef('Office-FinalWriter','EASys!_bin:WBrun "'FinalW'"')
 CALL mkRef('Office-WordProcessor','EASys!_bin:WBrun "'FinalW'"')
END
ELSE
 CALL mkRef('Office-FinalWriter','','GETREF')

SpreadSh=FindProg('TurboCalc','TurboCalc')
IF SpreadSh='' THEN SpreadSh=FindProg('MaxiPlan','MaxiPlan')
IF SpreadSh='' THEN SpreadSh=FindProg('StarAmPlan','StarAmPlan')
IF ~(SpreadSh='') THEN
 CALL mkRef('Office-SpreadSheet','EASys!_bin:WBrun "'SpreadSh'"')
ELSE
 CALL mkRef('Office-SpreadSheet','','GETREF')

ADDRESS COMMAND 'rx EASys!:SysDatabase/ReferencePrefs.rexx GUI-ScreenMode'

SM=MyGetENV('RefTable/GUI-ScreenMode')

IF ~(CyberShow='') THEN
DO
 opts='AF IE PF SlideShow EFFECTS ScreenMode "'SM'"'
 CALL mkRef('ViewPix-CyberShow',CyberShow)
 CALL mkRef('ViewPix-CyberShow-Opts',opts)
END

IF ~(FastView='') THEN Opts='SM="'LEFT(SM,4)'" SCALE FILES'
IF ~(Visage='') THEN Opts=' '
IF ~(CyberShow='') THEN Opts='AS FS IE PF SM="'SM'" BLACK'
IF ViewPix='SYS:Utilities/MultiView' THEN Opts=' '
IF ~(ViewPix='') THEN
DO
 CALL mkRef('ViewPix-JPG-Opts',Opts)
 CALL mkRef('ViewPix-BMP-Opts',Opts)
 CALL mkRef('ViewPix-GIF-Opts',Opts)
 CALL mkRef('ViewPix-PCX-Opts',Opts)
 CALL mkRef('ViewPix-PNG-Opts',Opts)
 CALL mkRef('ViewPix-std-Opts',Opts)
END

CALL CloseCon
CALL SpaceNextEntry
RETURN
/* ------------------------- */
Prefs:
r=ShowMessage('ReqPrefs',,,,AppName)
ADDRESS COMMAND '${RefTable/Prefs-EASys!-Req}'

InstName=' IDer Prefs '
Action=ShowMessage('IDer',,,,AppName)
RETURN
/* ------------------------- */
BU_Manager:
InstName=' BackupManager '
r=ShowMessage('EASys!_BackupMan_unpack')
IF r=1 THEN CALL UnpackArchive(StarterDir'BU_Manager.lha','SYS:EASys!/')
RETURN
/* ------------------------- */
Help:
InstName=' EASys!_Help '
Action=ShowMessage('ManualServerInfo',,,,AppName)
Action=ShowMessage('Manuals',,,,AppName)
IF (Action=1) THEN CALL UnpackArchive(StarterDir'EASys!_Help.lha','SYS:')

RETURN
/* ------------------------ */
CreateTrash:
InstName=' EASys! Trash '

IF CheckCdity('GlobalTrash') | EXISTS('SYS:.backdrop'TimeStamp) THEN RETURN

IF ~EXISTS('SYS:Trashcan') THEN
DO
 CMD.1='makedir >NIL: SYS:Trashcan'
 CMD.2='copy EASys!:icons/def_trashcan.info SYS:Trashcan.info CLONE QUIET'
 CALL Do_and_Log
END

IF EXISTS('SYS:.backdrop') THEN
DO
 IF ~EXISTS('SYS:.backdrop'TimeStamp) THEN
    CMD.1='copy SYS:.backdrop SYS:.backdrop'TimeStamp' CLONE QUIET'
 ELSE
    CMD.1='echo >NIL: "dummy"'

 ADDRESS COMMAND 'search >ENV:SearchResult from SYS:.backdrop :Trashcan'
 r=UPPER(MyGetENV('SearchResult'))
 ADDRESS COMMAND 'delete >NIL: ENV:SearchResult QUIET'

 IF POS(':TRASHCAN',r)=0 THEN
    CMD.2='echo >>SYS:.backdrop ":Trashcan"'
 ELSE
    CMD.2=''

 CALL Do_and_Log
END
RETURN

/* ------------------------------------------------------- */
WBmenu:
InstName=' WB menu enhancements '
CALL Msg_Con_Log('HHH Installing: EASys! Menu enhancements (ToolsDaemon)...')

WB_used=ShowMessage('WB_or_Magellan',,,,AppName)

IF modas_user=1 THEN
 Module='SYS:StartSys/e_WB/2_MenuShortcuts'
ELSE
 Module='S:Startup-EASys!_InitMenu'

CALL removeCdity('RekeyIt',' !! Incompatible with OS3.5, replaced by PatchMenu in new Version.')
CALL removeCdity('SYS:Prefs/MenuPrefs',' !! Incompatible with OS3.5, replaced by SYS:EASys!/config/PatchMenu.dat')
CALL RemoveResources('RekeyIt')
CALL RemoveResources('MenuPrefs')

CALL removeCdity('ToolsDaemon','New place: EASys!:bin/ .. Startup within "'Module'" (called by s:Startup-Sequence)')
CALL removeCdity('PatchMenu','New place: EASys!:bin/.. Startup within "'Module'" (called by s:Startup-Sequence)')

IF EXISTS('S:ToolsDaemon.menu') THEN
DO
 ADDRESS COMMAND 'copy S:ToolsDaemon.menu S:ToolsDaemon.menu'TimeStamp' CLONE QUIET'

 r=wdi('echo "*e[1m Reactivating ToolsDaemon config ...*e[0m*n"')
 r=wdi('wait 3')
 r=wdi('copy S:ToolsDaemon.menu'TimeStamp' S:ToolsDaemon.menu CLONE QUIET')
 r=wdi('delete >NIL: S:ToolsDaemon.menu'TimeStamp' FORCE')
END

r=QuitCdity('ReKeyIt','>>>ReKeyIt')

ADDRESS COMMAND
'Install_C:CLIexchange MultiNotify DISABLE'
'Install_C:CLIexchange MCP DISABLE'
'Install_C:CLIexchange MCP020 DISABLE'
'Install_C:CLIexchange PatchMenu KILL'
'Install_C:CLIexchange MagicMenu KILL'
'Install_C:CLIexchange NewIcons DISABLE'

IF wb_used=0 THEN
DO
 /* Magellan users must add their menus on their own */
 CALL ShowMessage('Magellan_used',,,,AppName)
END
ELSE
DO
 /* Workbench and SCALOS users may use ToolsDaemon */

 IF wb_port=1 THEN
  config='PatchMenu.dat'
 ELSE
  config='PatchMenu_OS31.dat'

 IF EXISTS('EASys!:Config/'Language'/'config) THEN
  langua=Language
 ELSE
  langua='english'

 ADDRESS COMMAND
 'copy EASys!:Config/'langua'/'config' EASys!:Config CLONE QUIET'
 WBrun' EASys!:bin/PatchMenu'
 CALL DELAY(50)

 IF EXISTS('EASys!:Config/'Language'/'ToolsDaemon.menu) THEN
  langua=Language
 ELSE
  langua='english'

 ADDRESS COMMAND
 WBrun' EASys!:Config/'langua'/ToolsDaemon.menu'
 'copy EASys!:Config/'langua'/ToolsDaemon.menu S: CLONE QUIET'

 CALL DELAY(50)
END

install_MM=ShowMessage('install_MagicMenu',,,,AppName)
IF install_MM=1 THEN
DO
 CALL removeCdity('MagicMenu','New place: EASys!:bin/ .. Startup within "'Module'" (called by s:Startup-Sequence)')

 ADDRESS COMMAND WBrun' EASys!:bin/MagicMenu'
END
ELSE
DO
 IF (user_ver=0 | user_ver<4.8) THEN ADDRESS COMMAND 'Install_C:replacestrings 'module' "wbrun EASys!_bin:MagicMenu" ";wbrun EASys!_bin:MagicMenu" I'

 IF EXISTS('ENVARC:MagicMenu.prefs'TimeStamp) THEN
 DO
   ADDRESS COMMAND
   'delete >NIL: ENVARC:MagicMenu.prefs FORCE QUIET'
   'rename ENVARC:MagicMenu.prefs'TimeStamp' ENVARC:MagicMenu.prefs'
   'delete >NIL: ENV:MagicMenu.prefs FORCE QUIET'
   'rename ENV:MagicMenu.prefs'TimeStamp' ENV:MagicMenu.prefs'
 END
END

IF ModAS_user=0 THEN
DO
 /* remove old entries for this in startup-sequence, then reconstruct the new startup for the modules */

 CMD.1='rx T:remoteed.rexx movetext s:Startup-Sequence "run >NIL: execute 'Module'" "1LiNe" T:Trash'
 CMD.2=rEdit'movetext s:Startup-Sequence ";BEGIN _MenuShortcuts" ";END _MenuShortcuts" T:Trash'
 CMD.3=rEdit'movetext s:Startup-Sequence ";BEGIN _PubScreens" ";END _PubScreens" T:Trash'

 CMD.4='echo >'Module' ";initialize EASys! Post Startup-Sequence modules. Must be started some seconds after Startup-Sequence."'
 CMD.5='echo >>'Module' "wait 3"'
 CMD.6='type >>'Module' T:2_MenuShortcuts'
 CMD.7='echo >>'Module' ";activate Public Screens activation for EASys!"'
 CMD.8='type >>'Module' T:7_PubScreens'

 CMD.9=rEdit'movetext s:startup-sequence "EndCLI" "§§##" T:Trash'

 CMD.10='echo >>S:Startup-Sequence "run >NIL: execute 'Module'*n"'
 CMD.11='echo >>S:Startup-Sequence "EndCLI >NIL:"'
 CALL Do_and_Log

 r=wdi('rx T:remoteed.rexx movetext s:Startup-Sequence "run >NIL: execute 'Module'" "1LiNe" T:Trash')
 r=wdi('delete >NIL: 'Module' FORCE QUIET')
END

IF wb_used=0 & (user_ver=0 | user_ver<4.8) THEN ADDRESS COMMAND 'Install_C:replacestrings 'module' "rx EASys!:Prefs/WB_Menu_Restart.rexx ALL" ";rx EASys!:Prefs/WB_Menu_Restart.rexx ALL" I'

IF ~(wb_port=1) THEN
DO
 ADDRESS COMMAND
 'Install_C:CLIexchange NewIcons ENABLE'
 'delete >NIL: ENV:'??_info' FORCE QUIET'
END

r=ShowMessage('NewMenu',,,,AppName)

ADDRESS COMMAND
'Install_C:CLIexchange MCP ENABLE'
'Install_C:CLIexchange MCP020 ENABLE'
'Install_C:CLIexchange MultiNotify ENABLE'

CALL CloseCon
CALL SpaceNextEntry
RETURN

/* ------------------------------------------------------- */
ToolManager:
PARSE ARG InstallQuick

InstName=' ToolManager '
CALL Msg_Con_Log('HHH Installing: EASys! Docks (ToolManager)...')

IF ~(InstallQuick='QUICK') THEN
DO
 r=ShowMessage('Test_Dock',,,,AppName)

 IF EXISTS('ENV:ToolManager.prefs') THEN
 DO
  ADDRESS COMMAND
  'protect ENVARC:ToolManager.prefs +wd'
  'protect ENV:ToolManager.prefs +wd'
  'copy ENV:ToolManager.prefs ENV:ToolManager.$TimeStamp CLONE QUIET'
  'copy ENVARC:ToolManager.prefs ENVARC:ToolManager.$TimeStamp CLONE QUIET'
 END
END

TM_Cmd=WBrun' "iGuide_root:EASys!_TM/EASys!/bin/ToolManager"'
TM_wasActive=QuitCdity('ToolManager')

CALL UnpackArchive(StarterDir'EASys!_TM.lha','iGuide_root:')

IF user_ver<Update_EndVer & update>0 THEN
DO
 IF EXISTS('iGuide:update/EASys!/Config/ToolManager.prefs') THEN
  ADDRESS COMMAND 'copy iGuide:update/EASys!/Config/ToolManager.prefs#? EASys!:Config CLONE QUIET'
END

ADDRESS COMMAND 'copy "EASys!:Config/ToolManager.prefs" ENV:ToolManager.prefs CLONE QUIET'

IF ~(InstallQuick='QUICK') THEN
DO
  ADDRESS COMMAND
  'assign DOCK: "iGuide_root:EASys!_TM/EASys!/Dock" ADD'
  'assign libs: "iGuide_root:EASys!_TM/libs" ADD'
  'assign Locale: "iGuide_root:EASys!_TM/Locale" ADD'
  TM_Cmd
  CALL DELAY(80)

  /* -------------- */

  r=ShowMessage('NewDock',,,,AppName)
  r=ShowMessage('InfoFileManager',,,,AppName)
  r=ShowMessage('InfoFileManager2',,,,AppName)
  r=ShowMessage('InfoFileManager3',,,,AppName)
  r=ShowMessage('InfoFileManager4',,,,AppName)

  Action=ShowMessage('Take_Dock',,,,AppName)

  ADDRESS COMMAND
  'assign DOCK: "iGuide_root:EASys!_TM/EASys!/Dock" REMOVE'
  'assign Libs: "iGuide_root:EASys!_TM/libs" REMOVE'
  'assign Locale: "iGuide_root:EASys!_TM/Locale" REMOVE'

  CALL QuitCdity('ToolManager')

  IF Action=0 THEN
  DO
    /* Remove Test-Installation, doesn't want it. */
    IF TM_wasActive=1 THEN
    DO
      ADDRESS COMMAND
      move' ENV:ToolManager.$TimeStamp' ENV:ToolManager.prefs CLONE QUIET'
      move' ENVARC:ToolManager.$TimeStamp' ENVARC:ToolManager.prefs CLONE QUIET'
      TM_Cmd

      CALL DELAY(100)
    END

    ADDRESS COMMAND 'run >NIL: delete "iGuide_root:EASys!_TM" FORCE ALL QUIET'

    CALL CloseCon
    CALL SpaceNextEntry
    RETURN
  END
END

/* Install for real */

CMD.1='protect >NIL: ENVARC:ToolManager.prefs +wd'
CMD.2='protect >NIL: ENV:ToolManager.prefs +wd'
CMD.3='makedir >NIL: EASys!:dock'
CMD.4='assign DOCK: EASys!:Dock'
CALL Do_and_Log

InstName=' ToolManager '
SourceDir='iGuide_root:EASys!_TM'
DestDir1='SYS:'
DoCheck=0
CALL CopyAction

IF (update>0 & InstallQuick='QUICK') | EXISTS('SYS:Prefs/dock') THEN
DO
 CMD.1=move' SYS:Prefs/dock EASys!: CLONE QUIET'
 CMD.2='delete >NIL: SYS:Prefs/dock FORCE ALL QUIET'
 CALL Do_and_Log
END

CMD.1='delete >NIL: ENVARC:ToolManager.prefs FORCE QUIET'
CMD.2=WBrun' SYS:EASys!/Config/ToolManager.prefs'
CALL Do_and_Log
CALL DELAY(80)


/* Users who don't want ModAS need enhancements done to s:User-Startup directly */

IF ~(InstallQuick='QUICK') & ModAS_user=0 THEN
DO
 Module=S:Startup-EASys!_InitMenu
 /* remove old entries for this in startup-sequence, then reconstruct the new startup for the modules */

 CMD.1=rEdit'movetext s:User-Startup "BEGIN ToolManager_EASys!" "END ToolManager_EASys!" T:Trash'
 CMD.2=rEdit'movetext s:User-Startup "BEGIN ToolManager_EASys!" "END ToolManager_EASys!" T:Trash'
 CMD.3='echo >>'Module' ";ToolManager startup"'
 CMD.4='type >>'Module' "iGuide_root:EASys!_TM/StartSys/e_WB/2_ToolManager_EASys!"'
 CALL Do_and_Log
END

IF ModAS_user=1 THEN
 CALL removeCdity('ToolManager','New place: EASys!:bin/ .. Startup within: SYS:StartSys/e_WB/2_ToolManager_EASys!')
ELSE
 CALL removeCdity('ToolManager','New place: EASys!:bin/ .. Startup within: 'Module' (called inside s:Startup-Sequence)')

r=wdi('echo "*e[1m Removing ToolManager_EASys! preconfiguration ...*e[0m*n"')
r=wdi('wait 3')
r=wdi('delete SYS:StartSys/e_WB/2_ToolManager_EASys! FORCE')
r=wdi('rx T:remoteed.rexx movetext s:User-Startup "BEGIN ToolManager_EASys!" "END ToolManager_EASys!" T:Trash')
CALL SpaceNextEntry

ADDRESS COMMAND 'run >NIL: delete "iGuide_root:EASys!_TM" FORCE ALL QUIET'

r=ShowMessage('NewDock_blindout',,,,AppName)

CALL DELAY(80)
CALL CloseCon
CALL SpaceNextEntry
RETURN

/* --------------- */
Dictionary:

InstName=' Dictionary '
Dir=UnpackRequest('Dictionary installer',CDname':'ContribDir'/Util/Dictionary_D_E.lha','Dictionary_DE')
IF ~(Dir=0) THEN
 CALL mkRef('Office-Translator','WBrun "'Dir'Dictionary_D_E/Dictionary"')
ELSE
 CALL mkRef('Office-Translator','','GETREF')

CALL SpaceNextEntry
CALL CloseCon
RETURN

/* --------------- */
SayTime:

InstName=' SayTime '
Dir=UnpackRequest('Voice Time Messages',CDname':'ContribDir'/Util/SayTime.lha','SayTime')
IF ~(Dir=0) THEN
DO
 ADDRESS COMMAND
 'Install_C:ReplaceStrings "'Dir'Saytime/SageUhrzeit.rexx" "SYS:" "'Dir'"'
 'Install_C:ReplaceStrings "'Dir'Saytime/SageUhrzeit.rexx" "Media:Sound/SayTime/Klang" "'Dir'Saytime/Klang"'
 'Install_C:ReplaceStrings "'Dir'Saytime/SageUhrzeit.rexx" "Audio:bin/dsound" "AAA{RefTable/Sound-Voice}"'
 'Install_C:ReplaceStrings "'Dir'Saytime/SageUhrzeit.rexx" "AAA{" "${"'

 CALL mkRef('Info-SayTime','run >NIL: rx 'Dir'Saytime/SageUhrzeit.rexx')
END
ELSE
 CALL mkRef('Info-SayTime','','GETREF')

CALL SpaceNextEntry
CALL CloseCon
RETURN

/* --------------- */
MultiTracker:
InstName=' MultiTracker '

IF ~assigned('EaglePlayer2:') THEN
DO
 DeliTracker=FindProg('DeliTracker_II','DeliTracker2')
 IF DeliTracker='' THEN DeliTracker=FindProg('DeliTracker2','DeliTracker')

 IF ~(DeliTracker='') THEN
 DO
  IF POS('/',DeliTracker)>1 THEN
   DIR_Deli=LEFT(DeliTracker,LASTPOS('/',DeliTracker))
  ELSE
   DIR_Deli=LEFT(DeliTracker,LASTPOS(':',DeliTracker))

  CALL mkRef('Sound-MultiTracker',DeliTracker)
  CALL mkRef('Sound-MultiTracker-Opts','CONFIG 'DIR_Deli'DeliConfig/DeliTracker.config MODULE')
 END
 ELSE
  CALL mkRef('Sound-MultiTracker','','GETREF')


 r=ShowMessage('EaglePlayer',,,,AppName)
 IF r=0 THEN RETURN

 CALL UnpackArchive(CDname':'ContribDir'/Audio/EaglePlayer201.lha','iGuide:')

 CMD.1=wbrun' "iGuide:EaglePlayer2.01/Install,Update" SYNC'
 CALL Do_and_Log

 IF assigned('EaglePlayer2:') THEN
 DO
  LanguageArch=CDname':'ContribDir'/Audio/EP_'Language'.lha'
  IF EXISTS(LanguageArch) THEN
  DO
     CALL UnpackArchive(LanguageArch,'iGuide:EaglePlayer2.01')

     CMD.1=wbrun' "iGuide:EaglePlayer2.01/'Language'/install" SYNC'
     CALL Do_and_Log
  END

  CALL UnpackArchive(CDname':'ContribDir'/Audio/EaglePlayer_Configs.lha','EaglePlayer2:')
 END

 ADDRESS COMMAND 'delete >NIL: "iGuide:EaglePlayer2.01" FORCE ALL QUIET'
END

/* no ELSE here because it may have been installed above ! */

IF assigned('EaglePlayer2:') THEN
DO
 ADDRESS COMMAND
 'assign Eagle_tmp: EaglePlayer2:'
 'assign EaglePlayer2: REMOVE'

 EaglePlayer=FindProg('EaglePlayer2','EaglePlayer')

 ADDRESS COMMAND 'assign EaglePlayer2: Eagle_tmp:'

 CALL mkRef('Sound-MultiTracker','EaglePlayer2:EaglePlayer')
 CALL mkRef('Sound-MultiTracker-Opts','QUICKSTART=YES LOADMODULE')
END

CALL CloseCon
RETURN

/* --------------- */
SongPlayer:
InstName=' SongPlayer '

IF assigned('MUI:') THEN r=ShowMessage('SongPlayer',,,,AppName)
IF r=0 | ~assigned('MUI:') THEN
DO
 CALL SongPlayerRefs
 RETURN
END

CALL UnpackArchive(CDname':'ContribDir'/Audio/SongPlayer.lha','iGuide:')

CMD.1=WBrun' iGuide:SongPlayer/Install SYNC'
CALL Do_and_Log
CALL SongPlayerRefs

ADDRESS COMMAND 'delete >NIL: iGuide:SongPlayer FORCE ALL QUIET'

CALL CloseCon
RETURN

/* --------------- */
SongPlayerRefs:

SongPlayer=FindProg('SongPlayer','SongPlayer')

IF ~(SongPlayer='') THEN
DO
 starter='rx EASys!_bin:Sound-SongPlayer.rexx'
 CALL mkRef('Sound-GUI_SamplePlayer',SongPlayer' GUI NAME')
 CALL mkRef('Sound-8SVX',starter)
 CALL mkRef('Sound-AIFF',starter)
 CALL mkRef('Sound-AU',starter)
 CALL mkRef('Sound-MAUD',starter)
 CALL mkRef('Sound-MPEGA',starter)
 CALL mkRef('Sound-RAW',starter)
 CALL mkRef('Sound-VOC',starter)
 CALL mkRef('Sound-WAV',starter)

 IF RIGHT(SongPlayer,1)=':' THEN
  dir_SongPlayer=SongPlayer
 ELSE
  dir_SongPlayer=LEFT(SongPlayer,LASTPOS('/',SongPlayer))

 CALL UnpackArchive(CDname':'ContribDir'/Audio/SongPlayer_Configs.lha',dir_SongPlayer)

 ADDRESS COMMAND
 'copy "'dir_SongPlayer'ENV/#?" ENV: CLONE ALL QUIET'
 'copy "'dir_SongPlayer'ENV/#?" ENVARC: CLONE ALL QUIET'

END
ELSE
 CALL mkRef('Sound-GUI_SamplePlayer','','GETREF')

RETURN

/* --------------- */
MultiMediaBoot:
InstName=' MultiMediaBoot '
module='SYS:StartSys/b_GUI/5_MultiMediaBoot'

IF (User_ver >= 4.6.6 | ModAS_User=0) THEN RETURN

CALL Msg_Con_Log('HHH Adapting pathes: 'module' ...')

SELECT
 WHEN ~(EaglePlayer='') THEN ADDRESS COMMAND 'Install_C:ReplaceStrings 'module' ";run >NIL: SYS:Eagleplayer2/Eagleplayer" "run >NIL: 'EaglePlayer'"'

 OTHERWISE
 DO
  IF ~(DeliTracker='') THEN
  DO
   ADDRESS COMMAND
   'Install_C:ReplaceStrings SYS:StartSys/5_MultiMediaBoot "Work:DeliTracker" "'DIR_Deli'"'
   'Install_C:ReplaceStrings SYS:StartSys/5_MultiMediaBoot ";assign Deli" "assign Deli"'
   'Install_C:ReplaceStrings SYS:StartSys/5_MultiMediaBoot ";setenv Deli" "setenv Deli"'
   'Install_C:ReplaceStrings SYS:StartSys/5_MultiMediaBoot ";run >NIL: rx" "run >NIL: rx"'
  END
 END
END

SELECT
 WHEN ~(CyberShow='') THEN ADDRESS COMMAND 'Install_C:ReplaceStrings 'module' ";run >NIL: SYS:EASys!/bin/cybershow" "run >NIL: 'cybershow'"'
 WHEN ~(FastView='') THEN ADDRESS COMMAND 'Install_C:ReplaceStrings 'module' ";run >NIL: SYS:EASys!/bin/fastview" "run >NIL: 'fastview'"'
 OTHERWISE NOP
END

CALL CloseCon
RETURN

/* ------------ BEGIN Standard EASys! Installer --------------- */
Init:
OPTIONS RESULTS
OPTIONS FAILAT 21

AppName="©99 TNE) iGuide"

CR='0a'x

IF SHOW('P','WORKBENCH') THEN wb_port=1

CALL REMLIB('rexxsupport.library')
CALL ADDLIB('rexxsupport.library',80,-30,0)

CALL REMLIB('rexxreqtools.library')
CALL ADDLIB('rexxreqtools.library',50,-30,0)

ProcessNumber=PRAGMA('ID')

MaxTitleChars=66
ReqLE=120  /* Main Window */
ReqTE=81
ReqHeight=350

ConsoleType='CON:'
ConsoleSize='120/81/584/200'

PosTags="rt_reqpos=reqpos_topleftscr rt_leftoffset=" ReqLE " rt_topoffset=" ReqTE
EZtags=PosTags
GLtags=PosTags || "rtgl_min=0 rtgl_max=1500 rtgl_backfill=true "
GStags=PosTags || " rtgs_backfill=false rtgs_width=300"

POINTER_TAGS="rt_reqpos=reqpos_pointer"
DIR_TAGS=PosTags || " rtfi_flags=freqf_nofiles|freqf_save rtfi_height=" ReqHeight
FILE_TAGS=PosTags || " rtfi_flags=freqf_multiselect|freqf_selectdirs" || " rtfi_height=" ReqHeight
ONEFILE_TAG=PosTags || " rtfi_height=" ReqHeight

Console='>"'ConsoleType''ConsoleSize'/'AppName' .../AUTO/NOCLOSE"'
ConStat=0

/*---- specials -------------------*/

today=Date(n)
date=Date(s)
yy=LEFT(date,4)
mmdd=RIGHT(date,4)
mm=LEFT(mmdd,2)
dd=RIGHT(mmdd,2)

time=RIGHT(Time(n),8)
MinSec=Right(time,5)
Hrs=Left(time,2)
Mins=Left(MinSec,2)
Secs=Right(time,2)

time_hhmmss=Hrs''Mins''Secs
TimeStamp=date''Hrs''Mins
ADDRESS COMMAND 'echo >ENV:TimeStamp 'TimeStamp

/* ActionMessage reset */
aMsg=''
bMsg=''
cMsg=''
dMsg=''

CheckSourceFile='T:CS_FileList_'ProcessNumber
CheckSourceDirs='T:CS_DirsList_'ProcessNumber
TempPath='CS_Dest-path'ProcessNumber

IF ~assigned('Install_C:') THEN
DO
 say 'Startup MUST be initiated by the delivered Installer-Icon "Install_'InstBase'"'
 EXIT 0
END

/* ---- StartGuide: */

CALL GetLanguage
CALL PRAGMA('DIRECTORY','iGuide:')

IF EXISTS('ENV:Multiview') THEN
DO
 ADDRESS COMMAND
 'copy ENVARC:MultiView ENVARC:MultiView.'TimeStamp' CLONE ALL QUIET'
 'copy ENV:MultiView ENV:MultiView.'TimeStamp' CLONE ALL QUIET'
END

ADDRESS COMMAND
'copy Inst_Guide/~(fonts) SYS: CLONE ALL QUIET'
'copy Inst_Guide/Prefs/ENV-Archive ENV: CLONE ALL QUIET'

IF ~EXISTS('Fonts:Helvetica.font') THEN ADDRESS COMMAND 'copy Inst_Guide/Fonts SYS:Fonts CLONE ALL QUIET'

ViewPort='INST_'UPPER(InstBase)

StartPic=InstBase'.ILBM'
IF EXISTS('iGuide:'Language'/'StartPic) THEN StartPic='iGuide:'Language'/'StartPic
ELSE StartPic='iGuide:english/'StartPic

ADDRESS COMMAND 'run >NIL: Install_C:MultiView "'StartPic'" PORTNAME' ViewPort

DO i=1 to 8
 CALL DELAY(100)
 IF ~SHOW('P',ViewPort) THEN LEAVE
END

IF SHOW('P',ViewPort) THEN
DO
 ADDRESS VALUE ViewPort
 'QUIT'
END

StarterDir=MyGetENV(InstBase'_StarterDir')
IF ~(RIGHT(StarterDir,1)=':') & ~(RIGHT(StarterDir,1)='/') THEN StarterDir=StarterDir'/'

StartDoc='install.guide'
IF EXISTS(StarterDir''Language'/'StartDoc) THEN StartDoc=StarterDir''Language'/'StartDoc
ELSE StartDoc=StarterDir'english/'StartDoc

IF EXISTS(StartDoc) THEN
DO
 ADDRESS COMMAND 'run >NIL: Install_C:MultiView "'StartDoc'" PORTNAME 'ViewPort
 CALL DELAY(300)
END

CALL PRAGMA('DIRECTORY','iGuide:')

/* ---- other presets */

EditList='T:EASys!_Edit_Configs'

Additional_S=''
Additional_C=''
Additional_L=''
Additional_Libs=''
Additional_Devs=''
Additional_Fonts=''
Additional_Locale=''
Additional_Help=''

ItemNr=0
InstName=InstApp
InstAssign=''
InstDest2=''
DestDir2=''
AlternateDir=''
Recursive='ALL'
NoDeInstForDir=0
NoDeInstForFiles=0
PhaseA_exists=0

SWindow='Install_C:SWindow'
WBrun='Install_C:WBrun'
move='Install_C:Move'
redit='rx Install_C:Remoteed.rexx '

CALL setclip('Language',RealLanguage)
CALL setclip('StarterDir',StarterDir)
CALL setclip('TimeStamp',TimeStamp)

/* Get names of mounted devices: device.1 device.2 ... device.(device.count) */
CALL GetDevList
RETURN

/*----------------------FileOps-----*/
Assigned:
PARSE ARG File
ADDRESS COMMAND 'assign >NIL: "'File'" EXISTS'
IF RC=0 THEN RETURN 1
ELSE RETURN 0
/*----------------------------------*/
Delete:
PARSE ARG File,Opt,Check
IF Check='' & EXISTS(File) THEN
  ADDRESS COMMAND 'delete >NIL: "'File'" 'Opt' FORCE QUIET'
ELSE
  IF EXISTS(Check) THEN ADDRESS COMMAND 'delete >NIL: "'File'" 'Opt' FORCE QUIET'

RETURN
/*----------------------------------*/
Copy:
PARSE ARG From,To,Check
IF Check='' THEN
 ADDRESS COMMAND 'copy "'From'" "'To'" CLONE ALL QUIET'
ELSE
 IF EXISTS(Check) THEN ADDRESS COMMAND 'copy "'From'" "'To'" CLONE ALL QUIET'

RETURN
/*----------------------------------*/
Rename:
PARSE ARG File,To
IF EXISTS(File) THEN ADDRESS COMMAND 'rename "'File'" "'To'"'
RETURN
/*----------------------------------*/
IsDir:     PROCEDURE
PARSE ARG name

name=strip(name,'T','/')
returned=PRAGMA('DIRECTORY',name)

IF ~(returned="") THEN
   DirFlag=1
ELSE
DO
 IF ~Exists(name) THEN
   DirFlag=-1
 ELSE
   DirFlag=0
END
RETURN DirFlag
/*----------------------------------*/
RestartCdity:
PARSE ARG cditypath,taskname,wintitle

CALL QuitCdity(taskname,wintitle)
ADDRESS COMMAND WBrun' "'cditypath'"'

RETURN
/* --------------- */
GetCdityPath:
PARSE ARG cdity

SELECT

 WHEN EXISTS('SYS:WBstartup/'cdity) THEN
    Cmd=WBrun 'SYS:WBstartup/'cdity

 WHEN EXISTS('SYS:Tools/Commodities/'cdity) THEN
    Cmd=WBrun 'SYS:Tools/Commodities/'cdity

 WHEN EXISTS('SYS:Commodities/'cdity) THEN
    Cmd=WBrun 'SYS:Commodities/'cdity

 WHEN EXISTS('SYS:Tools/'cdity) THEN
    Cmd=WBrun 'SYS:Tools/'cdity

 WHEN EXISTS('SYS:Commods/'cdity) THEN
    Cmd=WBrun 'SYS:Commods/'cdity

 WHEN EXISTS('SYS:Cdity/'cdity) THEN
    Cmd=WBrun 'SYS:Cdity/'cdity

 WHEN EXISTS('SYS:Tools/Commodities/'cdity) THEN
    Cmd=WBrun 'SYS:Tools/Commodities/'cdity

 WHEN EXISTS('SYS:Tools/Commods/'cdity) THEN
    Cmd=WBrun 'SYS:Tools/Commods/'cdity

 WHEN EXISTS('SYS:Tools/Cdity/'cdity) THEN
    Cmd=WBrun 'SYS:Tools/Cdity/'cdity

 WHEN EXISTS('SYS:Tools/'cdity) THEN
    Cmd=WBrun 'SYS:Tools/'cdity

 WHEN EXISTS('SYS:Utilities/'cdity) THEN
    Cmd=WBrun 'SYS:Utilities/'cdity

 WHEN EXISTS('SYS:WBstartup (enabled)/'cdity) THEN
    Cmd=WBrun '"SYS:WBstartup (enabled)/'cdity'"'

 WHEN EXISTS('SYS:WBstartup/WBstartup (enabled)/'cdity) THEN
    Cmd=WBrun '"SYS:WBstartup/WBstartup (enabled)/'cdity'"'

 WHEN EXISTS('SYS:System/'cdity) THEN
    Cmd=WBrun 'SYS:System/'cdity

 WHEN EXISTS('SYS:c/'cdity) THEN
    Cmd=WBrun 'SYS:c/'cdity

 WHEN EXISTS('SYS:EASys!/bin/'cdity) THEN
    Cmd=WBrun 'SYS:EASys!/bin/'cdity

 OTHERWISE Cmd=''

END /* SELECT */

IF Cmd='' THEN
DO k=1 TO 8
  Cmd=ShowMessage('_GetCommodityPath','SYS:',cdity,,cdity)
  IF EXISTS(Cmd) THEN LEAVE
END
RETURN Cmd
/*----------------------------------*/
CheckCdity:
PARSE ARG cdity

ADDRESS COMMAND 'Install_C:CLIexchange >ENV:CheckCdity 'cdity' INFO'
running=MyGetENV('CheckCdity')
ADDRESS COMMAND 'delete >NIL: ENV:CheckCdity QUIET'

IF ~(running='???' | running='') THEN flag=1
ELSE flag=0

RETURN flag
/*----------------------------------*/
QuitCdity:
PARSE ARG cdity,wintitle

flag=CheckCdity(cdity)

IF flag=1 THEN
DO
 ADDRESS COMMAND 'Install_C:CLIexchange 'cdity' KILL'

 IF LEFT(wintitle,3)='>>>' THEN
 DO
  /* rename Window's Title before continuing */
  wintitle=STRIP(wintitle,'L','>')
  CALL DELAY(10)
  ADDRESS COMMAND SWindow' >NIL: p p p p p 'wintitle
 END

 IF ~(wintitle='') THEN CALL WinWaitQuit(wintitle)
END
RETURN flag
/*----------------------------------*/
WinWaitQuit:
PARSE ARG win

DO FOREVER
 ADDRESS COMMAND SWindow' >NIL: "'Win'" f'
 IF RC=11 THEN LEAVE

 CALL DELAY(100)
END
RETURN
/*----------------------------------*/
rmFromWBstartup:
PARSE ARG wbprog,startsysscript

tmp.1='SYS:WBStartup/'
tmp.2='SYS:WBStartup/WBStartup (enabled)/'
tmp.3='SYS:WBStartup/WBStartup(enabled)/'
tmp.4='SYS:WBStartup (enabled)/'
tmp.5='SYS:WBStartup(enabled)/'

n=0
DO k=1 to 5
 IF EXISTS(tmp.k''wbprog) THEN
 DO
  n=n+1
  CMD.n='delete >NIL: "'tmp.k''wbprog'" "'tmp.k''wbprog'.info" FORCE QUIET'
 END
END

IF n>0 THEN
DO
 CALL WriteLn(LOGFILE,'Removing "'wbprog'" from WBstartup locations. Will be started by 'startsysscript'...')
 CALL Do_and_Log
END
RETURN
/*----------------------------------*/
RemoveResources:
PARSE ARG prog

ADDRESS COMMAND
'echo >T:tmplist "failat 30*nstack 30000"'
'list >>T:tmplist SYS:Locale/Help DIRS LFORMAT "delete >NIL: *"%s%s/'prog'.#?*" FORCE QUIET"'
'list >>T:tmplist SYS:Locale/catalogs DIRS LFORMAT "delete >NIL: *"%s%s/'prog'.#?*" FORCE QUIET"'
'list >>T:tmplist SYS:Locale/'prog' LFORMAT "delete >NIL: *"%s%s.#?*" FORCE QUIET"'
'echo >>T:tmplist "delete >NIL: *"libs:Help'prog'.#?*" FORCE QUIET"'
'echo >>T:tmplist "delete >NIL: *"ENV:'prog'*" FORCE ALL QUIET"'
'echo >>T:tmplist "delete >NIL: *"ENV:'prog'.#?*" FORCE QUIET"'
'echo >>T:tmplist "delete >NIL: *"ENVARC:'prog'*" FORCE ALL QUIET"'
'echo >>T:tmplist "delete >NIL: *"ENVARC:'prog'.#?*" FORCE QUIET"'

CALL WriteLn(LOGFILE,' ')
CALL WriteLn(LOGFILE,' Removing "'prog'" Locale and ENV: resources')
CALL ExecScript('T:tmplist','')

ADDRESS COMMAND 'delete >NIL: T:tmplist QUIET'
RETURN
/*----------------------------------*/
removeCdity:
PARSE ARG prog,cause

IF POS(':',prog)>0 THEN
DO
 /* path directly known */
 n=1
 CMD.1='delete >NIL: "'prog'" FORCE QUIET'
 CALL Do_and_Log
END
ELSE
DO
 CALL rmFromWBstartup(prog,cause)

 tmp.1='SYS:Tools/Commodities/'
 tmp.2='SYS:Tools/'
 tmp.3='SYS:Commodities/'
 tmp.4='SYS:Utilities/'
 tmp.5='SYS:c/'

 n=0
 DO k=1 to 5
  IF EXISTS(tmp.k''prog) THEN
  DO
   n=n+1
   CMD.n='delete >NIL: "'tmp.k''prog'" "'tmp.k''prog'.info" FORCE QUIET'
  END
 END
END

IF n>0 THEN
DO
 CALL WriteLn(LOGFILE,'Removing "'prog'" because: 'cause)
 CALL Do_and_Log
END
RETURN
/*----------------------------------*/
FindProg:
PARSE ARG tmp.1,tmp.2,tmp.3,tmp.4,tmp.5,tmp.6,tmp.7,tmp.8,tmp.9

name1=tmp.1

CALL Msg_Con_Log('HH Scanning for: 'LEFT(name1,16)'..HHin:')

/* 8 args are valid */
tmp.9=''
f=''

DO i=1 to 9
 IF tmp.i='' THEN LEAVE
END

IF i=3 THEN
 name2=tmp.2
ELSE
DO
 IF i>2 THEN
 DO
  DO j=2 TO i-1
    f=tmp.i''name1
    CALL WriteLn(fCon,'HH'f)
    IF EXISTS(f) THEN RETURN f
  END
  RETURN ''
 END
 ELSE RETURN ''
END

SELECT
 WHEN Assigned(name1':') THEN
 DO
  IF EXISTS(name1':'name1) THEN f=name1':'name1
  IF EXISTS(name1':'name2) THEN f=name1':'name2
 END

 WHEN Assigned(name2':') THEN
 DO
  IF EXISTS(name2':'name2) THEN f=name2':'name2
  IF EXISTS(name2':'name1) THEN f=name2':'name1
 END

 OTHERWISE NOP
END

IF f='' THEN
DO
 IF asgn.count='ASGN.COUNT' THEN
 DO
  asgn.1='Work:'
  asgn.2='gfx:'
  asgn.3='graphics:'
  asgn.4='grafix:'
  asgn.5='graphix:'
  asgn.6='grafik:'
  asgn.7='Sound:'
  asgn.8='Programs:'
  asgn.9='Programmes:'
  asgn.10='Prog:'
  asgn.11='Progs:'
  asgn.12='Programme:'
  asgn.13='Office:'
  asgn.14='Büro:'
  asgn.15='Bureau:'
  asgn.16='Arbeit:'
  asgn.17='Internet:'
  asgn.18='Network:'
  asgn.19='Net:'
  asgn.20='Netz:'
  asgn.21='Video:'
  asgn.22='Movie:'
  asgn.23='Pix:'
  asgn.24='Pics:'
  asgn.25='Pictures:'
  asgn.26='Pic:'
  asgn.27='Bilder:'
  asgn.28='Bild:'
  asgn.29='AmiTCP:'
  asgn.30='NetConnect3:'
  asgn.31='NetConnect2:'
  asgn.32='NetConnect:'
  asgn.33='Genesis:'
  asgn.34='TCP:'
  asgn.35='Extra:'
  asgn.36='Extras:'
  asgn.37='xtra:'
  asgn.38='xtras:'
  asgn.39='Tool:'
  asgn.40='Tools:'
  asgn.41='Util:'
  asgn.42='Utilities:'
  asgn.43='Utils:'
  asgn.44='System:'
  asgn.45='Système:'
  asgn.46='usr:'
  asgn.47='user:'
  asgn.48='use:'
  asgn.49='WB:'
  asgn.50='SYS:'
  asgn.count=50

  IF device.count>0 THEN
  DO
   DO i=1 to device.count
    j=asgn.count+i
    asgn.j=device.i
   END
   asgn.count=asgn.count+device.count
  END

  sub.1=''
  sub.2='c/'
  sub.3='System/'
  sub.4='Utilities/'
  sub.5='Tools/'
  sub.6='Tools/Commodities/'

  sub.7='bin/'
  sub.8='prog/'
  sub.9='gfx/'
  sub.10='sound/'
  sub.11='audio/'
  sub.12='video/'

  sub.13='prg/'
  sub.14='progs/'
  sub.15='graphic/'

  sub.16='programs/'
  sub.17='programme/'
  sub.18='programmes/'
  sub.19='program/'
  sub.20='programm/'
  sub.21='prgs/'

  sub.22='graphics/'
  sub.23='graphik/'
  sub.24='graphix/'
  sub.25='grafik/'
  sub.26='grafix/'
  sub.27='grafx/'

  sub.28='sounds/'
  sub.29='snd/'

  sub.30='Commodities/'
  sub.31='Prefs/'
  sub.32='Utils/'
  sub.33='Util/'
  sub.34='Arbeit/'
  sub.35='Arbeiten/'
  sub.36='Work/'
  sub.37='Use/'
  sub.38='User/'
  sub.39='usr/'
  sub.count=39
 END

 DO k=1 to asgn.count
  IF f='' & Assigned(asgn.k) THEN
  DO m=1 to sub.count
   IF EXISTS(asgn.k''sub.m) THEN
   DO
    CALL WriteLn(fCon,'HH'asgn.k''sub.m)
    SELECT
     WHEN EXISTS(asgn.k''sub.m''name1'/'name1) THEN f=asgn.k''sub.m''name1'/'name1
     WHEN EXISTS(asgn.k''sub.m''name1'/'name2) THEN f=asgn.k''sub.m''name1'/'name2
     WHEN EXISTS(asgn.k''sub.m''name2'/'name2) THEN f=asgn.k''sub.m''name2'/'name2
     WHEN EXISTS(asgn.k''sub.m''name2'/'name1) THEN f=asgn.k''sub.m''name2'/'name1
     WHEN EXISTS(asgn.k''sub.m'c/'name1) THEN f=asgn.k''sub.m'c/'name1
     WHEN EXISTS(asgn.k''sub.m'c/'name2) THEN f=asgn.k''sub.m'c/'name2
     WHEN EXISTS(asgn.k''sub.m'bin/'name1) THEN f=asgn.k''sub.m'bin/'name1
     WHEN EXISTS(asgn.k''sub.m'bin/'name2) THEN f=asgn.k''sub.m'bin/'name2
     WHEN EXISTS(asgn.k''sub.m'Shell/'name1) THEN f=asgn.k'Shell/'sub.m''name1
     WHEN EXISTS(asgn.k''sub.m'Shell/'name2) THEN f=asgn.k'Shell/'sub.m''name2
     WHEN EXISTS(asgn.k''sub.m'cli/'name1) THEN f=asgn.k'cli/'sub.m''name1
     WHEN EXISTS(asgn.k''sub.m'cli/'name2) THEN f=asgn.k'cli/'sub.m''name2
     WHEN EXISTS(asgn.k''sub.m'Tools/'name1) THEN f=asgn.k'Tools/'sub.m''name1
     WHEN EXISTS(asgn.k''sub.m'Tools/'name2) THEN f=asgn.k'Tools/'sub.m''name2
     WHEN EXISTS(asgn.k''sub.m'System/'name1) THEN f=asgn.k'System/'sub.m''name1
     WHEN EXISTS(asgn.k''sub.m'System/'name2) THEN f=asgn.k'System/'sub.m''name2
     WHEN EXISTS(asgn.k''sub.m''name1) THEN f=asgn.k''sub.m''name1
     WHEN EXISTS(asgn.k''sub.m''name2) THEN f=asgn.k''sub.m''name2
     OTHERWISE NOP
    END
   END
   IF ~(f='') THEN LEAVE
  END
  IF ~(f='') THEN LEAVE
 END
END
RETURN f

/*----------------------------------*/
GetLanguage:

LanguageNumber=1      /* Presets */
Language=''

IF (open(fTMP, 'ENV:sys/locale.prefs', 'read')) THEN
DO
  DO i=1 to 50
      r=READCH(fTMP)
  END

  Land=''

  i=0
  DO UNTIL EOF(fTMP)
      i=i+1
      Char=ReadCh(fTMP)
      IF (C2D(Char)=0) THEN
          LEAVE
      ELSE
          Land=Land''Char
  END

  /* 32 characters from begin of Lang_x to begin of Lang_y */
  DO j=i to 31 UNTIL EOF(fTMP)  /* jump over next 20 chars */
   r=READCH(fTMP)
  END

  Language=ReadLanguage()
  r=Close(fTMP)
END

IF (Language='') THEN Language='english'

DROP Char
DROP r

RealLanguage=Language
ADDRESS COMMAND 'setenv LANGUAGE 'RealLanguage

IF ~EXISTS(Language'/_QuitInstall') THEN Language='english'

RETURN
/*----------------------------------*/
ReadLanguage:

Langua=''

Langua=ReadCh(fTMP)
IF (C2D(Langua)=0) THEN RETURN ''

i=1
DO UNTIL EOF(fTMP)
   i=i+1
   Char=ReadCh(fTMP)
   IF (C2D(Char)=0) THEN
     LEAVE
   ELSE
     Langua=Langua''Char
END

/* 30 characters from begin of Lang_x to begin of Lang_y */
DO j=i to 29 UNTIL EOF(fTMP)
   r=READCH(fTMP)
END

RETURN Langua
/* ---------------------------- */
UnpackRequest:
PARSE ARG InstName,archive,MsgResource

IF ~EXISTS(archive) THEN RETURN 0

r=ShowMessage(MsgResource,,,,InstName)
IF r=0 THEN RETURN 0

selDestDir=''
DO z=1 TO 6
 selDestDir=ShowMessage('_PathReq','SYS:',,,AppName,InstName)
 IF EXISTS(selDestDir) THEN LEAVE
END
IF ~EXISTS(selDestDir) THEN RETURN 0

CALL UnpackArchive(archive,selDestDir)
RETURN selDestDir
/* ---------------------------- */
UnpackArchive:
PARSE ARG arc,dest

IF ~EXISTS(arc) THEN
DO z=1 to 6
 actdir=StarterDir

 Archive_Dir=ShowMessage('_PathReq',actDir,,,InstName'?',AppName)

 tst=Archive_Dir''arc
 IF EXISTS(tst) THEN
 DO
   arc=tst
   LEAVE
 END
END

IF ~EXISTS(arc) THEN RETURN
IF ~(RIGHT(dest,1)=':') & ~(RIGHT(dest,1)='/') THEN dest=dest'/'

Console='>"CON:'ConsoleSize'/Install: Unpacking 'RIGHT(arc,LENGTH(arc)-LASTPOS('/',arc))  TO  dest'/AUTO/NOCLOSE"'
CMD.1=StarterDir'lha 'Console' x -am "'arc'" "'dest'"'
CALL Do_and_Log
RETURN
/* ---------------------------- */
ReplaceENVprefs:
PARSE ARG SourceDir,ENVprefs

IF EXISTS('ENV:'ENVprefs) THEN
    CMD.1='copy ENVARC:'ENVprefs' ENVARC:'ENVprefs''TimeStamp' CLONE QUIET'
ELSE
    CMD.1=" "

CMD.2='copy "'SourceDir''ENVprefs'" ENV: CLONE QUIET'
CMD.3='copy "ENV:'ENVprefs'" ENVARC: CLONE QUIET'
CALL Do_and_Log

/* ----DeInst:-------- */

r=wdi('if exists "ENV:'ENVprefs''TimeStamp'"')
r=wdi('  echo "*e[1m Restoring*e[0m your  ENVARC:*e[1m'ENVprefs'*e[0m"')
r=wdi('  wait 3')
r=wdi('  copy "ENVARC:'ENVprefs''TimeStamp'" "ENVARC:'ENVprefs'" CLONE')
r=wdi('  copy "ENV:'ENVprefs''TimeStamp'" "ENV:'ENVprefs'" CLONE')
r=wdi('  delete >NIL: "ENVARC:'ENVprefs''TimeStamp'" QUIET')
r=wdi('  delete >NIL: "ENV:'ENVprefs''TimeStamp'" QUIET')
r=wdi('  echo "*n*e[1m Original ENVARC:'ENVprefs'.. restored!*e[0m"')
r=wdi('endif')
CALL SpaceNextEntry

RETURN
/* ------------------------------------------------------- */
Copy_SrcDest:

Action=ShowMessage(MsgSrcDest,,,,AppName)

IF (RIGHT(InstDest1,1)=':') THEN
   InstDest1_Dir=InstDest1
ELSE
   InstDest1_Dir=InstDest1'/'

IF (RIGHT(InstDest2,1)=':') THEN
   InstDest2_Dir=InstDest2
ELSE
   InstDest2_Dir=InstDest2'/'

IF (Action=1) THEN
DO
   Selected_Dest=InstDest1
   Selected_Dest_Dir=InstDest1_Dir
END

IF (Action=2 & (AlternateDir='')) THEN
DO FOREVER
 Selected_Dest_Dir=ShowMessage('_PathReq','SYS:',,,AppName,InstName)
 IF (Selected_Dest_Dir='') THEN Selected_Dest_Dir=InstDest1_Dir

 Selected_Dest=STRIP(Selected_Dest_Dir,'T','/')

 DO UNTIL Action>0
  Action=ShowMessage(MsgOtherDir,,,,AppName,Selected_Dest)
  IF (Action=0) THEN CALL ExitMe('USER_QUITS')
 END

 IF (Action=1) THEN LEAVE
END

IF (Action=2 & ~(AlternateDir='')) THEN
DO
 Selected_Dest=STRIP(AlternateDir,'T','/')
 Selected_Dest_Dir=AlternateDir
 InstDest2=''
 InstDest2_Dir=''
END

IF (Action=0) THEN CALL ExitMe('USER_QUITS')

SourceDir=InstSource
DestDir1=Selected_Dest

IF ~(InstDest2='') THEN
DO
   IF (UPPER(Selected_Dest)=UPPER(InstDest1)) THEN DestDir2=InstDest2
END

CALL CopyAction

InstDest2=''
InstDest2_Dir=''
AlternateDir=''

RETURN
/* ---------------------------- */
CopyAction:

ItemNr=ItemNr + 1
DeInstallScript=DeInstDir'/'DeInstScrName'.'ItemNr
TmpScript='T:'DeInstScrName'.'ItemNr

IF ~Open(CpDeInst, TmpScript, 'W') THEN
   CALL Err_ShowMessage(TmpScript)
ELSE
   r=WriteLn(CpDeInst, 'failat 30')

r=WriteLn(LOGFILE,CR' ==> Created DeInstall-Script: "'DeInstallScript'"')

IF (RIGHT(DestDir1,1)=':' | RIGHT(DestDir1,1)='/') THEN
   DestDir1_Dir=DestDir1
ELSE
   DestDir1_Dir=DestDir1'/'

IF (RIGHT(DestDir2,1)=':' | RIGHT(DestDir2,1)='/') THEN
   DestDir2_Dir=DestDir2
ELSE
   DestDir2_Dir=DestDir2'/'

IF (DoCheck=1) THEN
DO
  DestDir=DestDir1_Dir
  CALL CopySecure

  CALL PRAGMA('DIRECTORY','iGuide:')

  IF ~(DestDir2='') THEN
  DO
     DestDir=DestDir2_Dir
     CALL CopySecure
  END

  CALL PRAGMA('DIRECTORY','iGuide:')
END
ELSE
DO
  Console='>"'ConsoleType''ConsoleSize'/'AppName' ... copying to 'DestDir1'/AUTO/NOCLOSE"'
  CMD.1=copy Console '"'SourceDir'" "'DestDir1'" CLONE 'Recursive

  IF ~(DestDir2='') THEN
  DO
     Console='>"'ConsoleType''ConsoleSize'/'AppName' ... copying to 'DestDir2'/AUTO/NOCLOSE"'
     CMD.2=copy Console '"'SourceDir'" "'DestDir2'" CLONE 'Recursive
  END

  CALL Do_and_Log

  IF (ResultCommand=10) THEN CALL ExitMe('DESTFULL')
END


IF ~(InstAssign='') THEN
DO
  CMD.1='assign "'InstAssign'" "'DestDir1'" ADD'
  CALL Do_and_Log

  IF (UPPER(InstAssign)='S:') THEN Additional_S=DestDir1
  IF (UPPER(InstAssign)='C:') THEN Additional_C=DestDir1
  IF (UPPER(InstAssign)='L:') THEN Additional_L=DestDir1
  IF (UPPER(InstAssign)='LIBS:') THEN Additional_Libs=DestDir1
  IF (UPPER(InstAssign)='DEVS:') THEN Additional_Devs=DestDir1
  IF (UPPER(InstAssign)='FONTS:') THEN Additional_Fonts=DestDir1
  IF (UPPER(InstAssign)='LOCALE:') THEN Additional_Locale=DestDir1
  IF (UPPER(InstAssign)='HELP:') THEN Additional_Help=DestDir1
END


/* -----Undo_copy:------- */

r=Close(CpDeInst)

IF (NoDeInstForFiles=1) THEN
DO
 r=wdi('echo "*e[1m New 'InstName' Files will remain on your system!*n*e[0m"')
 CALL SpaceNextEntry
 CALL ResetCopyFlags
 RETURN
END

IF (DoCheck=1) THEN
 DestDir1=DestDir
ELSE
DO
 CALL OpenCon(InstName' ...')
 r=WriteLn(fCon,CR' Creating DeInstall-Script:'CR' 'DeInstallScript CR' For:    'STRIP(InstName,'L',' ')''CR' Folder: 'DestDir1' ...')

 CALL PRAGMA('DIRECTORY', SourceDir)

 ADDRESS COMMAND 'list >>'TmpScript' FILES 'Recursive' LFORMAT "delete *"'DestDir1_Dir'%s%s*""'

 CALL DELAY(100)
 IF ~(DestDir2='') THEN
  DO
   r=WriteLn(fCon,CR' Appending DeInstall-Script: 'DeInstallScript CR' For:    'STRIP(InstName,'L',' ')''CR' Folder: 'DestDir2' ...')

   ADDRESS COMMAND 'list >>'TmpScript' FILES 'Recursive' LFORMAT "delete *"'DestDir2_Dir'%s%s*""'

   CALL DELAY(100)
  END

 CALL PRAGMA('DIRECTORY','iGuide:')
 CALL CloseCon
END

TScript='T:'DeInstScrName'.'ItemNr

r=wdi('if exists "'DestDir1'"')
r=wdi(' echo " Removing *e[1m'InstName'*e[0m-Files in Directory *e[1m'DestDir1'*e[0m..."')
r=wdi(' wait 3')
r=wdi(' execute 'TScript)
r=wdi(' delete >NIL: 'TScript' QUIET')
r=wdi('endif')
CALL SpaceNextEntry


IF (NoDeInstForDir=0) THEN
DO
 r=UPPER(DestDir1)
 IF ~(r='WORK:' | r='SYS:' | r='SYS:PREFS' | r='SYS:TOOLS' | r='SYS:UTILITIES' | r='ENVARC:' | r='SYS:C' | r='SYS:LIBS' | r='ENV:' | r='C:' | r='S:' | r='L:' | r='FONTS:' | r='LIBS:' | LEFT(r,5)='DEVS:' | LEFT(r,7)='LOCALE:' | LEFT(r,5)='HELP:') THEN
 DO
  r=wdi('if exists "'DestDir1'"')
  r=wdi(' ask " Remove the whole Directory 'DestDir1' ?  [y/n] "')
  r=wdi(' if warn')

  IF ~(InstAssign='') THEN
  DO
    r=wdi('   path "'DestDir1'" REMOVE')
    r=wdi('   path "'InstAssign'" REMOVE')
    r=wdi('   path "'InstAssign'" REMOVE')

    u=UPPER(InstAssign)
    IF ~(u="S:" | u="C:" | u="L:" | u="LIBS:" | u="DEVS:" u="FONTS:" | u="LOCALE:" | u="HELP:" | u="SYS:") THEN
        r=wdi('   assign "'InstAssign'" "'STRIP(DestDir1,'T','/')'" REMOVE')

    IF (u="S:") THEN r=wdi('   assign 'InstAssign' "'Additional_S'" REMOVE')
    IF (u="C:") THEN r=wdi('   assign 'InstAssign' "'Additional_C'" REMOVE')
    IF (u="L:") THEN r=wdi('   assign 'InstAssign' "'Additional_L'" REMOVE')
    IF (u="LIBS:") THEN r=wdi('   assign 'InstAssign' "'Additional_Libs'" REMOVE')
    IF (u="DEVS:") THEN r=wdi('   assign 'InstAssign' "'Additional_Devs'" REMOVE')
    IF (u="FONTS:") THEN r=wdi('   assign 'InstAssign' "'Additional_Fonts'" REMOVE')
    IF (u="LOCALE:") THEN r=wdi('   assign 'InstAssign' "'Additional_Locale'" REMOVE')
    IF (u="HELP:") THEN r=wdi('   assign 'InstAssign' "'Additional_Help'" REMOVE')
  END

  r=wdi('   wait 1')
  r=wdi('   T:swipe >NIL: "'STRIP(DestDir1,'T','/')'" ALL FORCE QUIET')
  IF ~(DestDir2='') THEN r=wdi('   T:swipe >NIL: "'STRIP(DestDir2,'T','/')'" ALL FORCE QUIET')

  r=wdi(' endif')
  r=wdi('endif')
  CALL SpaceNextEntry
 END
END

CALL ResetCopyFlags
RETURN
/* ----------------------- */
ResetCopyFlags:

InstAssign=''
DestDir2=''
DestDir2_Dir=''
Recursive='ALL'
InstName=InstApp
NoDeInstForDir=0
NoDeInstForFiles=0
DoCheck=0

ADDRESS COMMAND
'copy "'TmpScript'" "'DeInstallScript'" CLONE QUIET'
'delete >NIL: "'TmpScript'" QUIET'

RETURN

/*----------------------------------------------------------------*/
CopySecure:

r=WriteLn(CpDeInst,'echo "*ec*n*n*e[1m Restoring/Removing*e[0m installed Files in *e[1m'DestDir'*e[0m ..."')
r=WriteLn(CpDeInst,'wait 3')

CALL OpenCon(InstName' copying..')

a=CR""InstName""CR CR" Searching duplicate files and copying is in progress."CR" You will be asked if a file would be replaced."CR" (Go, and drink a coffee :)"CR CR" Source Folder: "SourceDir CR" Destin Folder: "DestDir
r=WriteLn(fCon,a)
r=WriteLn(LOGFILE,CR' Actions for 'InstName':'CR CR a CR)

Files.count=1
Files.1=SourceDir

FileOp=copy
FileOpOpts='CLONE 'Recursive

k=1
IconExists=0

IF ~(RIGHT(Files.1,1)=':') THEN Files.1=Files.1'/'

CALL CheckSource

MainDestDir=DestDir
MainDirLength=LENGTH(Files.k)

theDir=strip(MainDestDir,'T','/')
IF (IsDir(theDir)=-1) THEN ADDRESS COMMAND 'makedir "'theDir'"'

/* Create Destination Sub-Directories */

IF (DirCount > 0) THEN
DO SubCount=1 to DirCount
  ThisDestDir=MainDestDir || RIGHT(SourceDir.SubCount, LENGTH(SourceDir.SubCount)-MainDirLength)
  MakeDestDir=Strip(ThisDestDir, 'T', '/')

  IF (IsDir(MakeDestDir)=-1) THEN ADDRESS COMMAND 'makedir "'MakeDestDir'"'
END

DoIt=1
IF (SourceCount > 0) THEN
DO SubCount=1 to SourceCount
  ActualFile=SourceDirs.SubCount || SourceFiles.SubCount
  Target=MainDestDir || RIGHT(SourceDirs.SubCount, LENGTH(SourceDirs.SubCount)-MainDirLength) || SourceFiles.SubCount

  CALL CheckExist
  IF (DoIt=0) THEN LEAVE
END

CALL CloseCon
CALL LogLine
RETURN

/* ----------------------------- */
CheckExist:

IF ~EXISTS(Target) THEN
DO
  T_exists=0
  IF DoIt=2 THEN DoIt=1 /* was set before, not anymore valid */
END
ELSE
DO
  T_exists=1

   IF DoIt=1 | DoIt=2 THEN DoIt=CompareVersions(ActualFile,Target)

   IF DoIt=4 THEN
   DO
     Rest=SourceCount-SubCount

     IF (Files.count > 1 | Source_is_Dir=1) THEN
       MsgOffset=3
     ELSE
       MsgOffset=0

     IF (Rest>1) THEN MsgNr=2 + MsgOffset
     IF (Rest=1) THEN MsgNr=3 + MsgOffset
     IF (Rest=0) THEN MsgNr=4 + MsgOffset

     Version=Ver.1
     sz_AttrSrc=GetFileAttributes(ActualFile)

     Version=Ver.2
     sz_AttrDest=GetFileAttributes(Target)

     DoIt=ShowMessage('_CopyReplace.'MsgNr,,,,sz_AttrDest,sz_AttrSrc,Rest,k,Files.count,AppName)
   END
END

IF DoIt=1 | DoIt=3 THEN
DO
 IF T_exists=1 THEN CALL Msg_Con_Log('HHH Replacing:3H...'RIGHT(Target,22)'5H Size 's2'2H 'v2'HH by: ...'RIGHT(ActualFile,22)'5H Size 's1'2H 'v1'H')
 CALL DoCopy
END

IF EXISTS(Target''TimeStamp) THEN
DO
  r=WriteLn(CpDeInst, ' copy "'Target''TimeStamp'" "'Target'" CLONE')
  r=WriteLn(CpDeInst, ' delete >NIL: "'Target''TimeStamp'" FORCE QUIET')
  r=WriteLn(CpDeInst, ' echo " 'Target'.. restored!"')
  r=WriteLn(BakDeInst,' delete >NIL: "'Target''TimeStamp'" FORCE')
END

RETURN

/* ----------------------------- */
CompareVersions:
PARSE ARG file1,file2

s1=GetSize(file1)
s2=GetSize(file2)
v1=GetVer(file1)
v2=GetVer(file2)

SELECT
 WHEN (s1=s2 & V1<=V2 & V2>0) THEN RETURN 2
 WHEN (V1>0 & V2>0 & V1>V2) THEN RETURN 1
 WHEN (s1=s2 & V1=0 & V2=0) THEN RETURN 1
 OTHERWISE RETURN 4
END

/* ----------------------------- */
DoCopy:

IF (T_exists=1 & ~EXISTS(Target''TimeStamp)) THEN /* Backup only once ! */
DO
  Cmd='copy "'Target'" "'Target''TimeStamp'" CLONE QUIET'
  ADDRESS COMMAND Cmd
  r=WriteLn(LOGFILE,Cmd)
END

ADDRESS COMMAND FileOp '"'ActualFile'" "'Target'" 'FileOpOpts

Code=RC

IF (Code=5) THEN
DO
  Action=ShowMessage('_CopyUnprotect',,,,AppName,Target)
  IF (Action=1) THEN
  DO
     ADDRESS COMMAND
     'delete >NIL: "'Target'" FORCE QUIET'
     FileOp '"'ActualFile'" "'Target'" 'FileOpOpts

     Code=RC
  END
END

IF (Code>=10) THEN CALL ExitMe('DESTFULL')
RETURN

/* ----------------------------- */
GetFileAttributes:
PARSE ARG CkVerFile

AttrFile='T:FM_Attr_'ProcessNumber
VersionNr=0

ADDRESS COMMAND 'list >'AttrFile' "'CkVerFile'" LFORMAT "    %n*n    %l Bytes*n    %p*n    %d   %t*n    %c"'

Version=GetVer(CkVerFile)

IF (Open(fTMP, AttrFile, 'read')) THEN
DO
  sz_Attr=ReadLn(fTMP)
  sz_Attr=sz_Attr || CR || ReadLn(fTMP)
  sz_Attr=sz_Attr || CR || LEFT(ReadLn(fTMP), 85)
  sz_Attr=sz_Attr || CR || ReadLn(fTMP)
  sz_Attr=sz_Attr || CR || LEFT(ReadLn(fTMP), 85)

  sz_Attr=sz_Attr || CR || "    Version:        "Version

  r=Close(fTMP)
END

RETURN sz_Attr

/* ----------------------------- */
GetSize:
PARSE ARG file

size=0
BytesTemp='T:BytesTemp'

ADDRESS COMMAND 'list >'BytesTemp' "'file'" LFORMAT "%l"'

IF (Open(TEMPFILE,BytesTemp,'read')) THEN
DO
  size=VALUE(ReadLn(TEMPFILE))
  StrBytes=size' Bytes'
  CALL Close(TEMPFILE)
END

RETURN size

/* ----------------------------- */
GetVer:
PARSE ARG file

IsExecutable=CheckExecutable(file)

ver=0
VerName=''
VerTmp='FMver_'ProcessNumber

size=GetSize(file)

IF (size<850000 & (IsExecutable | UPPER(RIGHT(file,8))='.CATALOG')) THEN
DO
 ADDRESS COMMAND 'version >ENV:'VerTmp' "'file'"'
 IF (RC<20) THEN
 DO
  transfrom='a0'x || ''
  transto='  '
  Version=Translate(MyGetENV(VerTmp),transto,transfrom,' ')
  VerName=Word(Version,1)
  IF ~((LEFT(Version, 14)="Could not find") | Words(Version)<2) THEN
  DO
    transfrom='AaßbBcCdDeEfFgGhH¹²³,_iIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ;::/+-~#"&$%§[]{}=>|<!?@ '
    transto=  '11222334455667788123.'
    VersionNr=STRIP(Translate(Word(Version,2),transto,transfrom,' '),'B',' ')
    IF POS(' ',VersionNr)=0 THEN Ver=Value(STRIP(VersionNr,'T','.'))
  END
 END
END
RETURN ver
/* ----------------------------- */
GetDevList:
ADDRESS COMMAND 'C:assign VOLS >T:DevList'ProcessNumber

i=0
DROP device
CALL Open(fTMP,'T:DevList'ProcessNumber,'R')
DO FOREVER
   r=READLN(fTMP)
   IF EOF(fTMP) THEN LEAVE

   posi=POS(' [Mounted]',r)
   IF posi>1 THEN
   DO
     i=i+1
     device.i=LEFT(r,posi-1)':'
   END
END
CALL Close(fTMP)
ADDRESS COMMAND 'delete >NIL: T:DevList'ProcessNumber' QUIET'

device.count=i
RETURN
/* ----------------------------- */
CheckExecutable:
PARSE ARG CheckExeFile

IF (Open(fTMP, CheckExeFile, 'read')) THEN
DO
 Head=ReadCh(fTMP, 4)
 HeaderBytes=c2x(Head)
 r=Close(fTMP)
END

Flag=0
IF (HeaderBytes="000003F3") THEN Flag=1    /* Executable */

RETURN Flag

/* ----------------------------- */
CheckSource:

Source_is_Dir=0   /* Preset */
SourceCount=Files.count - k
SubCount=0
DirCount=0

DirFlag=IsDir(Files.k)
IF (DirFlag=1) THEN
DO
  Source_is_Dir=1
  ADDRESS COMMAND
  'list "'Files.k'" >'CheckSourceDirs' ALL DIRS LFORMAT="%p%s"'
  'list "'Files.k'" >'CheckSourceFile' ALL FILES LFORMAT="%p*n%s"'

  SourceCount=1
  IF (Open(fTMP,CheckSourceFile,'read')) THEN
  DO
    DO UNTIL (EOF(fTMP))
     SourceDirs.SourceCount=ReadLn(fTMP)
     SourceFiles.SourceCount=ReadLn(fTMP)
     SourceCount=SourceCount + 1
    END

    SourceCount=SourceCount - 2  /* 2 Lines Overhead in each "list" File */

    r=Close(fTMP)
    ADDRESS COMMAND 'delete >NIL: 'CheckSourceFile' QUIET'
  END

  IF (Open(fTMP,CheckSourceDirs,'read')) THEN
  DO
    DirCount=1
    DO UNTIL (EOF(fTMP))
     SourceDir.DirCount=ReadLn(fTMP)
     DirCount=DirCount + 1
    END

    DirCount=DirCount - 2  /* 2 Lines Overhead in each "list" File */

    r=Close(fTMP)
    ADDRESS COMMAND 'delete >NIL: 'CheckSourceDirs' QUIET'
  END
END

RETURN

/* -------------- */
rxLine:
PARSE ARG TheLine

r=WriteLn(RexxSCRIPT, TheLine)
RETURN 1

/*----------------------------------------------------------------*/
Create_InitScript:
PARSE ARG module

ADDRESS COMMAND 'delete >NIL: "'module'" QUIET'

IF ~Open(fInit,module,'W') THEN CALL Err_ShowMessage(module)

r=WriteLn(fInit,'failat 21')

n=0

IF ~(Additional_C='') THEN
DO
  n=n+1
  CMD.n='assign C: "'Additional_C'" ADD'
END

IF ~(Additional_L='') THEN
DO
  n=n+1
  CMD.n='assign Libs: "'Additional_L'" ADD'
END

IF ~(Additional_Libs='') THEN
DO
  n=n+1
  CMD.n='assign Libs: "'Additional_Libs'" ADD'
END

IF ~(Additional_Devs='') THEN
DO
  n=n+1
  CMD.n='assign Devs: "'Additional_Devs'" ADD'
END

IF ~(Additional_Fonts='') THEN
DO
  n=n+1
  CMD.n='assign Fonts: "'Additional_Fonts'" ADD'
END

IF ~(Additional_Locale='') THEN
DO
  n=n+1
  CMD.n='assign Locale: "'Additional_Locale'" ADD'
END

IF ~(Additional_Help='') THEN
DO
  n=n+1
  CMD.n='assign Locale: "'Additional_Help'" ADD'
END

DO i=1 to n
  r=WriteLn(fInit,CMD.i)
END

r=Close(fInit)

ADDRESS COMMAND 'execute "'module'"'

r=WriteLn(LOGFILE,CR' Created and executed StartupScript: "'module'"')
DO i=1 to n
   r=WriteLn(LOGFILE,CMD.i)
END
CALL LogLine

r=wdi('if exists "'module'"')
r=wdi(' echo "*ec*n*n*e[1m Removing*e[0m the Init-Script: *e[1m'module'*e[0m ..."')
r=wdi(' wait 3')
r=wdi(' delete "'module'" FORCE')
r=wdi('endif')
CALL SpaceNextEntry
RETURN
/* ----------------------------------------------- */
CopyHelp:
r=ShowMessage('manuals',,,,AppName)
IF r=1 THEN
DO
  InstName=' Online Help '
  SourceDir='iGuide_root:SYS/Inst_Help'
  DestDir1='SYS:'
  DoCheck=1
  CALL CopyAction
END
CALL SpaceNextEntry
RETURN
/*----------------------*/
Do_and_Log:
CALL WriteLn(LOGFILE,' ')
CALL WriteLn(LOGFILE,' Executed Commands for 'InstName':')
CALL WriteLn(LOGFILE,' ')

DO i=1 to 100
 IF(CMD.i='CMD.'i) THEN LEAVE

 TheCommand=LEFT(UPPER(CMD.i),12)
 IF (~POS('FAILAT',TheCommand)=1 & ~POS('IF ',TheCommand)=1 & ~POS('ELSE',TheCommand)=1 & ~POS('ENDIF',TheCommand)=1 & ~POS('SKIP ',TheCommand)=1 & ~POS('QUIT',TheCommand)=1 & ~POS('EndCLI',TheCommand)=1  ) THEN
 DO
  ADDRESS COMMAND CMD.i

  ResultCommand=RC

  r=WriteLn(LOGFILE,CMD.i)
  CMD.i='CMD.'i
 END
END

CALL LogLine
DROP COMMAND
RETURN
/*------------ up to 3 single-button-Messages and last as  ok / exit  message */
ActionMessage:
PARSE ARG aMsg,bMsg,cMsg,dMsg

ra=0
DO UNTIL ra>0
 IF ~(aMsg='') THEN ra=ShowMessage(aMsg,,,,AppName)
 IF ~(bMsg='') THEN ra=ShowMessage(bMsg,,,,AppName)
 IF ~(cMsg='') THEN ra=ShowMessage(cMsg,,,,AppName)
 IF ~(dMsg='') THEN ra=ShowMessage(dMsg,,,,AppName)
 IF ra=0 THEN CALL ExitMe('USER_QUITS')
END
aMsg=''
bMsg=''
cMsg=''
dMsg=''
RETURN ra
/*--------------------------------------------*/
ShowMessage:
PARSE ARG Mesg,ReqPath,ReqFile,PresetString,Parameter1,Parameter2,Parameter3,Parameter4,Parameter5,Parameter6

DROP Action
ReqType=""

MsgFile='iGuide_root:'InstBase'_iGuide/'Language'/'Mesg
IF (Open(fTMP, MsgFile, 'read')) THEN
DO
 ReqType=ReadLn(fTMP)  /* read Requester-Type */

 Line=ReadLn(fTMP)  /* read Title-Line */
 CALL Substitutions
 ReqTitle=Line

 Line=ReadLn(fTMP)  /* free line after Title */

 Message=""

 DO UNTIL EOF(fTMP)

   Line=ReadLn(fTMP)
   CALL Substitutions

   IF POS(">>>", Line) > 0 THEN
   DO
     rtBtns=STRIP(Line, 'L', '>')
     LEAVE
   END
   ELSE
       Message=Message || CR || Line
 END

 r=Close(fTMP)

 IF (Log_exists=1) THEN
 DO
  r=WriteLn(LOGFILE,Message)
  r=WriteLn(LOGFILE,' ')
  r=WriteLn(LOGFILE,rtBtns)
  r=WriteLn(LOGFILE,' ')
 END
END
ELSE
 CALL Err_ShowMessage(MsgFile)

uReqType=UPPER(ReqType)

IF (uReqType='MULTI REQUEST') THEN
DO
  re=rtezrequest(Message,rtBtns,ReqTitle,PosTags)
  IF (Log_exists=1) THEN
  DO
    r=WriteLn(LOGFILE,' ----> Chosen Button-Nr.: 're)
    CALL LogLine
  END
  RETURN re
END

IF (uReqType='GET ONE FILE') THEN
DO
  re=rtfilerequest(ReqPath,ReqFile,ReqTitle,rtBtns,ONEFILE_TAG, Files)
  IF (Log_exists=1) THEN
  DO
    r=WriteLn(LOGFILE,' ----> Chosen File: 're)
    CALL LogLine
  END
  RETURN re
END

IF (uReqType='GETFILES') THEN
DO
  re=rtfilerequest(ReqPath,ReqFile,ReqTitle,rtBtns, FILE_TAGS, Files)
  IF (Log_exists=1) THEN
  DO
    r=WriteLn(LOGFILE,' ----> Chosen Files: 're'...')
    CALL LogLine
  END
  RETURN re
END

IF (uReqType='GETPATH') THEN
DO
  re=rtfilerequest(ReqPath,,ReqTitle,rtBtns, DIR_TAGS)
  IF (Log_exists=1) THEN
  DO
    r=WriteLn(LOGFILE,' ----> Chosen Path: 're)
    CALL LogLine
  END
  RETURN re
END

IF (uReqType='GETSTRING') THEN
DO
  re=rtgetstring(PresetString,Message,ReqTitle,rtBtns,GStags,Action)
  IF (Log_exists=1) THEN
  DO
    r=WriteLn(LOGFILE,' ----> Chosen String: 're)
    r=WriteLn(LOGFILE,' ----> Chosen Button-Nr.: 'Action)
    CALL LogLine
  END
  RETURN re
END

IF (uReqType='GETSTRING SIMPLE') THEN
DO
  re=rtgetstring(PresetString,Message,ReqTitle,,GStags,Action)
  IF (Log_exists=1) THEN
  DO
    r=WriteLn(LOGFILE,' ----> Chosen String: 're)
    r=WriteLn(LOGFILE,' ----> Chosen Button-Nr.: 'Action)
    CALL LogLine
  END
  RETURN re
END

CALL Err_ShowMessage(MsgFile)  /* Error if arrived here. Quit. */
RETURN
/*----------------------------------*/
Substitutions:

IF POS("%1", Line) > 0 THEN             /* substitution parameters for each message */
DO UNTIL POS("%1", Line)=0            /* and per line */
  parse var Line part1 '%1' part2
  Line=part1''parameter1''part2
END

IF POS("%2", Line) > 0 THEN
DO UNTIL POS("%2", Line)=0
  parse var Line part1 '%2' part2
  Line=part1''parameter2''part2
END

IF POS("%3", Line) > 0 THEN
DO UNTIL POS("%3", Line)=0
  parse var Line part1 '%3' part2
  Line=part1''parameter3''part2
END

IF POS("%4", Line) > 0 THEN
DO UNTIL POS("%4", Line)=0
  parse var Line part1 '%4' part2
  Line=part1''parameter4''part2
END

IF POS("%5", Line) > 0 THEN
DO UNTIL POS("%5", Line)=0
  parse var Line part1 '%5' part2
  Line=part1''parameter5''part2
END

IF POS("%6", Line) > 0 THEN
DO UNTIL POS("%6", Line)=0
  parse var Line part1 '%6' part2
  Line=part1''parameter6''part2
END
RETURN
/*----------------------------------*/
Msg_Con_Log:
PARSE ARG text

IF ConStat=0 THEN CALL OpenCon(InstName)
r=WriteLn(fCon,text)
r=WriteLn(LOGFILE,text)
RETURN
/*----------------------------------*/
OpenCon:
PARSE ARG Title

clr='c'
CALL CloseCon
Console=ConsoleType''ConsoleSize'/'Title'/NOCLOSE'
IF ~OPEN(fCon,Console) THEN CALL Err_ShowMessage(Console)
r=WriteLn(fCon,clr)
ConStat=1
RETURN
/*----------------------------------*/
CloseCon:
IF ConStat=1 THEN
DO
 CALL DELAY(100)
 r=CLOSE(fCon)
END
ConStat=0
RETURN

/*----------------------------------*/
Err_ShowMessage:
PARSE ARG ErrFile

Message=AppName':' CR CR "Sorry, an error has occured accessing the File" CR CR "    "ErrFile CR CR "... exiting."
rtBtns='Oh no!'
Action=rtezrequest(Message,rtBtns,AppName,PosTags)

CALL ExitMe('EMERGENCY')

/*-- Break if wrong Directory ---------------- */
CheckInstallDir:
PARSE ARG file

IF ~EXISTS(file) THEN CALL ExitMe('WRONGDIR',file)
ELSE RETURN

/* ------------------------- */
RexxInstallInfo:

IF EXISTS('ENV:RexxInstalledNow') THEN  /* Rexx Info if needed */
DO
   r=ShowMessage('_Rexx_log',,,,AppName)
   ADDRESS COMMAND 'delete >NIL: ENV:RexxInstalledNow QUIET'
END
RETURN
/* ------------------------- */
ExistsFile:
PARSE ARG file

IF ~EXISTS(file) THEN
  RETURN 1
ELSE
  RETURN 0

/* ------------------------- */
BackupFile:
PARSE ARG bakFile

n=5
DO i=1 to n
 IF EXISTS(bakFile'.'n) THEN
 DO
   ADDRESS COMMAND 'copy "'bakFile'" "'bakFile'.'n'" CLONE QUIET'
   LEAVE i
 END

 IF ~EXISTS(bakFile'.'i) THEN
 DO
   ADDRESS COMMAND 'copy "'bakFile'" "'bakFile'.'i'" CLONE QUIET'
   LEAVE i
 END
END
RETURN
/* ------------------------- */
FindTextInFile:
PARSE ARG String,File

tmpF='ENV:SearchR_'ProcessNumber
ADDRESS COMMAND 'search >'tmpF' from "'File'" "'String'"'
r=UPPER(MyGetENV(tmpF))
ADDRESS COMMAND 'delete >NIL: 'tmpF' QUIET'

IF (POS(UPPER(String),r)=0) THEN RETURN 0
ELSE RETURN 1
/* ------------------------- */
MyGetENV:     PROCEDURE
PARSE ARG name

TheFile="ENV:" || name
IF (Open(fTMP, TheFile, 'read')) THEN
DO
  ENVvalue=ReadLn(fTMP)
  r=Close(fTMP)
END
ELSE ENVvalue="???"

RETURN ENVvalue
/* ------------------------- */
InitVersion:

HelpDir='SYS:'InstBase'/Help/'

IF ~EXISTS('SYS:'InstBase) THEN ADDRESS COMMAND 'makedir SYS:'InstBase
IF ~EXISTS('SYS:'InstBase'/Help') THEN ADDRESS COMMAND 'makedir SYS:'InstBase'/Help'

User_ver=0
IF (Open(fTMP,VersionLog,'read')) THEN
DO
  User_ver=Value(ReadLn(fTMP))
  r=Close(fTMP)
END

InstB_orig=InstBase
IF User_ver>0 THEN
DO
 InstModule=InstModule'_upd'
 InstBase=InstBase'_upd'
END

CALL CreateLogFile

InstBase=InstB_orig
CALL Create_DeInstallScript

RETURN
/* ------------------------- */
CreateLogFile:

DeInstDir='SYS:Storage/DeInstall'
DeInstScrName=InstModule'_ex'

IF ~EXISTS('SYS:Storage') THEN ADDRESS COMMAND 'makedir SYS:Storage'
IF ~EXISTS(DeInstDir) THEN ADDRESS COMMAND 'makedir 'DeInstDir

UndoBak=DeInstDir'/'DeInstScrName'.bu'

/* ---- Create MainLog (a AmigaGuide-file) */

MainLog=HelpDir''InstBase'_MainLog.log'
TempLog='T:'InstBase'_MainLog.log'
separator='____________________________________________________________________'

IF ~EXISTS(MainLog) THEN
DO
 WasNoMainLog=1

 IF ~Open(fTMP,TempLog,'W') THEN CALL Err_ShowMessage(TempLog)

 r=WriteLn(fTMP, '@database "iGuide!_Installer_Logfile"')
 r=WriteLn(fTMP, " ")
 r=WriteLn(fTMP, "@author iGuide!_Installer, automatic generated file.")
 r=WriteLn(fTMP, "@(c) Tom Neidhardt, 1999")
 r=WriteLn(fTMP, "@$VER: iGuide!_Installer 3.0")
 r=WriteLn(fTMP, " ")
 r=WriteLn(fTMP, "@font helvetica.font 13")
 r=WriteLn(fTMP, "@wordwrap")
 r=WriteLn(fTMP, " ")
 r=WriteLn(fTMP, " ")
 r=WriteLn(fTMP, '@Node Main "Installation Logbook       iGuide!_Installer, © 1999 by Tom Neidhardt"')
 r=WriteLn(fTMP, " ")
 r=WriteLn(fTMP, '    @{b}'InstBase' Installation logbook@{ub}')
 r=WriteLn(fTMP, " ")
 r=WriteLn(fTMP, "        "Author)
 r=WriteLn(fTMP, separator)
 r=WriteLn(fTMP, " ")
 r=WriteLn(fTMP, ".")

 CALL Close(fTMP)

 ADDRESS COMMAND
 'copy "'TempLog'" "'MainLog'" CLONE QUIET'
 'delete >NIL: "'TempLog'" QUIET'
END

/* ---- Create SubLog, a simple ASCII-file, accessable by MainLog */

SubLog=HelpDir''InstModule'_SubLog.log'
IF ~Open(LOGFILE,SubLog,'W') THEN CALL Err_ShowMessage(SubLog)

Message=CR 'Protocol:  'AppName'       'Today
Message=Message || CR || separator || CR CR CR
r=WriteLn(LOGFILE,Message)

ADDRESS COMMAND 'delete >NIL: ENV:'ProcessNumber'_date QUIET'
Log_exists=1

/* ---- Enhance a MainLog-Link for Sublog */

IF ~Open(MAINFILE,MainLog,'R') THEN CALL Err_ShowMessage(MainLog)
IF ~Open(fTMP,TempLog,'W') THEN CALL Err_ShowMessage(TempLog)

line=' '
LastEntry=0
NewEntry=1
FirstNewLine='      @{"   " link 'SubLog'/main}  Show the Install-Log for @{b}'InstModule'@{ub}'
SecondLine='      @{"   " SYSTEM "NewShell CON:56/'ReqTE'/584/150/DeInstalling_bak/AUTO/NOCLOSE FROM 'UndoBak'"}  Remove all 'InstModule' Installation-Backups'

DO UNTIL EOF(MAINFILE)
 line=ReadLn(MAINFILE)

 IF (line=FirstNewLine) THEN NewEntry=0
 IF (LEFT(line,1)='.') THEN LastEntry=1
 IF (LastEntry=0) THEN r=WriteLn(fTMP, line)
END

IF (NewEntry=1) THEN
DO
 r=WriteLn(fTMP,' ')
 r=WriteLn(fTMP,FirstNewLine''CR''SecondLine)
END

r=WriteLn(fTMP,'.')
r=WriteLn(fTMP,' ')
r=WriteLn(fTMP,separator)
r=WriteLn(fTMP,'@ENDNODE')

r=Close(fTMP)
r=Close(MAINFILE)

ADDRESS COMMAND
'copy "'TempLog'" "'MainLog'" CLONE QUIET'
'delete >NIL: "'TempLog'" QUIET'

RETURN
/* ----------- */
LogLine:
r=WriteLn(LOGFILE,' ')
r=WriteLn(LOGFILE,'>>> -------------------------------------------------------------------------------------')
r=WriteLn(LOGFILE,' ')
RETURN
/*-------------------------------------------------------*/
Create_DeInstallScript:
Action=ShowMessage('_DeInstaller',,,,AppName)
DeInstStarter=InstModule

ADDRESS COMMAND
'delete >NIL: "'DeInstDir'/'DeInstScrName'#?" FORCE QUIET'
'echo >'DeInstDir'/'DeInstStarter '"failat 30"'
'echo >>'DeInstDir'/'DeInstStarter '"stack 20000"'
'echo >>'DeInstDir'/'DeInstStarter '"copy 'DeInstDir'/'DeInstScrName'#? T: CLONE QUIET"'
'echo >>'DeInstDir'/'DeInstStarter '"run >NIL: execute T:'DeInstScrName'"'

IconPath='iGuide:init'
Icon='DeInst_.info'
ADDRESS COMMAND 'copy "'IconPath'/'Icon'" "'DeInstDir'/'DeInstStarter'.info"'

TheFile=DeInstDir'/'DeInstScrName
IF ~Open(fDeInst, TheFile, 'W') THEN CALL Err_ShowMessage(TheFile)

r=wdi('failat 30')
r=wdi('cd T:')
r=wdi('copy EASys!_bin:swipe T: CLONE QUIET')
r=wdi('copy EASys!_bin:CLIexchange T: CLONE QUIET')
r=wdi('copy EASys!_rexx:remoteed.rexx T: CLONE QUIET')
r=wdi('newshell CON:56/'ReqTE'/584/240/EASys!_DeInstaller/CLOSE FROM T:'DeInstScrName'.0')
CALL SpaceNextEntry
CALL Close(fDeInst)

TheFile=DeInstDir'/'DeInstScrName'.0'
IF EXISTS(TheFile) THEN ADDRESS COMMAND 'delete >NIL: "'TheFile'" QUIET'
IF ~Open(fDeInst, TheFile, 'W') THEN CALL Err_ShowMessage(TheFile)

DeInstOpen=1
r=wdi('failat 30')
r=wdi('stack 30000')
r=wdi('cd T:')
r=wdi('echo "*ec*n*n*e[1m This is the DeInstall-Script for 'InstModule'*e[0m"')
r=wdi('echo " It will guide you by dialog through de-installation."')
r=wdi('echo " You may always stop actions by pressing <Ctrl><c>"')
r=wdi('echo " and you may stop the whole script by pressing <Ctrl><d>"')
r=wdi('echo "*n [y/n] marks mean, that  y=Yes  n=[ENTER]=No."')
r=wdi('ask "*e[1m Continue? [y/n] [n]*e[0m"')
r=wdi('if not warn')
r=wdi(' EndCLI')
r=wdi('endif')
CALL SpaceNextEntry

/* ------------------- */
IF ~Open(BakDeInst, UndoBak, 'W') THEN CALL Err_ShowMessage(UndoBak)

r=WriteLn(BakDeInst,'failat 30')
r=WriteLn(BakDeInst,'echo "*ec*n*n*e[1m Remove*e[0m  all Installation File-Backups:*e[1m #?'TimeStamp'*e[0m ?"')
r=WriteLn(BakDeInst,'echo " Be aware, that you or the DeInstaller may not restore"')
r=WriteLn(BakDeInst,'echo " replaced files in case of removing!" NOLINE')
r=WriteLn(BakDeInst,'ask " [y/n] [n]"')
r=WriteLn(BakDeInst,'if not warn')
r=WriteLn(BakDeInst,' EndCLI')
r=WriteLn(BakDeInst,'endif')
r=WriteLn(BakDeInst,'wait 4')

r=WriteLn(LOGFILE,CR' ==> Created the main DeInstall-Script: "'TheFile'"')
r=WriteLn(LOGFILE,CR' ==> Created DeInstall-Script for removing backed-up Files: "'UndoBak'"')
RETURN
/*---------------------*/
SpaceNextEntry:
r=wdi('wait 2')
r=wdi('echo "*ec*n*n"')
r=wdi(' ')
RETURN
/* -- wdi, write deinstaller line -- */
wdi:
PARSE ARG TheLine
r=WriteLn(fDeInst, TheLine)
RETURN 1
/*---------------------*/
ExecScript:
PARSE ARG script,scriptarg

IF ~EXISTS(script) THEN CALL Err_ShowMessage(script)

CALL Close(LOGFILE)

ADDRESS COMMAND
'echo >>"'SubLog'" "*n*n*e[1m ==> Executing  'script'*e[0m  with argument: 'scriptarg'*n"'
'type >>"'SubLog'" "'script'"'
'execute "'script'" 'scriptarg

IF ~Open(LOGFILE,SubLog,'A') THEN CALL Err_ShowMessage(SubLog)
RETURN
/* ------------------- */
End_DeInstScripts:
IF(WasNoMainLog=1) THEN
DO
 r=wdi('if exists 'MainLog)
 r=wdi(' echo "  Removing MainLog 'MainLog'*n"')
 r=wdi(' delete >NIL: "'MainLog'" QUIET')
 r=wdi('endif')
 CALL SpaceNextEntry
END

r=wdi('if exists 'SubLog)
r=wdi(' echo "  Removing 'SubLog'*n"')
r=wdi(' delete >NIL: "'SubLog'" QUIET')
r=wdi('endif')
CALL SpaceNextEntry

r=wdi('if exists 'UndoBak)
r=wdi(' echo "  Removing  'UndoBak'*n"')
r=wdi(' delete >NIL: "'UndoBak'" QUIET')
r=wdi('endif')
CALL SpaceNextEntry

r=WriteLn(BakDeInst,'echo "*n*n All Backups  #?'TimeStamp'  removed from system."')
r=WriteLn(BakDeInst,'wait 5')
r=WriteLn(BakDeInst,'EndCLI')

r=wdi('echo "*e[1m Removing all 'InstModule' DeInstall-Scripts now ...*e[0m"')
r=wdi('wait 4')
r=wdi('delete "'DeInstDir'/'DeInstScrName'#?"')
r=wdi('delete T:'DeInstScrName'#? QUIET')
r=wdi('delete "'DeInstDir'/'InstBase'#?"')
r=wdi('delete >NIL: "'DeInstDir'" QUIET')
CALL SpaceNextEntry

r=wdi(' ')
r=wdi('wait 2')
r=wdi('echo "*ec*n*n 'InstApp' De-Installation completed.*n*n Exiting in 5 secs."')
r=wdi('wait 5')
r=wdi('EndCLI')
RETURN
/*----------------------------------------------------------------*/
ExitMe:
PARSE ARG exitcase,addinfo
exitcase=UPPER(exitcase)

CALL PRAGMA('DIRECTORY','T:')

IF DeInstOpen=1 THEN CALL End_DeInstScripts
IF exitcase='WRONGDIR' THEN r=ShowMessage('_StartAgain',,,,AppName,addinfo)
IF exitcase='DESTFULL' THEN r=ShowMessage('_CopyDestFull',,,,AppName,ActualFile,Code,Target)

IF exitcase='USER_QUITS' THEN
DO
 Action=ShowMessage('_QuitInstall',,,,AppName)
 IF Action=0 THEN RETURN
END

/* in any case make sure all opened files are closed */
CALL Close(BakDeInst)
CALL Close(fDeInst)
CALL Close(fStartup)
CALL Close(LOGFILE)
CALL Close(fTMP)

/* reconstruct user's private MultiView settings */
IF EXISTS('ENV:Multiview.'TimeStamp) THEN
DO
 ADDRESS COMMAND
 'delete >NIL: ENVARC:MultiView FORCE ALL QUIET'
 'rename ENVARC:MultiView.'TimeStamp' ENVARC:MultiView'
 'delete >NIL: ENV:MultiView FORCE ALL QUIET'
 'rename ENV:MultiView.'TimeStamp' ENV:MultiView'
END
ELSE ADDRESS COMMAND 'delete >NIL: ENV:MultiView FORCE ALL QUIET'

IF exitcase='EMERGENCY' | exitcase='WRONGDIR' | exitcase='DESTFULL' | exitcase='USER_QUITS' THEN
   EXIT 0

guide=HelpDir''Language'/'InstModule'.guide'
IF EXISTS(guide) THEN
DO
 CALL DELAY(200)
 ADDRESS COMMAND 'run >NIL: multiview "'guide'"'
END
EXIT 0