# 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