World of Shareware - Software Farm 2/wosw_2.zip/wosw_2/PASCAL/MADTRB21.ZIP/BEEP.SRC

Text File | 1985-06-09 | 181b | 15 lines

PROCEDURE BEEP;

VAR I : INTEGER;

BEGIN
  FOR I := 1 TO 3 DO
    BEGIN
      SOUND(800);
      DELAY(50);
      SOUND(500);
      DELAY(50)
    END;
  NOSOUND;
END;