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

⟦3f0e9ded7⟧ TextFile

    Length: 2496 (0x9c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »RENTEBEK.K«

Derivation

└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
    └─⟦this⟧ »RENTEBEK.K«

Mikados K File

PROGRAM RENTEBEKRÆFTELSE;
CONST  RENTE=0.02;
(*$IISFHEAD*)
JOURPOST=RECORD
       KONTONR1,KONTONR2,
       DATO1,DATO2,
       TEKSTKODE,
       BILAG1,BILAG2,
       KGB                     :INTEGER;
       BELØB                   :REAL
END;
JOURFILE=FILE OF JOURPOST;
PROCSTAT=RECORD
       NP,NROSTART:INTEGER
END;
NPFILE=FILE OF PROCSTAT;
VAR    R:REAL;
       QUQ:^INTEGER;
       FILNAVN2:STRING(20);
       J,I:INTEGER;
    JOURFIL:JOURFILE;
 
BEGIN
  CLEARSCREEN;
  FILNAVN2:='RENTPOST:P1:50:I';
  REWRITE(JOURFIL,FILNAVN2);
  WRITELN('R E N T E B E K R Æ F T E L S E');
  REPEAT
    GOTOXY(1,3);
    WRITELN('Rettelse i linie          0 for færdig');
    REPEAT
      GOTOXY(18,3);READLN;READ(I)
    UNTIL IORESULT=0;
    IF I>0 THEN
    BEGIN
(*$C-*)
      SEEK(JOURFIL,I);
      GET(JOURFIL);
(*$C+*)
      IF IORESULT<>0 THEN WRITELN(IORESULT:5)
      ELSE
      BEGIN
        GOTOXY(1,5);
        WRITELN(JOURFIL^.KONTONR1*10000.0+JOURFIL^.KONTONR2:10:-2,' ':5,
                '0 for rigtigt');
        REPEAT
          GOTOXY(30,5);READLN;READ(J)
        UNTIL IORESULT=0;
        IF J=0 THEN
        BEGIN
          GOTOXY(1,7);
          WRITELN('Nyt beløb            0 for annullation');
          REPEAT
            GOTOXY(12,7);READLN;READ(R)
          UNTIL (IORESULT=0) AND (R>=0.0);
          IF R=0.0 THEN JOURFIL^.TEKSTKODE:=-1
          ELSE JOURFIL^.BELØB:=R*100;
          SEEK(JOURFIL,I);
          PUT(JOURFIL)
        END
      END
    END
  UNTIL I=0;
  CLOSE(JOURFIL);
  CHAIN('INTRE   *1','POSTERRE:P1',QUQ)
END.

Mikados K File

0x000…01b Line {l1=0x19, l2=»PROGRAM RENTEBEKRÆFTELSE;«, l3=0x19}
0x01b…02f Line {l1=0x12, l2=»CONST  RENTE=0.02;«, l3=0x12}
0x02f…03e Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x03e…04f Line {l1=0x0f, l2=»JOURPOST=RECORD«, l3=0x0f}
0x04f…06a Line {l1=0x19, l2=»       KONTONR1,KONTONR2,«, l3=0x19}
0x06a…07f Line {l1=0x13, l2=»       DATO1,DATO2,«, l3=0x13}
0x07f…092 Line {l1=0x11, l2=»       TEKSTKODE,«, l3=0x11}
0x092…0a9 Line {l1=0x15, l2=»       BILAG1,BILAG2,«, l3=0x15}
0x0a9…0d3 Line {l1=0x28, l2=»       KGB                     :INTEGER;«, l3=0x28}
0x0d3…0f9 Line {l1=0x24, l2=»       BELØB                   :REAL«, l3=0x24}
0x0f9…0ff Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ff…11b Line {l1=0x1a, l2=»JOURFILE=FILE OF JOURPOST;«, l3=0x1a}
0x11b…12c Line {l1=0x0f, l2=»PROCSTAT=RECORD«, l3=0x0f}
0x12c…148 Line {l1=0x1a, l2=»       NP,NROSTART:INTEGER«, l3=0x1a}
0x148…14e Line {l1=0x04, l2=»END;«, l3=0x04}
0x14e…168 Line {l1=0x18, l2=»NPFILE=FILE OF PROCSTAT;«, l3=0x18}
0x168…178 Line {l1=0x0e, l2=»VAR    R:REAL;«, l3=0x0e}
0x178…18e Line {l1=0x14, l2=»       QUQ:^INTEGER;«, l3=0x14}
0x18e…1ab Line {l1=0x1b, l2=»       FILNAVN2:STRING(20);«, l3=0x1b}
0x1ab…1c0 Line {l1=0x13, l2=»       J,I:INTEGER;«, l3=0x13}
0x1c0…1d7 Line {l1=0x15, l2=»    JOURFIL:JOURFILE;«, l3=0x15}
0x1d7…1da Line {l1=0x01, l2=» «, l3=0x01}
0x1da…1e1 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1e1…1f1 Line {l1=0x0e, l2=»  CLEARSCREEN;«, l3=0x0e}
0x1f1…212 Line {l1=0x1f, l2=»  FILNAVN2:='RENTPOST:P1:50:I';«, l3=0x1f}
0x212…230 Line {l1=0x1c, l2=»  REWRITE(JOURFIL,FILNAVN2);«, l3=0x1c}
0x230…25f Line {l1=0x2d, l2=»  WRITELN('R E N T E B E K R Æ F T E L S E');«, l3=0x2d}
0x25f…269 Line {l1=0x08, l2=»  REPEAT«, l3=0x08}
0x269…27b Line {l1=0x10, l2=»    GOTOXY(1,3);«, l3=0x10}
0x27b…2b3 Line {l1=0x36, l2=»    WRITELN('Rettelse i linie          0 for færdig');«, l3=0x36}
0x2b3…2bf Line {l1=0x0a, l2=»    REPEAT«, l3=0x0a}
0x2bf…2e2 Line {l1=0x21, l2=»      GOTOXY(18,3);READLN;READ(I)«, l3=0x21}
0x2e2…2f9 Line {l1=0x15, l2=»    UNTIL IORESULT=0;«, l3=0x15}
0x2f9…30a Line {l1=0x0f, l2=»    IF I>0 THEN«, l3=0x0f}
0x30a…315 Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x315…31e Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x31e…336 Line {l1=0x16, l2=»      SEEK(JOURFIL,I);«, l3=0x16}
0x336…34b Line {l1=0x13, l2=»      GET(JOURFIL);«, l3=0x13}
0x34b…354 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x354…383 Line {l1=0x2d, l2=»      IF IORESULT<>0 THEN WRITELN(IORESULT:5)«, l3=0x2d}
0x383…38f Line {l1=0x0a, l2=»      ELSE«, l3=0x0a}
0x38f…39c Line {l1=0x0b, l2=»      BEGIN«, l3=0x0b}
0x39c…3b2 Line {l1=0x14, l2=»        GOTOXY(1,5);«, l3=0x14}
0x3b2…3fc Line {l1=0x48, l2=»        WRITELN(JOURFIL^.KONTONR1*10000.0+JOURFIL^.KONTONR2:10:-2,' ':5,«, l3=0x48}
0x3fc…41f Line {l1=0x21, l2=»                '0 for rigtigt');«, l3=0x21}
0x41f…42f Line {l1=0x0e, l2=»        REPEAT«, l3=0x0e}
0x42f…456 Line {l1=0x25, l2=»          GOTOXY(30,5);READLN;READ(J)«, l3=0x25}
0x456…471 Line {l1=0x19, l2=»        UNTIL IORESULT=0;«, l3=0x19}
0x471…486 Line {l1=0x13, l2=»        IF J=0 THEN«, l3=0x13}
0x486…495 Line {l1=0x0d, l2=»        BEGIN«, l3=0x0d}
0x495…4ad Line {l1=0x16, l2=»          GOTOXY(1,7);«, l3=0x16}
0x4ad…4eb Line {l1=0x3c, l2=»          WRITELN('Nyt beløb            0 for annullation');«, l3=0x3c}
0x4eb…4fd Line {l1=0x10, l2=»          REPEAT«, l3=0x10}
0x4fd…526 Line {l1=0x27, l2=»            GOTOXY(12,7);READLN;READ(R)«, l3=0x27}
0x526…552 Line {l1=0x2a, l2=»          UNTIL (IORESULT=0) AND (R>=0.0);«, l3=0x2a}
0x552…582 Line {l1=0x2e, l2=»          IF R=0.0 THEN JOURFIL^.TEKSTKODE:=-1«, l3=0x2e}
0x582…5a9 Line {l1=0x25, l2=»          ELSE JOURFIL^.BELØB:=R*100;«, l3=0x25}
0x5a9…5c5 Line {l1=0x1a, l2=»          SEEK(JOURFIL,I);«, l3=0x1a}
0x5c5…5dd Line {l1=0x16, l2=»          PUT(JOURFIL)«, l3=0x16}
0x5dd…5ea Line {l1=0x0b, l2=»        END«, l3=0x0b}
0x5ea…5f5 Line {l1=0x09, l2=»      END«, l3=0x09}
0x5f5…5fe Line {l1=0x07, l2=»    END«, l3=0x07}
0x5fe…60c Line {l1=0x0c, l2=»  UNTIL I=0;«, l3=0x0c}
0x60c…61f Line {l1=0x11, l2=»  CLOSE(JOURFIL);«, l3=0x11}
0x61f…648 Line {l1=0x27, l2=»  CHAIN('INTRE   *1','POSTERRE:P1',QUQ)«, l3=0x27}
0x648…64e Line {l1=0x04, l2=»END.«, l3=0x04}
0x64e…660 00 00 27 2c 51 55 51 29 27 04 45 4e 44 2e 04 00 00 63                                             ┆  ',QUQ)' END.   c┆
0x660…680 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63   ┆cccccccccccccccccccccccccccccccc┆
          […0x19…]
0x9a0…9c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 00   ┆ccccccccccccccccccccccccccccccc ┆

TextFile

▶19◀PROGRAM RENTEBEKRÆFTELSE;▶19◀▶12◀CONST  RENTE=0.02;▶12◀\r(*$IISFHEAD*)\r▶0f◀JOURPOST=RECORD▶0f◀▶19◀       KONTONR1,KONTONR2,▶19◀▶13◀       DATO1,DATO2,▶13◀▶11◀       TEKSTKODE,▶11◀▶15◀       BILAG1,BILAG2,▶15◀(       KGB                     :INTEGER;($       BELØB                   :REAL$▶04◀END;▶04◀▶1a◀JOURFILE=FILE OF JOURPOST;▶1a◀▶0f◀PROCSTAT=RECORD▶0f◀▶1a◀       NP,NROSTART:INTEGER▶1a◀▶04◀END;▶04◀▶18◀NPFILE=FILE OF PROCSTAT;▶18◀▶0e◀VAR    R:REAL;▶0e◀▶14◀       QUQ:^INTEGER;▶14◀▶1b◀       FILNAVN2:STRING(20);▶1b◀▶13◀       J,I:INTEGER;▶13◀▶15◀    JOURFIL:JOURFILE;▶15◀▶01◀ ▶01◀▶05◀BEGIN▶05◀▶0e◀  CLEARSCREEN;▶0e◀▶1f◀  FILNAVN2:='RENTPOST:P1:50:I';▶1f◀▶1c◀  REWRITE(JOURFIL,FILNAVN2);▶1c◀-  WRITELN('R E N T E B E K R Æ F T E L S E');-▶08◀  REPEAT▶08◀▶10◀    GOTOXY(1,3);▶10◀6    WRITELN('Rettelse i linie          0 for færdig');6
    REPEAT
!      GOTOXY(18,3);READLN;READ(I)!▶15◀    UNTIL IORESULT=0;▶15◀▶0f◀    IF I>0 THEN▶0f◀	    BEGIN	▶07◀(*$C-*)▶07◀▶16◀      SEEK(JOURFIL,I);▶16◀▶13◀      GET(JOURFIL);▶13◀▶07◀(*$C+*)▶07◀-      IF IORESULT<>0 THEN WRITELN(IORESULT:5)-
      ELSE
▶0b◀      BEGIN▶0b◀▶14◀        GOTOXY(1,5);▶14◀H        WRITELN(JOURFIL^.KONTONR1*10000.0+JOURFIL^.KONTONR2:10:-2,' ':5,H!                '0 for rigtigt');!▶0e◀        REPEAT▶0e◀%          GOTOXY(30,5);READLN;READ(J)%▶19◀        UNTIL IORESULT=0;▶19◀▶13◀        IF J=0 THEN▶13◀\r        BEGIN\r▶16◀          GOTOXY(1,7);▶16◀<          WRITELN('Nyt beløb            0 for annullation');<▶10◀          REPEAT▶10◀'            GOTOXY(12,7);READLN;READ(R)'*          UNTIL (IORESULT=0) AND (R>=0.0);*.          IF R=0.0 THEN JOURFIL^.TEKSTKODE:=-1.%          ELSE JOURFIL^.BELØB:=R*100;%▶1a◀          SEEK(JOURFIL,I);▶1a◀▶16◀          PUT(JOURFIL)▶16◀▶0b◀        END▶0b◀	      END	▶07◀    END▶07◀\f

  UNTIL I=0;\f

▶11◀  CLOSE(JOURFIL);▶11◀'  CHAIN('INTRE   *1','POSTERRE:P1',QUQ)'▶04◀END.▶04◀▶00◀▶00◀',QUQ)'▶04◀END.▶04◀▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc▶00◀

Reduced view