home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol019 / variant.pas < prev    next >
Pascal/Delphi Source File  |  1984-04-29  |  659b  |  36 lines
  1.  
  2. (*************************************************************
  3. *
  4. *        DEMO PROGRAM FOR VARIANT RECORDS
  5. *
  6. *  Donated by Ray Penley, June 1980
  7. *
  8. *************************************************************)
  9.  
  10.  
  11. PROGRAM VARIANT;
  12.  
  13. TYPE
  14.   NUM = RECORD
  15.       CASE INTEGER OF
  16.       1:  (C1,C2,C3,C4 : CHAR);
  17.       2:  (I1,I2       : INTEGER);
  18.       3:  (R       : REAL)
  19.     END;
  20. VAR
  21.   Q : NUM;
  22.  
  23. BEGIN
  24.   Q.C1 := 'A';
  25.   Q.C2 := 'F';
  26.   Q.C3 := 'M';
  27.   Q.C4 := '6';
  28.   WRITELN('!----!----!----!----!----!----!');
  29.   WRITELN('CHARACTER');
  30.   WRITELN(Q.C1, Q.C2, Q.C3, Q.C4);
  31.   WRITELN('INTEGER');
  32.   WRITELN(Q.I1, Q.I2);
  33.   WRITELN('REAL');
  34.   WRITELN(Q.R);
  35. END.
  36.