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

⟦ac23c00a8⟧ TextFile

    Length: 2528 (0x9e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »RESPRINT.K«

Derivation

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

FUNCTION GETPR(PRINTER:INTEGER):BOOLEAN;
EXTERNAL;
PROCEDURE FREEPR;
EXTERNAL;
FUNCTION RESPRINT:BOOLEAN;
CONST PRIMPRIN=1;
      SECPRINT=2;
VAR CH:STRING(1);
BEGIN
  CH:='J';
  IF NOT GETPR(PRIMPRIN) THEN
  (*IF NOT GETPR(SECPRINT) THEN*)
    REPEAT
      CH:='N';
      GOTOXY(1,23);
      WRITE('Ingen printer ledig, fortsæt? J/N ');
      EDIT(CH) 
    UNTIL CH(1) IN (.'J','j','n','N'.);
  RESPRINT:=(CH(1) IN (.'J','j'.))
END;

0x000…02a Line {l1=0x28, l2=»FUNCTION GETPR(PRINTER:INTEGER):BOOLEAN;«, l3=0x28}
0x02a…035 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x035…048 Line {l1=0x11, l2=»PROCEDURE FREEPR;«, l3=0x11}
0x048…053 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x053…06f Line {l1=0x1a, l2=»FUNCTION RESPRINT:BOOLEAN;«, l3=0x1a}
0x06f…082 Line {l1=0x11, l2=»CONST PRIMPRIN=1;«, l3=0x11}
0x082…095 Line {l1=0x11, l2=»      SECPRINT=2;«, l3=0x11}
0x095…0a8 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x0a8…0af Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0af…0bb Line {l1=0x0a, l2=»  CH:='J';«, l3=0x0a}
0x0bb…0da Line {l1=0x1d, l2=»  IF NOT GETPR(PRIMPRIN) THEN«, l3=0x1d}
0x0da…0fd Line {l1=0x21, l2=»  (*IF NOT GETPR(SECPRINT) THEN*)«, l3=0x21}
0x0fd…109 Line {l1=0x0a, l2=»    REPEAT«, l3=0x0a}
0x109…119 Line {l1=0x0e, l2=»      CH:='N';«, l3=0x0e}
0x119…12e Line {l1=0x13, l2=»      GOTOXY(1,23);«, l3=0x13}
0x12e…162 Line {l1=0x32, l2=»      WRITE('Ingen printer ledig, fortsæt? J/N ');«, l3=0x32}
0x162…173 Line {l1=0x0f, l2=»      EDIT(CH) «, l3=0x0f}
0x173…19c Line {l1=0x27, l2=»    UNTIL CH(1) IN (.'J','j','n','N'.);«, l3=0x27}
0x19c…1c0 Line {l1=0x22, l2=»  RESPRINT:=(CH(1) IN (.'J','j'.))«, l3=0x22}
0x1c0…1c6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1c6…1e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00                     ┆                          ┆
0x1e0…200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
          […0x3e…]
0x9c0…9e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63   ┆                               c┆

Reduced view