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« 

(*$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;

0x000…008 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x008…01d Line {l1=0x13, l2=»PROCEDURE WRITCURR;«, l3=0x13}
0x01d…024 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x024…073 Line {l1=0x4d, l2=»  WRITELN('CURRUSER CURRFUNC CURRFILE CURRHEAD CURRZONE KOMMANDO INFO IREC');«, l3=0x4d}
0x073…0bb Line {l1=0x46, l2=»  WRITELN(CURRUSER:8,ORD(CURRFUNC):9,CURRFILE:9,CURRHEAD:9,CURRZONE:9,«, l3=0x46}
0x0bb…0fb Line {l1=0x3e, l2=»          ORD(BESKED.KOMMANDO):9,BESKED.INFO:9,BESKED.IREC:9);«, l3=0x3e}
0x0fb…13a Line {l1=0x3d, l2=»  WRITELN('AVAILHEAD AVAILZONE AVAILKEY STATUSER NROFUSERS');«, l3=0x3d}
0x13a…183 Line {l1=0x47, l2=»  WRITELN(AVAILHEAD:9,AVAILZONE:10,AVAILKEY:9,STATUSER:9,NROFUSERS:10);«, l3=0x47}
0x183…18d Line {l1=0x08, l2=»  READLN«, l3=0x08}
0x18d…193 Line {l1=0x04, l2=»END;«, l3=0x04}
0x193…1a0 00 00 08 04 45 4e 44 3b 04 07 28 2a 24                                                            ┆    END;  (*$┆
0x1a0…1c0 58 2d 2a 29 07 00 00 34 34 00 00 00 00 00 10 eb 6c 00 30 2b 00 00 20 20 20 20 20 20 20 20 20 20   ┆X-*)   44       l 0+            ┆
0x1c0…1e0 30 2b 00 00 00 00 00 00 00 00 00 00 45 53 42 4a 45 52 47 00 30 2b 00 30 2b 00 30 2b 00 35 2d 31   ┆0+          ESBJERG 0+ 0+ 0+ 5-1┆
0x1e0…200 35 33 32 34 34 00 00 00 00 00 10 eb 6c 00 30 2b 00 00 20 20 20 20 20 20 20 20 20 20 30 2b 00 00   ┆53244       l 0+            0+  ┆
0x200…220 00 00 00 00 00 00 00 00 30 2b 00 30 2b 00 30 2b 00 30 2b 00 20 20 33 31 31 36 32 2c 35 35 2b 00   ┆        0+ 0+ 0+ 0+   31162,55+ ┆
0x220…240 34 00 00 00 00 00 10 eb 6c 00 30 2b 00 00 20 20 20 20 20 20 20 20 20 20 30 2b 00 00 00 00 00 00   ┆4       l 0+            0+      ┆
0x240…260 00 00 00 00 20 20 20 20 38 32 39 2c 33 38 2b 00 30 2b 00 30 2b 00 30 2b 00 30 2b 00 34 00 00 00   ┆        829,38+ 0+ 0+ 0+ 0+ 4   ┆
0x260…280 00 00 10 eb 6c 00 30 2b 00 00 20 20 20 20 20 20 20 20 20 20 30 2b 00 00 00 00 00 00 00 00 00 00   ┆    l 0+            0+          ┆
0x280…2a0 30 2b 00 30 2b 00 30 2b 00 30 2b 00 30 2b 00 30 2b 00 30 2b 00 30 2b 00 34 00 00 00 00 00 10 eb   ┆0+ 0+ 0+ 0+ 0+ 0+ 0+ 0+ 4       ┆
0x2a0…2c0 6c 00 30 2b 00 00 20 20 20 20 20 20 20 20 20 20 30 2b 00 00 00 00 00 00 00 00 00 00 10 eb 69 00   ┆l 0+            0+            i ┆
0x2c0…2e0 46 41 2e 20 4b 2e 20 4d 2e 20 56 45 53 4b 45 52 00 20 20 20 20 32 38 31 30 2c 30 30 2b 00 3b 00   ┆FA. K. M. VESKER     2810,00+ ; ┆
0x2e0…300 20 20 20 20 36 32 35 34 2c 30 30 2b 00 00 00 00 00 00 00 00 00 00 00 00 30 2b 00 30 2b 00 30 2b   ┆    6254,00+            0+ 0+ 0+┆
0x300…320 00 04 90 00 00 31 00 30 2b 00 45 52 00 20 20 20 20 32 38 31 30 2c 30 30 2b 00 3b 00 20 20 20 20   ┆     1 0+ ER     2810,00+ ;     ┆
0x320…340 36 32 35 34 2c 30 30 2b 00 00 00 00 00 00 00 00 00 00 00 00 53 54 4f 56 4e 45 52 20 53 45 4e 54   ┆6254,00+            STOVNER SENT┆
0x340…360 45 52 00 00 00 00 00 00 10 eb 70 00 30 2b 00 31 30 2c 30 30 2b 00 3b 00 20 20 20 20 36 32 35 34   ┆ER        p 0+ 10,00+ ;     6254┆
0x360…380 2c 30 30 2b 00 00 00 00 00 00 00 00 00 00 00 00 4f 53 4c 4f 00 30 2b 00 30 2b 00 30 2b 00 00 00   ┆,00+            OSLO 0+ 0+ 0+   ┆
0x380…3a0 00 00 00 00 10 eb 70 00 30 2b 00 31 30 2c 30 30 2b 00 3b 00 20 20 20 20 36 32 35 34 2c 30 30 2b   ┆      p 0+ 10,00+ ;     6254,00+┆
0x3a0…3c0 00 00 00 00 00 00 00 00 00 00 00 00 30 2b 00 30 2b 00 30 2b 00 30 2b 00 20 20 20 20 36 36 30 2c   ┆            0+ 0+ 0+ 0+     660,┆
0x3c0…3e0 30 30 2b 00 30 2b 00 31 30 2c 30 30 2b 00 3b 00 20 20 20 20 36 32 35 34 2c 30 30 2b 00 00 00 00   ┆00+ 0+ 10,00+ ;     6254,00+    ┆
0x3e0…400 00 00 00 00 00 00 00 00 20 20 20 32 38 31 30 2c 30 30 2b 00 30 2b 00 30 2b 00 30 2b 00 30 2b 00   ┆           2810,00+ 0+ 0+ 0+ 0+ ┆
0x400…420 30 2b 00 31 30 2c 30 30 2b 00 3b 00 20 20 20 20 36 32 35 34 2c 30 30 2b 00 00 00 00 00 00 00 00   ┆0+ 10,00+ ;     6254,00+        ┆
0x420…440 00 00 00 00 30 2b 00 30 2b 00 30 2b 00 30 2b 00 30 2b 00 30 2b 00 30 2b 00 30 2b 00 30 2b 00 31   ┆    0+ 0+ 0+ 0+ 0+ 0+ 0+ 0+ 0+ 1┆
0x440…460 30 2c 30 30 2b 00 3b 00 20 20 20 20 36 32 35 34 2c 30 30 2b 00 00 00 00 00 00 00 00 00 00 00 00   ┆0,00+ ;     6254,00+            ┆
0x460…480 10 eb 6a 00 46 41 2e 20 4b 41 4c 4c 48 41 4c 4c 20 50 41 52 46 59 4d 00 30 2b 00 3d 00 20 20 20   ┆  j FA. KALLHALL PARFYM 0+ =    ┆
0x480…4a0 20 20 20 20 20 20 20 30 2b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 30 2b 00 30   ┆       0+                   0+ 0┆
0x4a0…4c0 2b 00 30 2b 00 0f 88 e2 00 32 00 30 2b 00 41 52 46 59 4d 00 30 2b 00 3d 00 30 2b 00 00 00 00 00   ┆+ 0+     2 0+ ARFYM 0+ = 0+     ┆
0x4c0…4e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 47 4a 55 54 41 52 45 63   ┆                        GJUTAREc┆

Reduced view