home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / misc / emu / PC_TaskPatch41.lha / PC-TaskPatch4.1 / Update_PC-Task4.0 < prev    next >
Text File  |  1997-02-19  |  2KB  |  84 lines
  1. ; PC-Task v4.0 to v4.10 Updater
  2. ; 12/2/97    Copyright 1997 Quasar Distribution
  3. ; Translated by:
  4.  
  5. (set @default-dest "SYS:")
  6.  
  7. ; English language
  8.  
  9. (set #pctask-location
  10. (cat "Please select location of PC-Task program(s):"
  11. ))
  12.  
  13. (set #help-askbool
  14. (cat "Please select Yes to install the file(s) "
  15.      "or select No so they are not installed. "
  16. ))
  17.  
  18. (set #help-askloc
  19. (cat "Your PC-Task programs "
  20.      "must be in the directory you select in "
  21.      "order for it to be updated.  The programs "
  22.      "must not have their files names changed. "
  23. ))
  24.  
  25.  
  26. ;--------------------------------------------------
  27.  
  28. (set dest2    (askdir    (prompt #pctask-location)
  29.             (default @default-dest)
  30.             (help #help-askloc)
  31.             )
  32. )
  33.  
  34. ; update the PC-Task program if it exists
  35. (if    (= (exists (tackon dest2 "PC-Task_Dynamic")) 1)
  36.     (
  37.         (run (cat "PCTPatch \"" (tackon dest2 "PC-Task_Dynamic") "\" PC-Task_Dynamic.pch ram:PC-Task_Dynamic"))
  38.  
  39.         (if (= (exists "ram:PC-Task_Dynamic") 1)
  40.             (
  41.                 (copyfiles
  42.                     (source "ram:PC-Task_Dynamic")
  43.                     (dest dest2)
  44.                     (help @copyfiles-help)
  45.                 )
  46.     
  47.                 (delete "ram:PC-Task_Dynamic")
  48.             )
  49.         )
  50.     )
  51. )
  52.  
  53. (if    (= (exists (tackon dest2 "PC-Task_Interpretive")) 1)
  54.     (
  55.         (run (cat "PCTPatch \"" (tackon dest2 "PC-Task_Interpretive") "\" PC-Task_Interpretive.pch ram:PC-Task_Interpretive"))
  56.  
  57.         (if (= (exists "ram:PC-Task_Interpretive") 1)
  58.             (
  59.                 (copyfiles
  60.                     (source "ram:PC-Task_Interpretive")
  61.                     (dest dest2)
  62.                     (help @copyfiles-help)
  63.                 )
  64.     
  65.                 (delete "ram:PC-Task_Interpretive")
  66.             )
  67.         )
  68.     )
  69. )
  70.  
  71.  
  72.  
  73. (
  74.     (copyfiles
  75.         (source "README")
  76.         (dest dest2)
  77.         (newname "README_FIRST!")
  78.         (help @copyfiles-help)
  79.     )
  80. )
  81.  
  82. (set @default-dest dest2)
  83.  
  84.