Any free DBF viewer software?

ON ERROR *
_screen.Caption = "DBF Viewer 0.01"
 
DO CreateMenu
 
ON ERROR =MESSAGEBOX(ALLTRIM(STR(ERROR())) + ' ' + MESSAGE(),0,"Error")
 
READ EVENTS
 
PROCEDURE OpenDBF
 
LOCAL lcFile
 
lcFile = GETFILE("DBF","Select DBF file", "Open")
 
IF FILE(lcFile)
  SELECT 0
  USE (lcFile) SHARED NOUPDATE ALIAS (SYS(2015)) AGAIN
  IF !EMPTY(ALIAS())
    BROWSE NOWAIT TITLE (DBF())
  ENDIF
ENDIF
 
PROCEDURE CloseDBF
 
IF !EMPTY(ALIAS())
  USE
ENDIF
 
IF AUSED(laA) > 0
  SELECT (laA(ALEN(laA)))
ELSE
  SELECT 0
ENDIF
 
PROCEDURE CreateMenu
 
SET SYSMENU TO
SET SYSMENU AUTOMATIC
 
DEFINE PAD _msm_file OF _MSYSMENU PROMPT "\<File" COLOR SCHEME 3 ;
	NEGOTIATE  LEFT, NONE ;
	KEY ALT+F, "" ;
	MESSAGE "Creates, opens, saves, prints files or quits Visual FoxPro"
DEFINE PAD _msm_edit OF _MSYSMENU PROMPT "\<Edit" COLOR SCHEME 3 ;
	NEGOTIATE  NONE, LEFT ;
	KEY ALT+E, "" ;
	MESSAGE "Edits text or current selection"
DEFINE PAD _msm_windo OF _MSYSMENU PROMPT "\<Window" COLOR SCHEME 3 ;
	NEGOTIATE  RIGHT, LEFT ;
	KEY ALT+W, "" ;
	MESSAGE "Manipulates windows, displays Command and Data Session windows"
DEFINE PAD _msm_systm OF _MSYSMENU PROMPT "\<Help" COLOR SCHEME 3 ;
	NEGOTIATE  NONE, RIGHT ;
	KEY ALT+H, "" ;
	MESSAGE "Displays Help on Visual FoxPro"
ON PAD _msm_file OF _MSYSMENU ACTIVATE POPUP _mfile
ON PAD _msm_edit OF _MSYSMENU ACTIVATE POPUP _medit
ON PAD _msm_windo OF _MSYSMENU ACTIVATE POPUP _mwindow
ON PAD _msm_systm OF _MSYSMENU ACTIVATE POPUP _msystem
 
DEFINE POPUP _mfile MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _mfile PROMPT "\<Open..." ;
	KEY CTRL+O, "Ctrl+O" ;
	PICTRES _mfi_open ;
	MESSAGE "Opens an existing file"
DEFINE BAR 2 OF _mfile PROMPT "\<Close" ;
	KEY CTRL+F4, "Ctrl+F4" ;
	PICTRES _mfi_close ;
	MESSAGE "Closes the current file"
DEFINE BAR _mfi_sp100 OF _mfile PROMPT "\-" ;
	PICTRES _mfi_sp100
DEFINE BAR 4 OF _mfile PROMPT "E\<xit" ;
	KEY ALT+F4, "Alt+F4" ;
	PICTRES _mfi_quit ;
	MESSAGE "Quits Visual FoxPro"
ON SELECTION BAR 1 OF _mfile DO openDBF
ON SELECTION BAR 2 OF _mfile DO closeDBF
ON SELECTION BAR 4 OF _mfile CLEAR EVENTS
 
DEFINE POPUP _medit MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_undo OF _medit PROMPT "\<Undo" ;
	KEY CTRL+Z, "Ctrl+Z" ;
	PICTRES _med_undo ;
	MESSAGE "Undoes the last command or action"
DEFINE BAR _med_redo OF _medit PROMPT "Re\<do" ;
	KEY CTRL+R, "Ctrl+R" ;
	PICTRES _med_redo ;
	MESSAGE "Repeats the last command or action"
DEFINE BAR _med_sp100 OF _medit PROMPT "\-" ;
	PICTRES _med_sp100
DEFINE BAR _med_cut OF _medit PROMPT "Cu\<t" ;
	KEY CTRL+X, "Ctrl+X" ;
	PICTRES _med_cut ;
	MESSAGE "Removes the selection and places it onto the Clipboard"
DEFINE BAR _med_copy OF _medit PROMPT "\<Copy" ;
	KEY CTRL+C, "Ctrl+C" ;
	PICTRES _med_copy ;
	MESSAGE "Copies the selection onto the Clipboard"
DEFINE BAR _med_paste OF _medit PROMPT "\<Paste" ;
	KEY CTRL+V, "Ctrl+V" ;
	PICTRES _med_paste ;
	MESSAGE "Pastes the contents of the Clipboard"
DEFINE BAR _med_pstlk OF _medit PROMPT "Paste \<Special..." ;
	PICTRES _med_pstlk ;
	MESSAGE "Pastes the Clipboard contents as a linked object, embedded object, or other object type"
DEFINE BAR _med_clear OF _medit PROMPT "Cle\<ar" ;
	PICTRES _med_clear ;
	MESSAGE "Removes the selection and does not place it onto the Clipboard"
DEFINE BAR _med_sp200 OF _medit PROMPT "\-" ;
	PICTRES _med_sp200
DEFINE BAR _med_slcta OF _medit PROMPT "Se\<lect All" ;
	KEY CTRL+A, "Ctrl+A" ;
	PICTRES _med_slcta ;
	MESSAGE "Selects all text or items in the current window"
DEFINE BAR _med_sp300 OF _medit PROMPT "\-" ;
	PICTRES _med_sp300
DEFINE BAR _med_find OF _medit PROMPT "\<Find..." ;
	KEY CTRL+F, "Ctrl+F" ;
	PICTRES _med_find ;
	MESSAGE "Searches for specified text"
DEFINE BAR _med_repl OF _medit PROMPT "R\<eplace..." ;
	KEY CTRL+L, "Ctrl+L" ;
	PICTRES _med_repl ;
	MESSAGE "Replaces specified text with different text"
DEFINE BAR _med_sp400 OF _medit PROMPT "\-" ;
	PICTRES _med_sp400
DEFINE BAR _med_listmembers OF _medit PROMPT "List \<Members" ;
	KEY CTRL+ENTER, "Ctrl+J" ;
	PICTRES _med_listmembers ;
	MESSAGE "List members of the selected object"
DEFINE BAR _med_quickinfo OF _medit PROMPT "\<Quick Info" ;
	KEY CTRL+I, "Ctrl+I" ;
	PICTRES _med_quickinfo ;
	MESSAGE "Quick information on the selected object"
DEFINE BAR _med_sp500 OF _medit PROMPT "\-" ;
	PICTRES _med_sp500
DEFINE BAR 18 OF _medit PROMPT "\<Bookmarks" ;
	PICTRES _mbk_togtask ;
	MESSAGE "Bookmark options"
DEFINE BAR 19 OF _medit PROMPT "\-"
DEFINE BAR _med_insob OF _medit PROMPT "\<Insert Object..." ;
	PICTRES _med_insob ;
	MESSAGE "Embeds an object in a General field type"
DEFINE BAR _med_obj OF _medit PROMPT "\<Object..." ;
	PICTRES _med_obj ;
	MESSAGE "Edits the selected object"
DEFINE BAR _med_link OF _medit PROMPT "Lin\<ks..." ;
	PICTRES _med_link ;
	MESSAGE "Opens linked files or changes links"
DEFINE BAR 23 OF _medit PROMPT "\-"
DEFINE BAR _med_pref OF _medit PROMPT "Prope\<rties..." ;
	PICTRES _med_pref ;
	MESSAGE "Set editor properties"
ON BAR 18 OF _medit ACTIVATE POPUP _med_bkmks
 
DEFINE POPUP _med_bkmks MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mbk_togtask OF _med_bkmks PROMPT "Toggle Task List \<Shortcut" ;
	KEY ALT+F2, "Alt+F2" ;
	PICTRES _mbk_togtask ;
	MESSAGE "Adds a Shortcut for current line"
DEFINE BAR _mbk_togbkmk OF _med_bkmks PROMPT "Toggle \<Bookmark" ;
	KEY SHIFT+ALT+F2, "Alt+Shift+F2" ;
	PICTRES _mbk_togbkmk ;
	MESSAGE "Toggles bookmark for current line"
DEFINE BAR _mbk_bkmknext OF _med_bkmks PROMPT "\<Next Shortcut/Bookmark" ;
	KEY F2, "F2" ;
	PICTRES _mbk_bkmknext ;
	MESSAGE "Go to the next bookmark or shortcut in the file"
DEFINE BAR _mbk_bkmkprev OF _med_bkmks PROMPT "\<Previous Shortcut/Bookmark" ;
	KEY SHIFT+F2, "Shift+F2" ;
	PICTRES _mbk_bkmkprev ;
	MESSAGE "Go to the previous bookmark or shortcut in the file"
 
DEFINE POPUP _mwindow MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mwi_cascade OF _mwindow PROMPT "Ca\<scade" ;
	PICTRES _mwi_cascade ;
	MESSAGE "Arranges windows as cascading tiles"
DEFINE BAR _mwi_arran OF _mwindow PROMPT "\<Arrange All" ;
	PICTRES _mwi_arran ;
	MESSAGE "Arranges windows as non-overlapping tiles"
DEFINE BAR _mwi_sp100 OF _mwindow PROMPT "\-" ;
	PICTRES _mwi_sp100
DEFINE BAR _mwi_dockable OF _mwindow PROMPT "Doc\<kable" ;
	PICTRES _mwi_dockable ;
	MESSAGE "Enable docking of this window"
DEFINE BAR _mwi_hide OF _mwindow PROMPT "\<Hide" ;
	PICTRES _mwi_hide ;
	MESSAGE "Hides the active window"
DEFINE BAR _mwi_hidea OF _mwindow PROMPT "Hide All" ;
	PICTRES _mwi_hidea ;
	MESSAGE "Hides all windows"
DEFINE BAR _mwi_showa OF _mwindow PROMPT "Sh\<ow All" ;
	PICTRES _mwi_showa ;
	MESSAGE "Shows all hidden windows"
DEFINE BAR _mwi_sp200 OF _mwindow PROMPT "\-" ;
	PICTRES _mwi_sp200
DEFINE BAR _mwi_clear OF _mwindow PROMPT "Clea\<r" ;
	PICTRES _mwi_clear ;
	MESSAGE "Clears text from the application workspace or the current output window"
DEFINE BAR _mwi_rotat OF _mwindow PROMPT "C\<ycle" ;
	KEY CTRL+F1, "Ctrl+F1" ;
	PICTRES _mwi_rotat ;
	MESSAGE "Cycles through all open windows"
DEFINE BAR _mwi_sp200 OF _mwindow PROMPT "\-" ;
	PICTRES _mwi_sp200
DEFINE BAR _mwi_cmd OF _mwindow PROMPT "\<Command Window" ;
	KEY CTRL+F2, "Ctrl+F2" ;
	PICTRES _mwi_cmd ;
	MESSAGE "Displays the Command window"
DEFINE BAR _mwi_view OF _mwindow PROMPT "\<Data Session" ;
	PICTRES _mwi_view ;
	MESSAGE "Displays the Data Session window"
DEFINE BAR _mwi_properties OF _mwindow PROMPT "\<Properties Window" ;
	PICTRES _mwi_properties ;
	MESSAGE "Display the Properties window"
 
DEFINE POPUP _msystem MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mst_hpsch OF _msystem PROMPT "Microsoft \<Visual FoxPro Help" ;
	KEY F1, "F1" ;
	PICTRES _mst_hpsch ;
	MESSAGE "Locates Help topics based on keywords you enter"
DEFINE BAR _mst_msdns OF _msystem PROMPT "MSDN \<Search" ;
	PICTRES _mst_msdns ;
	MESSAGE "Provides access to MSDN Search tab."
DEFINE BAR _mst_sp100 OF _msystem PROMPT "\-" ;
	PICTRES _mst_sp100
DEFINE BAR _mst_techs OF _msystem PROMPT "\<Technical Support" ;
	PICTRES _mst_techs ;
	MESSAGE "Provides information on how to obtain additional technical help"
DEFINE BAR _mst_vfpweb OF _msystem PROMPT "Visual FoxPro on the \<Web" ;
	PICTRES _mst_vfpweb ;
	MESSAGE "Launches your web browser to go to Visual FoxPro's Web sites"
DEFINE BAR _mst_sp300 OF _msystem PROMPT "\-" ;
	PICTRES _mst_sp300
DEFINE BAR _mst_about OF _msystem PROMPT "\<About Microsoft Visual FoxPro..." ;
	PICTRES _mst_about ;
	MESSAGE "Displays version and copyright information about Visual FoxPro"
 
RETURN
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240: