home *** CD-ROM | disk | FTP | other *** search
/ Media Gallery 1996 January / MG_0196.ISO / spea / install / floppy.dat < prev    next >
Text File  |  1995-11-17  |  35KB  |  1,508 lines
  1. //////////////////////////// INSTALLATIONSDISKETTEN ///////////////////////////
  2. @If(9999 [! @Option)
  3. @DefineVars
  4.  @Integer @DiskDriveOK = 0
  5. // @Integer @BreakCount  = 0
  6. // @Integer @SpaceFound  = 0
  7.  @Integer @Number      = 1
  8.  @Integer @Total       = 1
  9.  @Integer @G = 0
  10.  @QString @Source = ""
  11. // @QString @Head        = ""
  12. // @QString @Tail        = ""
  13.  @QString @Line        = ""
  14.  @QString @LabelLine1  = ""
  15.  @QString @LabelLine2  = ""
  16.  @QString @LabelLine3  = ""
  17.  @QString @LabelLine4  = ""
  18.  @QString @LabelLine5  = ""
  19.  @QString @LabelLine6  = ""
  20. @If(@L==2)
  21.  @QString @Copying = "Kopiere Dateien auf Diskette:"
  22.  @QString @Wait    = "Bitte warten ..."
  23. @Else // @L
  24.  @QString @Copying = "Copying files to floppy disk:"
  25.  @QString @Wait    = "Please wait ..."
  26. @Endif // @L
  27.  @Integer @P = 0
  28. @EndVars
  29. @SetOption(9999)
  30. @Endif // !9999
  31.  
  32. FLOPPYSTART:
  33. ///////////////////////////////////////////////////////////////////////////////
  34.  
  35. // SHOWTIME PLUS ////////////////////////////////
  36. @If(101 [= @Option)
  37. @If('B' [= @Group) // DOS, Utils, Win
  38. @Total = 3
  39. @If(10001 [! @Option)
  40.  @Number = 1
  41.  @Source = "INSTALL\\STPLUS\\UTIL1"
  42.  @SetOption(10001)
  43.  @Goto INSERTDISK
  44. @Endif // 10001
  45. @If(10002 [! @Option)
  46.  @Number = 2
  47.  @Source = "INSTALL\\STPLUS\\UTIL2"
  48.  @SetOption(10002)
  49.  @Goto INSERTDISK
  50. @Endif // 10002
  51. @If(10003 [! @Option)
  52.  @Number = 3
  53.  @Source = "INSTALL\\STPLUS\\WIN"
  54.  @SetOption(10003)
  55.  @Goto INSERTDISK
  56. @Endif // 10003
  57. @Goto ASKFORMORE
  58. @Endif // 'B'
  59.  
  60.  
  61. @If('N' [= @Group) // Windows NT
  62. @Total = 1
  63. @If(10001 [! @Option)
  64.  @Number = 1
  65.  @Source = "INSTALL\\STPLUS\\NT"
  66.  @SetOption(10001)
  67.  @Goto INSERTDISK
  68. @Endif // 10001
  69. @Goto ASKFORMORE
  70. @Endif // 'N'
  71.  
  72. @If('O' [= @Group) // OS/2
  73. @Total = 1
  74. @If(10001 [! @Option)
  75.  @Number = 1
  76.  @Source = "INSTALL\\STPLUS\\OS2"
  77.  @SetOption(10001)
  78.  @Goto INSERTDISK
  79. @Endif // 10001
  80. @Goto ASKFORMORE
  81. @Endif // 'O'
  82. @Endif // SHOWTIME PLUS /////////////////////////
  83.  
  84.  
  85. // V7-STORM PRO /////////////////////////////////
  86. @If(102 [= @Option)
  87. @If('B' [= @Group) // DOS, Utils, Windows
  88. @Total = 3
  89. @If(10001 [! @Option)
  90.  @Number = 1
  91.  @Source = "INSTALL\\STORMPRO\\UTIL"
  92.  @SetOption(10001)
  93.  @Goto INSERTDISK
  94. @Endif // 10001
  95. @If(10002 [! @Option)
  96.  @Number = 2
  97.  @Source = "INSTALL\\STORMPRO\\WIN31"
  98.  @SetOption(10002)
  99.  @Goto INSERTDISK
  100. @Endif // 10002
  101. @If(10003 [! @Option)
  102.  @Number = 3
  103.  @Source = "INSTALL\\STORMPRO\\WIN95"
  104.  @SetOption(10003)
  105.  @Goto INSERTDISK
  106. @Endif // 10003
  107. @Goto ASKFORMORE
  108. @Endif // 'B'
  109.  
  110. @If('A' [= @Group) // BigFocus
  111. @Total = 2
  112. @If(10001 [! @Option)
  113.  @Number = 1
  114.  @Source = "INSTALL\\BIGFOCUS\\STORMPRO\\DISK1"
  115.  @SetOption(10001)
  116.  @Goto INSERTDISK
  117. @Endif // 10001
  118. @If(10002 [! @Option)
  119.  @Number = 2
  120.  @Source = "INSTALL\\BIGFOCUS\\STORMPRO\\DISK2"
  121.  @SetOption(10002)
  122.  @Goto INSERTDISK
  123. @Endif // 10002
  124. @Goto ASKFORMORE
  125. @Endif // 'A'
  126.  
  127.  
  128. @If('N' [= @Group) // Windows NT
  129. @Total = 1
  130. @If(10001 [! @Option)
  131.  @Number = 1
  132.  @Source = "INSTALL\\STORMPRO\\NT35"
  133.  @SetOption(10001)
  134.  @Goto INSERTDISK
  135. @Endif // 10001
  136. @Goto ASKFORMORE
  137. @Endif // 'N'
  138.  
  139. @If('O' [= @Group) // OS/2
  140. // Sonderfall, kommt zu INSTALL.DAT
  141. @Endif // 'O'
  142. @Endif // V7-STORM PRO //////////////////////////
  143.  
  144.  
  145. // V7-MERCURY P-64 V ////////////////////////////
  146. @If(118 [= @Option)
  147. @If('B' [= @Group) // DOS, Utils, Windows
  148. @Total = 4
  149. @If(10001 [! @Option)
  150.  @Number = 1
  151.  @Source = "INSTALL\\MERP64V\\UTIL1"
  152.  @SetOption(10001)
  153.  @Goto INSERTDISK
  154. @Endif // 10001
  155. @If(10002 [! @Option)
  156.  @Number = 2
  157.  @Source = "INSTALL\\MERP64V\\UTIL2"
  158.  @SetOption(10002)
  159.  @Goto INSERTDISK
  160. @Endif // 10002
  161. @If(10003 [! @Option)
  162.  @Number = 3
  163.  @Source = "INSTALL\\MERP64V\\WIN31"
  164.  @SetOption(10003)
  165.  @Goto INSERTDISK
  166. @Endif // 10003
  167. @If(10004 [! @Option)
  168.  @Number = 4
  169.  @Source = "INSTALL\\MERP64V\\WIN95"
  170.  @SetOption(10004)
  171.  @Goto INSERTDISK
  172. @Endif // 10004
  173. @Goto ASKFORMORE
  174. @Endif // 'B'
  175.  
  176. @If('A' [= @Group) // BigFocus
  177. @Total = 2
  178. @If(10001 [! @Option)
  179.  @Number = 1
  180.  @Source = "INSTALL\\BIGFOCUS\\MERP64V\\DISK1"
  181.  @SetOption(10001)
  182.  @Goto INSERTDISK
  183. @Endif // 10001
  184. @If(10002 [! @Option)
  185.  @Number = 2
  186.  @Source = "INSTALL\\BIGFOCUS\\MERP64V\\DISK2"
  187.  @SetOption(10002)
  188.  @Goto INSERTDISK
  189. @Endif // 10002
  190. @Goto ASKFORMORE
  191. @Endif // 'A'
  192.  
  193. @If('N' [= @Group) // Windows NT
  194. @Total = 1
  195. @If(10001 [! @Option)
  196.  @Number = 1
  197.  @Source = "INSTALL\\NTMMFGL"
  198.  @SetOption(10001)
  199.  @Goto INSERTDISK
  200. @Endif // 10001
  201. @Goto ASKFORMORE
  202. @Endif // 'N'
  203.  
  204. @If('O' [= @Group) // OS/2
  205. @Total = 1
  206. @If(10001 [! @Option)
  207.  @Number = 1
  208.  @Source = "INSTALL\\MERP64V\\OS2"
  209.  @SetOption(10001)
  210.  @Goto INSERTDISK
  211. @Endif // 10001
  212. @Goto ASKFORMORE
  213. @Endif // 'O'
  214. @Endif // V7-MERCURY P-64 V /////////////////////
  215.  
  216.  
  217. // V7-MERCURY P-64 //////////////////////////////
  218. @If(103 [= @Option)
  219. @If('B' [= @Group) // DOS, Utils, Windows
  220. @Total = 3
  221. @If(10001 [! @Option)
  222.  @Number = 1
  223.  @Source = "INSTALL\\MERP64\\UTIL"
  224.  @SetOption(10001)
  225.  @Goto INSERTDISK
  226. @Endif // 10001
  227. @If(10002 [! @Option)
  228.  @Number = 2
  229.  @Source = "INSTALL\\MERP64\\WIN31"
  230.  @SetOption(10002)
  231.  @Goto INSERTDISK
  232. @Endif // 10002
  233. @If(10003 [! @Option)
  234.  @Number = 3
  235.  @Source = "INSTALL\\MERP64\\WIN95"
  236.  @SetOption(10003)
  237.  @Goto INSERTDISK
  238. @Endif // 10003
  239. @Goto ASKFORMORE
  240. @Endif // 'B'
  241.  
  242. @If('A' [= @Group) // BigFocus
  243. @Total = 2
  244. @If(10001 [! @Option)
  245.  @Number = 1
  246.  @Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK1"
  247.  @SetOption(10001)
  248.  @Goto INSERTDISK
  249. @Endif // 10001
  250. @If(10002 [! @Option)
  251.  @Number = 2
  252.  @Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK2"
  253.  @SetOption(10002)
  254.  @Goto INSERTDISK
  255. @Endif // 10002
  256. @Goto ASKFORMORE
  257. @Endif // 'A'
  258.  
  259.  
  260. @If('N' [= @Group) // Windows NT
  261. @Total = 1
  262. @If(10001 [! @Option)
  263.  @Number = 1
  264.  @Source = "INSTALL\\NT"
  265.  @SetOption(10001)
  266.  @Goto INSERTDISK
  267. @Endif // 10001
  268. @Goto ASKFORMORE
  269. @Endif // 'N'
  270.  
  271. @If('O' [= @Group) // OS/2
  272. @Total = 1
  273. @If(10001 [! @Option)
  274.  @Number = 1
  275.  @Source = "INSTALL\\MERP64\\OS2"
  276.  @SetOption(10001)
  277.  @Goto INSERTDISK
  278. @Endif // 10001
  279. @Goto ASKFORMORE
  280. @Endif // 'O'
  281. @Endif // V7-MERCURY P-64 ///////////////////////
  282.  
  283.  
  284. // V7-MERCURY ///////////////////////////////////
  285. @If(104 [= @Option)
  286. @If('W' [= @Group) // Windows
  287. @Total = 2
  288. @If(10001 [! @Option)
  289.  @Number = 1
  290.  @Source = "INSTALL\\MERCURY\\WIN31"
  291.  @SetOption(10001)
  292.  @Goto INSERTDISK
  293. @Endif // 10001
  294. @If(10002 [! @Option)
  295.  @Number = 2
  296.  @Source = "INSTALL\\MERCURY\\WIN95"
  297.  @SetOption(10002)
  298.  @Goto INSERTDISK
  299. @Endif // 10002
  300. @Goto ASKFORMORE
  301. @Endif // 'W'
  302.  
  303. @If('B' [= @Group) // DOS
  304. @Total = 1
  305. @If(10001 [! @Option)
  306.  @Number = 1
  307.  @Source = "INSTALL\\MERCURY\\UTIL"
  308.  @SetOption(10001)
  309.  @Goto INSERTDISK
  310. @Endif // 10001
  311. @Goto ASKFORMORE
  312. @Endif // 'B'
  313.  
  314. @If('A' [= @Group) // BigFocus
  315. @Total = 2
  316. @If(10001 [! @Option)
  317.  @Number = 1
  318.  @Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK1"
  319.  @SetOption(10001)
  320.  @Goto INSERTDISK
  321. @Endif // 10001
  322. @If(10002 [! @Option)
  323.  @Number = 2
  324.  @Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK2"
  325.  @SetOption(10002)
  326.  @Goto INSERTDISK
  327. @Endif // 10002
  328. @Goto ASKFORMORE
  329. @Endif // 'A'
  330.  
  331.  
  332. @If('N' [= @Group) // Windows NT
  333. @Total = 1
  334. @If(10001 [! @Option)
  335.  @Number = 1
  336.  @Source = "INSTALL\\NT"
  337.  @SetOption(10001)
  338.  @Goto INSERTDISK
  339. @Endif // 10001
  340. @Goto ASKFORMORE
  341. @Endif // 'N'
  342.  
  343. @If('O' [= @Group) // OS/2
  344. @Total = 1
  345. @If(10001 [! @Option)
  346.  @Number = 1
  347.  @Source = "INSTALL\\MERCURY\\OS2"
  348.  @SetOption(10001)
  349.  @Goto INSERTDISK
  350. @Endif // 10001
  351. @Goto ASKFORMORE
  352. @Endif // 'O'
  353. @Endif // V7-MERCURY ////////////////////////////
  354.  
  355.  
  356. // V7-MERCURY PRO ///////////////////////////////
  357. @If(105 [= @Option)
  358. @If('W' [= @Group) // Windows
  359. @Total = 2
  360. @If(10001 [! @Option)
  361.  @Number = 1
  362.  @Source = "INSTALL\\MERPRO\\WIN31"
  363.  @SetOption(10001)
  364.  @Goto INSERTDISK
  365. @Endif // 10001
  366. @If(10002 [! @Option)
  367.  @Number = 2
  368.  @Source = "INSTALL\\MERPRO\\WIN95"
  369.  @SetOption(10002)
  370.  @Goto INSERTDISK
  371. @Endif // 10002
  372. @Goto ASKFORMORE
  373. @Endif // 'W'
  374.  
  375. @If('B' [= @Group) // DOS
  376. @Total = 1
  377. @If(10001 [! @Option)
  378.  @Number = 1
  379.  @Source = "INSTALL\\MERPRO\\UTIL"
  380.  @SetOption(10001)
  381.  @Goto INSERTDISK
  382. @Endif // 10001
  383. @Goto ASKFORMORE
  384. @Endif // 'B'
  385.  
  386. @If('A' [= @Group) // BigFocus
  387. @Total = 2
  388. @If(10001 [! @Option)
  389.  @Number = 1
  390.  @Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK1"
  391.  @SetOption(10001)
  392.  @Goto INSERTDISK
  393. @Endif // 10001
  394. @If(10002 [! @Option)
  395.  @Number = 2
  396.  @Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK2"
  397.  @SetOption(10002)
  398.  @Goto INSERTDISK
  399. @Endif // 10002
  400. @Goto ASKFORMORE
  401. @Endif // 'A'
  402.  
  403.  
  404. @If('N' [= @Group) // Windows NT
  405. @Total = 1
  406. @If(10001 [! @Option)
  407.  @Number = 1
  408.  @Source = "INSTALL\\NT"
  409.  @SetOption(10001)
  410.  @Goto INSERTDISK
  411. @Endif // 10001
  412. @Goto ASKFORMORE
  413. @Endif // 'N'
  414.  
  415. @If('O' [= @Group) // OS/2
  416. @Total = 1
  417. @If(10001 [! @Option)
  418.  @Number = 1
  419.  @Source = "INSTALL\\MERPRO\\OS2"
  420.  @SetOption(10001)
  421.  @Goto INSERTDISK
  422. @Endif // 10001
  423. @Goto ASKFORMORE
  424. @Endif // 'O'
  425. @Endif // V7-MERCURY PRO ////////////////////////
  426.  
  427.  
  428. // V7-MERCURY Lite //////////////////////////////
  429. @If(106 [= @Option)
  430. @If('W' [= @Group) // Windows
  431. @Total = 2
  432. @If(10001 [! @Option)
  433.  @Number = 1
  434.  @Source = "INSTALL\\MERLITE\\WIN31"
  435.  @SetOption(10001)
  436.  @Goto INSERTDISK
  437. @Endif // 10001
  438. @If(10002 [! @Option)
  439.  @Number = 2
  440.  @Source = "INSTALL\\MERLITE\\WIN95"
  441.  @SetOption(10002)
  442.  @Goto INSERTDISK
  443. @Endif // 10002
  444. @Goto ASKFORMORE
  445. @Endif // 'W'
  446.  
  447. @If('B' [= @Group) // DOS
  448. @Total = 1
  449. @If(10001 [! @Option)
  450.  @Number = 1
  451.  @Source = "INSTALL\\MERLITE\\UTIL"
  452.  @SetOption(10001)
  453.  @Goto INSERTDISK
  454. @Endif // 10001
  455. @Goto ASKFORMORE
  456. @Endif // 'B'
  457.  
  458. @If('N' [= @Group) // Windows NT
  459. @Total = 1
  460. @If(10001 [! @Option)
  461.  @Number = 1
  462.  @Source = "INSTALL\\NT"
  463.  @SetOption(10001)
  464.  @Goto INSERTDISK
  465. @Endif // 10001
  466. @Goto ASKFORMORE
  467. @Endif // 'N'
  468.  
  469. @If('O' [= @Group) // OS/2
  470. @Total = 1
  471. @If(10001 [! @Option)
  472.  @Number = 1
  473.  @Source = "INSTALL\\MERLITE\\OS2"
  474.  @SetOption(10001)
  475.  @Goto INSERTDISK
  476. @Endif // 10001
  477. @Goto ASKFORMORE
  478. @Endif // 'O'
  479. @Endif // V7-MERCURY Lite ///////////////////////
  480.  
  481.  
  482. // V7-MIRAGE P-64 V /////////////////////////////
  483. @If(114 [= @Option)
  484. @If('B' [= @Group) // DOS, Utils, Windows
  485. @Total = 4
  486. @If(10001 [! @Option)
  487.  @Number = 1
  488.  @Source = "INSTALL\\MIRP64V\\UTIL1"
  489.  @SetOption(10001)
  490.  @Goto INSERTDISK
  491. @Endif // 10001
  492. @If(10002 [! @Option)
  493.  @Number = 2
  494.  @Source = "INSTALL\\MIRP64V\\UTIL2"
  495.  @SetOption(10002)
  496.  @Goto INSERTDISK
  497. @Endif // 10002
  498. @If(10003 [! @Option)
  499.  @Number = 3
  500.  @Source = "INSTALL\\MIRP64V\\WIN31"
  501.  @SetOption(10003)
  502.  @Goto INSERTDISK
  503. @Endif // 10003
  504. @If(10004 [! @Option)
  505.  @Number = 4
  506.  @Source = "INSTALL\\MIRP64V\\WIN95"
  507.  @SetOption(10004)
  508.  @Goto INSERTDISK
  509. @Endif // 10004
  510. @Goto ASKFORMORE
  511. @Endif // 'B'
  512.  
  513. @If('A' [= @Group) // BigFocus
  514. @Total = 2
  515. @If(10001 [! @Option)
  516.  @Number = 1
  517.  @Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK1"
  518.  @SetOption(10001)
  519.  @Goto INSERTDISK
  520. @Endif // 10001
  521. @If(10002 [! @Option)
  522.  @Number = 2
  523.  @Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK2"
  524.  @SetOption(10002)
  525.  @Goto INSERTDISK
  526. @Endif // 10002
  527. @Goto ASKFORMORE
  528. @Endif // 'A'
  529.  
  530. @If('N' [= @Group) // Windows NT
  531. @Total = 1
  532. @If(10001 [! @Option)
  533.  @Number = 1
  534.  @Source = "INSTALL\\NTMMFGL"
  535.  @SetOption(10001)
  536.  @Goto INSERTDISK
  537. @Endif // 10001
  538. @Goto ASKFORMORE
  539. @Endif // 'N'
  540.  
  541. @If('O' [= @Group) // OS/2
  542. @Total = 1
  543. @If(10001 [! @Option)
  544.  @Number = 1
  545.  @Source = "INSTALL\\MIRP64V\\OS2"
  546.  @SetOption(10001)
  547.  @Goto INSERTDISK
  548. @Endif // 10001
  549. @Goto ASKFORMORE
  550. @Endif // 'O'
  551. @Endif // V7-MIRAGE P-64 V //////////////////////
  552.  
  553.  
  554. // V7-MIRAGE VIDEO //////////////////////////////
  555. @If(121 [= @Option)
  556. @If('B' [= @Group) // DOS, Utils, Windows
  557. @Total = 4
  558. @If(10001 [! @Option)
  559.  @Number = 1
  560.  @Source = "INSTALL\\MIRV\\UTIL1"
  561.  @SetOption(10001)
  562.  @Goto INSERTDISK
  563. @Endif // 10001
  564. @If(10002 [! @Option)
  565.  @Number = 2
  566.  @Source = "INSTALL\\MIRV\\UTIL2"
  567.  @SetOption(10002)
  568.  @Goto INSERTDISK
  569. @Endif // 10002
  570. @If(10003 [! @Option)
  571.  @Number = 3
  572.  @Source = "INSTALL\\MIRV\\WIN31"
  573.  @SetOption(10003)
  574.  @Goto INSERTDISK
  575. @Endif // 10003
  576. @If(10004 [! @Option)
  577.  @Number = 4
  578.  @Source = "INSTALL\\MIRV\\WIN95"
  579.  @SetOption(10004)
  580.  @Goto INSERTDISK
  581. @Endif // 10004
  582. @Goto ASKFORMORE
  583. @Endif // 'B'
  584.  
  585. @If('A' [= @Group) // BigFocus
  586. @Total = 2
  587. @If(10001 [! @Option)
  588.  @Number = 1
  589.  @Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK1"
  590.  @SetOption(10001)
  591.  @Goto INSERTDISK
  592. @Endif // 10001
  593. @If(10002 [! @Option)
  594.  @Number = 2
  595.  @Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK2"
  596.  @SetOption(10002)
  597.  @Goto INSERTDISK
  598. @Endif // 10002
  599. @Goto ASKFORMORE
  600. @Endif // 'A'
  601.  
  602. @If('N' [= @Group) // Windows NT
  603. @Total = 1
  604. @If(10001 [! @Option)
  605.  @Number = 1
  606.  @Source = "INSTALL\\NTMMFGL"
  607.  @SetOption(10001)
  608.  @Goto INSERTDISK
  609. @Endif // 10001
  610. @Goto ASKFORMORE
  611. @Endif // 'N'
  612.  
  613. @If('O' [= @Group) // OS/2
  614. @Total = 1
  615. @If(10001 [! @Option)
  616.  @Number = 1
  617.  @Source = "INSTALL\\MIRV\\OS2"
  618.  @SetOption(10001)
  619.  @Goto INSERTDISK
  620. @Endif // 10001
  621. @Goto ASKFORMORE
  622. @Endif // 'O'
  623. @Endif // V7-MIRAGE VIDEO ///////////////////////
  624.  
  625.  
  626. // V7-MIRAGE P-64 ///////////////////////////////
  627. @If(107 [= @Option)
  628. @If('B' [= @Group) // DOS, Utils, Windows
  629. @Total = 3
  630. @If(10001 [! @Option)
  631.  @Number = 1
  632.  @Source = "INSTALL\\MIRP64\\UTIL"
  633.  @SetOption(10001)
  634.  @Goto INSERTDISK
  635. @Endif // 10001
  636. @If(10002 [! @Option)
  637.  @Number = 2
  638.  @Source = "INSTALL\\MIRP64\\WIN31"
  639.  @SetOption(10002)
  640.  @Goto INSERTDISK
  641. @Endif // 10002
  642. @If(10003 [! @Option)
  643.  @Number = 3
  644.  @Source = "INSTALL\\MIRP64\\WIN95"
  645.  @SetOption(10003)
  646.  @Goto INSERTDISK
  647. @Endif // 10003
  648. @Goto ASKFORMORE
  649. @Endif // 'B'
  650.  
  651. @If('A' [= @Group) // BigFocus
  652. @Total = 2
  653. @If(10001 [! @Option)
  654.  @Number = 1
  655.  @Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK1"
  656.  @SetOption(10001)
  657.  @Goto INSERTDISK
  658. @Endif // 10001
  659. @If(10002 [! @Option)
  660.  @Number = 2
  661.  @Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK2"
  662.  @SetOption(10002)
  663.  @Goto INSERTDISK
  664. @Endif // 10002
  665. @Goto ASKFORMORE
  666. @Endif // 'A'
  667.  
  668.  
  669. @If('N' [= @Group) // Windows NT
  670. @Total = 1
  671. @If(10001 [! @Option)
  672.  @Number = 1
  673.  @Source = "INSTALL\\NT"
  674.  @SetOption(10001)
  675.  @Goto INSERTDISK
  676. @Endif // 10001
  677. @Goto ASKFORMORE
  678. @Endif // 'N'
  679.  
  680. @If('O' [= @Group) // OS/2
  681. @Total = 1
  682. @If(10001 [! @Option)
  683.  @Number = 1
  684.  @Source = "INSTALL\\MIRP64\\OS2"
  685.  @SetOption(10001)
  686.  @Goto INSERTDISK
  687. @Endif // 10001
  688. @Goto ASKFORMORE
  689. @Endif // 'O'
  690. @Endif // V7-MIRAGE P-64 ////////////////////////
  691.  
  692.  
  693. // V7-MIRAGE P-32 ///////////////////////////////
  694. @If(108 [= @Option)
  695. @If('W' [= @Group) // Windows
  696. @Total = 2
  697. @If(10001 [! @Option)
  698.  @Number = 1
  699.  @Source = "INSTALL\\MIRP32\\WIN31"
  700.  @SetOption(10001)
  701.  @Goto INSERTDISK
  702. @Endif // 10001
  703. @If(10002 [! @Option)
  704.  @Number = 2
  705.  @Source = "INSTALL\\MIRP32\\WIN95"
  706.  @SetOption(10002)
  707.  @Goto INSERTDISK
  708. @Endif // 10002
  709. @Goto ASKFORMORE
  710. @Endif // 'W'
  711.  
  712. @If('B' [= @Group) // DOS
  713. @Total = 1
  714. @If(10001 [! @Option)
  715.  @Number = 1
  716.  @Source = "INSTALL\\MIRP32\\UTIL"
  717.  @SetOption(10001)
  718.  @Goto INSERTDISK
  719. @Endif // 10001
  720. @Goto ASKFORMORE
  721. @Endif // 'B'
  722.  
  723. @If('N' [= @Group) // Windows NT
  724. @Total = 1
  725. @If(10001 [! @Option)
  726.  @Number = 1
  727.  @Source = "INSTALL\\NT"
  728.  @SetOption(10001)
  729.  @Goto INSERTDISK
  730. @Endif // 10001
  731. @Goto ASKFORMORE
  732. @Endif // 'N'
  733.  
  734. @If('O' [= @Group) // OS/2
  735. @Total = 1
  736. @If(10001 [! @Option)
  737.  @Number = 1
  738.  @Source = "INSTALL\\MIRP32\\OS2"
  739.  @SetOption(10001)
  740.  @Goto INSERTDISK
  741. @Endif // 10001
  742. @Goto ASKFORMORE
  743. @Endif // 'O'
  744. @Endif // V7-MIRAGE P-32 ////////////////////////
  745.  
  746.  
  747. // V7-MIRAGE ////////////////////////////////////
  748. @If(109 [= @Option)
  749. @If('W' [= @Group) // Windows
  750. @Total = 2
  751. @If(10001 [! @Option)
  752.  @Number = 1
  753.  @Source = "INSTALL\\MIRAGE\\WIN31"
  754.  @SetOption(10001)
  755.  @Goto INSERTDISK
  756. @Endif // 10001
  757. @If(10002 [! @Option)
  758.  @Number = 2
  759.  @Source = "INSTALL\\MIRAGE\\WIN95"
  760.  @SetOption(10002)
  761.  @Goto INSERTDISK
  762. @Endif // 10002
  763. @Goto ASKFORMORE
  764. @Endif // 'W'
  765.  
  766. @If('B' [= @Group) // DOS
  767. @Total = 1
  768. @If(10001 [! @Option)
  769.  @Number = 1
  770.  @Source = "INSTALL\\MIRAGE\\UTIL"
  771.  @SetOption(10001)
  772.  @Goto INSERTDISK
  773. @Endif // 10001
  774. @Goto ASKFORMORE
  775. @Endif // 'B'
  776.  
  777. @If('N' [= @Group) // Windows NT
  778. @Total = 1
  779. @If(10001 [! @Option)
  780.  @Number = 1
  781.  @Source = "INSTALL\\NT"
  782.  @SetOption(10001)
  783.  @Goto INSERTDISK
  784. @Endif // 10001
  785. @Goto ASKFORMORE
  786. @Endif // 'N'
  787.  
  788. @If('O' [= @Group) // OS/2
  789. @Total = 1
  790. @If(10001 [! @Option)
  791.  @Number = 1
  792.  @Source = "INSTALL\\MIRAGE\\OS2"
  793.  @SetOption(10001)
  794.  @Goto INSERTDISK
  795. @Endif // 10001
  796. @Goto ASKFORMORE
  797. @Endif // 'O'
  798. @Endif // V7-MIRAGE P-32 ////////////////////////
  799.  
  800.  
  801. // V7-VEGA PRO //////////////////////////////////
  802. @If(110 [= @Option)
  803. @If('W' [= @Group) // Windows
  804. @Total = 2
  805. @If(10001 [! @Option)
  806.  @Number = 1
  807.  @Source = "INSTALL\\VEGAPRO\\WIN31"
  808.  @SetOption(10001)
  809.  @Goto INSERTDISK
  810. @Endif // 10001
  811. @If(10002 [! @Option)
  812.  @Number = 2
  813.  @Source = "INSTALL\\VEGAPRO\\WIN95"
  814.  @SetOption(10002)
  815.  @Goto INSERTDISK
  816. @Endif // 10002
  817. @Goto ASKFORMORE
  818. @Endif // 'W'
  819.  
  820. @If('B' [= @Group) // DOS
  821. @Total = 1
  822. @If(10001 [! @Option)
  823.  @Number = 1
  824.  @Source = "INSTALL\\VEGAPRO\\UTIL"
  825.  @SetOption(10001)
  826.  @Goto INSERTDISK
  827. @Endif // 10001
  828. @Goto ASKFORMORE
  829. @Endif // 'B'
  830.  
  831. @If('O' [= @Group) // OS/2
  832. @Total = 1
  833. @If(10001 [! @Option)
  834.  @Number = 1
  835.  @Source = "INSTALL\\VEGAPRO\\OS2"
  836.  @SetOption(10001)
  837.  @Goto INSERTDISK
  838. @Endif // 10001
  839. @Goto ASKFORMORE
  840. @Endif // 'O'
  841. @Endif // V7-VEGA PRO ///////////////////////////
  842.  
  843.  
  844. // V7-VEGA PLUS /////////////////////////////////
  845. @If(111 [= @Option)
  846. @If('W' [= @Group) // Windows
  847. @Total = 2
  848. @If(10001 [! @Option)
  849.  @Number = 1
  850.  @Source = "INSTALL\\VEGAPLUS\\WIN31"
  851.  @SetOption(10001)
  852.  @Goto INSERTDISK
  853. @Endif // 10001
  854. @If(10002 [! @Option)
  855.  @Number = 2
  856.  @Source = "INSTALL\\VEGAPLUS\\WIN95"
  857.  @SetOption(10002)
  858.  @Goto INSERTDISK
  859. @Endif // 10002
  860. @Goto ASKFORMORE
  861. @Endif // 'W'
  862.  
  863. @If('B' [= @Group) // DOS
  864. @Total = 1
  865. @If(10001 [! @Option)
  866.  @Number = 1
  867.  @Source = "INSTALL\\VEGAPLUS\\UTIL"
  868.  @SetOption(10001)
  869.  @Goto INSERTDISK
  870. @Endif // 10001
  871. @Goto ASKFORMORE
  872. @Endif // 'B'
  873.  
  874. @If('N' [= @Group) // Windows NT
  875. @Total = 1
  876. @If(10001 [! @Option)
  877.  @Number = 1
  878.  @Source = "INSTALL\\VNT"
  879.  @SetOption(10001)
  880.  @Goto INSERTDISK
  881. @Endif // 10001
  882. @Goto ASKFORMORE
  883. @Endif // 'N'
  884.  
  885. @If('O' [= @Group) // OS/2
  886. @Total = 1
  887. @If(10001 [! @Option)
  888.  @Number = 1
  889.  @Source = "INSTALL\\VEGAPLUS\\OS2"
  890.  @SetOption(10001)
  891.  @Goto INSERTDISK
  892. @Endif // 10001
  893. @Goto ASKFORMORE
  894. @Endif // 'O'
  895. @Endif // V7-VEGA PLUS //////////////////////////
  896.  
  897.  
  898. // V7-VEGA VIDEO ////////////////////////////////
  899. @If(112 [= @Option)
  900. @If('B' [= @Group) // DOS, Utils, Windows
  901. @Total = 4
  902. @If(10001 [! @Option)
  903.  @Number = 1
  904.  @Source = "INSTALL\\VEGAV\\UTIL1"
  905.  @SetOption(10001)
  906.  @Goto INSERTDISK
  907. @Endif // 10001
  908. @If(10002 [! @Option)
  909.  @Number = 2
  910.  @Source = "INSTALL\\VEGAV\\UTIL2"
  911.  @SetOption(10002)
  912.  @Goto INSERTDISK
  913. @Endif // 10002
  914. @If(10003 [! @Option)
  915.  @Number = 3
  916.  @Source = "INSTALL\\VEGAV\\WIN31"
  917.  @SetOption(10003)
  918.  @Goto INSERTDISK
  919. @Endif // 10003
  920. @If(10004 [! @Option)
  921.  @Number = 4
  922.  @Source = "INSTALL\\VEGAV\\WIN95"
  923.  @SetOption(10004)
  924.  @Goto INSERTDISK
  925. @Endif // 10004
  926. @Goto ASKFORMORE
  927. @Endif // 'B'
  928.  
  929. @If('N' [= @Group) // Windows NT
  930. @Total = 1
  931. @If(10001 [! @Option)
  932.  @Number = 1
  933.  @Source = "INSTALL\\VNT"
  934.  @SetOption(10001)
  935.  @Goto INSERTDISK
  936. @Endif // 10001
  937. @Goto ASKFORMORE
  938. @Endif // 'N'
  939.  
  940. @If('O' [= @Group) // OS/2
  941. @Total = 1
  942. @If(10001 [! @Option)
  943.  @Number = 1
  944.  @Source = "INSTALL\\VEGAV\\OS2"
  945.  @SetOption(10001)
  946.  @Goto INSERTDISK
  947. @Endif // 10001
  948. @Goto ASKFORMORE
  949. @Endif // 'O'
  950. @Endif // V7-VEGA VIDEO /////////////////////////
  951.  
  952.  
  953. // MEDIA XTC ////////////////////////////////////
  954. @If(120 [= @Option)
  955. @If('W' [= @Group)
  956. @Total = 3
  957. @If(10001 [! @Option)
  958.  @Number = 1
  959.  @Source = "INSTALL\\MEDIAXTC\\WIN31\\DISK1"
  960.  @SetOption(10001)
  961.  @Goto INSERTDISK
  962. @Endif // 10001
  963. @If(10002 [! @Option)
  964.  @Number = 2
  965.  @Source = "INSTALL\\MEDIAXTC\\WIN31\\DISK2"
  966.  @SetOption(10002)
  967.  @Goto INSERTDISK
  968. @Endif // 10002
  969. @If(10003 [! @Option)
  970.  @Number = 3
  971.  @Source = "INSTALL\\MEDIAXTC\\WIN95\\DRV"
  972.  @SetOption(10003)
  973.  @Goto INSERTDISK
  974. @Endif // 10003
  975. @Goto ASKFORMORE
  976. @Endif // 'W'
  977.  
  978. @If('A' [= @Group)
  979. @Total = 2
  980. @If(10001 [! @Option)
  981.  @Number = 1
  982.  @Source = "INSTALL\\MEDIAXTC\\WIN95\\APP\\DISK1"
  983.  @SetOption(10001)
  984.  @Goto INSERTDISK
  985. @Endif // 10001
  986. @If(10002 [! @Option)
  987.  @Number = 2
  988.  @Source = "INSTALL\\MEDIAXTC\\WIN95\\APP\\DISK2"
  989.  @SetOption(10002)
  990.  @Goto INSERTDISK
  991. @Endif // 10002
  992. @Goto ASKFORMORE
  993. @Endif // 'A'
  994. @Endif // MEDIA XTC /////////////////////////////
  995.  
  996.  
  997. // V7-media fx //////////////////////////////////
  998. @If(113 [= @Option)
  999. @If('W' [= @Group)
  1000. @Total = 3
  1001. @If(10001 [! @Option)
  1002.  @Number = 1
  1003. @If(1131 [= @Option)
  1004.  @Source = "INSTALL\\MEDIAFX\\WIN31\\TYPE1\\DISK1"
  1005. @Elseif(1132 [= @Option)
  1006.  @Source = "INSTALL\\MEDIAFX\\WIN31\\TYPE2\\DISK1"
  1007. @Endif // 113?
  1008.  @SetOption(10001)
  1009.  @Goto INSERTDISK
  1010. @Endif // 10001
  1011. @If(10002 [! @Option)
  1012.  @Number = 2
  1013. @If(1131 [= @Option)
  1014.  @Source = "INSTALL\\MEDIAFX\\WIN31\\TYPE1\\DISK2"
  1015. @Elseif(1132 [= @Option)
  1016.  @Source = "INSTALL\\MEDIAFX\\WIN31\\TYPE2\\DISK2"
  1017. @Endif // 113?
  1018.  @SetOption(10002)
  1019.  @Goto INSERTDISK
  1020. @Endif // 10002
  1021. @If(10003 [! @Option)
  1022.  @Number = 3
  1023.  @Source = "INSTALL\\MEDIAFX\\WIN95\\DRV"
  1024.  @SetOption(10003)
  1025.  @Goto INSERTDISK
  1026. @Endif // 10003
  1027. @Goto ASKFORMORE
  1028. @Endif // 'W'
  1029.  
  1030. @If('A' [= @Group)
  1031. @Total = 2
  1032. @If(10001 [! @Option)
  1033.  @Number = 1
  1034.  @Source = "INSTALL\\MEDIAFX\\WIN95\\APP\\DISK1"
  1035.  @SetOption(10001)
  1036.  @Goto INSERTDISK
  1037. @Endif // 10001
  1038. @If(10002 [! @Option)
  1039.  @Number = 2
  1040.  @Source = "INSTALL\\MEDIAFX\\WIN95\\APP\\DISK2"
  1041.  @SetOption(10002)
  1042.  @Goto INSERTDISK
  1043. @Endif // 10002
  1044. @Goto ASKFORMORE
  1045. @Endif // 'A'
  1046.  
  1047. @If('N' [= @Group)
  1048. @Total = 1
  1049. @If(10001 [! @Option)
  1050.  @Number = 1
  1051.  @Source = "INSTALL\\MEDIAFX\\TYPE2\\NT"
  1052.  @SetOption(10001)
  1053.  @Goto INSERTDISK
  1054. @Endif // 10001
  1055. @Goto ASKFORMORE
  1056. @Endif // 'N'
  1057.  
  1058. @If('O' [= @Group)
  1059. @Total = 1
  1060. @If(10001 [! @Option)
  1061.  @Number = 1
  1062.  @Source = "INSTALL\\MEDIAFX\\TYPE2\\OS2"
  1063.  @SetOption(10001)
  1064.  @Goto INSERTDISK
  1065. @Endif // 10001
  1066. @Goto ASKFORMORE
  1067. @Endif // 'O'
  1068. @Endif // V7-media fx ///////////////////////////
  1069.  
  1070.  
  1071. // Crunch It ////////////////////////////////////
  1072. @If(115 [= @Option)
  1073. @Total = 2
  1074. @If(10001 [! @Option)
  1075.  @Number = 1
  1076.  @Source = "INSTALL\\CRUNCHIT\\DISK1"
  1077.  @SetOption(10001)
  1078.  @Goto INSERTDISK
  1079. @Endif // 10001
  1080. @If(10002 [! @Option)
  1081.  @Number = 2
  1082.  @Source = "INSTALL\\CRUNCHIT\\DISK2"
  1083.  @SetOption(10002)
  1084.  @Goto INSERTDISK
  1085. @Endif // 10002
  1086. @Goto ASKFORMORE
  1087. @Endif // Crunch It /////////////////////////////
  1088.  
  1089.  
  1090. // Play It //////////////////////////////////////
  1091. @If(116 [= @Option)
  1092. @Total = 3
  1093. @If(10001 [! @Option)
  1094.  @Number = 1
  1095.  @Source = "INSTALL\\PLAYIT\\DISK1"
  1096.  @SetOption(10001)
  1097.  @Goto INSERTDISK
  1098. @Endif // 10001
  1099. @If(10002 [! @Option)
  1100.  @Number = 2
  1101.  @Source = "INSTALL\\PLAYIT\\DISK2"
  1102.  @SetOption(10002)
  1103.  @Goto INSERTDISK
  1104. @Endif // 10002
  1105. @If(10003 [! @Option)
  1106.  @Number = 3
  1107.  @Source = "INSTALL\\PLAYIT\\DISK3"
  1108.  @SetOption(10003)
  1109.  @Goto INSERTDISK
  1110. @Endif // 10003
  1111. @Goto ASKFORMORE
  1112. @Endif // Play It ///////////////////////////////
  1113.  
  1114.  
  1115. // BigFocus 13/WIN //////////////////////////////
  1116. @If('E' [= @Group)
  1117. @Total = 1
  1118. @If(10001 [! @Option)
  1119.  @Number = 1
  1120.  @Source = "PRODUKTE\\SOFTWARE\\BF13WIN"
  1121.  @SetOption(10001)
  1122.  @Goto INSERTDISK
  1123. @Endif // 10001
  1124. @Goto ASKFORMORE
  1125. @Endif // BigFocus 13/WIN ///////////////////////
  1126.  
  1127.  
  1128. // 3D-Win ///////////////////////////////////////
  1129. @If('F' [= @Group)
  1130. @Total = 2
  1131. @If(10001 [! @Option)
  1132.  @Number = 1
  1133.  @Source = "PRODUKTE\\SOFTWARE\\WIN3D\\DISK1"
  1134.  @SetOption(10001)
  1135.  @Goto INSERTDISK
  1136. @Endif // 10001
  1137. @If(10002 [! @Option)
  1138.  @Number = 2
  1139.  @Source = "PRODUKTE\\SOFTWARE\\WIN3D\\DISK2"
  1140.  @SetOption(10002)
  1141.  @Goto INSERTDISK
  1142. @Endif // 10002
  1143. @Goto ASKFORMORE
  1144. @Endif // 3D-Win ////////////////////////////////
  1145.  
  1146.  
  1147. // EXECUTION: /////////////////////////////////////////////////////////////////
  1148. ///////////////////////////////////////////////////////////////////////////////
  1149. INSERTDISK:
  1150. @If(10000 [! @Option)
  1151. @Display @Cls
  1152.  @If(@L==2)
  1153.  Zur Erstellung von Installationsdisketten werden LEERE, FORMATIERTE
  1154.  Disketten mit 1.44 MByte Speicherkapazität benötigt.
  1155.  Bitte legen Sie diese Disketten bereit, bevor Sie fortfahren.
  1156.  
  1157.  Anzahl benötigter Disketten: @Total
  1158.  @Else
  1159.  For the creation of installation floppy disks, BLANK and FORMATTED
  1160.  floppy disks with 1.44 MByte disk space are required.
  1161.  Please provide these floppy disks before you continue.
  1162.  
  1163.  Number of disks required: @Total
  1164.  @Endif // @L
  1165. @d8
  1166. @Pause
  1167. @EndDisplay
  1168. @SetOption(10000)
  1169. @Endif // 10000
  1170.  
  1171. @ScrHead(1, L, 0, 63, "$062@Name Installation   $063@Version")
  1172. @Display
  1173.  @If(@L==2)
  1174.  Diskette Nr. @Number
  1175.  
  1176.  Bitte legen Sie eine leere, formatierte, NICHT SCHREIBGESCHÜTZTE
  1177.  Diskette mit 1.44 MB Speicherkapazität in Ihr Diskettenlaufwerk ein.
  1178.  @Else
  1179.  Disk no. @Number
  1180.  
  1181.  Please insert a blank and formatted NON WRITE-PROTECTED floppy disk
  1182.  with 1.44 MB disk space into your floppy disk drive.
  1183.  @Endif // @L
  1184.  
  1185. @Pause
  1186. @EndDisplay
  1187.  
  1188. // suppress non removable, network and CD ROM drives
  1189. SELECTDRIVE:
  1190. @If(@DiskDriveOK==0)
  1191. @GetOutDrive @DiskDrive @LocalWindow(15, 39) @Suppress(0, 2) @Suppress(0, 4) @Suppress(0, 16)
  1192.  @If(@L==2)
  1193.  Welches Laufwerk ist Ihr 1.44 MB Diskettenlaufwerk?
  1194.  Benutzen Sie die Tasten [] und [] zur Auswahl. Bestätigen Sie mit [─┘].
  1195.  @Else
  1196.  Which drive is your 1.44 MB disk drive?
  1197.  Use the keys [] and [] to select. Press [─┘] to continue.
  1198.  @Endif // @L
  1199. @EndOutDrive
  1200. @Endif // @DiskDriveOK
  1201.  
  1202. @If ( @Removable(@DiskDrive) )
  1203. OTHERDISK:
  1204. @If (@DiskFree(@DiskDrive) < 1457664) // 1
  1205.  @If (@DiskFree(@DiskDrive) >= 0) // 2
  1206. @Display
  1207.  @If(@L==2)
  1208.  Diskette Nr. @Number
  1209.  
  1210.  Die Diskette in Laufwerk @DiskDrive enthält Dateien und/oder Verzeichnisse,
  1211.  als defekt markierte Bereiche oder hat ein anderes Diskettenformat.
  1212.  
  1213.  Bitte legen Sie eine leere, intakte Diskette mit 1.44 MB Speicher-
  1214.  kapazität ein.
  1215. @Else
  1216.  Disk no. @Number
  1217.  
  1218.  The disk in drive @DiskDrive contains files and/or directories, areas
  1219.  marked as bad or has a different disk format.
  1220.  
  1221.  Please insert a blank and intact disk with 1.44 MB disk space.
  1222. @Endif // @L
  1223.  
  1224. @Pause
  1225. @EndDisplay
  1226.  @Elseif (@DiskFree(@DiskDrive) < 0) // 2
  1227. @Display
  1228.  @If(@L==2)
  1229.  Diskette Nr. @Number
  1230.  
  1231.  In Laufwerk @DiskDrive ist keine Diskette eingelegt,
  1232.  oder die Diskette in Laufwerk @DiskDrive ist nicht formatiert.
  1233.  
  1234.  Bitte legen Sie eine formatierte, leere, intakte Diskette mit
  1235.  1.44 MByte Speicherkapazität ein.
  1236. @Else
  1237.  Disk no. @Number
  1238.  
  1239.  No floppy disk inserted in drive @DiskDrive, or the floppy disk in
  1240.  drive @DiskDrive is not formatted.
  1241.  
  1242.  Please insert a formatted, blank and intact disk with 1.44 MByte
  1243.  disk space.
  1244. @Endif // @L
  1245.  
  1246. @Pause
  1247. @EndDisplay
  1248.  @Endif // @DiskFree, 2
  1249.  @Goto OTHERDISK
  1250. @Else // @DiskFree, 1
  1251.  @DiskDriveOK = 1
  1252. @Endif // @DiskFree, 1
  1253.  
  1254. @Else // @Removable
  1255. @Display
  1256.  @If(@L==2)
  1257.  Laufwerk @DiskDrive scheint kein Diskettenlaufwerk zu sein.
  1258.  @Else
  1259.  Drive @DiskDrive does not appear to be a floppy disk drive.
  1260.  @Endif // @L
  1261. @Pause
  1262. @EndDisplay
  1263. @Goto SELECTDRIVE
  1264. @Endif // @Removable
  1265.  
  1266. ///////////////// Diskette schreibgeschützt? /////////////////////////////////
  1267. @If(@CannotOpen(@DiskDrive))
  1268. @Display
  1269.  @If(@L==2)
  1270.  Die Diskette in Laufwerk @DiskDrive ist schreibgeschützt.
  1271.  Bitte entfernen Sie den Schreibschutz.
  1272.  @Else
  1273.  The floppy disk in drive @DiskDrive is write-protected.
  1274.  Please remove the write protection.
  1275.  @Endif // @L
  1276. @Pause
  1277. @EndDisplay
  1278. @Goto OTHERDISK
  1279. @Endif // @CannotOpen
  1280.  
  1281. @Delete("@DiskDrive:\\ODD33FIL.TPL")
  1282. //////////////////////////////////////////////////////////////////////////////
  1283.  
  1284. // Erzeuge Zeilen aus DISK.ID ////////////////////////////////////////////////
  1285. @LabelLine1 = "@GetLine(1, "@InDrive:@SPEAdir\\@Source\\DISK.ID")"
  1286. @Line       = "@GetLine(3, "@InDrive:@SPEAdir\\@Source\\DISK.ID")"
  1287.  
  1288. @If(@StrRFind("@Line", "Disk") >= 2) // 1
  1289.  @LabelLine2 = "@StrHead("@Line", @StrFind("@Line", "Disk") - 2)"
  1290. @Else // @StrRFind, 1
  1291.  @If(@StrRFind("@Line", "Disk") >= 0)
  1292.   @LabelLine2 = ""
  1293.  @Else
  1294.   @LabelLine2 = "@Line"
  1295.  @Endif
  1296. @Endif // @StrRFind, 1
  1297.  
  1298. @LabelLine3 = "@GetLine(2, "@InDrive:@SPEAdir\\@Source\\DISK.ID")"
  1299.  
  1300. @If(@StrRFind("@Line", "Disk") >= 2) // 2
  1301.  @LabelLine4 = "@StrTail("@Line", @StrLen("@Line") - @StrFind("@Line", "Disk"))"
  1302. @Else // @StrRFind, 2
  1303.  @If(@StrRFind("@Line", "Disk") >= 0)
  1304.   @LabelLine4 = "@Line"
  1305.  @Else
  1306.   @LabelLine4 = ""
  1307.  @Endif
  1308. @Endif // @StrRFind, 2
  1309.  
  1310. @LabelLine5 = "@GetLine(4, "@InDrive:@SPEAdir\\@Source\\DISK.ID")"
  1311. @LabelLine6 = "@GetLine(5, "@InDrive:@SPEAdir\\@Source\\DISK.ID")"
  1312.  
  1313. @ScrHead(10, L, 0, 63,
  1314.  "$062@Name Installation   $063@Version", "",
  1315.  "$058@Copying", "",
  1316.  "    @LabelLine1",
  1317.  "    @LabelLine2",
  1318.  "    @LabelLine3",
  1319.  "    @LabelLine4", "",
  1320.  "@Wait")
  1321. @Copy("@InDrive:@SPEAdir\\@Source\\*.*", "@DiskDrive:\\*.*")
  1322.  
  1323. //@If(@Exists("L.DAT"))
  1324. @If("@GetENV("SPEAFLOPPY1")" != "" && "@GetENV("SPEAFLOPPY2")" != "")
  1325. @ScrHead(1, L, 0, 63, "$062@Name Installation   $063@Version")
  1326. @Display @Cls
  1327. @If(@L==2)
  1328.  Dateien erfolgreich auf Diskette @Number übertragen.
  1329.  Bitte versehen Sie diese Diskette mit der Aufschrift:
  1330. @Else // @L
  1331.  Successfully transferred files on disk @Number.
  1332.  Please supply the following inscription to this disk:
  1333. @Endif // @L
  1334.  
  1335.  @LabelLine1
  1336.  @LabelLine2
  1337.  @LabelLine3
  1338.  @LabelLine4
  1339.  @LabelLine5
  1340.  @LabelLine6
  1341.  
  1342. @Pause
  1343. @EndDisplay
  1344. @Chain("Disk 1", "@GetENV("SPEAFLOPPY1")")
  1345.  
  1346. @Else // @Exists L.DAT, @GetENV
  1347. @P = 0
  1348. ASKPRINT:
  1349. @If(@L==2)
  1350. @ScrHead(15, L, 0, 63,
  1351.  "$062@Name Installation   $063@Version", "",
  1352.  "$058Dateien erfolgreich auf Diskette @Number übertragen.",
  1353.  "Bitte versehen Sie diese Diskette mit der Aufschrift:", "",
  1354.  "    $059@LabelLine1",
  1355.  "    @LabelLine2",
  1356.  "    @LabelLine3",
  1357.  "    @LabelLine4",
  1358.  "    @LabelLine5",
  1359.  "    @LabelLine6", "",
  1360.  "$058Wenn ein Drucker an LPT1 angeschlossen ist, können Sie diese",
  1361.  "Aufschrift jetzt ausdrucken. Anzahl gedruckter Etiketten: @P"
  1362.  "Wollen Sie die Aufschrift ausdrucken ($059D$058rucken/$059W$058eiter)?")
  1363. @G = @Getch
  1364. @If(@G==68 || @G==100) // 'D', 'd'
  1365.  @Goto DOPRINT
  1366. @ElseIf(@G==87 || @G==119 || @G==13) // 'W', 'w', RETURN
  1367.  @Goto COPYINGDONE
  1368. @Else // @G
  1369.  @Goto ASKPRINT
  1370. @Endif // @G
  1371. @Else // @L
  1372. @ScrHead(15, L, 0, 63,
  1373.  "$062@Name Installation   $063@Version", "",
  1374.  "$058Successfully transferred files onto disk @Number.",
  1375.  "Please supply the following inscription to this disk:", "",
  1376.  "    $059@LabelLine1",
  1377.  "    @LabelLine2",
  1378.  "    @LabelLine3",
  1379.  "    @LabelLine4",
  1380.  "    @LabelLine5",
  1381.  "    @LabelLine6", "",
  1382.  "$058If you have a printer connected with LPT1 you can now print",
  1383.  "out this inscription. Number of labels printed: @P"
  1384.  "Do you want to print a label ($059P$058rint/$059C$058ontinue)?")
  1385. @G = @Getch
  1386. @If(@G==80 || @G==112) // 'P', 'p'
  1387.  @Goto DOPRINT
  1388. @ElseIf(@G==67 || @G==99 || @G==13) // 'C', 'c', ENTER
  1389.  @Goto COPYINGDONE
  1390. @Else // @G
  1391.  @Goto ASKPRINT
  1392. @Endif // @G
  1393. @Endif // @L
  1394. DOPRINT:
  1395. // Längliche Zeilen umbrechen! ///////////////////////////////////////////////
  1396. // max. = 26
  1397. /*
  1398. BREAKLINE1:
  1399. @BreakCount = 0
  1400. @If(@StrLen("@LabelLine1") > 26)
  1401.  @SpaceFound = @StrRFind("@LabelLine1", " ")
  1402.  @Head = "@StrHead("@LabelLine1", @SpaceFound - 1)"
  1403.  @Tail = "@StrTail("@LabelLine1", @SpaceFound + 1)"
  1404.  @LabelLine1 = "@Head\n@Tail"
  1405.  @BreakCount = (@BreakCount + 1)
  1406.  @If(@BreakCount < 5) @Goto BREAKLINE1 @Endif
  1407. @Endif // @StrLen
  1408.  
  1409. BREAKLINE2:
  1410. @BreakCount = 0
  1411. @If(@StrLen("@LabelLine2") > 26)
  1412.  @SpaceFound = @StrRFind("@LabelLine2", " ")
  1413.  @Head = "@StrHead("@LabelLine2", @SpaceFound - 1)"
  1414.  @Tail = "@StrTail("@LabelLine2", @SpaceFound + 1)"
  1415.  @LabelLine2 = "@Head\n@Tail"
  1416.  @BreakCount = (@BreakCount + 1)
  1417.  @If(@BreakCount < 5) @Goto BREAKLINE2 @Endif
  1418. @Endif // @StrLen
  1419.  
  1420. BREAKLINE3:
  1421. @BreakCount = 0
  1422. @If(@StrLen("@LabelLine3") > 26)
  1423.  @SpaceFound = @StrRFind("@LabelLine3", " ")
  1424.  @Head = "@StrHead("@LabelLine3", @SpaceFound - 1)"
  1425.  @Tail = "@StrTail("@LabelLine3", @SpaceFound + 1)"
  1426.  @LabelLine3 = "@Head\n@Tail"
  1427.  @BreakCount = (@BreakCount + 1)
  1428.  @If(@BreakCount < 5) @Goto BREAKLINE3 @Endif
  1429. @Endif // @StrLen
  1430.  
  1431. BREAKLINE4:
  1432. @BreakCount = 0
  1433. @If(@StrLen("@LabelLine4") > 26)
  1434.  @SpaceFound = @StrRFind("@LabelLine4", " ")
  1435.  @Head = "@StrHead("@LabelLine4", @SpaceFound - 1)"
  1436.  @Tail = "@StrTail("@LabelLine4", @SpaceFound + 1)"
  1437.  @LabelLine4 = "@Head\n@Tail"
  1438.  @BreakCount = (@BreakCount + 1)
  1439.  @If(@BreakCount < 5) @Goto BREAKLINE4 @Endif
  1440. @Endif // @StrLen
  1441.  
  1442. BREAKLINE5:
  1443. @BreakCount = 0
  1444. @If(@StrLen("@LabelLine5") > 26)
  1445.  @SpaceFound = @StrRFind("@LabelLine5", " ")
  1446.  @Head = "@StrHead("@LabelLine5", @SpaceFound - 1)"
  1447.  @Tail = "@StrTail("@LabelLine5", @SpaceFound + 1)"
  1448.  @LabelLine5 = "@Head\n@Tail"
  1449.  @BreakCount = (@BreakCount + 1)
  1450.  @If(@BreakCount < 5) @Goto BREAKLINE5 @Endif
  1451. @Endif // @StrLen
  1452.  
  1453. BREAKLINE6:
  1454. @BreakCount = 0
  1455. @If(@StrLen("@LabelLine6") > 26)
  1456.  @SpaceFound = @StrRFind("@LabelLine6", " ")
  1457.  @Head = "@StrHead("@LabelLine6", @SpaceFound - 1)"
  1458.  @Tail = "@StrTail("@LabelLine6", @SpaceFound + 1)"
  1459.  @LabelLine6 = "@Head\n@Tail"
  1460.  @BreakCount = (@BreakCount + 1)
  1461.  @If(@BreakCount < 5) @Goto BREAKLINE6 @Endif
  1462. @Endif // @StrLen
  1463. /**/
  1464. //////////////////////////////////////////////////////////////////////////////
  1465.  
  1466. @If(@StrLen("@LabelLine1") > 0) @System("echo @LabelLine1 >lpt1") @Else @System("echo. >lpt1") @Endif
  1467. @If(@StrLen("@LabelLine2") > 0) @System("echo @LabelLine2 >lpt1") @Else @System("echo. >lpt1") @Endif
  1468. @If(@StrLen("@LabelLine3") > 0) @System("echo @LabelLine3 >lpt1") @Else @System("echo. >lpt1") @Endif
  1469. @If(@StrLen("@LabelLine4") > 0) @System("echo @LabelLine4 >lpt1") @Else @System("echo. >lpt1") @Endif
  1470. @If(@StrLen("@LabelLine5") > 0) @System("echo @LabelLine5 >lpt1") @Else @System("echo. >lpt1") @Endif
  1471. @If(@StrLen("@LabelLine6") > 0) @System("echo @LabelLine6 >lpt1") @Else @System("echo. >lpt1") @Endif
  1472. @P = (@P + 1)
  1473. @Goto ASKPRINT
  1474. @Endif // @Exists L.DAT, @GetENV
  1475. COPYINGDONE:
  1476.  
  1477. @Goto FLOPPYSTART
  1478.  
  1479. ASKFORMORE:
  1480. @ScrHead(1, L, 0, 63, "$062@Name Installation   $063@Version")
  1481. @SetOption(0)
  1482. @GetOption @Checkbox @LocalWindow(15, 39)
  1483. @If(@L==2)
  1484.  Wollen Sie weitere Disketten erzeugen?
  1485. @t111
  1486. @Else // @L
  1487.  Do you want to create more disks?
  1488. @t111
  1489. @Endif // @L
  1490. @Option 0 = ""
  1491. @EndOption
  1492.  
  1493. @If(0 [= @Option)
  1494.  @ClearOption(10000)
  1495.  @ClearOption(10001)
  1496.  @ClearOption(10002)
  1497.  @ClearOption(10003)
  1498.  @ClearOption(10004)
  1499.  @ClearOption(10005)
  1500.  @ClearOption(10006)
  1501.  @ClearOption(10007)
  1502.  @ClearOption(10008)
  1503.  @ClearOption(10009)
  1504.  @FlushGroups()
  1505.  @SetGroup(V)
  1506.  @Chain("Disk 1", "INSTALL2.DAT")
  1507. @Endif // 0
  1508.