;  ObtainPens-InstallerScript

(if (< (/ (getversion) 65536) 39)
	(abort "\n\n\n\nSorry, but ObtainPens requires AmigaOS 3.")
)

(set destdir
	(askdir
		(prompt "ObtainPens ©1996 by ALeX Kazik\n\nWhere should the programm be placed?")
		(help @askdir-help)
		(default "C:")
	)
)

(copyfiles
	(source "ObtainPens")
	(dest destdir)
)

(startup "ObtainPens"
	(prompt "ObtainPens ©1996 by ALeX Kazik\n\n\n\nNow, ObtainPens will be added to your User-Startup.")
	(help @startup-help)
	(command ("run <NIL: >NIL: %s\nWait 1\n;  If  this  second is too  long for You,  move this\n;  statement up, and read the readme, why You should\n;  make this.            ObtainPens ©1996 ALeX Kazik" (expandpath (tackon destdir "ObtainPens"))))
)

(exit "ObtainPens ©1996 by ALeX Kazik\n\n\nObtainPens is CARD/MAILWARE.\n\nSend me a postcard or a E-Mail.\n\n\nALeX Kazik\nStapenhorststr. 81\n33615 Bielefeld\nGermany\n\nakazik@TechFak.Uni-Bielefeld.DE" (quiet))