{- TOOLS.INC ------------------------------------------------------------
|
|
|------------------------------------------------------------------------}
FUNCTION AtoL (Asc : String): Longint;
VAR
   I                          : Integer;
   Value                      : Longint;
   Num                        : String;

BEGIN
  Num := '';
  FOR I:= 1 TO Length(Asc) DO
     IF (Asc[I] >= '0') AND (Asc[I] <= '9') THEN
        Num := Num + Asc[I];

  IF Length(Num) = 0 THEN
     Value := 0
  ELSE
     Val(Num, Value, I);

  AtoL := Value;
END;

FUNCTION AtoI (Asc : String): Integer;
BEGIN
   AtoI := Integer(AtoL(Asc));
END;

FUNCTION AtoW (Asc : String): Word;
BEGIN
   AtoW := Word(AtoL(Asc) AND $FFFF);
END;