Das sieht dann so aus:
[CODE]Local a,b
Lbl eins
ClrText
Print "1.Umfang"
Print "2.Flícheninhalt"
Print "3.Volumen"
Print "4.Ende"
Do
GetKey b
LpWhile b(ungleich)0
If b=49
Then
Goto zwei
IfEnd
If b=50
Then
Goto drei
IfEnd
If b=51
Then
Goto vier
IfEnd
If b=52
Then
Message "Vielen Dank fürs ausführen, bla, bla, bla...Copyrights usw. ..."
Stop
IfEnd
Lbl zwei
ClrText
Input a,"Radius eingeben"
PrintNatural 2í¸aí¸î
Goto eins
Lbl drei
ClrText
Input a,"Radius eingeben"
PrintNatural a^2îî
Goto eins
Lbl vier
ClrText
Input a,"Radius eingeben"
PrintNatural (4/3)îîîa^2
Goto eins
[/CODE]