DataMuseum.dk

top - download

    Length: 1920 (0x780)
    Types: TextFile
    Notes: Mikados_K
    Names: »SKRIVFAK.K«

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

Mikados K File

PROGRAM SKRIVFAK;
CONST ML=51;
VAR S:STRING(20);SS:STRING(120);
    LINES:ARRAY (1..30) OF STRING(120);
  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;
BEGIN
  S:='FAKTEXT:P1:30:K';
  REWRITE(F,S);
  L:=0;
  FOR I:=1 TO 4 DO WRITELN(LIST);
  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:='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;
  CHAIN('INTRE   *1','HOVSA:P1',QUQ)
END.