home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sampler / 01 / counter / counter.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-09-09  |  2.8 KB  |  98 lines
  1. {
  2.                        F i l e    I n f o r m a t i o n
  3.  
  4. * DESCRIPTION
  5. Counter (version 2.0) by Rafael Del Vecchio enables its user to set up
  6. event counters that can replace their mechanical counterparts. Written
  7. in Turbo Pascal 4.0, this program provides up to 20 counters for use on
  8. your PC, with output that can be directed to the printer or a file.
  9.  
  10. * ASSOCIATED FILES
  11. COUNTER.PAS
  12. COUNTER1.PAS
  13. COUNTER2.PAS
  14. COUNTER3.PAS
  15. COUNTER.EXE
  16.  
  17. }
  18. program counter;
  19.  
  20. {compiler directives}
  21. {$R-}    {no range checking, the program has been debugged}
  22. {$I-}    {no IO checking, IO errors are handled from within COUNTER}
  23.  
  24. {
  25. Description:  COUNTER allows you to define up to 20 keys to use as
  26.               counters.  COUNTER is very useful when large numbers
  27.               of different items must be counted rapidly and accurately.
  28.               COUNTER eliminates the need to purchase expensive mechanical
  29.               counters and allows you, instead, to use your IBM.
  30.               Additionally, COUNTER allows you to output your results
  31.               to the printer or to a file; the output provides the status
  32.               of each counter key as well as information for
  33.               benchmarking.
  34.  
  35. Author:       Rafael J Del Vecchio
  36.               PO Box 1243
  37.               Davis,  CA  95617-1243
  38.               U.S.A.
  39.  
  40. Date:         8/27/1987
  41.  
  42. LastRevised:  2/15/1988 at 21:15
  43.  
  44. Application:  IBM PC or compatible with DOS 2.0 or higher.
  45.  
  46. Published in: Unpublished as of above date.  Entered in the TUG O'Wards III
  47.               programming competition on 2/16/1988 and placed in the
  48.               public domain as of that date.
  49.  
  50. Notes:        Compiled with Turbo Pascal version 4.0 (CopyRight Borland
  51.               International).
  52.  
  53.               The constants MinCount, MaxCount, and StartCount define the
  54.               minimum, maximum, and starting values, respectively, of the
  55.               counters.  These constant definitions are in the file
  56.               COUNTER1.PAS in case you want to modify them.
  57.  
  58.               If you want to modify the output format (file or printer)
  59.               you will have to modify the procedure ProcessUserInput
  60.               in COUNTER3.PAS. <F6> for output to file and <F7> for
  61.               output to the printer.
  62.  
  63.               I hope you find this program useful.  I welcome any
  64.               suggestions to make the program more useful and/or user
  65.               friendly.
  66.  
  67. }
  68.  
  69.  
  70. uses
  71.  dos,crt,printer;
  72.  
  73.  
  74.  
  75. {include types, constants, variables and forward declarations}
  76. {$I counter1.pas}
  77.  
  78.  
  79.  
  80. {include service procedures}
  81. {$I counter2.pas}
  82.  
  83.  
  84.  
  85. {include main processing procedures}
  86. {$I counter3.pas}
  87.  
  88.  
  89.  
  90. begin {program counter}
  91.  
  92.   Initialize;
  93.   Execute;
  94.   Terminate;
  95.  
  96. end. {program counter}
  97. 
  98.