home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / a / ami_tcp / amitcpv4.1a.dms / in.adf / Install_Patch < prev    next >
Encoding:
Text File  |  1995-01-12  |  1.9 KB  |  103 lines
  1. ; Hello
  2.  
  3. (set cpu (database "cpu"))
  4. (if (= cpu 68000) (set XXcpu 0))  (if (= cpu 68010) (set XXcpu 1))
  5. (if (= cpu 68020) (set XXcpu 2))  (if (= cpu 68030) (set XXcpu 3))
  6. (if (= cpu 68040) (set XXcpu 4))  (if (= cpu 68060) (set XXcpu 5))
  7. (set #Compress "AmiTCP-41_Install#1:lhex")
  8.  
  9.  
  10.  
  11.  
  12. (message "\n\nThis will install the Patched version of\n\nAmiTCP/IP 4.1\n\n\nIf you wish 'Abort Install' and make a backup now!")
  13.  
  14. (set Where (askdir (prompt "Where is AmiTCP/IP 4.1 located?")
  15.                   (help    "Where is AmiTCP/IP 4.1 located?")
  16.                   (default "AmiTCP:")
  17.               )
  18.     )
  19.  
  20.  
  21.  
  22.  
  23.  
  24. (set cpu000 (askchoice (choices "68000" "68010" "68020" "68030"
  25.                       "68040" "68060"
  26.              )
  27.              (prompt "Central Processing Unit Check")
  28.                      (help   "Sorry no help.")
  29.                    (default XXcpu)
  30.       )
  31. )
  32.  
  33.  
  34.  
  35. (set ToDo  ("%s \"-qfw=%s\" x %s *" #Compress "ram:" "AmiTCP-41_Install#1:AmiTCPCR.LHA")) 
  36. (set error (run ToDo))
  37.  
  38.  
  39.  
  40. (complete 65)
  41. (if (< XXcpu 1)
  42.     
  43.     (    
  44.  
  45.             (delete (cat Where "amitcp"))
  46.  
  47.             (copyfiles (help "Sorry No help here...")
  48.               (source "ram:AmiTCP.000")
  49.               (dest Where)
  50.               (prompt " ")
  51.               (newname "AmiTCP")
  52.             ) 
  53.                        
  54.             
  55.     )    
  56. )
  57.  
  58.  
  59.  
  60. (complete 75) 
  61. (if (> XXcpu 0)
  62.     
  63.     (    
  64.             (delete (cat Where "amitcp"))
  65.  
  66.             (copyfiles (help "Sorry No help here...")
  67.               (source "ram:AmiTCP.020")
  68.               (dest Where)
  69.               (prompt " ")
  70.               (newname "AmiTCP")   
  71.             ) 
  72.             
  73.            
  74.         
  75.     )    
  76. )
  77.  
  78.  
  79.  
  80. (copyfiles (help "Sorry No help here...")
  81.               (source "ram:Amitcp.key")
  82.               (dest (cat Where "/devs"))
  83.               (prompt " ")
  84.  
  85. )
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95. (delete "ram:AmiTCP.020")
  96. (delete "ram:AmiTCP.000")
  97. (delete "ram:Amitcp.key")
  98.  
  99.  
  100. (message "If you use this software\n\nBUY IT\n\n if you would like to see the next vesrion")
  101.  
  102.  
  103.