;Install script for Adagis v4.0
;© 1996 Stv
;
;Creates the default 'key' number.
;
(set @default-dest 'S:')
(message "A partir de ahora, Adagis es 'CardWare' o 'eMailWare'. Esto significa que debes mandarme un/a postal/email con tu nombre. Entonces yo te enviaré tu código personal. Sin este código, el programa funciona perfectamente. Sólo en alguna ocasión aparecerá un mensage de 'registrate!'.\n\n"
		"He decidido hacer esto porque creo que es una buena manera de obtener respuesta del usuario.\n\nEsteve."
)
(set #name
	(askstring
		(prompt "Entra tu nombre:")
		(help @askstring-help)
	)
)
(set #number
	(asknumber
		(prompt "Entra tu código:")
		(help @asknumber-help)
	)
)
(textfile
	(prompt "Creando el fichero de 'registro'")
	(help @textfile-help)
	(dest "S:adagis.access")
	(append ("%s\n%ld\n" #name #number))
)