home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / pascal_tut / pas / chardemo < prev    next >
Encoding:
Text File  |  1992-11-14  |  311 b   |  18 lines
  1. PROGRAM char_demonstration;
  2.  
  3. VAR letter  : CHAR;
  4.     number  : CHAR;
  5.     dogfood : CHAR;
  6.  
  7. BEGIN
  8.   letter := 'P';
  9.   number := 'A';
  10.   dogfood := 'S';
  11.   WRITE(letter,number,dogfood);
  12.   letter := number;             (* This is now the 'A' *)
  13.   number := 'L';
  14.   dogfood := 'C';
  15.   WRITE(dogfood,letter,number);
  16. END.
  17.  
  18.