home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / misc / where_k / installer < prev    next >
Encoding:
Text File  |  1995-03-15  |  3.1 KB  |  131 lines
  1.  
  2. ;DO NOT erase any commands from your C Directory
  3. ALIAS RQ REQUESTCHOICE
  4. rq >env:answer "WHERE_K INSTALLER" "INSERT DISK IN DF0: " "READY" "ABORT"
  5. IF NOT EXISTS SYS:utilities/multiview
  6.      ECHO "OPERATION ABORTING. MULTIVIEW"
  7.      ECHO "NOT IN THE SYS:UTILITIES DIRECTOY"
  8.      ECHO "PLEASE READ"
  9.      ECHO "REQUIREMENTS_README!! FILE"
  10.      ECHO "YOU MAY TRY THE INSTALL AGAIN"
  11.      ECHO "AFTER MULTIVIEW INSERTED IN"
  12.      ECHO "THE SYS:UTILITIES DIRECTORY"
  13.      EVAL 7 LFORMAT "%c"
  14.      WAIT 5 SECS
  15.      SKIP BYE2
  16. ENDIF
  17.  
  18. if $answer EQ "1"
  19.      REQUESTFILE >ENV:WK TITLE="SELECT WHERE_K DESTINATION" DRAWERSONLY
  20.      IF EXISTS $WK
  21.      CD $WK
  22.      ECHO $WK
  23.      IF EXISTS WHERE_K
  24.       ECHO "WHERE_K EXISTS, ERASE IT AND ALL OLD WHERE_K FILES BEFORE INSTALLING"
  25.       SKIP BYE2
  26.      ENDIF
  27.      MAKEDIR WK
  28.      COPY DF0:WKV1995A/WK_ICONS.INFO TO WK.INFO
  29.      COPY DF0:WKV1995A/WHERE_K TO WK
  30.      COPY DF0:WKV1995A/WHERE_K.INFO TO WK
  31.      COPY DF0:WKV1995A/WHERE_K.GUIDE TO WK
  32.      COPY DF0:WKV1995A/WHERE_K.GUIDE.INFO TO WK
  33.      ELSE IF NOT EXISTS $WK
  34.      SKIP BYE2
  35.      ENDIF
  36.      ECHO "INSTALLING WHERE_K VERSION 1995A"
  37.      ECHO "MARCH 1, 1995"
  38. ELSE
  39.   ECHO "ABORTING"
  40.   EVAL 7 LFORMAT "%c"
  41.   WAIT 5 SECS
  42.  QUIT
  43. ENDIF
  44. ;==================================================
  45.  
  46.          ;COPY COMMANDS TO SYS:C
  47. ECHO "COPY K COMMANDS TO SYS:C"
  48. IF NOT EXISTS SYS:C/FILENOTEK
  49.  COPY DF0:WKV1995A/COMMANDS/FILENOTEK TO SYS:C
  50.  ELSE
  51.  ECHO "FilenoteK ALREADY EXISTS,SKIPPING"
  52. ENDIF
  53. IF NOT EXISTS SYS:C/INFOK
  54.  COPY DF0:WKV1995A/COMMANDS/INFOK TO SYS:C
  55.  ELSE
  56.  ECHO "InfoK ALREADY EXISTS,SKIPPING"
  57. ENDIF
  58. IF NOT EXISTS SYS:C/LOCKK
  59.  COPY DF0:WKV1995A/COMMANDS/LOCKK TO SYS:C
  60.  ELSE
  61.  ECHO "LockK ALREADY EXISTS,SKIPPING"
  62. ENDIF
  63. IF NOT EXISTS SYS:C/MAKEDIRK
  64.  COPY DF0:WKV1995A/COMMANDS/MAKEDIRK TO SYS:C
  65.  ELSE
  66.  ECHO "MakedirK ALREADY EXISTS,SKIPPING"
  67. ENDIF
  68. IF NOT EXISTS SYS:C/PLACEK
  69.  COPY DF0:WKV1995A/COMMANDS/PLACEK TO SYS:C
  70.  ELSE
  71.  ECHO "PlaceK ALREADY EXISTS,SKIPPING"
  72. ENDIF
  73. IF NOT EXISTS SYS:C/UNPLACEK
  74.  COPY DF0:WKV1995A/COMMANDS/UNPLACEK TO SYS:C
  75.  ELSE
  76.  ECHO "UnplaceK ALREADY EXISTS,SKIPPING"
  77. ENDIF
  78. IF NOT EXISTS SYS:C/UNARCK
  79.  COPY DF0:WKV1995A/COMMANDS/UNARCK TO SYS:C
  80.  ELSE
  81.  ECHO "UnarcK ALREADY EXISTS,SKIPPING"
  82. ENDIF
  83.  
  84. ;=================================================
  85. ;==================================================
  86.          ;COPY SCRIPTS
  87.          ECHO "COPY SCRIPTS"
  88.          CD $WK
  89.          ECHO $WK
  90.          CD WK
  91.          ECHO "WK"
  92.          IF NOT EXISTS SCRIPTSWK
  93.          MAKEDIR ScriptsWK
  94.          COPY DF0:WKV1995A/SCRIPTSWK.INFO TO SCRIPTSWK.INFO
  95.          ENDIF
  96.          COPY FROM DF0:WKV1995A/SCRIPTSWK/#?.SCR TO SCRIPTSWK
  97.  
  98. ;==================================================
  99.  
  100.          ;COPY WHERE_K ICONS
  101.          ECHO "COPY WHERE_K ICONS"
  102.          CD $WK
  103.          CD WK
  104.          IF NOT EXISTS WK_ICONS
  105.            MAKEDIR WK_ICONS
  106.            COPY DF0:WKV1995A/WK_ICONS.INFO TO WK_ICONS.INFO
  107.          ENDIF
  108.          COPY FROM DF0:WKV1995A/WK_ICONS/#? TO WK_ICONS
  109.  
  110.  
  111. ;==================================================
  112.  
  113. LAB J2
  114. ENDIF
  115. ;==================================================
  116. lab ok
  117. ECHO " "
  118. ECHO " "
  119.     echo "INSTALLATION COMPLETE"
  120. lab pickup
  121. LAB BYE
  122. lab bye2
  123. endcli
  124. LAB DONE
  125. UNSETENV ANSWER
  126. UNSETENV WK
  127.  
  128.  
  129.  
  130.  
  131.