Vielleicht hilft auch dieser alte Pascal-Code, zum Verständnis beizutragen
Delphi-Quellcode:
begin
Repeat
Menue;
ch:=Readkey;
Case ch of
'0','p','P': Info;
'1','q','Q': Quadrat;
'2','r','R': Rechteck;
'3','d','D': Dreieck;
'4','k','K': Kreis;
'5','e','E': Ellipse;
#59 : Hilfe;
end; { case }
Until ch = chr(27); { Escape-Taste }
clrscr
end.