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 - download

⟦76210c8a4⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »pausetx     «

Derivation

└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
    └─⟦a957ba283⟧ 
        └─ ⟦this⟧ »pausetx     «

TextFile

pause=algol
external procedure pause(sek);
  value            sek;
  real             sek;
begin
  integer i, j, k;
  long l;
  integer array ia(1:20);
  zone z(1,1,stderror);
  l:=sek*10000.0;
  
  open(z,2<*kind=interval clock*>,<:clock:>,0);
  ia(1):=2;<*2= interval i 1/10 milisek.*>
  ia(2):=l shift(-24) extract 24;
  ia(3):=l extract 24;
  sendwait(z,ia);
end pause;
end
▶EOF◀