# dbEdit.bas

draw -1



# ask user db name to edit

top:

input "db to Edit:",e$

odb=open e$

if odb<0 then goto fnf



fields:

# ask user how many fields

input "# of fields in db:",f

if f>19 then goto tomany else goto fields2



tomany:

print "Too many fields!" 

goto fields



fields2:

for m=0 to f

s$(m)=f

next m

form fld 15,f,



fnf:

print "File not found!"

goto top



edit:

# puts db name at top of screen

draw "db: '"+e$+"'",60,2,1

form btn 40,147,60,12, "Enter",1

x = asc(input$(1))

end

    Source: geocities.com/greenchile505