Best of German Only 1/romside_best_of_german_only_1.iso/anwender/zephyr/zephyr4s.2/BEISPIEL.EXE/lha/BUERGE.FMT

Text File | 1991-09-21 | 3KB | 94 lines

@ 0,12 SAY "---  B ü r g e   ---  von Kunden Nr.  " GET KUNR VALID .NOT. EMPTY(KUNR) ERROR "Fehler: KUNDENNR darf nicht leer sein."
@ 1,1 SAY "Nachname" GET NACHNAME VALID .NOT. EMPTY(NACHNAME) ERROR "Fehler: NACHNAME Feld ist leer."
@ 1,39 SAY "Vorname" GET VORNAME
@ 3,2 SAY "Plz" GET PLZ
@ 3,17 SAY "Ort" GET ORT
@ 5,2 SAY "Strasse" GET STRASSE
@ 5,38 SAY "Tel" GET TEL
@ 7,2 SAY "geb_dat" GET GEB_DAT
@ 7,22 SAY "Land" GET LAND PICTURE "@M deutsch,türk,ital,franz,port" MESSAGE "Drücke  < LEER-TASTE >  für Auswahl."
@ 7,36 SAY "Wohn_seit" GET WOHN_SEIT
@ 3,56 SAY "Fam.stand" GET FAM_STAND PICTURE "@M ledig,verh.,gesch.,getr.,verw.," MESSAGE "Drücke  < LEER-TASTE > für Auswahl."
@ 4,61 SAY "seit" GET SEIT
@ 7,59 SAY "Kinder" GET KINDER
@ 8,60 SAY "alter" GET ALTER
@ 11,58 SAY "Wehr von" GET WEHR_VON
@ 12,58 SAY "Wehr bis" GET WEHR_BIS
@ 9,1 SAY "Wohn vor 24" GET WOHN_VOR24
@ 11,8 SAY "Beruf" GET BERUF
@ 13,2 SAY "Arbeitgeber" GET ARB_GEBER
@ 13,44 SAY "seit" GET FA1_SEIT
@ 15,2 SAY "Plz" GET FA1_PLZ
@ 15,18 SAY "Ort" GET FA1_ORT_
@ 15,44 SAY "Strasse" GET FA1_STR
@ 17,2 SAY "Arb.vor 24" GET FA2_V_24
@ 17,44 SAY "seit" GET FA2_SEIT
@ 17,60 SAY "bis" GET FA2_BIS
@ 19,2 SAY "Plz" GET FA2_PLZ
@ 19,18 SAY "Ort" GET FA2_ORT
@ 19,44 SAY "Strasse" GET FA2_STR
READ
@ 1,3 SAY "Anrede"
@ 1,10 GET ANREDE PICTURE "@M Herrn,Frau,Fräulein,Firma" MESSAGE "Drücke  < LEER-TASTE >  für Auswahl."
@ 2,1 SAY "im Brief"
@ 2,10 GET BR_ANREDE PICTURE "@M r Herr, Frau,s Fräulein, Damen und Herren" MESSAGE "Drücke  < LEER-TASTE > für Auswahl."
@ 3,10  GET NACHNAME
@ 4,10 GET VORNAME
@ 4,36 SAY "Lohn Gehalt" GET LOHN
@ 5,36 SAY "Sonst.Rente" GET SONST_RENT
@ 7,39 SAY "Mietfrei" GET MIET_FREI
@ 1,63 SAY "Miete" GET MIETE
@ 2,59 SAY "Sonst.aus" GET SONST_AUS
@ 3,58 SAY "Haus Ausg." GET HAUS_AUS
@ 5,55 SAY "Wert Haus Hof" GET WERTE_H_H
@ 7,59 SAY "Belastung" GET BELASTUNG
@ 5,2 SAY "KFZ Marke" GET KFZ_FABK
@ 6,6 SAY "Typ  " GET TYP
@ 7,4 SAY "Baujahr" GET BAUJAHR
@ 9,2 SAY "Bank" GET BANK
@ 9,27 SAY "seit" GET BANK_SEIT
@ 10,2 SAY "Kto.Nr." GET KONTO_NR
@ 10,26 SAY "BLZ" GET BLZ
@ 11,4 SAY "Spar-Förderung"
@ 12,3 GET BGN1
@ 11,25 SAY "Summe"
@ 12,24 GET BGS1
@ 11,34 SAY "Beginn"
@ 12,33 GET BGB1
@ 11,44 SAY "Ende"
@ 12,42 GET BGE1
@ 13,4 SAY "Lebensversicherung"
@ 13,52 SAY "Rate"
@ 14,3 GET LVN1
@ 14,24 GET LVS1
@ 14,33 GET LVB1
@ 14,42 GET LVE1
@ 14,51 GET LVR1
@ 15,3 GET LVN2
@ 15,24 GET LVS2
@ 15,33 GET LVB2
@ 15,42 GET LVE2
@ 15,51 GET LVR2
@ 16,4 SAY "Raten Kredit bei"
@ 17,3 GET RKN1
@ 17,24 GET RKS1
@ 17,33 GET RKB1
@ 17,42 GET RKE1
@ 17,51 GET RKR1
@ 16,59 SAY "Rest"
@ 17,58 GET RKREST1
@ 18,3 GET RKN2
@ 18,24 GET RKS2
@ 18,33 GET RKB2
@ 18,42 GET RKE2
@ 18,51 GET RKR2
@ 18,58 GET RKREST2
@ 19,3 GET RKN3
@ 19,24 GET RKS3
@ 19,33 GET RKB3
@ 19,42 GET RKE3
@ 19,51 GET RKR3
@ 19,58 GET RKREST3
@ 11,68 SAY "Memo" GET MEMO
@ 18,67 SAY "Stop" GET STOP VALID .NOT. EMPTY(STOP) ERROR "Stopfeld: Eingabe ist Pflicht."