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

⟦264179898⟧

    Length: 1248 (0x4e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »TIMING«

Derivation

└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
    └─ ⟦this⟧ »TIMING«

Text

(*$D-,R-,C-*)
PROGRAM TIMING;
  VAR I, J: INTEGER;
      A,B,C: INTEGER;
      D: ARRAY( 1..5 ) OF INTEGER;
      E,F,G: REAL;
      H: CHAR;
 
PROCEDURE TOMPROC( VAR II: INTEGER );
BEGIN
END;
 
BEGIN
  WRITE( 'START....', CHR(7), CHR(7) );
 
  A := 17;
  B := 19;
  H := '1';
  FOR I:=1 TO 5 DO
    FOR J:=1 TO 10000 DO
      BEGIN
        TOMPROC( A )
      END;
 
  WRITELN( CHR(7), 'FÆRDIG.', CHR(7) )
END  (*TIMING*).