FTN95 code follows. If the WINIO@ statements within the Options box are seperated or if the %dy control not used then this test case may be seen to work okay.
C
IMPLICIT REAL*8 (A-H, O-Z)
IMPLICIT INTEGER*2 (J)
C
INCLUDE <WINDOWS.INS>
C
EXTERNAL ISCRN1, ISCRN2
C
COMMON / VALUES / IVAL, INDLEV, INDGR1, INDGR2
C
IVAL = 10
INDLEV = 1
INDGR1 = 1
I = MNFUNC()
C
I = WINIO@('Step 1 : select Screen 1&')
I = WINIO@('%ffStep 2 : click into several drop down lists&')
I = WINIO@('%ffStep 3 : return here and select Screen 2&')
I = WINIO@('%ff %ffIn Windows 8 the test will crash&')
I = WINIO@('%ff %ff&')
I = WINIO@('Screen : %3^bt[1]&', ISCRN1)
I = WINIO@('%ff %ff&')
I = WINIO@('Screen : %3^bt[2]', ISCRN2)
C
STOP
END
INTEGER FUNCTION ISCRN1()
C
IMPLICIT REAL*8 (A-H, O-Z)
IMPLICIT INTEGER*2 (J)
C
EXTERNAL MNFUNC
C
INCLUDE <WINDOWS.INS>
C
CHARACTER CHLIST1(4)*10, CHLIST2(4)*10, CHLIST3(4)*10,
* CHLIST4(4)*10, CHLIST5(4)*10, CHLIST6(4)*10
C
COMMON / VALUES / IVAL, INDLEV, INDGR1, INDGR2
C
DATA NOSLIST1,ILIST1 / 4, 1 /
DATA CHLIST1 / 'Off', 'Apples', 'Oranges', 'All' /
C
DATA NOSLIST2,ILIST2 / 4, 1 /
DATA CHLIST2 / 'Off', 'VW', 'Ford', 'All' /
C
DATA NOSLIST3,ILIST3 / 4, 1 /
DATA CHLIST3 / 'Off', 'AA', 'RAC', 'All' /
C
DATA NOSLIST4,ILIST4 / 4, 1 /
DATA CHLIST4 / 'Off', 'A roads', 'B roads', 'All' /
C
DATA NOSLIST5,ILIST5 / 4, 1 /
DATA CHLIST5 / 'Off', 'Stone', 'Paper', 'All' /
C
DATA NOSLIST6,ILIST6 / 4, 1 /
DATA CHLIST6 / 'Off', 'Sky', 'Land', 'All' /
C
DY = 0.75D0
C
I = WINIO@('%sy[3D_thin,thin_border]&')
I = WINIO@('%ww[no_maxminbox]&')
I = WINIO@('%bg[btnface]&')
I = WINIO@('%fd&')
I = WINIO@('%ca[Screen 1]&')
I = WINIO@('%`cn&')
C
I = WINIO@('%ob[named_l][Options]&')
I = WINIO@('%dyChoice 1 :%ta%dy%`^12.4ls&',
* DY, -0.75D0, CHLIST1, NOSLIST1, ILIST1, MNFUNC)
I = WINIO@('%ff %ff%dyChoice 2 :%ta%dy%`^12.4ls&',
* DY, -0.75D0, CHLIST2, NOSLIST2, ILIST2, MNFUNC)
I = WINIO@('%ff %ff%dyChoice 3 :%ta%dy%`^12.4ls&',
* DY, -0.75D0, CHLIST3, NOSLIST3, ILIST3, MNFUNC)
I = WINIO@('%ff %ff%dyChoice 4 :%ta%dy%`^12.4ls&',
* DY, -0.75D0, CHLIST4, NOSLIST4, ILIST4, MNFUNC)
I = WINIO@('%ff %ff%dyChoice 5 :%ta%dy%`^12.4ls&',
* DY, -0.75D0, CHLIST5, NOSLIST5, ILIST5, MNFUNC)
I = WINIO@('%ff %ff%dyChoice 6 :%ta%dy%`^12.4ls&',
* DY, -0.75D0, CHLIST6, NOSLIST6, ILIST6, MNFUNC)
I = WINIO@('%cb&')
C
I = WINIO@('%ff %ff%ob[no_border]&')
I = WINIO@('%`~rb[Variable]&', INDLEV, INDGR1)
I = WINIO@('%~rd&', IVAL, INDGR21)
I = WINIO@('%cb&')
C
I = WINIO@('%if%ff %ff %ff%6bt[OK]')
C
ISCRN1 = 1
C
RETURN
END