;
;		        MAX-FileGuide © 1995 Marcin Orlowski
;
;	    ---------------------------------------------------------
;
;		###    ###    #########  ###    ###    ###    ###
;		###    ###    ###        ####  ####    ###    ###
;		###    ###    ###        ### ## ###    ###    ###
;		###    ###    ########   ### ## ###    ##########
;		### ## ###    ########   ###    ###    ##########
;		### ## ###    ###        ###    ###    ###    ###
;		####  #### ## ###     ## ###    ### ## ###    ### ##
;		###    ### ## ###     ## ###    ### ## ###    ### ##
;
;	    ---------------------------------------------------------
;
;			Mental Pictures Developed Here
;
;				Marcin Orlowski
;				ul. Radomska 38
;				71-002 Szczecin
;
;	 	SilverDream!'s BBS:  	+48 (0)91-540431  (24h non-stop)
;                               GlobalNet: 52:4800/6
;                               FidoNet  :  2:481/22.2
;
;		Internet: 		carlos@felix.univ.szczecin.pl
;
;
;
;
(set OS_Version (/ (getversion "exec.library" (resident)) 65536))
(if (< OS_Version 37)
	(abort  "\n\n\nTo use MAX-FileGuide you need at least\n"
		"Kickstart 2.1 installed on your Amiga!"
	)
)

(complete 0)
(welcome
	"\n"
	" ###    ###    #########  ###    ###    ###    ###\n"
	" ###    ###    ###        ####  ####    ###    ###\n"
	" ###    ###    ###        ### ## ###    ###    ###\n"
	" ###    ###    ########   ### ## ###    ##########\n"
	" ### ## ###    ########   ###    ###    ##########\n"
	" ### ## ###    ###        ###    ###    ###    ###\n"
	" ####  #### ## ###     ## ###    ### ## ###    ###\n"
	" ###    ### ## ###     ## ###    ### ## ###    ###\n"
	"\n"
	"      ------------------------------------------\n"
	"                    MAX-FileGuide\n"
	"      ------------------------------------------"
)


(set MAX_dest
	(askdir
		(prompt  "Select home for MAX-FileGuide:")
		(help   @askdir-help)
		(default "C:")
  )
)

(copyfiles
  (source "MAX-FileGuide")
  (dest MAX_Dest)
  (infos)
)

(complete 30)


(set MAX_dest
	(askdir
		(prompt  "Select home for doc file")
		(help   @askdir-help)
		(default "HELP:english")
  )
)

(copyfiles
  (source "MAX-FileGuide.guide")
  (dest MAX_Dest)
  (infos)
)

(complete 70)


(set wynik (askoptions
            	(prompt  "Select catalog files you want:")
   	    	(help    @askoptions-help)
            	(choices
                 " Polski"
			)

	          )
)


(if (bitand wynik 1)
  (copyfiles
   	(source "Catalogs/Polski")
   	(dest "LOCALE:Catalogs/Polski22")
   	(all)
  )
)

(complete 100)


(message "\n"
       	 "Please send your suggestions, bug report\n"
         "translations or whatever to me at:\n\n"
   "Marcin Orlowski\n"
	 "ul. Radomska 38\n"
	 "71-002  Szczecin\n\n"
	 "SilverDream!'s BBS:  +48 (0)91-540431  (non-stop)\n\n"
	 "Internet: carlos@felix.univ.szczecin.pl\n\n"
	 "MR SOFT / World Federation of Mad Hackers"
)
(exit (QUIET))