32 lines
342 B
Plaintext
32 lines
342 B
Plaintext
OnErrorGoto(?ErrorHandler)
|
|
OpenConsole()
|
|
Gosub label4
|
|
Goto label3
|
|
|
|
label1:
|
|
Print("eins ")
|
|
Return
|
|
|
|
label2:
|
|
Print("zwei ")
|
|
Return
|
|
|
|
label3:
|
|
Print("drei ")
|
|
|
|
label4:
|
|
While i<3
|
|
i+1
|
|
Gosub label1
|
|
Gosub label2
|
|
Wend
|
|
Print("- ")
|
|
i+1
|
|
If i<=4 : Return : EndIf
|
|
x.i=Val(Input()) : y=1/x
|
|
Input()
|
|
End
|
|
|
|
ErrorHandler:
|
|
PrintN(ErrorMessage()) : Goto label4
|