Code:
Befehl: (initget 1 "Yes No") nilBefehl:
_HELP
Befehl: !x
nil
Befehl: (setq x (getkword "Are you sure? (Yes or No) "))
Are you sure? (Yes or No) s
Ungültiger Optionstitel.
Are you sure? (Yes or No) x
Ungültiger Optionstitel.
Are you sure? (Yes or No) y
"Yes"
Befehl: !x
"Yes"
Befehl: (initget "Abc Def _Ghi Jkl")
nil
Befehl: (getkword "\nEnter an option (Abc/Def): ")
Enter an option (Abc/Def): x
Ungültiger Optionstitel.
Enter an option (Abc/Def): a
Ungültiger Optionstitel.
Enter an option (Abc/Def): A
Ungültiger Optionstitel.
Enter an option (Abc/Def): _G
Ungültiger Optionstitel.
Enter an option (Abc/Def): *Abbruch*
; Fehler: Funktion abgebrochen
Befehl: !x
"Yes"