GETSTRQQ

Run-Time Function: Reads a character string from the keyboard using buffered input.

Module: USE DFLIB

Syntax

result = GETSTRQQ (buffer)

buffer
(Output) Character*(*). Character string returned from keyboard, padded with blanks.

Results:

The result is of type INTEGER(4). The result is the number of characters placed in buffer.

The function does not complete until you press Return or Enter.

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

See Also: READ, GETCHARQQ, PEEKCHARQQ

Example

!  Program to demonstrate GETSTRQQ
 USE DFLIB
 INTEGER(4) length, result
 CHARACTER(80) prog, args
 WRITE (*, '(A, \)') ' Enter program to run: '
 length = GETSTRQQ (prog)
 WRITE (*, '(A, \)') ' Enter arguments: '
 length = GETSTRQQ (args)
 result = RUNQQ (prog, args)
 IF (result .EQ. -1) THEN
   WRITE (*,*) 'Couldn''t run program'
 ELSE
   WRITE (*, '(A, Z4, A)') 'Return code : ', result, 'h'
 END IF
 END