این کد تمام فونتهای موجود در سیستم را لیست می کند :


AFONT(laFont)

lnCuenta=ALEN(laFont)

DEFINE POPUP Fonts

FOR INDEX = 1 TO lnCuenta

  DEFINE BAR INDEX OF Fonts PROMPT ALLTRIM(laFont(INDEX)) FONT ALLTRIM(laFont(INDEX))

ENDFOR

ACTIVATE POPUP Fonts