XProfan

Anfang Programm
Declare  i%,  länge%, Browse$
Assign #1, ADRESS.STR
Rewrite #1
Print #1, NAME;    C; 30; 0
Print #1, VORNAME; C; 30; 0
Print #1, STRASSE; C; 30; 0
Print #1, PLZ_ORT; C; 40; 0
Print #1, TELEFON; C; 20; 0
Print #1, GEBURT;  C; 20; 0
Print #1, GEHALT;  N; 10; 2
Print #1, NOTIZ;   C; 10; 0
Close #1
db(Create, ADRESS.STR, ADRESS.DBF)
Declare Anzahl%
Anzahl% = @db(Open, #1,  ADRESS.DBF)
@db(Use, #1)
@db(AppendBlank)
@db(Put, NAME, Mustermann)
@db(Put, VORNAME, Max)
@db(Put, STRASSE, Sackgasse 13)
@db(Put, PLZ_ORT, 98765 Nirgendwo)
@db(Put, TELEFON, 09876/54321)
@db(Put, GEBURT, @CToD$(23.09.1955))
@db(Put, GEHALT, 4500.50)
@db(PutRec, 0)
Anzahl% = %dbFCount
i% = 1

WhileNot i% > Anzahl%

    @db(GetField, i%)
    länge%=%dbFLen
    länge%= länge%*6.2
    @set(Decimals,0)
    Browse$=Browse$+$dbFName+;+$dbFName+;+str$(länge%)+;
    Inc i%

EndWhile

@db(Browse, 1,1,ADRESS-TABELLE,20,  Browse$ ,3)
end
Ende Programm

WINDOW 1,1-%maxx,710
SETTRUECOLOR 1
Cls RGB(230,230,200)
USEFONT Arial,12,0,0,0,0
SETDIALOGFONT 1