BEGIN LeftB, MidB, RightB, LeftM, RightM, UpM, DownM, 50, 50
CHORDS lmcd, lrcd, mrcd, menu1

LeftB:	TYPE ENTER
MidB:	TYPE 0, 72
RightB:	TYPE ESC

LeftM:	TYPE 0, 75
RightM:	TYPE 0, 77
UpM:	TYPE 0, 72
DownM:	TYPE 0, 80

lmcd:	TYPE 0, 73
lrcd:	TYPE 0, 80
mrcd:   TYPE 0, 81


	menu1:	MENU "dBase III PLUS Commands", 1, 1, INVERSE
		OPTION " Set-up   ", set
		OPTION " Create   ", cre
		OPTION " Update   ", upd
		OPTION " Position ", pos
		OPTION " Retrieve ", ret
		OPTION " Organize ", org
		OPTION " Modify   ", mod
		OPTION " Tools    ", too
		MEND

	set:	MENU " Set-up Menu ", 1, 55, INVERSE
		OPTION " Database File       ", sdat
		OPTION " Format for Screen   ", sfor
		OPTION " Query               ", sque
		OPTION " Catalog             ", scat
		OPTION " View                ", svie
		OPTION " Quit dBase III PLUS ", squi
		MEND

	cre:	MENU " Create Menu ", 1, 60, INVERSE
		OPTION " Database file ", cdat
		OPTION " Format        ", cfor
		OPTION " View          ", cvie
		OPTION " Query         ", cque
		OPTION " Report        ", crep
		OPTION " Label         ", clab
		MEND

	upd:	MENU " Update Menu ", 1, 60, INVERSE
		OPTION " Append  ", uapp
		OPTION " Edit    ", uedi
		OPTION " Display ", udis
		OPTION " Browse  ", ubro
		OPTION " Replace ", urep
		OPTION " Delete  ", udel
		OPTION " Recall  ", urec
		OPTION " Pack    ", upac
		MEND

	pos:	MENU " Position Menu ", 1, 60, INVERSE
		OPTION " Seek        ", psee
		OPTION " Locate      ", ploc
		OPTION " Continue    ", pcon
		OPTION " Skip        ", pski
		OPTION " Goto Record ", pgot
		MEND

	ret:	MENU " Retrieve Menu ", 1, 60, INVERSE
		OPTION " List    ", rlis
		OPTION " Display ", rdis
		OPTION " Report  ", rrep
		OPTION " Label   ", rlab
		OPTION " Sum     ", rsum
		OPTION " Average ", rave
		OPTION " Count   ", rcou
		MEND

	org:	MENU " Organize Menu ", 1, 60, INVERSE
		OPTION " Index          ", oind
		OPTION " Sort           ", osor
		OPTION " Copy           ", ocop
		OPTION " Copy Structure ", ocst
		MEND

	mod:	MENU " Modify Menu ", 1, 60, INVERSE
		OPTION " Database File ", mdat
		OPTION " Format        ", mfor
		OPTION " View          ", mvie
		OPTION " Query         ", mque
		OPTION " Report        ", mrep
		OPTION " Label         ", mlab
		OPTION " Command File  ", mcom	
		MEND

	too:	MENU " Tools Menu ", 1, 60, INVERSE
		OPTION " Set Drive      ", tset
		OPTION " Copy file      ", tcop
		OPTION " Directory      ", tdir
		OPTION " Rename         ", tren
		OPTION " Erase          ", tera
		OPTION " List Structure ", tlis
		OPTION " Import         ", timp
		OPTION " Export         ", texp
		MEND

	sdat:	TYPE "use ",
	sfor:	TYPE "set format to ",
	sque:	TYPE "set query to ",
	scat:	TYPE "set catalog to ",
	svie:	TYPE "set view to ",
	squi:	TYPE "quit", ENTER
	cdat:	TYPE "create ",
	cfor:	TYPE "create format ",
	cvie:	TYPE "create view ",
	cque:	TYPE "create query ",
	crep:	TYPE "create report ",
	clab:	TYPE "create label ",
	uapp:	TYPE "append", ENTER
	uedi:	TYPE "edit", ENTER
	udis:	TYPE "display", ENTER
	ubro:	TYPE "browse", ENTER
	urep:	TYPE "replace ",
	udel:	TYPE "delete ",
	urec:	TYPE "recall", ENTER
	upac:	TYPE "pack", ENTER
	psee:	TYPE "seek ",
	ploc:	TYPE "locate for ",
	pcon:	TYPE "continue", ENTER
	pski:	TYPE "skip ",
	rlis:	TYPE "list ",
	rdis:	TYPE "display ",
	rrep:	TYPE "report form ",
	rlab:	TYPE "label form ",
	rsum:	TYPE "sum ",
	rave:	TYPE "average ",
	rcou:	TYPE "count ",
	oind:	TYPE "index on ",
	osor:	TYPE "sort to ",
	ocop:	TYPE "copy ",
	ocst:	TYPE "copy structure to ",
	mdat:	TYPE "modify structure",
	mfor:	TYPE "modify screen ",
	mvie:	TYPE "modify view ",
	mque:	TYPE "modify query ",
	mrep:	TYPE "modify report ",
	mlab:	TYPE "modify label ",
	mcom:	TYPE "modify command ",
	tset:	TYPE "set default to ",
	tcop:	TYPE "copy file ",
	tren:	TYPE "rename ",
	tera:	TYPE "erase file ",
	tlis:	TYPE "list structure", ENTER
	timp:	TYPE "import ",
	texp:	TYPE "esport ",

	pgot:	MENU " GO TO ", 10, 35, INVERSE
		OPTION " Top    ", gtop
		OPTION " Bottom ", gbot
		OPTION " Record ", grec
		MEND

	tdir:	MENU " DIRECTORY ", 10, 30, INVERSE
		OPTION " *.DBF ", ddbf
		OPTION " *.NDX ", dndx
		OPTION " *.FMT ", dfmt
		OPTION " *.LBL ", dlbl
		OPTION " *.FRM ", dfrm
		OPTION " *.VUE ", dvue
		OPTION " *.CAT ", dcat
		OPTION " *.*   ", dall
		MEND

	gtop:	TYPE "go top", ENTER
	gbot:	TYPE "go bottom", ENTER
	grec:	TYPE "go record ",
	ddbf:	TYPE "dir *.dbf", ENTER
	dndx:	TYPE "dir *.ndx", ENTER
	dfmt:	TYPE "dir *.fmt", ENTER
	dlbl:	TYPE "dir *.lbl", ENTER
	dfrm:	TYPE "dir *.frm", ENTER
	dvue:	TYPE "dir *.vue", ENTER
	dcat:	TYPE "dir *.cat", ENTER
	dall:	TYPE "dir *.*", ENTER
