Editeur avec marquage syntaxique

Rem Liste des polices système
Dim i%, j%, k%, a$, Police$, np, we, he, xh, yh, eh, xv, yv, ev, tx$, x%, y%, xlp, ylp
Dim rf%, gf%, bf%, rc%, gc%, bc%, enr$, c$
Label Debut, Afpol, Cfond, Ccar, Clicar, Reaff,saute
tx$ = "Voyez Le Brick Géant Que J'Examine Près Du Wharf 0123456789"
we = 800: he = 760: width 0, we: height 0, he
Font_Name 0, "Courier New": Font_Size 0,14
Color 0,255,255,190: ON_CLICK 0, Clicar

Rem affichage de la liste des polices
List 1: Left 1,5 : Top 1, 4 : Width 1, 220 : Height 1, he - 195: ' liste des polices dispo
Font_Name 1, "Arial": Font_Size 1,10: Color 1,196,255,196
On_click 1, Debut

xh = 260 : yh = 38 : eh = 24
xv = 240 : yv = 60 : ev = 32
Rem affichage des échelles horizontale et verticale
List 2: Top 2, yh: Left 2, xh: Width 2, we-xv-60: Height 2, 20
Font_Name 2, "Courier New": Font_Size 2, 10: Font_Color 2, 0, 0, 255 : Font_Bold 2
List 3: Top 3, yv: Left 3, xv: Width 3, 20: Height 3, he - 250
Font_Name 3, "Courier New": Font_Size 3, 10: Font_Color 3, 0, 0, 255 : Font_Bold 3
Print_Target_Is 2: Print " 0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F"
For i% = 0 To 15: Item_Add 3, Hex$(i%): Item_Add 3, "": Next i%
xlp = xh+13: ylp = yv
Rem exemple de texte
List 4: Top 4, he - 170 : Left 4, 5: Width 4, we-30: Height 4,35: ' Texte exemple
List 5: Top 5, 5: Left 5, xh: Height 5, 28: Width 5, 300: ' Nom de police
Font_Name 5, "Arial Black": Font_Size 5, 10: Font_Color 5, 0, 0, 255
Dlist 6: FONT_NAMES_LOAD 6
np = COUNT(6): CAPTION 0, " " + STR$(np) + " polices de caractères"
Picture 9: Top 9,-800
For i% = 1 To np
    Police$ = ITEM_READ$(6, i%): FONT_NAME 9,Police$
    j% = TEXT_WIDTH("iiiiiiiiii",9): k% = TEXT_WIDTH("mmmmmmmmmm",9)
    if left$(police$,1)="@" then goto saute
    IF j% = k%
        a$ = "F " + Police$: ' police à pas fixe
    ELSE
        a$ = "  " + Police$: ' police proportionnelle
    END_IF
    ITEM_ADD 1, a$
saute:
NEXT i%
DELETE 9
ALPHA 10: TOP 10,TOP(4)+HEIGHT(4)+10: LEFT 10,10: CAPTION 10, "Fond:"
SCROLL_BAR 11:TOP 11,TOP(10)+3:LEFT 11,70: WIDTH 11,190
MIN 11,0: MAX 11,255: POSITION 11,255: ON_CHANGE 11,Cfond
ALPHA 12:TOP 12,TOP(10):LEFT 12,LEFT(11)+WIDTH(11):CAPTION 12,POSITION(11)
FONT_COLOR 12,192,0,0: FONT_BOLD 12
SCROLL_BAR 13:TOP 13,TOP(11):LEFT 13,300: WIDTH 13,190
MIN 13,0: MAX 13,255: POSITION 13,255: ON_CHANGE 13,Cfond
ALPHA 14:TOP 14,TOP(10):LEFT 14,LEFT(13)+WIDTH(13):CAPTION 14,POSITION(13)
FONT_COLOR 14,0,192,0: FONT_BOLD 14
SCROLL_BAR 15:TOP 15,TOP(11):LEFT 15,530: WIDTH 15,190
MIN 15,0: MAX 15,255: POSITION 15,255: ON_CHANGE 15,Cfond
ALPHA 16:TOP 16,TOP(10):LEFT 16,LEFT(15)+WIDTH(15):CAPTION 16,POSITION(15)
FONT_COLOR 16,0,0,255: FONT_BOLD 16
ALPHA 20: TOP 20,TOP(10)+30: LEFT 20,5: CAPTION 20, "Carac:"
SCROLL_BAR 21:TOP 21,TOP(20)+3: LEFT 21,70: WIDTH 21,190
MIN 21,0: MAX 21,255: POSITION 21,0: ON_CHANGE 21, Ccar
ALPHA 22:TOP 22,TOP(20):LEFT 22,LEFT(21)+WIDTH(21):CAPTION 22,POSITION(21)
FONT_COLOR 22,192,0,0: FONT_BOLD 22
SCROLL_BAR 23:TOP 23,TOP(21):LEFT 23,300: WIDTH 23,190
MIN 23,0: MAX 23,255: POSITION 23,0: ON_CHANGE 23, Ccar
ALPHA 24:TOP 24,TOP(20):LEFT 24,LEFT(23)+WIDTH(23):CAPTION 24,POSITION(23)
FONT_COLOR 24,0,192,0: FONT_BOLD 24
SCROLL_BAR 25:TOP 25,TOP(21):LEFT 25,530: WIDTH 25,190
MIN 25,0: MAX 25,255: POSITION 25,0: ON_CHANGE 25, Ccar
ALPHA 26:TOP 26,TOP(20):LEFT 26,LEFT(25)+WIDTH(25):CAPTION 26,POSITION(25)
FONT_COLOR 26,0,0,255: FONT_BOLD 26

CHECK 30: TOP 30,TOP(20)+30: LEFT 30,150: CAPTION 30, "Gras"
CHECK 31: TOP 31,TOP(30): LEFT 31,280: CAPTION 31, "Italique"
CHECK 32: TOP 32,TOP(30): LEFT 32,410: CAPTION 32, "Souligné"
CHECK 33: TOP 33,TOP(30): LEFT 33,540: CAPTION 33, "Barré"
FOR i% = 30 TO 33: ON_CLICK i%, Reaff: NEXT i%
enr$ = "0000"
for i% = 10 to 16 step 2: font_name i%, "Verdana": font_size i%,12: next i%
for i% = 20 to 26 step 2: font_name i%, "Verdana": font_size i%,12: next i%
for i% = 30 to 33: font_name i%, "Verdana": font_size i%,12: next i%

ALPHA 40: TOP 40,-2: LEFT 40,xh+405: FONT_SIZE 40,8:CAPTION 40,"Hex    Dec"
LIST 41: TOP 41,2: LEFT 41,xh+350: WIDTH 41,45: HEIGHT 41,30
FONT_COLOR 41,192,0,0: FONT_SIZE 41,18
LIST 42: TOP 42,10: LEFT 42,LEFT(41)+45: WIDTH 42,45: HEIGHT 42,23
LIST 43: TOP 43,10: LEFT 43,LEFT(42)+50: WIDTH 43,45: HEIGHT 43,23
FONT_NAME 42,"Lucida Console": FONT_NAME 43,"Lucida Console"

Police$ = "Arial": Gosub Afpol
End

Debut:
Police$= LTRIM$(MID$(Item_Index$(1),2,100)): ' choix d'une police dans la liste
Afpol:
Font_Name 0, Police$
Font_Size 0, 14
Print_Target_is 0
Display
Rem affichage des 256 caractères de la police
For j% = 0 To 255 Step 16
    y% = ylp + ev*j%/16
    For i% = j% to j% + 15
        x% = xlp + eh * (i%-j%)
        Print_Locate x%, y%: Print Chr$(i%)
    Next i%
Next j%
Font_Name 4, Police$: Font_Size 4, 18: Print_Target_Is 4
Clear 4: Print_Locate 5, 5: Print tx$
Clear 5: Print_Target_Is 5: Print " " + Police$
Return

Cfond:
rf% = POSITION(11): gf% = POSITION(13): bf% = POSITION(15)
CAPTION 12, STR$(rf%): CAPTION 14, STR$(gf%): CAPTION 16, STR$(bf%)
COLOR 4, rf%, gf%, bf%
RETURN

Ccar:
rc% = POSITION(21): gc% = POSITION(23): bc% = POSITION(25)
CAPTION 22, STR$(rc%): CAPTION 24, STR$(gc%): CAPTION 26, STR$(bc%)
FONT_COLOR 4, rc%, gc%, bc%
RETURN

Clicar:
x% = MOUSE_X_POSITION(0): y% = MOUSE_Y_POSITION(0)
IF x%<xlp OR x%>(xlp+eh*16) OR y%<ylp OR y%>(ylp+ev*16) THEN RETURN
CLEAR 41: CLEAR 42: CLEAR 43
x% = x%-6: y% = y%-10
x% = x%-xlp: x% = x%/eh: IF x% > 15 THEN x% = 15: ' colonne
y% = y%-ylp: y% = y%/ev: IF y% > 15 THEN y% = 15: ' rangée
i% = x% + 16*y%: ITEM_ADD 42," "+RIGHT$("0"+HEX$(i%),2): ' caractère, hexa
ITEM_ADD 43, STR$(i%): ' décimal
FONT_NAME 41,Police$: ITEM_ADD 41," "+CHR$(i%)
RETURN

Reaff:
a$ = "0": IF CHECKED(30) = 1 THEN a$ = "1"
c$ = "0": IF CHECKED(31) = 1 THEN c$ = "1"
a$ = a$ + c$
c$ = "0": IF CHECKED(32) = 1 THEN c$ = "1"
a$ = a$ + c$
c$ = "0": IF CHECKED(33) = 1 THEN c$ = "1"
a$ = a$ + c$
IF a$ <> enr$
    FONT_BOLD_OFF 4: FONT_ITALIC_OFF 4: FONT_UNDERLINE_OFF 4: FONT_STRIKE_OFF 4
    IF CHECKED(30) = 1 THEN FONT_BOLD 4
    IF CHECKED(31) = 1 THEN FONT_ITALIC 4
    IF CHECKED(32) = 1 THEN FONT_UNDERLINE 4
    IF CHECKED(33) = 1 THEN FONT_STRIKE 4
    enr$ = a$
END_IF
RETURN