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.

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◀

Full view