home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol162 / test.ccp < prev    next >
Encoding:
Text File  |  1984-04-29  |  252 b   |  20 lines
  1. PROGRAM DEMO;
  2.  
  3.  
  4. VAR I : INTEGER;
  5.     B : BOOLEAN;
  6.     C : CHAR;
  7. BEGIN   
  8.    FOR I:= 1 TO 5 DO WRITELN('>',I,'<');
  9.    I:= 100;
  10.    B := TRUE;
  11.    C := 'A';
  12.    WRITE(I);
  13.    WRITELN;
  14.    WRITELN(I);
  15.    WRITELN(C);
  16.    WRITELN(B);
  17.    WRITELN('>',C,'<');
  18. END.
  19.  
  20.