------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno <aldomel@ix.netcom.com> 2000
-- Version Control
--- $Revision: 1.2 $
+-- $Revision: 1.5 $
+-- $Date: 2004/08/21 21:37:00 $
-- Binding Version 01.00
------------------------------------------------------------------------------
-- TODO use Default_Character where appropriate
default_colors := True;
when 'e' =>
myio.Get (optarg.all, tmpi, length);
- if Integer (tmpi) > 3 then
+ if tmpi > 3 then
usage;
return 1;
end if;