This is one version of http://www.gtoal.com/languages/algol60/TESTS/inout.a60.html from your personal cache.
The page may have changed since that time. Click here for the current page.
Since this page is stored on your computer, publicly linking to this page will not work.

Google may not be affiliated with the authors of this page nor responsible for its content. This page may be protected by copyright.

begin;
    comment 
    		INPUT AND OUTPUT ARE NOT IN THE RRA60 INCLUDED.
    		SO THIS EXAMPLE IS STILL AN EXAMPLE.
    
    		FOUR NUMBERS ARE REQUESTED.
    
    	
    ;
    real X, Y;
    integer I, J;
    OUTSTRING(1, "GIVE ME TWO REAL NUMBERS:\N");
    INREAL(0, X);
    INREAL(0, Y);
    OUTSTRING(1, "GOT: ");
    OUTREAL(1, X);
    OUTSTRING(1, " AND ");
    OUTREAL(1, Y);
    OUTSTRING(1, ".\N");
    OUTSTRING(1, "GIVE ME TWO INTEGER NUMBERS:\N");
    INREAL(0, I);
    INREAL(0, J);
    OUTSTRING(1, "GOT: ");
    OUTINTEGER(1, I);
    OUTSTRING(1, " AND ");
    OUTINTEGER(1, J);
    OUTSTRING(1, ".\N");
    OUTSTRING(1, "DONE.\N");
end ;