DataMuseum.dk

top - download

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

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

Mikados K File

PROGRAM LISTKNUD;
CONST ML=48;
TYPE
PROCSTAT=RECORD
       NP,NROSTART:INTEGER
END;
NPFILE=FILE OF PROCSTAT;
VAR S:STRING(20);SS:STRING(120);
    LINES:ARRAY (1..30) OF STRING(120);
  L,I:INTEGER;
    QUQ:^INTEGER;
    NRPF,CF:NPFILE;
    F:TEXT;
PROCEDURE FF;
BEGIN
  L:=L MOD ML;
  WHILE L<ML DO
  BEGIN
    WRITELN(LIST);
    L:=L+1
  END;
  L:=0
END;
BEGIN
  L:=0;
  FOR I:=1 TO 1 DO WRITELN(LIST);
  S:='KLABELS:P1:30:K';
  REWRITE(F,S);
  READLN(F);
  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, 0 FOR NEJ');
    GOTOXY(40,5);
    READLN;READ(I)
  UNTIL IORESULT=0;
  IF I<>0 THEN
  FOR I:=1 TO 30 DO
  IF LINES(I)='%P' THEN FF ELSE BEGIN WRITELN(LIST,LINES(I));L:=L+1 END
  UNTIL I=0;
  WHILE NOT EOF(F) DO
  BEGIN
  READLN(F,SS);
  IF SS='%P' THEN FF ELSE
  BEGIN
  L:=L+1;
  WRITELN(LIST,SS)
  END
 
  END;
  END;
  CLOSE(F);
  S:='PROCSTAT:P2:0:I';
(*$C-*)
  REPEAT
    REWRITE(NRPF,S);
    SEEK(NRPF,1)
  UNTIL IORESULT=0;
(*$C+*)
  GET(NRPF);
  NRPF^.NP:=1;
  SEEK(NRPF,1);
  PUT(NRPF);
  REPEAT
    GOTOXY(1,20);
    WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');
    READLN;
(*$C-*)
    REWRITE(CF,'C1:P1:0:J');
    SEEK(CF,1)
(*$C+*)
  UNTIL IORESULT=0;
  CLOSE(CF);
  CLOSE(NRPF);
  CHAIN('INTRE   *1','HOVSA:P1',QUQ)
END.