GETSTRQQ

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

Module

USE IFCORE

result = GETSTRQQ (buffer)

buffer

(Output) Character*(*). Character string returned from keyboard, padded on the right with blanks.

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

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

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

!  Program to demonstrate GETSTRQQ

 USE IFCORE

 USE IFPORT

 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