home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sampler / 01 / counter / counter1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-09-09  |  1.7 KB  |  93 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 COUNTER.PAS.
  6.  
  7. * ASSOCIATED FILES
  8. COUNTER.PAS
  9. COUNTER1.PAS
  10. COUNTER2.PAS
  11. COUNTER3.PAS
  12. COUNTER.EXE
  13.  
  14. }
  15.  
  16.  
  17. type
  18.  {string variables}
  19.  Str2=string[2];
  20.  Str3=string[3];
  21.  Str4=string[4];
  22.  Str5=string[5];
  23.  Str8=string[8];
  24.  Str10=string[10];
  25.  Str11=string[11];
  26.  Str12=string[12];
  27.  Str20=string[20];
  28.  Str40=string[40];
  29.  Str67=string[67];
  30.  Str79=string[79];
  31.  Str80=string[80];
  32.  Str255=string[255];
  33.  
  34.  TextType=(Norm,NormUnd,NormBlink,NormUndBlink,
  35.            High,HighUnd,HighBlink,HighUndBlink,
  36.            Rev,RevBlink);
  37.  
  38. const
  39.  MinCount=0;
  40.  MaxCount=Maxint;
  41.  StartCount=0;
  42.  
  43. var
  44.  {required by the dos unit}
  45.  regs:registers;
  46.  
  47.  {all purpose string variable}
  48.  S:Str80;
  49.  
  50.  {cursor coordinate variables}
  51.  xpos,ypos:byte;
  52.  
  53.  {text type variable}
  54.  TextTypeVar:TextType;
  55.  
  56.  {global status and error variables}
  57.  Add,Quit,OutPutFileOpen:boolean;
  58.  CriticalErrorOccurred:boolean;
  59.  CriticalErrorCode:integer;
  60.  CriticalErrorDrive:integer;
  61.  IOErrorCode:byte;
  62.  
  63.  {file output variable}
  64.  OutPutFile:Text;
  65.  
  66.  {printer output variables}
  67.  PrinterLine:integer;
  68.  EjectPrinterPage:boolean;
  69.  
  70.  {variables for manipulating defined keys and labels}
  71.  DefinedKeys:Str20;
  72.  CharCounterArray,CharArray:array [1..20] of integer;
  73.  LabelArray:array [1..20] of Str20;
  74.  
  75.  {file and path variables}
  76.  FileName,ActiveFile:Str12;
  77.  PathFileName:Str79;
  78.  OriginalPath,ActivePath:Str67;
  79.  
  80.  {time variables}
  81.  Hour,Minute,Second,Sec100:word;
  82.  
  83.  {menu status variables}
  84.  F1_On,F2_On,F3_On,F4_On,F5_On,F6_On,F7_On,F8_On,F10_On:boolean;
  85.  
  86.  {termination procedure}
  87.  ExitSave:pointer;
  88.  
  89.  {forward declarations}
  90.  {$F+} procedure Terminate; forward; {$F-}
  91.  
  92. 
  93.