XProfan

English

p.specht

me has recently erstmals Unicode interested (Einleitendes characters in Textfiles $FFFE). moreover have I time versuchsweise a XProfan11-2a free Dateigenerator for several (any?) Unicode-"Planes" prepares. not reif - Please Paths always self checken and adjust. who The File with the Windoof-editor / Notepad opens (- lasts a little bit), the finds still some new characters, The integrally useable attend.

P.s.: The chinamen are the Vernehmen to with the Sortierreihenfolge not pleased...

Compile Mark Separation

Window Title upper$("unicode-generator")
' OHNE JEDWEDE GEWÄHR! PFADE GGF. SELBST ANPASSEN!
Window Style 24:cls:font 2:randomize
var user$=getenv$("USERNAME"):declare i&,j&
var MaxCodePlane&=255
print "\n control: is your Username = ";chr $(34);user$;chr $(34);"?"
print "\n if not: Please   A B B R E C H E n !":waitinput
assign #1,"C:\\Users\\"+User$+"\\Desktop\\all_ucod.txt"
rewrite #1
print #1,chr $($FE);chr $($FF);'Unicode-Kennung

whileloop 0,MaxCodePlane&:i&=&Loop

    whileloop 0,255:j&=&Loop

        print #1,chr $(i&);chr $(j&);
        print #1,chr $(0);chr $(32);
        casenot j& mod 64:print #1,chr $(0);chr $(13);chr $(0);chr $(10);

    endwhile

    print #1,chr $(0);chr $(13);chr $(0);chr $(10);
    print #1,chr $(0);chr $(13);chr $(0);chr $(10);

endwhile

print #1,chr $(0);chr $(0);chr $(0);chr $(0);
close #1
print "\n\n File lying on the Desktop.\n BYE!"
beep:waitinput 2000
end
progend