Autor: Dr. J.-P. Martinez, Tel.:040-4911016 Mansteinstr. 56 2000 Hamburg 20 (C) by Martinez/83/84/85/86/87/88/89 --------------------------------------------------------------------- Für Hinweise auf bestehende Fehler oder Änderungswünsche bin ich sehr dankbar. -Danke, Ihr Software-Partner- < Übergabedateibeschreibung ) Adressen : $(01)$ Anrede $(02)$ Name $(03)$ Name 2 $(04)$ Strasse $(05)$ Plz & Ort $(AN)$ Anrede wird automatisch erstellt. < Datum $(DA)$ 01.01.83 $(DB)$ 01.01.1983 $(DC)$ 01. Januar 83 $(DD)$ 01. Januar 1983 < Dialog}bergabe 10 DIM PYA$(30),TE$(648),FU(648),FU$(648) 20 COMMON PYA$(),TE$(),FU(),FU$(),LMAX,MAX,S,S1,RR,LR,BZ,TZ 30 FOR I=1 TO 20 40 TE$(I)=SPACE$(80):FU(I)=0 50 NEXT I 60 MID$(TE$(10),10)=FELD(01)-->ZUWEISUNG 70 MID$(TE$(11),10)=FELD(02)-->ZUWEISUNG 80 MID$(TE$(12),10)=FELD(03)-->ZUWEISUNG 90 MID$(TE$(13),10)=FELD(04)-->ZUWEISUNG 100 MID$(TE$(15),10)=FELD(05)-->ZUWEISUNG 110 LR=10:RR=70:S=LR:S1=LR:TZ=18:BZ=10:LMAX=648:MAX=20:CHAIN "A:PROG02" <>