Category : Printer Utilities
Archive   : DOCPRINT.ZIP
Filename : THINGS.PAS

UNIT Things;

{ Utility Unit Joseph Lloyd 4/20/90 }

INTERFACE

USES Crt;

TYPE TypeScreenString = String[80];

FUNCTION StringOf ( ASCIIValue,
Times : Byte ) : TypeScreenString;

PROCEDURE WriteXY ( X,
Y : Integer;
Line : String);

PROCEDURE WritelnXY ( X,
Y : Integer;
Line : String);

PROCEDURE Music ( Times,
Top,
Bottom : Integer);

PROCEDURE Beep ( Note : Integer );

IMPLEMENTATION

(***************************************************************************)

FUNCTION StringOf ( ASCIIValue,
Times : Byte ) : TypeScreenString;

VAR Counter : Byte;
TempString : TypeScreenString;

BEGIN
TempString := '';
FOR Counter := 1 TO Times DO
TempString := TempString + Chr(ASCIIValue);
StringOf := TempString;
END;

PROCEDURE WriteXY ( X,
Y : Integer;
Line : String);

BEGIN
GotoXY ( X, Y );
Write ( Output, Line);
END;

PROCEDURE WritelnXY ( X,
Y : Integer;
Line : String);

BEGIN
GotoXY ( X, Y );
Writeln ( Output, Line);
END;

PROCEDURE Music ( Times,
Top,
Bottom : Integer);

VAR Tone,
Amount : Integer;

BEGIN
FOR Amount := 1 TO Times DO
BEGIN
FOR Tone := Top DOWNTO Bottom DO
Sound ( Tone );
FOR Tone := Top TO Bottom DO
Sound ( Tone );
Nosound;
END;
END;

PROCEDURE Beep ( Note : Integer );

BEGIN
Sound ( Note );
Delay ( 75 );
NoSound;
END;

BEGIN
END.