	include	gemmacro.s
start:
	form_alert	#1,#erroralerta
	form_alert	#1,#erroralertb
	form_alert	#1,#delwarn
	form_alert	#1,#noportalert
	form_alert	#1,#createerror
	form_alert	#1,#writeerror
	form_alert	#1,#nospacealert

	clr.w	-(sp)
	trap	#1





erroralerta:
	dc.b	'[3][Could not find the .RSC file.|'
	dc.b	'Make sure both :|'
	dc.b	'PFMSTHI.RSC and PFMSTMED.RSC|'
	dc.b	'are in the same directory as|'
	dc.b	'this accessory.][SORRY]',0
	even
erroralertb:
	dc.b	'[3][Could not find the .RSC file.|'
	dc.b	'Make sure both :|'
	dc.b	'PFMSTHI.RSC and PFMSTMED.RSC|'
	dc.b	'are in the same directory as|'
	dc.b	'this program.][SORRY]',0
	even
delwarn:
	dc.b	'[3][DELETE FILES will delete|'
	dc.b	'all the files that are|'
	dc.b	'currently selected.| Are you sure?]'
	dc.b	'[YES|NO]',0
	even
noportalert:
	dc.b	'[3][Portfolio is not responding.|'
	dc.b	'Check that the cable is|'
	dc.b	'connected correctly and that|'
	dc.b	'you have run GOPLUS on the|'
	dc.b	'Portfolio.][Retry|Quit]',0
	even
createerror:
	dc.b	'[3][An error has occured while|'
	dc.b	'trying to create a|'
	dc.b	'file on disk. Ensure the|'
	dc.b	'disk is not write-protected]'
	dc.b	'[Cancel|Retry]',0
writeerror:
	dc.b	'[3][An error has occured while|'
	dc.b	'trying to write to the disk.]'
	dc.b	'[Cancel|Retry]',0
nospacealert:
	dc.b	'[3][There is not enough space|'
	dc.b	'on the disk to accommodate|'
	dc.b	'this file.|'
	dc.b	'Try changing to another disk.][OK]',0
	even

	include	aeslib.s
	include	vdilib.s
