zubenalt #5931(2008/03/04 12:04 GMT) [ Other ] Rating0/0=0.00
1 2 3 4 5 6 7 8 9 10 11
with Ada.Text_Io; procedure Exclude is Line:String:=Ada.Text_Io.Get_Line; begin if Line(Line'First)/='#' then Ada.Text_Io.Put_Line(Line); end if; Exclude; exception when Ada.Text_Io.End_Error=>return; end Exclude;
Rating0/0=0.00-0+
[ reply ]
zubenalt #5931() [ Other ] Rating0/0=0.00
with Ada.Text_Io; procedure Exclude is Line:String:=Ada.Text_Io.Get_Line; begin if Line(Line'First)/='#' then Ada.Text_Io.Put_Line(Line); end if; Exclude; exception when Ada.Text_Io.End_Error=>return; end Exclude;Rating0/0=0.00-0+
[ reply ]