abap写的小游戏 数字移动小游戏

项目后期维护，没什么事情干，闲着无聊，今天写了个小游戏玩玩：

(注：由于代码不能从客户那边带回来，回家用记事本写的，注释也比较少，但是代码实现的逻辑很简单，不解释。。。。。 如有编译错误请谅解，    灰常感谢！！！！)

 

report ......

selection-screen pushbutton 2(10)  pb11 user-command pb11.
selection-screen pushbutton 12(10) pb12 user-command pb12.
selection-screen pushbutton 22(10) pb13 user-command pb13.

selection-screen skip.
selection-screen pushbutton 2(10)  pb21 user-command pb21.
selection-screen pushbutton 12(10) pb22 user-command pb22.
selection-screen pushbutton 22(10) pb23 user-command pb23.

selection-screen skip.
selection-screen pushbutton 2(10)  pb31 user-command pb31.
selection-screen pushbutton 12(10) pb32 user-command pb32.
selection-screen pushbutton 22(10) pb33 user-command pb33.


selection-screen skip.
selection-screen pushbutton 12(10)