home *** CD-ROM | disk | FTP | other *** search
/ PC Active 1995 March / PCA75.bin / demo / dos / pv61demo / inst$scr.dat < prev    next >
Encoding:
Text File  |  1995-01-09  |  7.3 KB  |  259 lines
  1. TOGGLE SOUND
  2. TOGGLE RESTORE
  3.  
  4. SET PACKFULL = "PerfectView"
  5. SET VERSION = "6.1"
  6. SET TOPLINE  = "Installatie van %PACKFULL% %VERSION% voor DOS"
  7. SET BOTTOMLINE = "Install Versie %_VERSION%, Cyco (c) 1990-95  Alle rechten voorbehouden"
  8.  
  9. SET PRESSKEY = "Druk op een toets..."
  10. SET PRESSABORT    = "Druk op ENTER om de installatie af te breken..."
  11. SET ASKBREAK = "Wilt u de installatie afbreken?"
  12.  
  13. SET TARGET_DRV = "C:"
  14. SET SOURCE_DRV = HOMEDISK()
  15.  
  16. SET UNZIPOPT = "-3 -- -+ -) -o"
  17.  
  18. SET MEM_MIN = "1500"
  19.  
  20. SET PVEXE = "PV.EXE"
  21.  
  22. DISPLAY "%TOPLINE%" LINE 1 CENTER
  23. DISPLAY "%BOTTOMLINE%" LINE 25 CENTER
  24.  
  25. DISPLAY "Welkom bij het %PACKFULL% installatieprogramma.~+
  26.     Dit programma installeert de demoversie van~+
  27.     %PACKFULL% %VERSION% voor DOS.~~+
  28.     Gebruik het programma SETUP om de demoversie van~+
  29.     PerfectView 6.1 voor Windows te installeren!~~+
  30.     U kunt de installatie op ieder moment afbreken door op Ctrl-C +
  31.     te drukken.~~+
  32.     %PRESSKEY%"
  33.  
  34. DISPLAY "Om de installatie succesvol te laten verlopen moet er ten minste %MEM_MIN% Kb +
  35.     vrij zijn op de schijf waar %PACKFULL% moet worden geïnstalleerd.~+
  36.     Indien u %PACKFULL% op een netwerk wilt installeren, moet u er voor zorgen dat +
  37.     u tijdens installatie als netwerk-supervisor bent ingelogd.~~+
  38.     %PRESSKEY%"
  39.  
  40. LABEL :driveloop
  41.     SET TARGET_DRV = GETDISK("Op welke schijf wilt u %PACKFULL% installeren?","%TARGET_DRV%")
  42.     IF "%TARGET_DRV%" = ":"
  43.         IF ASK("%ASKBREAK%")
  44.             ABORT "%PRESSABORT%"
  45.         ELSE
  46.             JUMP :driveloop
  47.         ENDIF
  48.     ENDIF
  49.  
  50.  
  51. # Get the directory where the user wants to install PerfectView
  52. LABEL :dirloop
  53.     SET TARGET_DIR = GETDIR("In welke directory wilt u %PACKFULL% installeren?",+
  54.                 "%TARGET_DRV%\PV61DEMO")
  55.     IF "%TARGET_DIR%" = ""
  56.         IF ASK("%ASKBREAK%")
  57.             ABORT "%PRESSABORT%"
  58.         ELSE
  59.                 JUMP :dirloop
  60.         ENDIF
  61.     ENDIF
  62.  
  63.     # Perhaps the user changed the drive letter !
  64.     SET TARGET_DRV = PATH2DRV("%TARGET_DIR%")
  65.  
  66.     #Check if there's enough space
  67.     SET FREESPACE = FREEDISK("%TARGET_DIR%")
  68.     IF %FREESPACE% < %MEM_MIN%
  69.         DISPLAY "U heeft onvoldoende ruimte op schijf %TARGET_DRV%!~+
  70.             %PACKFULL% heeft minimaal %MEM_MIN% KB nodig.~+
  71.             Er is slechts %FREESPACE% Kb beschikbaar.~~+
  72.             %PRESSKEY%"
  73.  
  74.         IF ASK("Wilt u %PACKFULL% op een andere schijf installeren?")
  75.             JUMP :driveloop
  76.         ELSE
  77.             ABORT "Het installatieprogramma wordt beëindigd.~+
  78.                 Zorgt u er voor dat er voldoende ruimte vrij is +
  79.                    voordat u het installatieprogramma opnieuw opstart.~~+
  80.                    %PRESSABORT%"
  81.         ENDIF
  82.     ENDIF
  83.  
  84.     #Check if we have sufficient rights in the target directory
  85.  
  86.     SET ROOT_DIR = "%TARGET_DRV%\"
  87.     IF "%TARGET_DIR%" = "%ROOT_DIR%"
  88.         SET DUMMYPATH = "%TARGET_DIR%$DUMMY.DAT"
  89.         SET PVEXEPATH = "%TARGET_DIR%%PVEXE%"
  90.         SET VIEWPATH = "%TARGET_DIR%VIEW.EXE"
  91.         SET LEESPATH = "%TARGET_DIR%LEESMIJ.TXT"
  92.         SET DATA_DIR = "%TARGET_DIR%DEF61"
  93.         SET CONFPATH  = "%DATA_DIR%*.*"
  94.     ELSE
  95.         SET DUMMYPATH = "%TARGET_DIR%\$DUMMY.DAT"
  96.         SET PVEXEPATH = "%TARGET_DIR%\%PVEXE%"
  97.         SET VIEWPATH = "%TARGET_DIR%\VIEW.EXE"
  98.         SET LEESPATH = "%TARGET_DIR%\LEESMIJ.TXT"
  99.         SET DATA_DIR = "%TARGET_DIR%\DEF61"
  100.         SET CONFPATH  = "%DATA_DIR%\*.*"
  101.     ENDIF
  102.  
  103.  
  104.     MD %TARGET_DIR%
  105.  
  106.     IF FILEWRITE("%DUMMYPATH%")
  107.         #OK
  108.     ELSE
  109.         IF ASK("U heeft onvoldoende rechten om %PACKFULL% te installeren.~+
  110.             Wilt u op een andere schijf installeren?")
  111.             JUMP :driveloop
  112.         ELSE
  113.             ABORT "Het installatieprogramma wordt beëindigd.~+
  114.                 Zorgt u er voor dat u voldoende rechten heeft +
  115.                    voordat u het installatieprogramma opnieuw opstart.~~+
  116.                    %PRESSABORT%"
  117.         ENDIF
  118.     ENDIF
  119.  
  120. # Check for executable.
  121.     IF EXIST("%PVEXEPATH%")
  122.         IF ASK("Er is al een versie van %PACKFULL% geïnstalleerd in~+
  123.             %TARGET_DIR%. Wilt u doorgaan?")
  124.             #OK
  125.         ELSE
  126.             JUMP :driveloop
  127.         ENDIF
  128.     ENDIF
  129.  
  130. # Check for configurations
  131.     IF EXIST("%CONFPATH%")
  132.         IF ASK ("Er staan al bestanden in de directory~+
  133.             %DATA_DIR%.~+
  134.             Wilt u dat deze bestanden worden vervangen door de~+
  135.             voorbeeldbestanden op de installatiediskette/CD ROM?")
  136.             SET ODATAFILE="YES"
  137.         ELSE
  138.             SET ODATAFILE="NO"
  139.         ENDIF
  140.     ELSE
  141.         SET ODATAFILE="YES"
  142.     ENDIF
  143.  
  144.     IF ASK ("PerfectView zal nu geïnstalleerd worden in ~+
  145.                 %TARGET_DIR%. Is dit correct?")
  146.         # OK
  147.         ELSE
  148.                 JUMP :driveloop
  149.         ENDIF
  150.  
  151.  
  152.     #
  153.     # Perform installation
  154.     #
  155.  
  156.     CLS
  157.  
  158.     MD "%TARGET_DIR%"
  159.         MD "%DATA_DIR%"
  160.  
  161.     SETDISK %TARGET_DRV%
  162.     CD %TARGET_DIR%
  163.  
  164.     RUN %SOURCE_DRV%PKUNZIP "%UNZIPOPT% %SOURCE_DRV%PV.ZIP %TARGET_DIR%"
  165.     IF RETCODE() > 0
  166.         IF RETCODE() = 50
  167.             ABORT "Er is een fout opgetreden bij het installeren.~+
  168.                 Waarschijnlijk heeft u niet genoeg ruimte op schijf %TARGET_DRV%.~~+
  169.                 %PRESSABORT%"
  170.         ELSE
  171.             ABORT "Er is een fout opgetreden bij het installeren.~+
  172.                 Mogelijke oorzaken :~~+ 
  173.                 U heeft onvoldoende rechten (netwerk installatie).~+
  174.                 Directory %TARGET_DIR% bestaat niet en kon niet worden aangemaakt.~+
  175.                 De installatie is afgebroken met Ctrl-C.~~+
  176.                 %PRESSABORT%"
  177.         ENDIF
  178.     ENDIF
  179.  
  180.     IF "%ODATAFILE%"  = "YES"
  181.         IF EXIST("%DATA_DIR%\ADRES.*")
  182.             RUN DEL "%DATA_DIR%\ADRES.*"
  183.         ENDIF
  184.         IF EXIST("%DATA_DIR%\FORMULES.*")
  185.             RUN DEL "%DATA_DIR%\FORMULES.*"
  186.         ENDIF
  187.         IF EXIST("%DATA_DIR%\LEDEN.*")
  188.             RUN DEL "%DATA_DIR%\LEDEN.*"
  189.         ENDIF
  190.         IF EXIST("%DATA_DIR%\OFFERTE.*")
  191.             RUN DEL "%DATA_DIR%\OFFERTE.*"
  192.         ENDIF
  193.         IF EXIST("%DATA_DIR%\POSTCODE.*")
  194.             RUN DEL "%DATA_DIR%\POSTCODE.*"
  195.         ENDIF
  196.         IF EXIST("%DATA_DIR%\POSTIN.*")
  197.             RUN DEL "%DATA_DIR%\POSTIN.*"
  198.         ENDIF
  199.         IF EXIST("%DATA_DIR%\POSTUIT.*")
  200.             RUN DEL "%DATA_DIR%\POSTUIT.*"
  201.         ENDIF
  202.         IF EXIST("%DATA_DIR%\PRODUKT.*")
  203.             RUN DEL "%DATA_DIR%\PRODUKT.*"
  204.         ENDIF
  205.  
  206.         RUN %SOURCE_DRV%PKUNZIP "%UNZIPOPT% %SOURCE_DRV%DATA.ZIP %DATA_DIR%"
  207.         IF RETCODE() > 0
  208.             IF RETCODE() = 50
  209.                 ABORT "Er is een fout opgetreden bij het installeren.~+
  210.                     Waarschijnlijk heeft u niet genoeg ruimte op schijf %TARGET_DRV%.~~+
  211.                     %PRESSABORT%"
  212.             ELSE
  213.                 ABORT "Er is een fout opgetreden bij het installeren.~+
  214.                     Mogelijke oorzaken :~~+ 
  215.                     U heeft onvoldoende rechten (netwerkinstallatie).~+
  216.                     Directory %DATA_DIR% bestaat niet en kon niet worden aangemaakt.~+
  217.                     De installatie is afgebroken met Ctrl-C.~~+
  218.                     %PRESSABORT%"
  219.             ENDIF
  220.         ENDIF
  221.     ENDIF
  222.  
  223.     RUN COPY "%SOURCE_DRV%LEESMIJ.TXT %TARGET_DIR% > nul"
  224.     RUN COPY "%SOURCE_DRV%VIEW.EXE %TARGET_DIR% > nul"
  225.  
  226.     DISPLAY "%TOPLINE%" LINE 1 CENTER
  227.     DISPLAY "%BOTTOMLINE%" LINE 25 CENTER
  228.  
  229.     IF EXIST("C:\AUTOEXEC.BAT")
  230.         IF ASK("U kunt %PACKFULL% %VERSION% vanuit iedere directory opstarten~+
  231.             als u de directory %TARGET_DIR% in uw DOS-pad opneemt.~+
  232.             Wilt u dat het installatieprogramma het DOS-pad in uw~+
  233.             AUTOEXEC.BAT bestand aanpast?")
  234.             FILEBLOCK "C:\AUTOEXEC.BAT"
  235.                 APPLINE "path", "!;%TARGET_DIR%"
  236.             ENDBLOCK
  237.         ENDIF
  238.         IF ASK("%PACKFULL% %VERSION% kan de voorbeeldbestanden altijd direct~+
  239.             vinden als u de directory %DATA_DIR% in de~+
  240.             omgevingsvariable PV plaatst.~+
  241.             Wilt u dat het installatieprogramma dit in uw~+
  242.             AUTOEXEC.BAT bestand aanpast?")
  243.             FILEBLOCK "C:\AUTOEXEC.BAT"
  244.                 MODLINE "SET PV", "SET PV=%DATA_DIR%" PREPEND
  245.             ENDBLOCK
  246.         ENDIF
  247.     ENDIF
  248.  
  249.     IF EXIST("%VIEWPATH%")
  250.         RUN %VIEWPATH% "%LEESPATH%"
  251.     ENDIF
  252.  
  253.     IF SETENV("PV=%DATA_DIR%")
  254.  
  255.     DISPLAY "PerfectView is nu geïnstalleerd.~~+
  256.         U kunt PerfectView opstarten met het commando 'PV'~~+
  257.                 %PRESSKEY%"
  258.  
  259.