home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / install / sdefs / demo.pas next >
Encoding:
Pascal/Delphi Source File  |  1988-11-24  |  942 b   |  34 lines
  1.  
  2. Program Demo; {This is the object program to demonstrate sDefs.TPU }
  3.  
  4.     Uses
  5.       CRT;
  6.  
  7.     Type
  8.       DefRecType = Record
  9.         St:           String[32];
  10.         Yr,Mth,Day:   Word;
  11.       end;
  12.  
  13.     Const
  14.       idHeader:   String[8]  = 'XmtSpot ';{ << This is exactly what install}
  15.       DefaultRec: DefRecType =            {program looks for.              }
  16.         (
  17.           St:  'Not important';
  18.           Yr:  1986;
  19.           Mth: 10;
  20.           Day: 10
  21.         );
  22.       BgColor:  Byte = Blue;
  23.       FgColor:  Byte = Yellow;
  24.       LastByte: Byte = 00;                {Be consistent with declarations }
  25.                                           {in installation program.        }
  26.   BEGIN
  27.     TextColor(FgColor);
  28.     TextBackground(BgColor);
  29.     WriteLn;
  30.     WriteLn('Demonstration string: ',DefaultRec.St);
  31.     With DefaultRec do
  32.       WriteLn('Written: ',Mth,'-',Day,'-',Yr);
  33.     Delay(4000);
  34. END.