Zeichensatz anzeigen

[Frabbing]

Für Symbol-Zeichensätze benötigt man oft eine Liste der Zeichenzuweisungen. Ist hiermit schnell selbst gemacht, einfach den Namen des Zeichensatz anpassen:

Declare text$,y&,x&

Window 0,0-%maxx,%maxy

text$="Webdings"
Print " "
Print "    "+text$

Whileloop 8
  Whileloop 32

    Usefont text$,22,0,0,0,0
    TextColor RGB(0,0,0),-1
    DrawText 32+((&loop-1)*18),32+y&,Chr$(x&)

    Usefont "Lucida Console",18,0,0,0,0
    TextColor RGB(128,128,255),-1
    DrawText 32+((&loop-1)*18),32+20+y&,Chr$(x&)

    x&=x&+1
  Wend
  y&=y&+42
  
Wend

WaitInput
End