DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦afbe55a8d⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »test6«

Derivation

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

TextFile

mode list.yes
pascal80 list.yes codelist.yes survey.2
process x;
type long = record 
a,b : integer;
c,d : alfa;
e,f : integer;
g,h : alfa;
end;

const
c_long = long(1,2,'abc', 'def', 3, 4, 'ghi', 'jkl');

procedure xx( val1, val2 : long);
begin
xx( c_long, val2 );
end;

begin
xx(c_long, c_long);
end.
▶EOF◀