; Hello

(set cpu (database "cpu"))
(if (= cpu 68000) (set XXcpu 0))  (if (= cpu 68010) (set XXcpu 1))
(if (= cpu 68020) (set XXcpu 2))  (if (= cpu 68030) (set XXcpu 3))
(if (= cpu 68040) (set XXcpu 4))  (if (= cpu 68060) (set XXcpu 5))


(message "\n\nThis will install the Patched version of\n\nAmiTCP/IP 4.2\n\nYou must have AmiTCP/IP 4.1 installed.\n\n(The installer will rename the Old AmiTCP file to 'AmiTCP.old'.)")

(set Where (askdir (prompt "Where is AmiTCP/IP 4.1 located?")
			      (help    "Where is AmiTCP/IP 4.1 located?")
			      (default "AmiTCP:")
                   
	   )
)





(set cpu000 (askchoice (choices "68000" "68010" "68020" "68030"
		              "68040" "68060"
		     )
			 (prompt "Central Processing Unit Check")
	                 (help   "Sorry no help.")
          		 (default XXcpu)
	  )
)





(if (> (exists (tackon Where "amitcp")) 0)
  (copyfiles (source (tackon Where "amitcp"))  (dest (cat Where "41Backup")) )
)


(if (> (exists (tackon Where "amitcp")) 0)
  (delete (tackon Where "amitcp"))
)





(complete 65)
(if (< XXcpu 1)
    
    (	
              (copyfiles (help "Sorry No help here...")
              (source "ram:AmiTCP42.000")
              (dest Where)
              (prompt " ")
              (newname "AmiTCP")
            ) 
                       
            
    )	
)



(complete 75) 
(if (> XXcpu 1)
    
    (	
              (copyfiles (help "Sorry No help here...")
              (source "ram:AmiTCP42.020")
              (dest Where)
              (prompt " ")
              (newname "AmiTCP")   
            ) 
            
           
	    
    )	
)




(if (> (exists (tackon Where "bin/online")) 0)
  (copyfiles (source (tackon Where "bin/online"))  (dest (cat Where "41Backup")) ) 
)

(if (> (exists (tackon Where "bin/login")) 0)
  (copyfiles (source (tackon Where "bin/login"))  (dest (cat Where "41Backup")) ) 
)

(if (> (exists (tackon Where "bin/BOOTPCONFIG")) 0)
  (copyfiles (source (tackon Where "bin/BOOTPCONFIG"))  (dest (cat Where "41Backup")) ) 
)


(copyfiles (source "bin")  (dest (cat Where "Bin")) (all) )





(if (> (exists (tackon Where "help/AmiTCP.guide")) 0)
  (copyfiles (source (tackon Where "help/AmiTCP.guide"))  (dest (cat Where "41Backup")) ) 
)


(copyfiles (source "help/AmiTCP.guide")  (dest (cat Where "help")) ) 




(if (> (exists (tackon Where "CONFIG_AmiTCP")) 0)
  (copyfiles (source (tackon Where "CONFIG_AmiTCP"))  (dest (cat Where "41Backup")) ) 
)




(message "AGAIN!\n\nIf you use this software\n\nBUY IT\n\n if you would like to see the next vesrion")