home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / fpc / source / docs / refex / ex32.pp < prev    next >
Encoding:
Text File  |  2000-01-01  |  427 b   |  24 lines
  1. Program Example32;
  2.  
  3. { Program to demonstrate the Inc function. }
  4.  
  5. Const
  6.   C : Cardinal  = 1;
  7.   L : Longint   = 1;
  8.   I : Integer   = 1;
  9.   W : Word      = 1;
  10.   B : Byte      = 1;
  11.   SI : ShortInt = 1;  
  12.   CH : Char     = 'A';
  13.   
  14. begin
  15.   Inc (C);     { C:=2    }
  16.   Inc (L,5);   { L:=6    }
  17.   Inc (I,-3);  { I:=-2   }
  18.   Inc (W,3);   { W:=4    }
  19.   Inc (B,100); { B:=101  }
  20.   Inc (SI,-3); { Si:=-2  }
  21.   Inc (CH,1);  { ch:='B' }
  22. end.
  23.  
  24.