XProfan

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

whileloop 0,255

    font 0:print "   ";&loop;" ";CHR$(&Loop),
    font 1:print chr$(&Loop),
    font 2:print chr$(&Loop),
    case %pos>140:print "\n"

endwhile

waitinput