DataMuseum.dk

top - metrics - download

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

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

TextFile

program pass(input,output,f);
const
  calllib = 3635213;
  alfalength = 12;
var
  f : file of integer;
  tail : array Æ1..10Å of integer;
  codefilename : alfa;
  taeller,antallib,inp,taeller2,programsize,code : integer;

procedure readalfa(var alf: alfa);
var
  i : integer;
  a : array Æ1..alfalengthÅ of char;
begin
  i:=1;
  repeat
    read(aÆiÅ);
    i:=i+1;
  until input^ = ' ';
  for i:=i to alfalength do aÆiÅ := ' ';
  pack(a,1,alf);
end;


begin
get(input);
readalfa(codefilename);
writeln(codefilename);
if monitor(42 (*lookup entry*),codefilename,tail) = 0 then
programsize:=tailÆ1Å;
tailÆ10Å:=programsize*512;
inp:=monitor(44 (*change entry*),codefilename,tail);
writeln(programsize);
open(f,codefilename);
reset(f);
writeln(code);
for taeller := 1 to 256 do
 read(f,inp);
for taeller := 1 to programsize-2 do
begin
  for taeller2 := 1 to 256 do
  begin
  writeln(code);
  read(f,code);
  if code = calllib then
  begin
    antallib:=antallib + 1;
    read(f,code);
    read(f,code);
  end;
  end;
end;
writeln(antallib);
end.
▶EOF◀