home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progpas / tspas18.arj / TSUNTC.INT < prev    next >
Text File  |  1990-02-24  |  2KB  |  62 lines
  1. {$B-,D-,F-,I+,N-,R-,S+,V+}
  2.  
  3. (*
  4. Timo Salmi UNiT C
  5. A Turbo Pascal 5.0 unit for playing and printer status
  6. All rights reserved 26-Jul-89,
  7. Updated 19-Aug-89, 12-Nov-89
  8.  
  9. Routines that were here prior the tspas13 update have been transferred to
  10. TSUNTE.TPU
  11.  
  12. This unit may be used and distributed freely for PRIVATE, NON-COMMERCIAL,
  13. NON-INSTITUTIONAL purposes, provided it is not changed in any way. For
  14. ANY other usage, contact the author.
  15.  
  16. The units are under development. Comments and contacts are solicited. If
  17. you have any questions, please do not hesitate to use electronic mail for
  18. communication.
  19. InterNet address: ts@chyde.uwasa.fi         (preferred)
  20. Funet address:    GADO::SALMI
  21. Bitnet address:   SALMI@FINFUN
  22. FidoNet address:  2:515/1 (Micro Maniacs Opus, To: Timo Salmi)
  23.  
  24. The author shall not be liable to the user for any direct, indirect or
  25. consequential loss arising from the use of, or inability to use, any unit,
  26. program or file howsoever caused. No warranty is given that the units and
  27. programs will work under all circumstances.
  28.  
  29. Timo Salmi
  30. Professor of Accounting and Business Finance
  31. School of Business Studies, University of Vaasa
  32. P.O. BOX 297, SF-65101 Vaasa, Finland
  33. *)
  34.  
  35. unit TSUNTC;
  36.  
  37. (* ======================================================================= *)
  38.                           interface
  39. (* ======================================================================= *)
  40.  
  41. uses Dos, Crt;
  42.  
  43. (* Play one note
  44.    The strings (pardon the pun) to play the notes are:
  45.    c,c#,d,d#,e,f,f#,g,g#,a,a#,b
  46.    The middle a-flat (440Hz) is in octave 4
  47. *)
  48. procedure PLAYNOTE (note : string; octave : integer; duration : integer);
  49.  
  50. (* Is the parallel printer online. This works for the printers I have, but
  51.    there are differences in computer-printer configurations which may
  52.    affect this function *)
  53. function PRTONLFN : boolean;
  54.  
  55. (* Reverse TextColor and TextBackround, that is toggle the colors *)
  56. procedure REVCOLOR;
  57.  
  58. (* Number of disk devices. Only for MsDos 3.+
  59.    Actually this one is in a wrong unit since it need no Crt unit *)
  60. function DSKCNTFN : byte;
  61.  
  62.