4 lines
108 B
Text
4 lines
108 B
Text
Procedure step_up()
|
|
Protected i
|
|
Repeat: If _step(): i + 1: Else: i - 1: EndIf: Until i = 1
|
|
EndProcedure
|