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

⟦5756c62bc⟧

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

Derivation

└─⟦ca21ef4c0⟧ Bits:30005311 Extended Pascal System Disc v. 04.07.1980 (SPC/1)
    └─ ⟦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.