C PROPGEN_IFORT Intel FORTRAN version. 2018
C
	USE DFLIB
	USE DFPORT
      USE IFCORE
      USE IFPORT
C
	COMMON/MENUITEMCOUNTS/ITEMMAXFILETYPE,ITEMFILETYPE,ITEMCURVEFIT,
     *ITEMMAXGENERATE
C
	CHARACTER*128 DUMMY
      integer*4 IDUMMY
      integer*2 CURSOR

C      SETUPNAME='PROPGEN'
C 
C      CALL SETGRAF
      CALL SETGRF('SET')
C HERE IS THE MAIN FUNCTION
C
	WRITE(6,*) 'TEST OF CURSOR NOT SHOWING'
      WRITE(6,*) 'PRESS ENTER TO CONTINUE'
      CURSOR=DISPLAYCURSOR($GCURSORON)
      IDUMMY=GETSTRQQ(DUMMY)
	WRITE(6,*) 'CURSOR WORKS OK HERE in MAIN'

      WRITE(6,*)'NOW TEST CURSOR IN SUBROUTINE'
	WRITE(6,*)'SELECT "FILE/SETUP" TO SHOW PROBLEM'
	WRITE(6,*)
C
      DO WHILE(.TRUE.)
	CALL YIELDQQ
	CALL SLEEPQQ(200)
      END DO
      STOP
      END
C
C MENU INITIALIZATION  
C
	LOGICAL*4 FUNCTION INITIALSETTINGS  
	USE IFQWIN  
C
      LOGICAL STATUS        
C
      CHARACTER*30 mname 
      INTEGER*4 mnum
C
      COMMON/MENUITEMS/MNUMFILETYPE,MNUMEDITDATA,MNUMCURVEFIT,
     *MNUMGENERATE
	COMMON/MENUITEMCOUNTS/ITEMMAXFILETYPE,ITEMMAXEDITDATA,
     *ITEMMAXCURVEFIT,ITEMMAXGENERATE
C     
     	EXTERNAL FSXXXWINEXIT,SETUPFLUIDS
C
      mnum = 1
      mname = 'File'C           
      IF (.NOT.APPENDMENUQQ(mnum,$menuenabled,mname,nul)) THEN
        INITIALSETTINGS = .FALSE.
        RETURN
      END IF
C
C FILE
	MNAME='Setup'C
      STATUS=APPENDMENUQQ(MNUM,$MENUENABLED,MNAME,SETUPFLUIDS)
     	MNAME='Exit'C           
      STATUS=APPENDMENUQQ(MNUM,$MENUENABLED,MNAME,FSXXXWINEXIT)
C
      INITIALSETTINGS=.TRUE.
      RETURN
      END
C
      SUBROUTINE SETUPFLUIDS
      USE DFLIB
      USE IFCORE
      USE IFPORT
C
	CHARACTER*128 DUMMY
      INTEGER*2 CURSOR
      integer*4 IDUMMY
      DUMMY=' '
      CALL SETGRF('CLR')
	WRITE(6,*) 'TYPE SOME STUFF HERE AND THEN "ENTER" TO ACCEPT.'
      WRITE(6,*) 'NOTE CURSOR IS NOT PRESENT!!'
      CURSOR=DISPLAYCURSOR($GCURSORON)
      IDUMMY=GETSTRQQ(DUMMY)
C     READ(5,12) DUMMY
12    FORMAT(A128)
	WRITE(6,*) 'GETSTRQQ RETURNS:' , DUMMY
	WRITE(6,*) 'PRESS ENTER TO RETURN'
      IDUMMY=GETSTRQQ(DUMMY)
      CALL SETGRF('CLR')
	END
C		                    
      SUBROUTINE FSXXXWINEXIT  
	USE DFLIB 
	STOP
	END
C
      SUBROUTINE SETGRF(ONOFFCLR)
C SETS UP GRAPHICS MODE - MUST CALL WITH "SET" AT START OF PROGRAM
      USE DFLIB
C
      INTEGER*2  STATUS,CURSOR
      LOGICAL*4 LSTATUS
      CHARACTER*4 FTCHAR,HTC,WDC
      CHARACTER*20 OPTIONS
      CHARACTER*3 ONOFFCLR
      TYPE (windowconfig) VC
      TYPE (qwinfo) qwi
      RECORD / FONTINFO/ FONT
C SET SCREEN SIZE
C
      IF(ONOFFCLR.EQ.'OFF') THEN
	QWI.TYPE = QWIN$MAX
      i = SetWSizeQQ( 6, QWI )
      IBACK=7
	ISTATUS4=SETBKCOLOR(IBACK)
      CALL CLEARSCREEN($GCLEARSCREEN)
      STATUS=SETVIDEOMODE($DEFAULTMODE)
	RETURN
      ENDIF
C
      IF(ONOFFCLR.EQ.'CLR') THEN
C TEXT OUTPUT UNIT 12 CAN BE IN WAY
      STATUS=FOCUSQQ(6)
      CALL CLEARSCREEN($GCLEARSCREEN)
	CURSOR=DISPLAYCURSOR($GCURSOROFF)
      RETURN
      ENDIF
C

      RETURN
      END
C