home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / esker / emul.2 / INSTALL.DAT < prev    next >
Text File  |  1995-03-15  |  6KB  |  192 lines
  1. @DefineProject
  2.     @Name = "TUN EMUL"
  3.     @Version = "7.30"
  4.     @OutDrive = C
  5.     @Subdir ="\\TUNEMUL"
  6. @EndProject
  7.  
  8. @DefineVars
  9.     @Integer @Red        = @RGB(255,0,0)
  10.     @Integer @Green      = @RGB(0,255,0)
  11.     @Integer @Blue       = @RGB(0,0,255)
  12.     @Integer @Black      = @RGB(0,0,0)
  13.     @Integer @ShowIcon   = 0
  14.     @Integer @Lang          = 2
  15.     @Qstring @PageCode      ="437"
  16.     @Qstring @FileCopy      
  17.     @Qstring @FileDest      
  18.     @Qstring @SerNum
  19.     @Qstring @SLang      = "00"
  20.     @Qstring @SLang2     = "&English"
  21.     @Qstring @SKeyboard  = "US.SET"
  22.     @Qstring @ProductPart = "TE"
  23.     @Qstring @OldLang
  24.     @Integer @OldLangFlag
  25.  
  26. @EndVars
  27.  
  28. //@Display
  29. //      Goodinit=@GoodInit
  30. //      ProductPart=@ProductPart        
  31. //      Sernum=@SerNum
  32. //      Lang2=@SLang2
  33. //      Keyboard=@Skeyboard     
  34. //      SubDir=@SubDir  
  35. //      OutDrive=@Outdrive
  36. //      @Pause
  37. //@EndDisplay
  38.  
  39.  
  40. @If(@GoodInit==0 || @GoodInit==2)
  41. /*      Unit claim      */
  42. NEWDRIVE:
  43. @DlgCtrlSize(0,6,24,9,40)
  44. @GetOutDrive @OutDrive @Suppress(0,17) @Prompt = "Enter target drive"
  45. Please select the drive where you wish @Name
  46. to be installed on your machine.  Any available drive can be used
  47. assuming you have access rights to the drive you select, and there
  48. is enough space for installation.
  49. @EndOutDrive
  50.  
  51. /*      Directory claim */
  52. NEWDIR:
  53. @BackgroundMode(3,@Blue,@Black)
  54. @DlgCtrlSize(0,7,0,8,35)
  55. @GetSubdir @Subdir @Prompt = "Enter target directory"
  56. Please select the directory PATH for the
  57. @Name. 
  58. Additional subdirectories may be created
  59. depending on the options you choose to install.
  60. @EndSubdir
  61.  
  62. @If(!@DirExists("@Outdrive:\\@Subdir"))
  63.     @BackgroundMode(3,@Red,@Red)
  64.     @SetOption(5)
  65.     @ClearOption(6)
  66.     @DlgCtrlSize(0,5,10,8,30)
  67.     @GetOption @Prompt = "Check Subdirectory"
  68.         The directory you entered does
  69.         not exist.  Do you wish to
  70.         create it?
  71.     @Option 5 = "Yes, continue"
  72.     @Option 6 = "No, re-enter"
  73.     @EndOption
  74.     
  75.     @If(6 [= @Option) @GOTO NEWDIR @EndIf
  76. @EndIf
  77.     @BackgroundMode(3,@Blue,@Black)
  78.  
  79. @EndIf 
  80. @Display
  81.     The Install Program will now add @Name Windows
  82.     program icons and fonts.
  83.     @Pause
  84. @EndDisplay
  85.  
  86. @BackgroundMode(3,@Blue,@Black)
  87.  
  88. @PageCode = @GetINI("boot.description","codepage","SYSTEM.INI")
  89. @FileCopy = "SYS@PageCode.FON"
  90. @SetINI( "fonts", "System@PageCode", "@Outdrive:\\@SubDir\\@FileCopy" ) 
  91. @FileCopy = "S132@PageCode.FON"
  92. @SetINI( "fonts", "Sys132@PageCode", "@Outdrive:\\@SubDir\\@FileCopy" ) 
  93. @FileCopy = "PCCOURIE.FON"
  94. @SetINI( "fonts", "PcCourier", "@Outdrive:\\@SubDir\\@FileCopy" ) 
  95. @FileCopy = "Minitel.FON"
  96. @SetINI( "fonts", "Minitel", "@Outdrive:\\@SubDir\\@FileCopy" ) 
  97. @FileCopy = "HPLINE.FON"
  98. @SetINI( "fonts", "Hpline", "@Outdrive:\\@SubDir\\@FileCopy" ) 
  99. @SetINI( "fonts", "PcSystem")  
  100.  
  101.  
  102. @OldLang = @GetINI("Language", "Language" , "@WindowsDrive:\\@WindowsDir\\TUN.INI")
  103. @OldLangFlag = @StrLen("@OldLang")
  104. @If(@OldLangFlag==0)
  105.   @SetINI("Language", "Language", @SLang, "@WindowsDrive:\\@WindowsDir\\TUN.INI")
  106. @EndIf
  107.  
  108. @SetINI( "INIT", "TUNEMUL", "@OutDrive:\\@SubDir\\TUNEMUL.INI","@WindowsDrive:\\@WindowsDir\\TUN.INI")
  109. @SetINI( "INIT", "PANEDIT", "@OutDrive:\\@SubDir\\PANEDIT.INI","@WindowsDrive:\\@WindowsDir\\TUN.INI")
  110.  
  111. @Copy("@OutDrive:\\@SubDir\\PANEDIT.SAV","@OutDrive:\\@SubDir\\PANEDIT.INI")
  112. @SetINI( "Languages", "00", "&English,peditlg.us","@Outdrive:\\@SubDir\\panedit.INI" ) 
  113. @SetINI( "Languages", "01", "&Franτais,peditlg.fr","@Outdrive:\\@SubDir\\panedit.INI" ) 
  114. @SetINI( "Languages", "02", "&Deutsch,peditlg.gr","@Outdrive:\\@SubDir\\panedit.INI" ) 
  115. @SetINI( "Languages", "03", "E&spa±ol,peditlg.sp","@Outdrive:\\@SubDir\\panedit.INI" ) 
  116. @SetINI( "Languages", "04", "&Italiano,peditlg.it","@Outdrive:\\@SubDir\\panedit.INI" ) 
  117. @SetINI( "Path", "LanguagePath","@Outdrive:\\@SubDir\\","@Outdrive:\\@SubDir\\panedit.INI ")
  118.  
  119. @If(@StrFind(@ProductPart,"TE")==0)
  120.   @SetINI( "INIT", "5250", "@OutDrive:\\@SubDir\\5250.INI","@WindowsDrive:\\@WindowsDir\\TUN.INI")
  121.   @Copy("@OutDrive:\\@SubDir\\5250.SAV","@OutDrive:\\@SubDir\\5250.INI")
  122.   @SetINI( "Languages", "00", "&English,5250lg.us","@Outdrive:\\@SubDir\\5250.INI" ) 
  123.   @SetINI( "Languages", "01", "&Franτais,5250lg.fr","@Outdrive:\\@SubDir\\5250.INI" ) 
  124.   @SetINI( "Languages", "02", "&Deutsch,5250lg.gr","@Outdrive:\\@SubDir\\5250.INI" ) 
  125.   @SetINI( "Languages", "03", "E&spa±ol,5250lg.sp","@Outdrive:\\@SubDir\\5250.INI" ) 
  126.   @SetINI( "Languages", "04", "&Italiano,5250lg.it","@Outdrive:\\@SubDir\\5250.INI" ) 
  127.   @SetINI( "Path", "LanguagePath","@Outdrive:\\@SubDir\\","@Outdrive:\\@SubDir\\5250.INI ")
  128. @EndIf
  129.  
  130. @If(@Exists("@Windowsdrive:\\@WindowsDir\\TUNEMUL2.GRP")) 
  131.         @ShowIcon = 1
  132. @EndIf
  133.  
  134. @SetAutoexec
  135.   @Overwrite
  136.       @SetReplace("TUNINIT","@WindowsDrive:\\@WindowsDir")
  137. @EndAutoexec
  138.  
  139. // Test and Installation of CTL3D.DLL if necessery modified v 7.2OA'
  140.  
  141. @If(!@Exists("@Windowsdrive:\\@WindowsDir\\SYSTEM"))
  142.   @Copy("@OutDrive:\\@SubDir\\CTL3D.TUN","@Windowsdrive:\\@WindowsDir\\CTL3D.DLL")
  143. @ElseIf(!@Exists("@Windowsdrive:\\@WindowsDir\\SYSTEM\\CTL3D.DLL"))
  144.   @Copy("@OutDrive:\\@SubDir\\CTL3D.TUN","@Windowsdrive:\\@WindowsDir\\SYSTEM\\CTL3D.DLL")
  145. @EndIf
  146.  
  147.  
  148. /*
  149.     The following command is used to create the TUN*EMUL group and
  150.     add the TUN*EMUL items to the Windows Program Manager.  The
  151.     command can be written on a single line, however it was written
  152.     as below for clarity.
  153. */
  154.  
  155.  
  156. @If(@StrFind(@ProductPart,"TE")==0)
  157. @ProgramManager("[CreateGroup(TUN EMUL,@WindowsDrive:\\@WindowsDir\\TUNEMUL2.GRP)]
  158. [AddItem(@Outdrive:\\@Subdir\\EMULWIN.EXE, Emulator)]
  159. [AddItem(@Outdrive:\\@Subdir\\5250.EXE, 5250 Emulator)]
  160. [AddItem(@Outdrive:\\@Subdir\\EMULWIN.EXE confmac -M sysadmsh, Application, @Outdrive:\\@Subdir\\emulwin.exe, 1)]
  161. [ShowGroup(TUN EMUL, 1)]
  162. ")
  163. @Else
  164. @ProgramManager("[CreateGroup(TUN EMUL,@WindowsDrive:\\@WindowsDir\\TUNEMUL2.GRP)]
  165. [AddItem(@Outdrive:\\@Subdir\\EMULWIN.EXE, Emulator)]
  166. [ShowGroup(TUN EMUL, 1)]
  167. ")
  168. @EndIf
  169.  
  170.  
  171.  
  172.  
  173. /*      End of Install TUN*EMUL Windows components */
  174.  
  175. @Display
  176.     @Name installation under Windows is now finished !
  177.     Please exit and restart Windows before using
  178.     @Name Windows applications 
  179.     @Pause
  180. @EndDisplay
  181.  
  182. @Finish
  183. /*
  184.     The following command is used to create the wINSTALL group and
  185.     add the wINSTALL item to the Windows Program Manager.  The
  186.     command can be written on a single line, however it was written
  187.     as below for clarity.
  188. */
  189. @ChDrive (@OutDrive)
  190. @ChDir ("@SubDir")
  191. @EndFinish
  192.