home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pccts.zip / pccts / lang / Pascal / test.p < prev    next >
Text File  |  1994-03-31  |  484b  |  25 lines
  1. program convert(output);
  2.  
  3. type color = (white, red, blue, yellow, purple, green);
  4.      xx = 'a'..'z';
  5.      duh = array[white..green] of real;
  6.      person = record
  7.         ss : integer;
  8.         sex : (male,female);
  9.         birth : color;
  10.         case ms : color of
  11.             white,red : (mdate:integer);
  12.             blue : (ddate:integer; firstd:integer)
  13.      end;
  14.  
  15. var   a : color;
  16.       b : array [1 ..3,2 ..5,2 ..9] of person;
  17.       c : file of real;
  18.  
  19. begin
  20.     with b[white,3,3] do begin
  21.         a := red;
  22.         b[white,3,3]^.d[3] := 3.14159
  23.     end
  24. end.
  25.