Platform

Win32, x64

Purpose

To return the name of the loaded font.

Syntax

SUBROUTINE GET_FONT_NAME@( NAME, NUM )
CHARACTER(*) NAME
INTEGER     NUM

Description

The name of an installed font is returned in the NAME parameter. NUM references the installed fonts and should start at 1. If a call is made and there is no associated font to the number supplied an empty string will be returned.

Example

INCLUDE <windows.ins>
CHARACTER*20 name
DO k=1,3000
  CALL get_font_name@(name,k)
  IF(name.EQ.' ')STOP
  PRINT *,name
ENDDO
END