XProfan

Window Title "Mathematische Symbols without good Zugriff"
'=====================================================
Window Style 24:CLS:print
AppendMenuBar 100," Font- Chr$()    Beschreibunng"
Font 1:print " 1-  9 ",Chr$( 9),:Font 0:print " small circle, "
Font 1:print " 1- 11 ",Chr$(11),:Font 0:print " manly, "
Font 1:print " 1- 12 ",Chr$(12),:Font 0:print " feminine, "
Font 1:print " 1 -15 ",Chr$(15),:font 0:print " Operator (sun), "
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 " Base-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 " small Äquivalenz, "
font 1:print " 1-127 ",Chr$(127),:font 0:print " House, "
font 1:print " 1-120 ",Chr$(120),:font 0:print " time-Cross, "
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 " divides-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 " very plenty small as, "
font 1:print " 1-175 ",chr $(175),:font 0:print " very plenty larger as, "
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 " strain \ high 0, "
font 2:print " 2-185 ",chr $(185),:font 0:print " high 1, "
font 2:print " 2-178 ",chr $(178),:font 0:print " high 2, "
font 2:print " 2-179 ",chr $(179),:font 0:print " high 3, "
font 2:print " 2-215 ",chr $(215),:font 0:print " time-Cross, "
font 2:print " 0-216 ",:font 0:print chr $(216),:font 0:print " Durchmesser small, "
font 2:print " 2-248 ",:font 2:print chr $(248),:font 0:print " Durchmesser big, "
font 2:print " 2-216 ",chr $(216),:font 0:print " Gestrichene zero, "
font 2:print " 2-226 ",chr $(226),:font 0:print " dew-symbol, "
font 1:print " 1-228 ",chr $(228),:font 0:print " Sigma\amount, "
font 1:print " 1-236 ",chr $(236),:font 0:print " infinite, "
font 1:print " 1-238 ",chr $(238),:font 0:print " element of, "
Waitinput:CLS:print
font 1:print " 1-239 ",chr $(239),:font 0:print " intersection, "
font 1:print " 1- 85 ",chr $( 85),:font 0:print " mating with, "
font 1:print " 1-240 ",chr $(240),:font 0:print " Äquivalenz tall, "
font 1:print " 1-241 ",chr $(241),:font 0:print " +\- , "
font 1:print " 1-242 ",chr $(242),:font 0:print " larger-same, "
font 1:print " 1-243 ",chr $(243),:font 0:print " small-same, "
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 " about same, "
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 " amount-Strich, "
font 2:print " 2-183 ",chr $(183),:font 0:print " Mittlerer point, "
font 1:print " 1-216 ",chr $(216),:font 0:print " mismatched, "
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