rem  usafile button include file

	goto usafileskip  :rem  only called from DO or GOSUB

/usafile:
	parameter usafilex,usafiley
	dim usafiletab[5,5],2
	usafiletab[1,1]=200,269,18,42,-1
	usafiletab[2,1]=201,326,18,41,-1
	usafiletab[3,1]=22,374,80,19,-1
	usafiletab[4,1]=138,374,81,19,-1
	usafiletab[5,1]=-1

	button usafileb,usafilex,usafiley,usafiletab
	if usafileb=0 then return
	pop    :rem  don't return if valid button number

	on usafileb goto Upu,Downu,Quitpart
	on usafileb-3 goto Selu
	note "usafile include file error"
	end

/usafileskip: