PSS ID Number: 110001
Article Last Modified on 11/4/1999
C Compile options needed: -MW
C
include 'flib.fi'
include 'fgraph.fi'
include 'flib.fd'
include 'fgraph.fd'
integer*2 grstat
call outtext('This is the default (*) window\n'c)
open (1,file='USER')
call outtext('This should be in Unit 1\n'c)
grstat=incharqq()
write (*,*) 'This should NOT bring the * unit to the '
+ //'foreground.'
call outtext('This should still be in Unit 1.\n'c)
grstat=incharqq()
open (2,file='USER')
call outtext('This should be in Unit 2\n'c)
grstat=incharqq()
write (1,*) 'This should have brought Unit 1 to the '
+ //'foreground.'
call outtext('This should be in Unit 1.\n'c)
end
Additional query words: 1.00
Keywords: KB110001
Technology: kbAudDeveloper kbFORTRANPower32100NT kbFortranSearch kbZNotKeyword2