Partage de source: code ASCII des polices du système

dim i%,j,cod$,a$,k,nom$,num,titre$
label point,debut,fin
list 1
left 1,25 : top 1,40 : width 1,150 : height 1,350
font_size 1,10
font_names_load 1
full_space 0
font_size 0,11

alpha 2 : font_name 2,"arial"
left 2,40 : top 2,420 : width 2,100 : height 2,25
caption 2,AFFICHER
on_click 2,debut
alpha 3 : font_name 3,"arial"
left 3,45 : top 3,480 : width 3,100 : height 3,25
caption 3,QUITTER
on_click 3,fin
alpha 4 : hide 4 : left 4,400 : top 4,15
font_name 4,"arial"
2d_line 20,416,140,416
2d_line 140,416,140,441
2d_line 140,441,20,441
2d_line 20,441,20,416
2d_line 20,476,140,476
2d_line 140,476,140,501
2d_line 140,501,20,501
2d_line 20,501,20,476
end
debut:
font_color 2,255,0,0
wait 500
font_color 2,0,0,0
num= item_index(1)
if num=0 then return
nom$= item_read$(1,num)
cls
2d_line 20,416,140,416
2d_line 140,416,140,441
2d_line 140,441,20,441
2d_line 20,441,20,416
2d_line 20,476,140,476
2d_line 140,476,140,501
2d_line 140,501,20,501
2d_line 20,501,20,476
titre$ = nom$ + " "
show 4 : caption 4,titre$
k=0 : j=0
font_name 0,nom$
display
for i%=1 to 255
cod$ = str$(i%) + "= " + chr$(i%)
j=j+1
print_locate 180+k*100,25+j*26
print cod$
if j>25 then gosub point
next i%
2d_line 20,416,140,416
2d_line 140,416,140,441
2d_line 140,441,20,441
2d_line 20,441,20,416
2d_line 20,476,140,476
2d_line 140,476,140,501
2d_line 140,501,20,501
2d_line 20,501,20,476
return
point:
k=k+1
j=0
return
fin:
font_color 3,255,0,0
wait 500
font_color 3,0,0,0
wait 100
terminate

Rem Liste des polices système
dim i%, j%, Police$, num
dim we, he, xh, yh, eh, xv, yv, ev
dim hx$, x%, y%, xlp, ylp
label Debut
hx$ = "0123456789ABCDEF"
we = 760: he = 680
width 0, we: height 0, he
Font_Name 0, "Courier New": Font_Size 0,14

Rem affichage de la liste des polices
list 1
left 1,5 : top 1,5 : width 1,200 : height 1,he-50
Font_Name 1, "Arial": Font_Size 1,10
Font_Names_Load 1
on_click 1, Debut

xh = 240 : yh = 30: eh = 30
xv = 220: yv = 60: ev = 36
List 2: top 2, yh: left 2, xh: width 2, 490: height 2, 20
Font_Name 2, "Courier New": Font_Size 2, 12: Font_Color 2, 0, 0, 255
List 3: top 3, yv: left 3, xv-5: width 3, 20: height 3, 570
Font_Name 3, "Courier New": Font_Size 3, 12: Font_Color 3, 0, 0, 255
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, Mid$(hx$, i%+1, 1): Item_Add 3, ""
Next i%
xlp = xh+13: ylp = yv
End

Debut:
num= Item_Index(1): If num=0 Then Return
Police$= Item_Read$(1, num)
Font_Name 0, Police$
Font_Size 0, 14
Print_Target_is 0
Display
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%
Return