Run-Time Function: Reads a character string from the keyboard using buffered input.
Module: USE DFLIB
Syntax
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