; $VER: Install Morse Trainer 1.3 (8 March 1995)
; Written by Antonello Biancalana, IK0TOJ

(set MT_dest
  (tackon
	  (askdir
      (prompt "Please select the disk or drawer where you would like to install Morse Trainer 1.3")
		  (help @askdir-help)
		  (default "Work:")
	  )
		"MTrainer"
	)
)

(makedir MT_dest (infos))

(set @default-dest MT_dest)

(set MT_Ses (cat MT_dest "/Sessions"))
(set MT_Set (cat MT_dest "/Settings"))

(complete 0)

(copyfiles
	(help @copyfiles-help)
	(source "MTrainer")
	(dest MT_dest)
	(infos)
)

(complete 10)

(copyfiles
	(help @copyfiles-help)
	(source "mt01")
	(dest MT_dest)
)

(complete 20)

(copyfiles
	(help @copyfiles-help)
	(source "mt02")
	(dest MT_dest)
)

(complete 30)

(copyfiles
	(help @copyfiles-help)
	(source "mt03")
	(dest MT_dest)
)

(complete 50)

(copyfiles
	(help @copyfiles-help)
	(source "mt04")
	(dest MT_dest)
)

(complete 70)

(copyfiles
	(help @copyfiles-help)
	(source "MTrainer.doc")
	(dest MT_dest)
	(infos)
)

(complete 80)

(copyfiles
	(help @copyfiles-help)
	(source "MTrainer.guide")
	(dest MT_dest)
	(infos)
)

(complete 85)

(copyfiles
	(help @copyfiles-help)
	(source "MTrainer.dvi")
	(dest MT_dest)
	(infos)
)

(complete 90)

(copyfiles
	(help @copyfiles-help)
	(source "ReadMe.first")
	(dest MT_dest)
	(infos)
)

(complete 95)

(makedir MT_Ses)
(makedir MT_Set)

(copyfiles
	(help @copyfiles-help)
	(source "Sessions")
	(dest MT_Ses)
  (all)
	(infos)
)

(copyfiles
	(help @copyfiles-help)
	(source "Settings")
	(dest MT_Set)
  (all)
	(infos)
)

(message "\nMorse Trainer 1.3  Antonello Biancalana, IK0TOJ\n\n"
         "Morse Trainer is SHAREWARE.\n"
         "If you use this program and you think\n"
         "it is useful,  please send $10 to the\n"
         "author to the following address:     \n\n"
         "Antonello Biancalana, IK0TOJ\nVia Girolamo Diruta, 69\nI-06132 San Sisto (Perugia) ITALY\n\n"
         "Thank you for supporting Morse Trainer"
)

(message "\n\nBefore using Morse Trainer 1.3 please read the documentation files and the ReadMe.first file")

(complete 100)

(exit)
