Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.atnf.csiro.au/computing/software/gipsy/sub/anyout.dc2 Дата изменения: Mon Feb 5 07:28:23 2001 Дата индексирования: Fri Jan 16 01:13:59 2009 Кодировка:

Subroutine: ANYOUT

Purpose: General character output routine for GIPSY programs.

Category: USER-INTERFACE

File: srvreq.c

Author: J.P. Terlouw

Use: CALL ANYOUT( LDEV, Input integer
TEXT ) Output character

LDEV Device to which output is directed.
The following devices are possible:
0 use default [set by HERMES to 3
but can be changed by user]
1 terminal
2 LOG file (=line printer)
8 terminal, suppressed in "experienced mode"
16 terminal, only when in "test mode"
These devices can be combined by adding the codes.
For terminal device the max. line length is 80
characters, for LOG file the max. is 130 characters.
TEXT This character string contains the text which
will be sent to the output device.
The first character in the string is used for
printer(terminal) control in the normal way
(eg 1 for a new page)

Examples: - Put text on terminal
CALL ANYOUT( 1, ' THIS IS TEXT' )
- Both to terminal and LOG FILE
CALL ANYOUT( 3, ' TWO FILES OUTPUT' )
- Put text on default device and start a new page
CALL ANYOUT( 0, '1THIS IS A NEW PAGE')
- Prepare the array TEXT before calling
CHARACTER*40 TEXT
.
.
.
WRITE( TEXT, '('' Values for I and J are:'',2I3)') I, J
CALL ANYOUT( 0, LINE )

Updates: ~1979: original document
Mar 6, 1989: KGB, New document.
Feb 15, 1990: JPT, Portable version, rewritten in ANSI C.