5 lines
74 B
Text
5 lines
74 B
Text
Procedure step_up()
|
|
While Not _step()
|
|
step_up()
|
|
Wend
|
|
EndProcedure
|