🚀 go-pugleaf

Dnia Sun, 3 Feb 2008 23:34:46 +0100, jakże pięknego
"Andrzej" <series@na-box43.pl> wystukał co zawarte poniżej:

: Witam grupowiczów
: 
: Mam zonka :(
:   Program przed ka¿d± linijk± tekstu (ze zwyk³ego pliku txt) ma wstawiæ !

#v+
var
    f1, f2:     Text;
    c:          Char;
   
  
begin
    assign(f1, 'dupa');
    assign(f2, 'dupa2');
    
    reset(f1);
    rewrite(f2);
    
    write(f2, #33);
    
    while not(eof(f1)) do
    begin
        read(f1, c);
        
        if not(c in [pred(#11)]) then
            write(f2, c);
        
        if (eoln(f1)) then
            write(f2, succ(#9)+#33);
    end;
    
    close(f1);
    close(f2);
end.
#v-

Podziękuj przynajmiej.

-- 
Home: admin.idns.pl (admin.thief.pl)
Linux registered user: 408584
Contact: GG#44450, solaris#idns.pl
19:16:28 -!- Platyna Erroneous Nickname