home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PASSRC.ZIP / CHARDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-04  |  455b  |  28 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.  
  20.  
  21.  
  22.  
  23. { Result of execution
  24.  
  25. PASCAL
  26.  
  27. }
  28.