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

⟦f0324ade1⟧ TextFile

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

Derivation

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

TextFile

mode list.yes
lambdaenv = set bs lambdaenv5
platonlib =assign platonlibv5
platonpass4 = assign newp4
platonpass5 = assign newp5
pascal80 list.yes codelist.yes 
(*$ 5 8 5 *)
process x;
var o : integer;
p : pool 7 of integer;

procedure abcdef( var xxx : integer );
function bcdefg( xcv : boolean ) : integer;
begin
bcdefg := ord ( xcv );
end;
begin
xxx :=bcdefg( false );
end;
begin
o := abs( -1 );

o := abs ( o );

o := succ( o );

o := pred( o );
end.

▶EOF◀