home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
PASCAL
/
TSPA2560.ZIP
/
TSUNTC.INT
< prev
next >
Wrap
Text File
|
1991-10-27
|
2KB
|
49 lines
{$B-,D-,F-,I+,N-,R-,S+,V+}
(*
Timo Salmi UNiT C
A Turbo Pascal unit for playing
All rights reserved 26-Jul-89,
Updated 19-Aug-89, 12-Nov-89, 14-Jul-90
This unit may be used and distributed freely for PRIVATE, NON-COMMERCIAL,
NON-INSTITUTIONAL purposes, provided it is not changed in any way. For
ANY other usage, contact the author.
The units are under development. Comments and contacts are solicited. If
you have any questions, please do not hesitate to use electronic mail for
communication.
InterNet address: ts@chyde.uwasa.fi (preferred)
Funet address: GADO::SALMI
Bitnet address: SALMI@FINFUN
The author shall not be liable to the user for any direct, indirect or
consequential loss arising from the use of, or inability to use, any unit,
program or file howsoever caused. No warranty is given that the units and
programs will work under all circumstances.
Timo Salmi
Professor of Accounting and Business Finance
School of Business Studies, University of Vaasa
P.O. BOX 297, SF-65101 Vaasa, Finland
*)
unit TSUNTC;
(* ======================================================================= *)
interface
(* ======================================================================= *)
uses Dos, Crt;
(* Play one note
The strings (pardon the pun) to play the notes are:
c,c#,d,d#,e,f,f#,g,g#,a,a#,b
The middle a-flat (440Hz) is in octave 4
*)
procedure PLAYNOTE (note : string; octave : integer; duration : integer);
(* Reverse TextColor and TextBackround, that is toggle the colors *)
procedure REVCOLOR;