DataMuseum.dk

top - metrics - download

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

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

TextFile

o allist
mode list.yes
lookup alcon
if ok.no
(contract init.alcon
contract on.alcon pascalenv pascaltable
)
;wa
;o u80
readcon=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..14Å of entry;
    files:   integer;
  end;

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

procedure wrch(i: integer);
begin
  write(chr(j div 65536),chr(j div 256 mod 256),chr(j mod 256));
end;

begin
open(con,'alcon');
reset(con);
for i:=1 to 256 do read(con,catentries);
  writeln('no of files ',catentries);
reset(con);
for i:=1 to catentries do
begin
  read(con,j); writeln('first      ',j);
  read(con,j); writeln('lower      ',j);
  read(con,j); writeln('upper      ',j);
  read(con,j); write  ('name       '); wrch(j);
  read(con,j); wrch(j);
  read(con,j); wrch(j);
  read(con,j); wrch(j); writeln;
  read(con,j); writeln('segments   ',j);
  read(con,j); write  ('doc        '); wrch(j);
  read(con,j); wrch(j);
  read(con,j); wrch(j);
  read(con,j); wrch(j); writeln;
  read(con,j); writeln('            ',j);
  read(con,j); writeln('file        ',j);
  read(con,j); writeln('block       ',j);
  read(con,j); writeln('contry      ',j);
  read(con,j); writeln('length      ',j);
  writeln;
end;
close(con);
end.
;
if ok.yes
readcon
o c
mode list.no
finisb
▶EOF◀