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

⟦ee1ec9080⟧ TextFile

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

Derivation

└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
    └─⟦this⟧ »NBTHOVED.K«

Mikados K File

BEGIN
  REPEAT
    BEGIN
      CLEARSCREEN;
      GOTOXY(10,10);
      WRITELN('OPSPLITNING AF ORDRE');
      GOTOXY(10,12);
      WRITELN('INDTAST ORDRENR (1000 - 9999, 0:FÆRDIG) :');
      GOTOXY(50,12);
      READLN;
      IF EOLN THEN
        SETIORESULT(-1)
      ELSE
        READ(ORDRENUM);
    IF(IORESULT=0)AND((ORDRENUM>999)AND(ORDRENUM<10000)) THEN
     MAINTAIN;
    END;
  UNTIL(IORESULT=0) AND (ORDRENUM=0);
  GOTOXY(10,14);
  WRITELN('OPSPLITNING AFSLUTTET NORMALT');
 
  FNAVN:=' ';
  FNAVN(1):=PARM^(1);
  CHAIN('L       *1',CONCAT('HOVED:P2,',FNAVN),QUQ);
  IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END.

Full view