home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / pascal / pascsrc.arc / CHARDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  409 b   |  19 lines
  1.                                 (* Chapter 3 - Program 7 *)
  2. program Char_Demonstration;
  3.  
  4. var Letter  : char;
  5.     Number  : char;
  6.     Dogfood : char;
  7.  
  8. begin
  9.    Letter := 'P';
  10.    Number := 'A';
  11.    Dogfood := 'S';
  12.    Write(Letter,Number,Dogfood);
  13.    Letter := Number;             (* This is now the 'A' *)
  14.    Number := 'L';
  15.    Dogfood := 'C';
  16.    Write(Dogfood,Letter,Number);
  17.    Writeln;
  18. end.
  19.