Data commit

This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions

View file

@ -0,0 +1,31 @@
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