home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sampler / 01 / curves / tools.inc < prev    next >
Encoding:
Text File  |  1988-09-03  |  1.1 KB  |  67 lines
  1. {
  2.                        F i l e    I n f o r m a t i o n
  3.  
  4. * DESCRIPTION
  5. Include source code file for curve.
  6.  
  7. * ASSOCIATED FILES
  8. CURVE.PAS
  9. ASSAY.TXT
  10. CURVE.COM
  11. CURVE4.EXE
  12. CURVE4.PAS
  13. PRINTOUT.INC
  14. PT.LAS
  15. README
  16. SAMPLE.INC
  17. SAMPLE2.INC
  18. SAMPLE4.INC
  19. SAMPLE4B.INC
  20. SPACER.INC
  21. TOOLS.INC
  22. TOOLS4.INC
  23.  
  24. * CHECKED BY
  25. DRM - 01/25/88
  26.  
  27. * KEYWORDS
  28. CONTEST TUG-O-WARDS PROGRAM PASCAL V3.0 V4.0
  29.  
  30. ==========================================================================
  31. }
  32. { TOOLS.INC               DECEMBER 4, 1986      STEPHEN CALLENDER    }
  33. { includes   inverse, normal, flash, flash_inverse, pause            }
  34.  
  35. procedure inverse;
  36.   begin
  37.    textcolor(0);
  38.    textbackground(15)
  39. end;
  40.  
  41. procedure no_inverse;
  42. begin
  43.   textcolor(15);
  44.   textbackground(0)
  45. end;
  46.  
  47. procedure flash;
  48. begin
  49.    textcolor(15 + blink)
  50. end;
  51.  
  52. procedure flash_inverse;
  53. begin
  54.   textcolor(0 + blink);
  55.   textbackground(15)
  56. end;
  57.  
  58. procedure pause;
  59.   var choice : char;
  60.   begin
  61.     inverse;
  62.      writeln('|------- press any key to continue ----------|');
  63.      no_inverse;
  64.      read(choice)
  65. end;
  66. 
  67.