XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Edit: nur Großbuchstaben erlauben
declare ende&,edit&
cls
edit& = Create(Edit,%hwnd,,10,10,200,24)
SetStyle edit&,Or(GetStyle(edit&),$08)$08 = ES_UPPERCASE

whilenot ende&

    waitinput

endwhile