Programmer 7500/MAX_PROGRAMMERS.iso/INFO/TURBOPAS/JDTPPROG.ZIP/DEEDLE.SRC

Text File | 1985-08-18 | 518 b | 18 lines

{->>>>Deedle<<<<-----------------------------------------------}
{ This routine makes a sound not unlike certain electronic     }
{ telephone ringers you hear in lawyers' offices.  The number  }
{ of "deedles" is given by the value passed in Deedles.        }
{--------------------------------------------------------------}

Procedure Deedle(Deedles : Integer);

Var I : Integer;

Begin
  For I := 1 to Deedles Do
    Begin
      Sound(800); Delay(50); Sound(500); Delay(50)
    End;
  NoSound
End;