Force GLUT_STROKE_ROMAN font to work under FTN95 ?

Dear users

I try to use scalled font different than number 8 called 'GLUT_BITMAP_HELVETICA_12 '. For example GLUT_STROKE_ROMAN number 1 should be available in FTN95 acording help manual but when I call CALL glutBitmapCharacter(1, ichar(c)) with '1' not '8' my program doesn't show anything even doesn't work.

The problem is that some other non scalled fonts works like bitmap fonts ex. CALL glutBitmapCharacter(7, ichar(c)) but when the resolution or widow is resizing this fonts doesn't change when scaled font do it. For examle free fortran g95 works with CALL glutBitmapCharacter(1, ichar(c)) when FTN95 seems to not work. How to forme FTN95 with procedure below that using scaled font called CALL glutBitmapCharacter(1, ichar(c)) means 'GLUT_STROKE_ROMAN number 1' started to work.

Regards

Leszek

!****************************************************************
        SUBROUTINE OUTPUT(x,y,s,gg)
!****************************************************************
!       GLUT_STROKE_ROMAN               1
!       GLUT_STROKE_MONO_ROMAN          2
!       GLUT_BITMAP_9_BY_15             3
!       GLUT_BITMAP_8_BY_13             4
!       GLUT_BITMAP_TIMES_ROMAN_10      5
!       GLUT_BITMAP_TIMES_ROMAN_24      6
!       GLUT_BITMAP_HELVETICA_10        7
!       GLUT_BITMAP_HELVETICA_12        8
!       GLUT_BITMAP_HELVETICA_18        9
!****************************************************************
      USE MYMOD
      INCLUDE <clearwin.ins>,nolist
      INCLUDE <opengl.ins>, nolist

      REAL*4    x,y
      CHARACTER s*(*)
      CHARACTER c
      INTEGER*4 gg,ww,dd
      lenc = len(s)
      CALL GET_TEXT_SIZE@(s,ww,dd)

      CALL glRasterPos3f(x,y,0.0)
      do 10, i=1,lenc
        c = s(i:i)

!     CALL glutBitmapCharacter(1, ichar(c)) DOESN'T WORK !!!!!!!!!!!
      CALL glutBitmapCharacter(8, ichar(c))

10   CONTINUE
       END SUBROUTINE