LukA4e
09-11-2003, 17:38
ciao perchè questo programma non funziona con linux?? uso fpk:
Program Ciao;
usescrt;
var file1:text;
var a: string;
begin
clrscr;
assign (file1,'prova.txt');
rewrite (file1);
repeat
readln (a);
if a <> 'FINE' then writeln(file1,a);
until a = 'FINE';
close(file1);
end.
mi da errore su usescrt che uso tranquillamente con turbo pascal da dos...
Program Ciao;
usescrt;
var file1:text;
var a: string;
begin
clrscr;
assign (file1,'prova.txt');
rewrite (file1);
repeat
readln (a);
if a <> 'FINE' then writeln(file1,a);
until a = 'FINE';
close(file1);
end.
mi da errore su usescrt che uso tranquillamente con turbo pascal da dos...