⟦761f82b5b⟧

TextFile

conreadman=set 63 disc3
global conreadman
conreadman=compose
*pl 297,18,250,4,3**pn 0,0*
*lw 175**ps 0**sj*
H. C. Ørsted Institute
Computer Department
Universitetsparken 5
DK-2100 København Ø
*nl4*
*ct*
HCØ RC8000 algol8 library

conversational read procedure system
"conreadman"
*nl8*
Anders Lindgård
*sj* *nl19**lm 120*
80/3 *lm120**nl*
September 1980
*nl*
*rj**pn 5,0**ps 18*
*lm0*
Copyright 1976 and 1980 Anders Lindgård.*nl*
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.
*ns 1,4,Conversational read procedure system*
        ------------------------------------*nl**np*

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.
*nl**np*

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.
*sj*

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 
  <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
  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


*ef*
▶EOF◀
DataMuseum.dk

RC4000/8000/9000

⟦761f82b5b⟧ TextFile

Derivation

TextFile
