Module streamio

Write to the given screen stream a 64-bit integer as decimal ASCII digits, padded out with leading spaces to the specified field width.

If the field width is too small for the number, then it is widened as necessary; a zero value for the field width will give minimum width; a negative field width is an error.

Write a 64-bit integer as hexadecimal ASCII characters preceded by the '#' character to the given screen stream.

Read word length quantities from the given key stream until ft.terminated is received, at which point this procedure terminates.

Write to the given screen stream an integer as decimal ASCII digits, padded out with leading spaces to the specified field width.

If the field width is too small for the number, then it is widened as necessary; a zero value for the field width will give minimum width; a negative field width is an error.

Write an integer as hexadecimal ASCII characters preceded by the '#' character to the given screen stream.

Convert output in screen stream protocol to output using ANSI screen conventions.

Receipt of st.endstream will terminate this procedure. ANSI screen convertions are set out in ANSI X3.64-1979 "Additional controls for use with american national standard code for information interchange."

Read lines from standard input and output them on the given key stream channel.

The value ft.terminated is sent on keys.out on termination. Termination of this procedure is either when an error occurs or when all characters from standard input have been read, ie when end of file from standard input is read. A '*c' is output to terminate a text line.

Convert keystream protocol into screen stream protocol.

This procedure is terminated by the receipt of ft.terminated from the keyboard stream. For keystream values above ft.tag, only ft.tag + 1 to ft.tag + 8 are dealt with, values above ft.tag + 8, and ft.tag itself are translated into st.beep. Keystream values which are negative, other than ft.terminated, are ignored. Keystream values in the range [0, ft.tag) are passed straight through, other than '*c' which is translated into '*c' followed by '*n'.

Read a double precision real number from the given keystream.

A distinction must be made here between a character held in a byte and a character held in a word length quantity. Here the former is referred to as a character and the latter as a 'character' ( note the quotes ). All input up to a plus sign, a minus sign or a decimal digit is skipped. The real is terminated when anything other than a valid real 'character' is encountered, and it is this 'character' that is returned in char if char is not set to ft.number.error.

Format into ASCII characters and then write to the given screen stream a double precision real number.

If Ip, Dp and number are such that the resulting formatted form is longer than 30 characters this procedure will act as an invalid process.

Read a decimal or hexadecimal integer from the given keystream.

A distinction must be made here between a character held in a byte and a character held in a word length quantity. Here the former is referred to as a character and the latter as a 'character' ( note the quotes ). Upper and lower case letters are permissible in a hexadecimal integer. All input up to a plus sign, a minus sign, a hash symbol, decimal digit, or a negative valued word is skipped. If it is the hash that is encountered first then it is a hexadecimal integer ( in two's complement form ) that is expected. If it is a negative valued word that is encountered then an input error has occurred and that value is returned in char. The integer is terminated when anything other than a valid digit ( hex and/or decimal, as the case may be ) is read, and it is this terminating quantity that is returned in char if the integer read is not invalid.

Read keys from the keyboard at full speed if they are available, otherwise waiting a given interval between polls of the keyboard, and output them as integers on the given key stream.

On termination, ft.terminated is sent on keys.out.

Read a 64-bit decimal or hexadecimal integer from the given keystream.

A distinction must be made here between a character held in a byte and a character held in a word length quantity. Here the former is referred to as a character and the latter as a 'character' ( note the quotes ). Upper and lower case letters are permissible in a hexadecimal integer. All input up to a plus sign, a minus sign, a hash symbol, decimal digit, or a negative valued word is skipped. If it is the hash that is encountered first then it is a hexadecimal integer ( in two's complement form ) that is expected. If it is a negative valued word that is encountered then an input error has occurred and that value is returned in char. The integer is terminated when anything other than a valid digit ( hex and/or decimal, as the case may be ) is read, and it is this terminating quantity that is returned in char if the integer read is not invalid.

Write the data sent on the given screen stream to a file.

This routine terminates on receipt of st.endstream on scrn. What is written to the file is the bytes that follow tags ( for those tags that have them ), with the exception that the st.out.int tag has its following INT32 truncated to a BYTE.

Write the data sent on the given screen stream to standard out.

This routine terminates on receipt of st.endstream on scrn. What is written to the file is the bytes that follow tags ( for those tags that have them ), with the exception that the st.out.int tag has its following INT32 truncated to a BYTE, and that the st.beep tag is transformed into '*#07'.

Read a single precision real number from the given keystream.

A distinction must be made here between a character held in a byte and a character held in a word length quantity. Here the former is referred to as a character and the latter as a 'character' ( note the quotes ). All input up to a plus sign, a minus sign or a decimal digit is skipped. The real is terminated when anything other than a valid real 'character' is encountered, and it is this 'character' that is returned in char if char is not set to ft.number.error.

Put the data received on given screen stream channel into given array.

This procedure terminates when st.endstream is read on channel scrn. This terminating st.endstream is stored in buffer as tt.endstream.

Output the data in the given array on the given screen stream channel.

This procedure terminates when tt.endstream is found in buffer. This tt.endstream is not sent out ( as st.endstream or anything else ).

Copy everything received on the given screen stream input channel to both of the given screen stream output channels.

Receipt of st.endstream on scrn will terminate this procedure, without sending the stream terminator on.

Read lines from a text file and output them on the given key stream channel.

The value ft.terminated is sent on keys.out on termination. Termination of this procedure is either when an error occurs or when all characters in the file have been read. A '*c' is output to terminate a text line.

Multiplex up to 256 screen stream channels onto a single such channel.

It is an error if there are more than 256 channels in screen.in. It is permissible for screen.in to be a null array. Each change of input channel directs output to the next line of the screen, and each such line is annotated at the left with the array index of the channel used followed by '>'. The tag st.endstream is ignored. To attempt some degree of fairness, let the implementation give priority in a heirarchy from screen.in with index i for SIZE screen.in, using modulo SIZE screen.in on the indexes; starting from 0 and incrementing it by one after each input accepted.

Convert output in screen stream protocol to output using TVI920 screen conventions.

Receipt of st.endstream will terminate this procedure.

Obtain the value of the next word length quantity from the given keystream channel.

Read a line of text from the given keystream channel.

Although characters ( ie BYTE's ) are inserted into line, it is word length quantities that are read from source. The line of text is deemed to be terminated by INT '*c' or any negative value. The word that terminated the line is not included in line. Any word read with a value greater than 255 ( the maximum that a byte can hold ) is ignored. Any '*n' read is ignored. If the array line is filled before a valid termination character is encountered, then all further words are ignored.

Format into ASCII characters and then write to the given screen stream a single precision real number.

If Ip, Dp and number are such that the resulting formatted form is longer than 24 characters this procedure will act as an invalid process.

Ignore all but st.endstream of screen stream protocol, and to terminate when it does receive st.endstream.

Copy the output of one screen stream to the input of another.

Receipt of st.endstream on scrn.in will terminate this procedure, without the stream terminator being passed on.

Send a character to the given screen stream.

Send the given string on the given screen stream.

Send "*c*n" on the given screen stream.

Write a st.endstream tag on the given screen stream

Send a text line on the given screen stream.