# dbCreater.bas

draw -1

form fld 80,33,64,12, "",1

form fld 80,48,32,12, "",1

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

draw "DBOS dbCreator",35,20,1

draw "dbName:",42,35

draw "# of fields (1-19):",3,50

top:

x = asc(input$(1))

n$=s$(0)

a=val(s$(1))

if a>0 and a<20 then goto mk

print "Error. Choose 1-19 fields."

goto top

mk:

t=db.find(n$)

if t>=0 then goto top

go=open n$ as new "DBOS",a

a$=a

print "dbase '"+n$+"' created with "+a$" fields."

goto top

end

    Source: geocities.com/greenchile505