;Install script for Adagis v4
;© 1996 Stv
;
;Creates key file
;
(set @default-dest 'S:')
(message "From now on, Adagis is 'CardWare' and/or 'eMailWare'. This means that you have to send a postcard/mail to the author (me :), with (at least) your name.\nThen, I'll send you your key-number.\nAdagis is FULLY FUNCTIONAL without 'registering'. Only in some (rare) cases, a register! message will appear.\n\n"
		"I've decided to do this because I think is a good way to get some response from the user.\n\nEsteve."
)
(set #name
	(askstring
		(prompt "Please enter your name here:")
		(help @askstring-help)
	)
)
(set #number
	(asknumber
		(prompt "Please enter your code here:")
		(help @asknumber-help)
	)
)
(textfile
	(prompt "About to create Adagis4 key file")
	(help @textfile-help)
	(dest "S:adagis.access")
	(append ("%s\n%ld\n" #name #number))
)