; $VER: Install BankManger_Demo V1.0 (12 July 1995).© G.Proctor
; This script is for installing the BankManager_Demo Program
; to hard disk.

(set BM_dest
        (askdir                  
                (prompt "In which disk or drawer should BankManager"
                " be installed?")
                (help "The installation utility will create a drawer named "      
                        "BankManager in this directory. All \ "
                        "files will be placed inside that directory. "            
                      )
                (default @default-dest)
        )                                  
)
(set BM_dest (tackon BM_dest "BankManager"))
(set Doc_dest (tackon BM_dest "Docs"))
(set @default-dest BM_dest)
(set Acc_dest (tackon BM_dest "Accounts"))

(makedir BM_dest (infos))             
(makedir Doc_dest (infos))  
(copyfiles
   (source "BankManager:BankManager_Demo")
   (dest BM_dest) 
   (infos)
)    
(copyfiles   
   (prompt "Select which docs to copy")                            
   (help "Select which type of docs you wish to use."
        " To use the BankManager.guide you must have" 
        " the necessary datatypes on your system disk")            
   (source "BankManager:Docs")
   (dest Doc_dest) 
   (infos)                   
   (confirm)  
   (all)
)              
                
(copylib         
        (prompt "Copying extend library")
        (help "Copying the Extend library")
        (source "BankManager:LIBS/extend.library")
        (dest "Libs:")                 
        (confirm)
)
(copylib
        (prompt "Copying HiSoftbasic library")
        (help "Copying the HiSoftBasic library")
        (source "BankManager:LIBS/Hisoftbasic.library")     
        (dest "Libs:")               
        (confirm)  
)

(set where
         (askchoice
              (prompt "Where do you want your accounts ?")
              (help "If you select Hard disk "               
                        "an accounts Drawer will be " 
                        "created for you. ")
               (choices "Hard-Disk" "Floppy-disk")
                (default 1)                                              
)
)

(if (= where Hard-disk)
        (makedir Acc_dest (infos))
)

(exit)