XProfan

Anfang Programm
Declare  i%,  länge%, Browse$
WINDOW 1,1-%maxx,%MaxY-40
SETTRUECOLOR 1
Cls RGB(230,230,200)
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
Print #1, NAMEA;    C; 30; 0
Print #1, VORNAMEA; C; 30; 0
Print #1, STRASSEA; C; 30; 0
Print #1, PLZ_ORTA; C; 40; 0
Print #1, TELEFONA; C; 20; 0
Print #1, GEBURTA;  C; 20; 0
Print #1, GEHALTA;  N; 10; 2
Print #1, NOTIZA;   C; 10; 0
Print #1, NAMEB;    C; 30; 0
Print #1, VORNAMEB; C; 30; 0
Print #1, STRASSEB; C; 30; 0
Print #1, PLZ_ORTB; C; 40; 0
Print #1, TELEFONB; C; 20; 0
Print #1, GEBURTB;  C; 20; 0
Print #1, GEHALTB;  N; 10; 2
Print #1, NOTIZB;   C; 10; 0
Print #1, NAMEC;    C; 30; 0
Print #1, VORNAMEC; C; 30; 0
Print #1, STRASSEC; C; 30; 0
Print #1, PLZ_ORTC; C; 40; 0
Print #1, TELEFONC; C; 20; 0
Print #1, GEBURTC;  C; 20; 0
Print #1, GEHALC;  N; 10; 2
Print #1, NOTIZC;   C; 10; 0
Print #1, NAMED;    C; 30; 0
Print #1, VORNAMED; C; 30; 0
Print #1, STRASSED; C; 30; 0
Print #1, PLZ_ORTD; C; 40; 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

USEFONT Arial,15,0,1,0,0
SETDIALOGFONT 1
@db(edit, 500,15,Satz editieren,  Browse$ ,1)
SETDIALOGFONT 0
UseFont ARIAL, 20, 0, 1, 0, 0
waitinput
end
Ende