Polices fixes installées

' Liste des polices de caractères à pas fixe installées
DIM pol$, sz, x, y, i%, xr, yr, ya
LABEL Tailcar

LIST 1: TOP 1, 0: LEFT 1, 10: WIDTH 1, 200: HEIGHT 1, 200
LIST 2: TOP 2, 0: LEFT 2, 220: WIDTH 2,200: HEIGHT 2, 200
PICTURE 3: TOP 3, 220: LEFT 3, 10: WIDTH 3, 550: HEIGHT 3, 200
sz = 10: pol$ = "Courier New": GOSUB Tailcar: xr = x: yr = y: ' référence
FONT_NAMES_LOAD 1
FOR i% = 1 TO COUNT(1)
    pol$ = ITEM_READ$(1, i%): GOSUB Tailcar
    IF x = xr THEN ITEM_ADD 2, pol$: ' même longueur que Courier New
NEXT i%
PRINT_TARGET_IS 3: FONT_SIZE 3, sz
ya = 5
FOR i% = 1 TO COUNT(2)
    FONT_NAME 3, ITEM_READ$(2, i%): ' exemple d'affichage de chaque police
    PRINT_LOCATE 3, ya
    PRINT STR$(i%)+") Voyez Le Brick Géant Que J'examine Près Du Wharf 0123456789"
    ya = ya + yr+5
NEXT i%
END

Tailcar:
' Largeur/Hauteur des caractères, en pixels
PICTURE 300: TOP 300, -150: WIDTH 300, 900: HEIGHT 300, 100: COLOR 300, 1, 1, 1
PRINT_TARGET_IS 300: FONT_NAME 300, pol$: FONT_SIZE 300, sz
FONT_COLOR 300,0,0,0: PRINT "AaBbCcDdEeFfGgHhIiJj"
FOR x = 0 TO 799
    IF COLOR_PIXEL_RED(300,x,0) = 1 THEN EXIT_FOR
NEXT x
FOR y = 0 TO 100
    IF COLOR_PIXEL_RED(300,0,y) = 1 THEN EXIT_FOR
NEXT y
PRINT_TARGET_IS 0: DELETE 300
RETURN