; 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))
(set #Compress "AmiTCP-41_Install#1:lhex")




(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!")

(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)
	  )
)



(set ToDo  ("%s \"-qfw=%s\" x %s *" #Compress "ram:" "AmiTCP-41_Install#1:AmiTCPCR.LHA")) 
(set error (run ToDo))



(complete 65)
(if (< XXcpu 1)
    
    (	

            (delete (cat Where "amitcp"))

            (copyfiles (help "Sorry No help here...")
              (source "ram:AmiTCP.000")
              (dest Where)
              (prompt " ")
              (newname "AmiTCP")
            ) 
                       
            
    )	
)



(complete 75) 
(if (> XXcpu 0)
    
    (	
            (delete (cat Where "amitcp"))

            (copyfiles (help "Sorry No help here...")
              (source "ram:AmiTCP.020")
              (dest Where)
              (prompt " ")
              (newname "AmiTCP")   
            ) 
            
           
	    
    )	
)



(copyfiles (help "Sorry No help here...")
              (source "ram:Amitcp.key")
              (dest (cat Where "/devs"))
              (prompt " ")

)









(delete "ram:AmiTCP.020")
(delete "ram:AmiTCP.000")
(delete "ram:Amitcp.key")


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