PROGRAM WriteXQT;

VAR OutFile : TEXT;
    Lp      : BYTE;

BEGIN
     Assign (OutFile,'VEELMAIL.XQT');
     ReWrite (OutFile);
     Write (OutFile,'C rmail');

     Write (OutFile,' test1@viasmarthost.com');
     Write (OutFile,' test2@viasmarthost.com');
     Write (OutFile,' test3@viasmarthost.com');
     Write (OutFile,' some.user@p15.wline.se');
     Write (OutFile,' test4@viasmarthost.com');
     Write (OutFile,' test5@viasmarthost.com');
     Write (OutFile,' test6@viasmarthost.com');
     Write (OutFile,' ramon@wsd.wline.se');
     Write (OutFile,' test7@viasmarthost.com');
     Write (OutFile,' test8@viasmarthost.com');
     Write (OutFile,' test9@viasmarthost.com');
     Write (OutFile,' test10@viasmarthost.com');
     Write (OutFile,' test11@viasmarthost.com');
     Write (OutFile,' test12@viasmarthost.com');
     Write (OutFile,' someverylongusername@how.long.is.an.email.address.allowed.to.be');


     WriteLn (OutFile,' szarka@brazerko.com');
     Close (OutFile);
END.
