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

⟦4f064f1ab⟧

    Length: 2528 (0x9e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »EXTTEST«

Derivation

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

Text

PROGRAM EXTTEST;
 
VAR  I: INTEGER;
 
PROCEDURE P( VAR P1: INTEGER; P2: BOOLEAN; P3: STRING ); EXTERNAL;
 
BEGIN
  I := 5;
  P( I, FALSE, 'TESTING' );
  WRITELN( 'AFTER CALL OF P: ', I )
END.