DataMuseum.dk

top - metrics - download

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

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

TextFile

clear user ramlist
ramlist=set 1 disc5
scope user ramlist
ramlist=algol list.no
\f


RAMAN SAVESYSTEM  program: ramlist

begin
  integer i,j,s,fil1,fil2,fil,bnr,b,ab,efil;
  boolean closeres;
  array text(1:12);
  integer array t(1:10);
  zone MAG(128,1,stderror),res(128,1,stderror);
  lookuptail(<:ramnr:>,t); efil:=t(8)-1;



  closeres:= outmedium(res);
  open(MAG,4 shift 12 + 18,<:ramtape:>,0);
  setposition(MAG,0,0);
  inrec(MAG,128); bnr:=MAG(4);
  write(out,false add 10,1,<:LIST FRA BAAND NR:>,<< d>,bnr,false add 10,2);

L:write(out,false add 10,1,<:fra til=:>); setposition(out,0,0);
  read(in,fil1); if fil1<0 then goto SLUT;
  if fil1=0 then fil1:=1;
  read(in,fil2); if fil2>=efil then fil2:=efil;

  for fil:=fil1 step 1 until fil2 do
  begin setposition(MAG,fil,0); inrec(MAG,128);
        b:=MAG(16); ab:=abs b; if b=0 then ab:=1;
        case ab of begin
        begin write(res,false add 10,2,
              <<dddddd>,MAG(17),
              <:-:>,
              false add (64+bnr),1,
              case cif(MAG(21)) of (<:00:>,<:0:>,<::>),
              case cif(MAG(21)) of (<<d>,<<dd>,<<ddd>),MAG(21),
              <<  ddd>,MAG(13),
              <<  d>,  MAG(14),
              <<  ddd>,MAG(15),
              case b+2 of(<: d:>,<: -:>,<: p:>));
              for j:=1 step 1 until 12 do text(j):=MAG(j);
              write(res,false add 32,2,string inc(text));
        end b=1;
        begin write(res,false add 10,2,<:-------:>,
              false add (64+bnr),1,
              case cif(MAG(21)) of(<:00:>,<:0:>,<::>),
              case cif(MAG(21)) of(<<d>,<<dd>,<<ddd>),MAG(21),
              <:  tom fil:>);
        end b=2;
        end case b;
  end fil;
  setposition(res,0,0); goto L;
  SLUT:setposition(MAG,0,0);
  close(MAG,false);
  write(res,<:<12>:>,<:<25>:>);
  close(res,closeres);
end;

\f


▶EOF◀