|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »teststruc«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦6b41451d2⟧
└─⟦this⟧ »teststruc«
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◀