home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / OOTP_3.ZIP / CHAP5.LST / LIST5_5.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-02-01  |  516 b   |  19 lines
  1. program Listing5_5;
  2.  
  3. uses NewTags;  { Tags modified to abstract .Init method in DInput type
  4.                  and make .PutReading virtual. }
  5.  
  6. var
  7.    HS : HiSwitch;
  8.    LS : LoSwitch;
  9. begin
  10.      HS.Init('Tag1', 3.4, 2.1 );
  11.      LS.Init('Tag2', 6.7, 10.2 );
  12.      writeln( HS.TagNumber, ': Setpoint = ', HS.Setpoint:2:2,
  13.               '; Reading = ', HS.Reading:2:2 );
  14.      writeln( LS.TagNumber, ': Setpoint = ', LS.Setpoint:2:2,
  15.               '; Reading = ', LS.Reading:2:2 );
  16. end.
  17.  
  18. { Listing 5-5 }
  19.