DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦2768705f0⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »dmenutxt    «, »stopmdmptxt «

Derivation

└─⟦9ccaf6601⟧ Bits:30008165 Bånd med SW8000 kildetekst/release værktøjer
    └─⟦40b1eb8cd⟧ 
        └─⟦this⟧ »dmenutxt    « 
        └─⟦this⟧ »stopmdmptxt «

TextFile

begin
  zone z(1,1,stderror);
  integer i,buf;
  integer array ia(1:20);
  open(z,0,<:menu:>,0);
  getshare6(z,ia,1);
  ia(4):=20 shift 12;
  ia(5):=0;
  ia(6):=101043;
  setshare6(z,ia,1);
  buf:=monitor(16,z,1,ia);
  write(out,<:buf :>,buf,<:<10>:>); setposition(out,0,0);
  i:=monitor(18,z,1,ia);
  if i=1 then begin
    if ia(1)<>0 then
      write(out,<:status :>,<< d>,ia(1),<:<10>:>);
  end
  else
    write(out,<:result :>,<< d>,i,<:<10>:>);
  close(z,true);
end;
▶EOF◀