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

⟦8764e1bcf⟧

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

Derivation

└─⟦ca21ef4c0⟧ Bits:30005311 Extended Pascal System Disc v. 04.07.1980 (SPC/1)
    └─ ⟦this⟧ »READTEST«

Text

PROGRAM READTEST;
 
VAR AZ,BW,CZ: INTEGER;
    X,Z: STRING;
 
PROCEDURE SHOWSTATUS;
BEGIN
  WRITE( 'EOF ' );
  IF EOF THEN WRITE( 'TRUE' ) ELSE WRITE( 'FALSE' );
  WRITE( ' - EOLN ' );
  IF EOLN THEN WRITELN( 'TRUE' ) ELSE WRITELN( 'FALSE' );
END;
 
BEGIN
  SHOWSTATUS;
  READLN;
  SHOWSTATUS;
  READ( AZ,BW );
  SHOWSTATUS;
  READLN( CZ, X );
  SHOWSTATUS;
  READ( Z );
  SHOWSTATUS;
  WRITELN( 'INPUT1:',AZ,':',BW,':',CZ,':');
  WRITELN( 'INPUT2:',X,':',Z,':' )
END.