DataMuseum.dk

top - download

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

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

Mikados K File

PROGRAM SKRIVPAK;
CONST ML=72;
VAR S:STRING(20);SS:STRING(120);
    LINES:ARRAY (1..15) 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
L:=0;
FOR I:=1 TO 5 DO WRITELN(LIST);
  S:='PLISTE:P2:30:K';
  REWRITE(F,S);
  READLN(F);
  IF NOT EOF(F) THEN
  BEGIN
  FOR I:=1 TO 15 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;
  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 15 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;
  FF;
  CHAIN('INTRE   *1','HOVSA:P1',QUQ)
END.