BUG: Resource Manager Error When Printing Lots of Fonts (108717)

MORE INFORMATION

Steps to Reproduce Problem

SET TALK OFF
CLEAR
m.points = 10
@ 12,20 SAY 'Enter the point size ' GET m.points PICTURE '99'
READ
@ 12,0
@ 12,30 SAY 'Printing'
SET CONSOLE OFF
IF afont[FONTS]
   SET PRINT ON
   _PLINENO = 56
   m.counter = 1
   m.numfonts = ALEN(fonts,1)
   DO WHILE m.counter <= m.numfonts
      m.this_font = LTRIM(fonts(m.counter))
      SET CONSOLE ON
      @ 12,39 SAY SPACE(20)
      @ 12,39 SAY m.this_font
      SET CONSOLE OFF
      AFONT(sizes,(m.this_font))
      IF _PLINENO > 52
         DO rpthead
      ENDIF
      ?
      ? 'This is a 10 point sample of ' + m.this_font
      IF ALEN(sizes) = 1 .AND. TYPE('sizes(1)') = 'L' .AND. sizes(1) = .T.
         ?? '. This is a scalable font.'
      ENDIF
      ?   'ABCDEFGHIJKLMNOPQRSTUVWXYZ' + ;
          'abcdefghijklmnopqrstuvwxyz' + ;
          '1234567890!@#$%^& ; ())' FONT m.this_font,m.points
      ? 'This is ' + m.this_font + ' bold.'
      ?   'ABCDEFGHIJKLMNOPQRSTUVWXYZ' + ;
          'abcdefghijklmnopqrstuvwxyz' + ;
          '1234567890!@#$%^& ; ())' FONT m.this_font,m.points STYLE 'B'
      ? 'This is ' + m.this_font + ' italic.'
      ?   'ABCDEFGHIJKLMNOPQRSTUVWXYZ' + ;
          'abcdefghijklmnopqrstuvwxyz' + ;
          '1234567890!@#$%^& ; ())' FONT m.this_font,m.points STYLE 'I'
      ? 'This is ' + m.this_font + ' underline.'
      ?   'ABCDEFGHIJKLMNOPQRSTUVWXYZ' + ;
          'abcdefghijklmnopqrstuvwxyz' + ;
          '1234567890!@#$%^& ; ())' FONT m.this_font,m.points STYLE 'U'
      m.counter = m.counter + 1
   ENDDO
   EJECT
   SET PRINT OFF
   SET CONSOLE OFF
ENDIF
RETURN

PROCEDURE rpthead
EJECT
_PLINENO = 1
?
? 'A LISTING OF YOUR AVAILABLE WINDOWS FONTS' AT 25
? '-----------------------------------------' AT 25
?
RETURN