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«

Mikados K File

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;

Full view