DataMuseum.dk

top - metrics - download

    Length: 2304 (0x900)
    Types: TextFile
    Names: »treadcons«

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »treadcons« 

TextFile

o allist
mode list.yes
lookup alcon
if ok.no
(contract init.alcon
contract on.alcon pascalenv pascaltable
alcon=changeentry alcon alcon alcon alcon alcon alcon 3.1536
;length in filedescriptor must be set for pascal binary
;files
)
;wa
;o u80
readcons=pascal list.yes
program readcon(input,output,con);
type
  entryp=^entry;
  segmp=^segment;
  byte=0..4095;

  entry=record
   f: packed record first,key: byte; end;
   lower,
   upper:     integer;
   ename:     alfa;
   segm:      integer;
   dname:     alfa;
   date,fil,block: integer;
   contry: packed record content,entrypoint: byte; end;
   length: integer;
  end;

  segment=record
    entries: array Æ1..15Å of entry;
    files:   integer;
  end;

var
  catentries: integer;
  i,j,k     : integer;
  catentry: entryp;
  catsegm:  segmp;
  s1:       segment;
  con:      file of segment;

begin
open(con,'alcon');
reset(con);
read(con,s1);
writeln('no of files  ',s1.files);
catentries:=s1.files;
for i:=1 to catentries do
begin
  writeln('first       ',s1.entriesÆiÅ.f.first);
  writeln('lower       ',s1.entriesÆiÅ.lower);
  writeln('upper       ',s1.entriesÆiÅ.upper);
  writeln('name        ',s1.entriesÆiÅ.ename);
  writeln('segments    ',s1.entriesÆiÅ.segm);
  writeln('doc         ',s1.entriesÆiÅ.dname);
  writeln('            ',s1.entriesÆiÅ.date);
  writeln('file        ',s1.entriesÆiÅ.fil);
  writeln('block       ',s1.entriesÆiÅ.block);
  writeln('contry      ',s1.entriesÆiÅ.contry.content);
  writeln('length      ',s1.entriesÆiÅ.length);
  writeln;
end;
close(con);
end.
;
if ok.yes
readcons
o c
mode list.no
finisb
▶EOF◀