Subroutine:   PAUSE

Purpose:      To suspend a GIPSY task.

Category:     SYSTEM, USER-INTERFACE 

File:         srvreq.c

Author:       J.P. Terlouw

Use:          CALL PAUSE( TEXT )     Input     character

              TEXT     TEXT will be displayed in the task in the
                       status area on the terminal screen.

Example:      In this example three values are obtained by the
              servant task of which the combination must follow
              certain restrictions.

              .
              .
              .
              WHILE (.TRUE.)                    infinite loop
                 A = USERINT( .... )
                 B = USERINT( .... )
                 C = USERINT( .... )
                 IF combination of A, B, and C is valid
                 THEN
                    XWHILE
                 ELSE
                    CALL PAUSE('INVALID COMB. OF A, B AND C')
                    at this stage the user can correct any
                    input. Other inputs are kept. Then the user
                    can resume the task by typing CTRL-G.
                 CIF
              CWHILE
              .
              .
              .

Updates:      Jul 10, 1979: original document
              Feb 15, 1990: JPT, Portable version, rewritten in ANSI C.