DataMuseum.dk

top - download

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

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

Mikados K File

PROGRAM SKRIVFAK;
VAR S:STRING(20);SS:STRING(120);
    ML,L,I:INTEGER;
    QUQ:^INTEGER;
    F:TEXT;
PROCEDURE FF;
BEGIN
  L:=L MOD ML;
  WHILE L<ML DO
  BEGIN
    WRITELN(LIST);
    L:=L+1
  END;
  L:=0
END;
PROCEDURE TESTPRINT;
VAR LINES:ARRAY (1..30) OF STRING(120);
    CH:CHAR;
BEGIN
  IF NOT EOF(F) THEN
  BEGIN
    FOR I:=1 TO 30 DO
    BEGIN
      READLN(F,LINES(I));
      IF LINES(I)='%P' THEN
        FF
      ELSE
      BEGIN
        L:=L+1;
        WRITELN(LIST,LINES(I))
      END;
      IF EOF(F) THEN I:=30
    END;
    REPEAT
      REPEAT
        CLEARSCREEN;
        GOTOXY(1,5);
        WRITELN('FLERE TESTPRINT, J/N ');
        GOTOXY(22,5);
        READLN;READ(CH)
      UNTIL IORESULT=0;
      IF CH='n' THEN CH:='N';
      IF CH<>'N' THEN
      BEGIN
        IF LINES(1)<>'%P' THEN FF;
        FOR I:=1 TO 30 DO
        IF LINES(I)='%P' THEN
          FF
        ELSE
        BEGIN
          WRITELN(LIST,LINES(I));L:=L+1
        END
      END
    UNTIL CH='N'
  END
END;
BEGIN
  S:='FAKTEXT:P1:30:K';
  REWRITE(F,S);
  L:=0;
  ML:=51;
  FOR I:=1 TO 4 DO WRITELN(LIST);
  READLN(F);
  TESTPRINT;
  WHILE NOT EOF(F) DO
  BEGIN
    READLN(F,SS);
    IF SS='%P' THEN
      FF
    ELSE
    BEGIN
      L:=L+1;
      WRITELN(LIST,SS)
    END
  END;
  CLOSE(F);
  S:='TOLDTXT:P1:30:K';
  REWRITE(F,S);
  READLN(F);
  FF;
  WHILE NOT EOF(F) DO
  BEGIN
    READLN(F,SS);
    IF SS='%P' THEN
      FF
    ELSE
    BEGIN
      L:=L+1;
      WRITELN(LIST,SS)
    END
  END;
  CLOSE(F);
  FF;
  S:='KRETEXT:P1:10:K';
  REWRITE(F,S);
  READLN(F);
  WHILE NOT EOF(F) DO
  BEGIN
    READLN(F,SS);
    IF SS='%P' THEN FF ELSE BEGIN WRITELN(LIST,SS); L:=L+1 END
  END;
  CLOSE(F);
  REWRITE(F,S);
  CLOSE(F);
  FF;
  ML:=72;
  S:='TOLDPTXT:P1:10:K';
  REWRITE(F,S);
  READLN(F);
  IF NOT EOF(F) THEN
  BEGIN
    WRITELN('Monter udførselsangivelser, tryk RETURN');READLN
  END;
  TESTPRINT;
  WHILE NOT EOF(F) DO
  BEGIN
    READLN(F,SS);
    L:=L+1;
    WRITELN(LIST,SS)
  END;
  FF;
  CLOSE(F);
  REWRITE(F,S);
  CLOSE(F);
  S:='CERTITXT:P1:10:K';
  REWRITE(F,S);
  READLN(F);
  IF NOT EOF(F) THEN
  BEGIN
    WRITELN('Monter varecertifikater, tryk RETURN');READLN
  END;
  TESTPRINT;
  WHILE NOT EOF(F) DO
  BEGIN
    READLN(F,SS);
    L:=L+1;
    WRITELN(LIST,SS);
  END;
  FF;
  CLOSE(F);
  REWRITE(F,S);
  CLOSE(F);