Ich finde es auch voll lustig. Ich denke, du meinst die normalen Kopfhaare. Es gibt ja noch andere (beispielsweise Achselhaare, Schamhaare, Haare an Beinen, Armen,…), bei denen es normalerweise leichter fällt. Falls es dann doch zu leicht ist, hier einige Vorschläge: Man könnte diese anderen Haare auch ganz abrasieren. Oder auch epilieren/waxen damit es auch ein bisschen weh tut.

Oder du musst beispielsweise einen Monat lang deine Beine jeden 2. Tag rasieren, oder wenn die Haare wieder eine gewisse Länge haben.

Oder es müssen, einen Monat lang, nur (bestimmte) freiliegenden Stellen rasiert/enthaart sein. Wenn es beispielsweise die Achseln sind, musst du diese vorher rasieren, bevor du etwas ärmelloses anziehen darfst. Sind es die Beine, musst du, bevor du beispielsweise einen kurzen Rock anziehst, deine Beine rasieren. Oder du lässt das rasieren bleiben, dann bist du aber in deiner Kleiderwahl eingeschränkt.

Die Zeiten/Körperteile/Enthaarungsmethoden sind natürlich nur Beispiele. Du kannst natürlich auch ganz andere nehmen.

nomainwin
button #alt, "neu", [neu], ul, 10, 10
open "alt" for window as #alt
wait
[neu]
open "neu" for window as #neu
wait

nomainwin
button #alt.neu, "neu", neu, ul, 10, 10
open "alt" for window as #alt
wait
sub neu x$
open "neu" for window as #neu
end sub
wait

nomainwin
button #alt.neu, "neu", neu, ul, 10, 10
open "alt" for window as #alt
[loop]
input a$
if a$="neu" then open "neu" for window as #neu
goto [loop]

Ich hab dir hier mal drei Programme mit den entsprechenden Befehlen geschrieben. Falls noch was unklar ist, frag einfach nach.