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

⟦e0149d91c⟧ TextFile

    Length: 3744 (0xea0)
    Types: TextFile
    Notes: Mikados_K
    Names: »PIP.K«

Derivation

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

Mikados K File

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;

Full view