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 ;