Amiga ISO Collection/AmigaUtilCD2.iso/Programming/Misc/OB3.2D4.DMS/in.adf/Beispiele/Vergleich.mod

Text File | 1992-10-10 | 449 b | 26 lines

MODULE Vergleich;

IMPORT Strings, Utility, io;

VAR
  a,b: ARRAY 80 OF CHAR;
  gleich: BOOLEAN;

BEGIN
  io.WriteString("a = "); io.ReadString(a);
  io.WriteString("b = "); io.ReadString(b);
  IF Utility.base#NIL THEN
    gleich := Utility.Stricmp(a,b)=0;
  ELSE
    Strings.Upper(a); Strings.Upper(b);
    gleich := a=b;
  END;
  IF gleich THEN
    io.WriteString("a = b");
  ELSE
    io.WriteString("a # b");
  END;
  io.WriteLn;
END Vergleich.