PROGRAM RConvertV2_34;

{$ incl "asl.lib"}
TYPE string200=STRING[200];
    

VAR f,f2:TEXT;
    name1,name2,pfad1,pfad2:STRING200;
    c:CHAR;
    s,s2,s3:STRing200;
    l,i1,i2:INTEGER;
    ende:BOOLEAN;

PROCEDURE decode_it;
 {                       =B-)                               }

 BEGIN
  IF length(s)<4 THEN  { Sachen gibts die glaubt man kaum !}
   BEGIN
    s2:='';
    exit;
   END;
  l:=3;
  ende:=FALSE;
  REPEAT
   BEGIN
    inc(l); {l:=l+1;}
    VAL(s[l],i1,i2);
    IF i2<>0 THEN ende:=TRUE;
   END;
  UNTIL ende OR (l=Length(s));
  ende:=FALSE;
  i1:=l;
  WHILE (i1<=length(s)) AND (NOT ende) DO    {Leerzeichen überlesen}
   BEGIN
    IF s[i1]<>' ' THEN ende:=TRUE
                  ELSE inc(i1);
   END;
   s2:=copy(s,i1,length(s)+1-i1);
   s[l]:=chr(0);
 END;
 
 { alles kapiert ?  =B-)    }

FUNCTION AslFileReq(tit:STRING; VAR Filename,Dirname:String200) : BOOLEAN;
VAR
  Req : p_Filerequester;
  t   : ARRAY[0..7] OF TagItem;
  bool: BOOLEAN;
  Dir1: String200;
  
  { von björn geklaut ;) danke }
BEGIN
  IF Dirname = "" THEN Dirname := ":";
  t[0].ti_Tag := ASL_Hail;
  t[0].ti_Data := tit;
  t[1].ti_Tag := ASL_File;
  t[1].ti_Data := ^Filename;
  t[2].ti_Tag := ASL_Dir;
  t[2].ti_Data := ^Dirname;
  t[3] := TagItem(ASL_Width,350);
  t[4] := TagItem(ASL_Height,200);
  t[5] := TagItem(ASL_TopEdge,0);
  t[6].ti_Tag := TAG_DONE;
  Req := AllocAslRequest(ASL_Filerequest, ^t);
  IF Req <> NIL THEN
  BEGIN
    IF AslRequest(Req,^t) THEN
    BEGIN
       AslFileReq := TRUE;
       Filename:=req^.rf_File;
       Dirname:=req^.rf_Dir;
       IF (Dirname[length(dirname)]<>':') AND (Dirname[length(dirname)]<>'/')
        THEN Dirname:=Dirname+'/';
    END ELSE AslFileReq := FALSE;
    FreeAslRequest(Req);
  END; {ELSE fehler !}
END;


BEGIN
 OpenLib(ASLBase,"asl.library",37);
 pfad1:='dh0:';
 pfad2:=pfad1;
 name1:='';
 name2:=name1;
 IF NOT aslfilereq('Alte Rogerdat V2.xx Datei',name1,pfad1) THEN exit;
 IF NOT aslfilereq('AddiPro-Datei  Speichern',name2,pfad2) THEN exit;
 s:=pfad1+name1;
 reset(f,s);
 s:=pfad2+name2;
 rewrite(f2,s);
 buffer(f,2000);   { zum beschleunigen !}
 buffer(f2,2000);
 read(f,s);
 read(f,s);
 read(f,s);
 read(f,s);
 s:='';
 writeln(f2,'AddiPro-Datei');
 WHILE NOT eof(f) DO
 BEGIN
  read(f,s3);      { Bemerkung überlesen und merken   }
  read(f,s2);      { Vorname lesen                    }
  read(f,s);       { Name lesen                       }
  writeln(f2,s);   { Name schreiben                   }
  writeln(f2,s2);  { Vorname schreiben                }
  read(f,s);       { Straße lesen und schreiben       }
  writeln(f2,s);
  read(f,s);       { PLZ+Ort lesen,decodieren         }
  decode_it;
  writeln(f2,s);   { PLZ                              }
  writeln(f2,s2);
  read(f,s);       { Telefonlesen und schreiben       }
  writeln(f2,s);
  writeln(f2);     { fax gabs bei Rogerdat nicht      }
  read(f,s);       { Geburtsdatum lesen und schreiben }
  writeln(f2,s);
  writeln(f2);     { Email1 }
  writeln(f2);     { Email2 }
  writeln(f2,s3);  { Bemerkung schreiben              }
  writeln(f2,'1'); { anrede }
  writeln(f2);     { anredestring} 
  read(f,s);       { Selektionsmenge1 lesen           }
  write(f2,s);
  read(f,s);       { Selektionsmenge2 lesen           }
  IF (s='2') THEN write(f2,'1') ELSE writeln(f2,'0');
  read(f,s);       { Selektionsmenge3 lesen           }
  IF (s='3') THEN write(f2,'1') ELSE writeln(f2,'0');
  FOR i1:=1 TO 7 DO write(f2,'0');
  writeln(f2);
 END;
 close(f);
 close(f2);
END.