home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sampler / 01 / curves / tools4.inc < prev   
Encoding:
Text File  |  1988-09-03  |  1.1 KB  |  64 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.  
  25. ==========================================================================
  26. }
  27. { TOOLS4.INC               DECEMBER 4, 1986      STEPHEN CALLENDER    }
  28. { includes   inverse, normal, flash, flash_inverse, pause            }
  29.  
  30. procedure inverse;
  31.   begin
  32.    textcolor(0);
  33.    textbackground(15)
  34. end;
  35.  
  36. procedure no_inverse;
  37. begin
  38.   textcolor(15);
  39.   textbackground(0)
  40. end;
  41.  
  42. procedure flash;
  43. begin
  44.    textcolor(15 + blink)
  45. end;
  46.  
  47. procedure flash_inverse;
  48. begin
  49.   textcolor(0 + blink);
  50.   textbackground(15)
  51. end;
  52.  
  53. procedure pause;
  54.   var choice : char;
  55.   begin
  56.   ASSIGN(INPUT,''); RESET(INPUT);
  57.   ASSIGN(OUTPUT,''); REWRITE(OUTPUT);
  58.     inverse;
  59.      writeln(OUTPUT,'|------- press any key to continue ----------|');
  60.      no_inverse;
  61.      read(INPUT,choice)
  62. end;
  63. 
  64.