148089Sbostic(* 2*62160Sbostic * Copyright (c) 1980, 1993 3*62160Sbostic * The Regents of the University of California. All rights reserved. 448089Sbostic * 548089Sbostic * %sccs.include.redist.c% 648089Sbostic * 7*62160Sbostic * @(#)varnt.p 8.1 (Berkeley) 06/06/93 848089Sbostic *) 948089Sbostic 1048089Sbosticprogram varnt(input, output); 1148089Sbostictype 1248089Sbostic vrec = record 1348089Sbostic rfield : integer; 1448089Sbostic case integer of 1548089Sbostic 1: ( 1648089Sbostic vfield : integer; 1748089Sbostic ); 1848089Sbostic 2: ( 1948089Sbostic vfield2 : real; 2048089Sbostic ); 2148089Sbostic end; 2248089Sbostic 2348089Sbosticvar 2448089Sbostic r : vrec; 2548089Sbosticbegin 2648089Sbostic r.vfield := 1; 2748089Sbostic r.vfield2 := 2.5; 2848089Sbostic r.rfield := 0; 2948089Sbostic writeln('done'); 3048089Sbosticend. 31