XProfan

Italia

p.specht

Mich hat vor kurzem erstmals Unicode interessiert (Einleitendes Zeichen in Textfiles $FFFE). Dazu habe ich mal versuchsweise einen XProfan11-2a free Dateigenerator per mehrere (alle?) Unicode-"Planes" erstellt. Nicht ausgereift - bitte Pfade stets selbst checken und anpassen. Wer die File mit dem Windoof-Editor / Notepad öffnet (- dauert ein wenig), der findet doch einige neue Zeichen, die ganz brauchbar erscheinen.

P.S.: Die Chinesen sind dem Vernehmen nach mit der Sortierreihenfolge nicht zufrieden...

Kompilieren Markieren Separieren

WindowTitle upper$("unicode-generator")
' OHNE JEDWEDE GEWÄHR! PFADE GGF. SELBST ANPASSEN!
WindowStyle 24:cls:font 2:randomize
var user$=getenv$("USERNAME"):declare i&,j&
var MaxCodePlane&=255
print "\n Kontrolle: Ist Ihr Benutzername = ";chr$(34);user$;chr$(34);"?"
print "\n Falls nicht: Bitte   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 liegt am Desktop.\n BYE!"
beep:waitinput 2000
end
progend