DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

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

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦7629ddbb3⟧ TextFile

    Length: 1248 (0x4e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »WRITCURR.K«

Derivation

└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
    └─⟦this⟧ »WRITCURR.K« 
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
    └─⟦this⟧ »WRITCURR.K«

Mikados K File

(*$P*)
PROCEDURE WRITCURR;
BEGIN
  WRITELN('CURRUSER CURRFUNC CURRFILE CURRHEAD CURRZONE KOMMANDO INFO IREC');
  WRITELN(CURRUSER:8,ORD(CURRFUNC):9,CURRFILE:9,CURRHEAD:9,CURRZONE:9,
          ORD(BESKED.KOMMANDO):9,BESKED.INFO:9,BESKED.IREC:9);
  WRITELN('AVAILHEAD AVAILZONE AVAILKEY STATUSER NROFUSERS');
  WRITELN(AVAILHEAD:9,AVAILZONE:10,AVAILKEY:9,STATUSER:9,NROFUSERS:10);
  READLN
END;

Full view