home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TPASBOOK.ZIP / POINTERS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-06-09  |  220 b   |  16 lines
  1. PROGRAM POINTERS;
  2.  
  3. TYPE P_CHAR = ^CHAR;
  4.  
  5. VAR CH       : CHAR;
  6.     B        : BYTE;
  7.     CHAR_PTR : P_CHAR;
  8.  
  9. BEGIN
  10.   CH := 'Z';
  11.   B := 65;
  12.   CHAR_PTR := ADDR(B);
  13.   CH := CHAR_PTR^;
  14.   WRITELN('CH=',CH)
  15. END.
  16.