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

Text File | 1992-10-10 | 242 b | 14 lines

MODULE Sunday;
IMPORT Dos, io;
VAR
  date: Dos.Date;
BEGIN
  Dos.DateStamp(date);
  IF date.days MOD 7 = 0 THEN
    io.WriteString("Heute ist Sonntag!");
  ELSE
    io.WriteString("Heute ist nicht Sonntag!");
  END;
  io.WriteLn;
END Sunday.