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

⟦efb651566⟧ TextFile

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

Derivation

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

TextFile

( pip = pascal list.yes
p6 = set bs np6 0 0 0 0 100.0
pip)

program pip ( output, p6 = 'p6' );

var
p6 : file of integer;
ind : packed record
case boolean of
true : ( int : integer );
false : ( code : 0..63; w, ix, x : 0..3; r : -2048..2047 );
end;

segm, disp : integer;

begin
reset( p6 ); segm := 0; disp := 0;

while segm < 118 do
begin
disp := disp + 2;
if disp = 512 then
begin
segm := segm + 1;
disp := 0;
end;
read( p6, ind.int );
if ind. r = -2018 then
with ind do
writeln( segm, disp, int, code, w, ix, x, r );
end; (* while *)
end.

▶EOF◀