XProfan

Título de la ventana "Mathematische Symbole sin guten Zugriff"
'=====================================================
Ventana de Estilo 24:CLS:imprimir
AppendMenuBar 100," Font- Chr$()    Beschreibunng"
Font 1:imprimir " 1-  9 ",Chr$( 9),:Font 0:imprimir " Kleiner Kreis, "
Font 1:imprimir " 1- 11 ",Chr$(11),:Font 0:imprimir " männlich, "
Font 1:imprimir " 1- 12 ",Chr$(12),:Font 0:imprimir " weiblich, "
Font 1:imprimir " 1 -15 ",Chr$(15),:font 0:imprimir " Operator (Sonne), "
Font 1:imprimir " 1- 19 ",Chr$(19),:font 0:imprimir " Doppelfakultät, "
Font 2:imprimir " 2- 20 ",Chr$(20),:font 0:imprimir " Pi-Symbol, "
Font 1:imprimir " 1- 21 ",Chr$(21),:font 0:imprimir " Paragraph, "
Font 2:imprimir " 2- 21 ",Chr$(21),:font 0:imprimir " Base-Symbol (Inv.T), "
Font 1:imprimir " 1- 24 ",Chr$(24),:font 0:imprimir " Hochpfeil, "
font 1:imprimir " 1- 26 ",Chr$(26),:font 0:imprimir " Folgepfeil, "
font 1:imprimir " 1- 27 ",chr$(27),:font 0:imprimir " Linkshinweispfeil, "
font 1:imprimir " 1- 29 ",Chr$(29),:font 0:imprimir " Kleine Äquivalenz, "
font 1:imprimir " 1-127 ",Chr$(127),:font 0:imprimir " Haus, "
font 1:imprimir " 1-120 ",Chr$(120),:font 0:imprimir " Tiempo-Cruz, "
font 1:imprimir " 1-134 ",Chr$(134),:font 0:imprimir " Angström, "
Font 2:imprimir " 2-164 ",Chr$(164),:font 0:imprimir " Allg.Währungssymbol, "
font 2:imprimir " 2-168 ",chr$(168),:font 0:imprimir " Oberpunkte, "
font 1:imprimir " 1-159 ",chr$(159),:font 0:imprimir " Funktionssymbol, "
font 2:imprimir " 2-166 ",chr$(166),:font 0:imprimir " Teilt-symbol, "
font 2:imprimir " 2-169 ",Chr$(169),:font 0:imprimir " Copyright, "
Waitinput:CLS:imprimir
font 1:imprimir " 1-172 ",chr$(172),:font 0:imprimir " 1/4 , "
font 1:imprimir " 1-171 ",chr$(171),:font 0:imprimir " 1/2 , "
font 2:imprimir " 2-190 ",chr$(190),:font 0:imprimir " 3/4 , "
font 2:imprimir " 2-172 ",chr$(172),:font 0:imprimir " Non-Symbol, "
font 2:imprimir " 2-171 ",chr$(171),:font 0:imprimir " muy viel kleiner como, "
font 1:imprimir " 1-175 ",chr$(175),:font 0:imprimir " muy viel größer como, "
font 2:imprimir " 2-174 ",chr$(174),:font 0:imprimir " Registered Trademark, "
font 2:imprimir " 2-177 ",chr$(177),:font 0:imprimir " +\-, "
font 2:imprimir " 2-176 ",chr$(176),:font 0:imprimir " Grad \ hoch 0, "
font 2:imprimir " 2-185 ",chr$(185),:font 0:imprimir " hoch 1, "
font 2:imprimir " 2-178 ",chr$(178),:font 0:imprimir " hoch 2, "
font 2:imprimir " 2-179 ",chr$(179),:font 0:imprimir " hoch 3, "
font 2:imprimir " 2-215 ",chr$(215),:font 0:imprimir " Tiempo-Cruz, "
font 2:imprimir " 0-216 ",:font 0:imprimir chr$(216),:font 0:imprimir " Durchmesser klein, "
font 2:imprimir " 2-248 ",:font 2:imprimir chr$(248),:font 0:imprimir " Durchmesser fett, "
font 2:imprimir " 2-216 ",chr$(216),:font 0:imprimir " Gestrichene Null, "
font 2:imprimir " 2-226 ",chr$(226),:font 0:imprimir " Tau-Symbol, "
font 1:imprimir " 1-228 ",chr$(228),:font 0:imprimir " Sigma\Summe, "
font 1:imprimir " 1-236 ",chr$(236),:font 0:imprimir " Unendlich, "
font 1:imprimir " 1-238 ",chr$(238),:font 0:imprimir " Element de, "
Waitinput:CLS:imprimir
font 1:imprimir " 1-239 ",chr$(239),:font 0:imprimir " Schnittmenge, "
font 1:imprimir " 1- 85 ",chr$( 85),:font 0:imprimir " Vereinigt con, "
font 1:imprimir " 1-240 ",chr$(240),:font 0:imprimir " Äquivalenz gross, "
font 1:imprimir " 1-241 ",chr$(241),:font 0:imprimir " +\- , "
font 1:imprimir " 1-242 ",chr$(242),:font 0:imprimir " größer-igual, "
font 1:imprimir " 1-243 ",chr$(243),:font 0:imprimir " kleiner-igual, "
font 1:imprimir " 1-244 ",chr$(244),:font 0:imprimir " Oberteil Integral, "
font 1:imprimir " 1-179 ",Chr$(179),:font 0:imprimir " Mittelteil Integral, "
font 1:imprimir " 1-245 ",chr$(245),:font 0:imprimir " Unterteil Integral, "
font 2:imprimir " 2-247 ",chr$(247),:font 0:imprimir " Divisor, "
font 1:imprimir " 1-247 ",chr$(247),:font 0:imprimir " Ungefähr igual, "
font 1:imprimir " 1-251 ",chr$(251),:font 0:imprimir " Wurzelsymbol, "
font 1:imprimir " 1-234 ",Chr$(234),:font 0:imprimir " Ohm, "
font 2:imprimir " 2-124 ",chr$(124),:font 0:imprimir " Betrag-Strich, "
font 2:imprimir " 2-183 ",chr$(183),:font 0:imprimir " Mittlerer Punkt, "
font 1:imprimir " 1-216 ",chr$(216),:font 0:imprimir " ungleich, "
Waitinput
Ventana 0,0-%maxx,%maxy
Cls

whileloop 0,255

    font 0:imprimir "   ";&bucle;" ";CHR$(&Loop),
    font 1:imprimir chr$(&Loop),
    font 2:imprimir chr$(&Loop),
    caso %pos>140:imprimir "\n"

endwhile

waitinput