NAME:"
@ CNTR + 9,15 SAY FNAME
@ CNTR + 14,4 SAY "|==============================|"
@ CNTR + 15,4 SAY "| FLD |   NAME   |TYP|WIDTH|DEC|"
@ CNTR + 16,4 SAY "|==============================|"
@ CNTR + 17,4 SAY "|     |          |   |     |   |"
STORE 20 TO CNTR
STORE 1 TO FLD
DO WHILE .NOT. EOF
	STORE STR(FLD,3) TO FLDS
	STORE STR(FIELD:LEN,3) TO LEN
	STORE STR(FIELD:DEC,3) TO DEC
	@ CNTR,4 SAY "| " + FLDS + " |" + FIELD:NAME + "| " + FIELD:TYPE + " | " + LEN + " |" + DEC + "|"
	STORE FLD + 1 TO FLD
	SKIP
	IF EOF
		@ CNTR+1,4 SAY "|     |          |   |     |   |"
	ELSE
		@ CNTR+1,4 SAY "|-----|----------|---|-----|---|"
		STORE CNTR + 2 TO CNTR
	ENDIF
ENDDO
@ CNTR + 2,4 SAY "|==============================|"
**********    Next command switches Okidata printer back to normal print
@ CNTR + 3,0 SAY CHR(30)
EJECT
SET FORMAT TO SCREEN
RETURN
ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее                       dBASE Form Command
                     Computer Systems Design
                         (408) 370-0123


The dBASE FORM command will print the field name, type, width
and dec information about a dBASE file.  This neatly printed
matrix may be used for documentation purposes.

The command uses the expanded print feature of the Okidata
printer.  Two documented lines in the command file should
be modified for your printer's expanded print feature
or removed if your printer do