DataMuseum.dk

top - metrics - download

    Length: 768 (0x300)
    Types: TextFileVerbose
    Names: »teststruc«

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »teststruc« 

TextFileVerbose

job a 1 time 5 0 
;platonpass3 = assign newp3
pascal80 codelist.yes list.yes 

process test( var sv : system_vector );

type struc_const = array ( 1..10 ) of integer;
struc_rec = record
              a,b : byte;
              c : integer;
end;

const
c_struc_const = struc_const(1,2,3,4,5,6,7,8,9,0);
c_struc_rec  = struc_rec(1,2,567);

var
v_struc_const : struc_const;
v_struc_rec   : struc_rec;
i, j : integer;
col : ( red, blue );

begin
c_struc_const( 5 ) := 567;
c_struc_rec.b := 55;
with v_struc_rec do
begin
c := i and j;
c := i or j;
(*
c := i xor j;
*)
if i and j then ;
if red and blue then ;
end;
end.
newp3
«eof»