|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 10752 (0x2a00)
Types: TextFile
Names: »conreadman«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »conreadman«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »conreadman«
\f
H. C. Ørsted Institute
Computer Department
Universitetsparken 5
DK-2100 København Ø
HCØ RC8000 algol8 library
conversational read procedure system
"conreadman"
Anders Lindgård
80/3
September 1980
\f
1
Copyright 1976 and 1980 Anders Lindgård.
For the time being this procedure set can be used freely for research
or other nonprofit purposes. Any other use demands written permission
from the author.
Conversational read procedure system
------------------------------------
The algol system as defined in ref. 1 is designed for an
essentially batch oriented system. Especially the read and write
procedures are not well suited for interactions with a running
program. This set of procedures are especially designed for operator
interaction with running programs from consoles. They may however be
used for reading of parameters from any medium.
At run time the procedures writes the user supplied text on current
output and reads a parameter from current input. The parameter has
to be a legal value or the procedure will repeat the action. The
parameter must be terminated by a NL-character (On most terminals the
RETURN key provides a NL-character). Else the procedure will repeat
the action. If an EM character is met the procedures will terminate
the program with an alarm.
List of procedures 1980-10-10
boolean procedure readb(text);
string text;
integer procedure readi(text);
string text;
integer procedure readil(text,lower_limit,upper_limit);
string text;
value lower_limit,upper_limit; integer lower_limit,upper_limit;
long procedure readl(text);
string text;
long procedure readll(text,lower_limit,upper_limit);
string text;
value lower_limit,upper_limit; integer lower_limit,upper_limit;
real procedure readr(text);
string text;
real procedure readrl(text,lower_limit,upper_limit);
value lower_limit,upper_limit; real lower_limit,upper_limit;
procedure reads(text,a);
string text;
real array a;
Details about the procedures.
readb.
Preceded by a NL-character the text in the
procedure call is output on current output followed by
\f
2
<SP>?<SP>. The input as legal answers may be:
yes , true , ja , sand => the value true
no , false , nej , falsk => the value false
Any terminator<>NL will cause the procedure to repeat the
action.
If input medium is different from output medium
a verification is given on current output with the same
text as input.
readi.
Preceded by a NL-character the text in the
procedure call is output on current output followed by
<SP>=<SP> and an integer is read from current input.
Any terminator<>NL will cause the procedure to repeat the
action.
If input medium is different from output medium a verification
is given on current output displaying the value read.
readil.
Preceded by a NL-character the text in the
procedure call is output on current output followed by
<SP>=<SP> and an integer is read from current input.
If the integer is outside the range defined by
lower_limit,upper_limit the procedure repeats the action.
Any terminator<>NL will cause the procedure to repeat the
action.
If input medium is different from output medium a verification
is given on current output displaying the value read.
readl.
Preceded by a NL-character the text in the
procedure call is output on current output followed by
<SP>=<SP> and a long is read from current input.
Any terminator<>NL will cause the procedure to repeat the
action.
If input medium is different from output medium a verification
is given on current output displaying the value read.
readll.
Preceded by a NL-character the text in the
procedure call is output on current output followed by
<SP>=<SP> and a long is read from current input.
If the long is outside the range defined by
lower_limit,upper_limit the procedure repeats the action.
Any terminator<>NL will cause the procedure to repeat the
action.
If input medium is different from output medium a verification
is given on current output displaying the value read.
readr.
Preceded by a NL-character the text in the
procedure call is output on current output followed by
<SP>=<SP> and a real is read from current input.
Any terminator<>NL will cause the procedure to repeat the
action, and so will an illegal algol 6 number.
If input medium is different from output medium a verification
is given on current output displaying the value read.
readrl.
Preceded by a NL-character the text in the
\f
3
procedure call is output on current output followed by
<SP>=<SP> and a real is read from current input.
If the real is outside the range defined by
lower_limit,upper_limit the procedure repeats the action.
Any terminator<>NL will cause the procedure to repeat the
action, and so will an illegal algol 6 number.
If input medium is different from output medium a verification
is given on current output displaying the value read.
reads.
Preceded by a NL-character the text in the
procedure call is output on current output followed by
<SP>=<SP> and a textstring is read from current input.
The array a is cleared before reading the textstring.
The array a must be able to hold the text read
or the procedure repeats the action.
Any terminator<>NL will cause the procedure to repeat the
action.
If input medium is different from outputmedium a
a verification is given on current output displaying the
string input.
Ref. 1.
H. Dinsen Hansen (Ed.)
Algol 6, Users Manual
Regnecentralen
Copenhagen 1974
\f
▶EOF◀