Foren

Declare pfad$,XAdressStr$,XAdressDBF$
pfad$=getdir$("")
XAdressStr$ = pfad$+"\XAdress2.str"
XAdressDBF$ = pfad$+"\XAdress2.dbf"

IfNot FileExists(XAdressStr$)

    assign #1,XAdressStr$
    rewrite #1
    print #1,"NAME;C;30;0"
    close #1
    db("Create",XAdressStr$,XAdressDBF$)

EndIf

db("Open",#1,XAdressDBF$)
db("Use",#1)
db("browse",100,100,"Fragen",10,"NAME;Name:;40",1)
db("Pack")
db("Close", #1)
End