DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »treadconp«

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

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
readconp=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;
  con:      file of segment;

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