home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / TSPA2560.ZIP / TSUNTC.INT < prev    next >
Encoding:
Text File  |  1991-10-27  |  1.6 KB  |  49 lines
  1. {$B-,D-,F-,I+,N-,R-,S+,V+}
  2.  
  3. (*
  4. Timo Salmi UNiT C
  5. A Turbo Pascal unit for playing
  6. All rights reserved 26-Jul-89,
  7. Updated 19-Aug-89, 12-Nov-89, 14-Jul-90
  8.  
  9. This unit may be used and distributed freely for PRIVATE, NON-COMMERCIAL,
  10. NON-INSTITUTIONAL purposes, provided it is not changed in any way. For
  11. ANY other usage, contact the author.
  12.  
  13. The units are under development. Comments and contacts are solicited. If
  14. you have any questions, please do not hesitate to use electronic mail for
  15. communication.
  16. InterNet address: ts@chyde.uwasa.fi         (preferred)
  17. Funet address:    GADO::SALMI
  18. Bitnet address:   SALMI@FINFUN
  19.  
  20. The author shall not be liable to the user for any direct, indirect or
  21. consequential loss arising from the use of, or inability to use, any unit,
  22. program or file howsoever caused. No warranty is given that the units and
  23. programs will work under all circumstances.
  24.  
  25. Timo Salmi
  26. Professor of Accounting and Business Finance
  27. School of Business Studies, University of Vaasa
  28. P.O. BOX 297, SF-65101 Vaasa, Finland
  29. *)
  30.  
  31. unit TSUNTC;
  32.  
  33. (* ======================================================================= *)
  34.                           interface
  35. (* ======================================================================= *)
  36.  
  37. uses Dos, Crt;
  38.  
  39. (* Play one note
  40.    The strings (pardon the pun) to play the notes are:
  41.    c,c#,d,d#,e,f,f#,g,g#,a,a#,b
  42.    The middle a-flat (440Hz) is in octave 4
  43. *)
  44. procedure PLAYNOTE (note : string; octave : integer; duration : integer);
  45.  
  46. (* Reverse TextColor and TextBackround, that is toggle the colors *)
  47. procedure REVCOLOR;
  48.  
  49.