`
feigme
  • 浏览: 156480 次
  • 性别: Icon_minigender_1
  • 来自: 球面世界
社区版块
存档分类
最新评论

RPG/400 自己写的一个小实例分享!(2)

 
阅读更多

这个是显示文件

 SEU==>                                                                  TSDA04
 FMT A* .....A*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
        *************** Beginning of data *************************************
        *************** Feigme H.Guo*************************************

0000.10      A*%%TS  SD  20070309  142257  DHUG        REL-V5R3M0  5722-WDS   
0000.20      A*%%EC                                                           
0000.30      A                                      DSPSIZ(24 80 *DS3)        
0000.40      A                                      CF03(03 'EXIT')           
0000.50      A                                      CF12(12 'CANCEL')         
0000.60      A          R SCD01                                               
0000.70      A*%%TS  SD  20070228  180446  DHUG        REL-V5R3M0  5722-WDS   
0000.80      A                                  1  3'<scd01></scd01>'                 
0000.90      A                                      COLOR(BLU)                
0001.00      A                                  1 35'TEST SDA'                
0001.10      A                                      DSPATR(HI)                
0001.20      A                                  1 70DATE                      
0001.30      A                                      EDTCDE(Y)                 
0001.40      A                                  2 68TIME                      
0001.50      A                                  3 55USER                      
0001.60      A                                  3 66SYSNAME                   
0001.70      A                                  3  3'NOTE:'      
0001.80      A                                      DSPATR(BL)   
0001.90      A                                  5  3'NAME:'      
0002.00      A                                      DSPATR(HI)   
0002.10      A            NAME01         8A  B  5 10             
0002.20      A  31                                  DSPATR(RI)   
0002.30      A  31                                  DSPATR(PC)   
0002.40      A                                  6  3'AGE :'      
0002.50      A                                      DSPATR(HI)   
0002.60      A                                  2 61'TIME:'      
0002.70      A                                      COLOR(BLU)   
0002.80      A                                  1 63'DATE:'      
0002.90      A                                      COLOR(BLU)   
0003.00      A            AGE01          2S 0B  6 10             
0003.10      A  32                                  DSPATR(RI)   
0003.20      A  32                                  DSPATR(PC)   
0003.30      A                                  7  3'ADDRESS:'   
0003.40      A                                      DSPATR(HI)             
0003.50      A            ADDR01        18A  B  7 14                       
0003.60      A  33                                  DSPATR(RI)             
0003.70      A  33                                  DSPATR(PC)             
0003.80      A                                 23  3'F03=EXIT'             
0003.90      A                                      DSPATR(BL)             
0004.00      A                                      COLOR(BLU)             
0004.10      A                                 23 18'F12=CANCEL'           
0004.20      A                                      COLOR(BLU)             
0004.30      A            NOTE          24A  O  3 10                       
0004.40      A*                                                            
0004.50      A          R SCD011                                           
0004.60      A*%%TS  SD  20070228  180446  DHUG        REL-V5R3M0  5722-WDS
0004.70      A                                  1  3'<scd011></scd011>'             
0004.80      A                                      COLOR(BLU)             
0004.90      A                                  1 35'TEST SDA'             
0005.00      A                                      DSPATR(HI)             
0005.10      A                                  1 70DATE         
0005.20      A                                      EDTCDE(Y)    
0005.30      A                                  2 68TIME         
0005.40      A                                  3 55USER         
0005.50      A                                  3 66SYSNAME      
0005.60      A                                  3  3'NOTE:'      
0005.70      A                                      DSPATR(BL)   
0005.80      A                                  5  3'NAME:'      
0005.90      A                                      DSPATR(HI)   
0006.00      A            NAME01         8A  O  5 10             
0006.10      A                                  6  3'AGE :'      
0006.20      A                                      DSPATR(HI)   
0006.30      A                                  2 61'TIME:'      
0006.40      A                                      COLOR(BLU)   
0006.50      A                                  1 63'DATE:'      
0006.60      A                                      COLOR(BLU)   
0006.70      A            AGE01          2S 0O  6 10             
0006.80      A                                  7  3'ADDRESS:'            
0006.90      A                                      DSPATR(HI)            
0007.00      A            ADDR01        18A  O  7 14                      
0007.10      A                                 23  3'F03=EXIT'            
0007.20      A                                      DSPATR(BL)            
0007.30      A                                      COLOR(BLU)            
0007.40      A                                 23 18'F12=CANCEL'          
0007.50      A                                      COLOR(BLU)            
0007.60      A            NOTE          24A  O  3 10                      
0007.70       *                                                           
0007.80      A          R SCD00                                           
0007.90      A*%%TS  SD  20070228  134617  DHUG        REL-V5R3M0  5722-WDS
0008.00      A                                  1  3'<scd00></scd00>'             
0008.10      A                                      COLOR(BLU)            
0008.20      A                                  1 11USER                  
0008.30      A                                      DSPATR(RI)            
0008.40      A                                  1 34'TEST SDA'            
0008.50      A                                      DSPATR(HI)                
0008.60      A                                  1 66DATE                      
0008.70      A                                      EDTCDE(Y)                 
0008.80      A                                  2 63TIME                      
0008.90      A                                  3  3'NOTE:'                   
0009.00      A                                      COLOR(RED)                
0009.10      A                                  6 11'SELECT:'                 
0009.20      A                                  6 25'(1=NEW   2=SELECT   3=VIEW
0009.30      A                                      ELETE)'                   
0009.40      A                                 22  4'F3=EXIT'                 
0009.50      A                                      COLOR(BLU)                
0009.60      A                                 22 16'F12=CANCEL'              
0009.70      A                                      COLOR(BLU)                
0009.80      A            NOTE          24A  O  3 10                          
0009.90      A            SLID           1Y 0I  6 20                          
0010.00      A  30                                  DSPATR(RI)                
0010.10      A                                      DSPATR(PC)                
0010.20      A                                      DSPATR(CS)            
0010.30      A          R SCD02                                           
0010.40      A*%%TS  SD  20070301  135051  DHUG        REL-V5R3M0  5722-WDS
0010.50      A                                      CF06(06 'LAST')       
0010.60      A                                      CF07(07 'NEXT')       
0010.70      A                                  1  3'<scd02></scd02>'             
0010.80      A                                      COLOR(BLU)            
0010.90      A                                  1 11USER                  
0011.00      A                                      DSPATR(RI)            
0011.10      A                                  1 37'TEST SDA'            
0011.20      A                                      DSPATR(HI)            
0011.30      A                                  1 68DATE                  
0011.40      A                                      EDTCDE(Y)             
0011.50      A                                  2 65TIME                  
0011.60      A                                  3  4'NOTE:'               
0011.70      A                                      COLOR(RED)            
0011.80      A            NOTE          24A  O  3 11                      
0011.90      A                                  5  4'NAME:'      
0012.00      A            OP             8A  I  5 12             
0012.10      A                                  7 12'op'         
0012.20      A                                      DSPATR(HI)   
0012.30      A                                  7 23'NAME'       
0012.40      A                                      DSPATR(HI)   
0012.50      A                                  7 32'AGE'        
0012.60      A                                      DSPATR(HI)   
0012.70      A                                  7 46'ADDRESS'    
0012.80      A                                      DSPATR(HI)   
0012.90      A            OP1            1S 0I  9 12DSPATR(UL)   
0013.00      A            NAME02         8A  O  9 21             
0013.10      A            AGE02          2S 0O  9 32             
0013.20      A            ADDR02        18A  O  9 43             
0013.30      A                                 22  5'F3=EXIT'    
0013.40      A                                      COLOR(BLU)   
0013.50      A                                 22 19'F12=CANCEL' 
0013.60      A                                      COLOR(BLU)            
0013.70      A                                  4 30'4=delete'            
0013.80      A                                      COLOR(BLU)            
0013.90      A                                 22 36'F06=LAST'            
0014.00      A                                      COLOR(BLU)            
0014.10      A                                 22 51'F07=NEXT'            
0014.20      A                                      COLOR(BLU)            
0014.30      A*-------------------------                                  
0014.40      A*                                     CHGINPDFT(CS)         
0014.50      A*                                     PRINT(QSYSPRT)        
0014.60      A*                                     INDARA                
0014.70      A          R HEAD                                            
0014.80      A*%%TS  SD  20070309  110451  DHUG        REL-V5R3M0  5722-WDS
0014.90      A                                      OVERLAY               
0015.00      A                                  2 67TIME                  
0015.10      A                                      DSPATR(HI)            
0015.20      A                                  1 28'CUSTOMER FILE SEARCH'
0015.30      A                                      DSPATR(HI)          
0015.40      A                                      DSPATR(RI)          
0015.50      A                                  1 70DATE                
0015.60      A                                      EDTCDE(Y)           
0015.70      A                                      DSPATR(HI)          
0015.80      A                                  1  3'<scd03></scd03>'           
0015.90      A                                      DSPATR(HI)          
0016.00      A                                  1 11USER                
0016.10      A                                      DSPATR(RI)          
0016.20      A          R FOOT1                                         
0016.30      A                                 23  6'ENTER - CONTINUE'  
0016.40      A                                      DSPATR(HI)          
0016.50      A                                 23 29'F3 = EXIT'         
0016.60      A                                      DSPATR(HI)          
0016.70      A                                 23 40'F12 = CANCEL'      
0016.80      A                                      DSPATR(HI)          
0016.90      A          R PROMPT                                        
0017.00      A                                      OVERLAY                
0017.10      A                                  4  4'DATA VIEW'            
0017.20      A                                      DSPATR(HI)             
0017.30      A          R SUBFILE                                          
0017.40      A*%%TS  SD  20070309  134347  DHUG        REL-V5R3M0  5722-WDS
0017.50      A                                      CHANGE(99 'FIFLE')     
0017.60      A                                      SFL                    
0017.70      A            OP3            1   B  9  5DSPATR(CS)             
0017.80      A                                      VALUES(' ' 'X')        
0017.90      A            ID03           3S 0O  9 12                       
0018.00      A            NAME03         8A  O  9 21                       
0018.10      A            AGE03          2S 0O  9 36                       
0018.20      A            ADDR03        18A  O  9 45                       
0018.30      A          R SUBCTL                    SFLCTL(SUBFILE)        
0018.40      A*%%TS  SD  20070309  142257  DHUG        REL-V5R3M0  5722-WDS
0018.50      A                                      SFLSIZ(9999)           
0018.60      A                                      SFLPAG(0005)           
0018.70      A  55                                  SFLCLR              
0018.80      A N55                                  SFLDSPCTL           
0018.90      A N55                                  SFLDSP              
0019.00      A  44                                  SFLEND(*MORE)       
0019.10      A                                      OVERLAY             
0019.20      A                                      CA04(04 'RESTART')  
0019.30      A                                  7 21'NAME'              
0019.40      A                                      DSPATR(HI)          
0019.50      A                                      DSPATR(UL)          
0019.60      A                                  7 36'AGE'               
0019.70      A                                      DSPATR(HI)          
0019.80      A                                      DSPATR(UL)      &n

分享到:
评论

相关推荐

    用IRRLICHT3D引擎写RPG游戏的框架

    本项目“用IRRLICHT3D引擎写RPG游戏的框架”提供了一个完整的RPG游戏开发基础,包括工程文件和源代码,旨在帮助开发者快速构建自己的角色扮演游戏。 1. **IRRLICHT3D引擎**:Irrlicht是一个用C++编写的高性能3D图形...

    纯java开发的一个RPG游戏,亲测可用

    【标题】:“纯Java开发的一个RPG游戏,亲测可用” 这个标题揭示了一个基于Java编程语言的RPG(角色扮演游戏)项目,表明该游戏是完全使用Java语言编写的,没有依赖其他非Java技术。"纯Java开发"通常意味着游戏的...

    罗培羽—教你用VB制作RPG游戏ppt

    RPG游戏以其丰富的剧情、复杂的角色设定和交互性深受玩家喜爱,而用VB制作RPG游戏则为开发者提供了一个实现自己创意的平台。 在VB中制作RPG游戏涉及到多个关键知识点: 1. **基础语法与控制结构**:首先,你需要...

    jianhun.rar_Java游戏_RPG_java rpg_jianhun_rpg游戏

    这款"jianhun.rar"是一个Java游戏的实例,特别是一款角色扮演游戏(RPG)。 【RPG】 RPG,全称Role-Playing Game,即角色扮演游戏。玩家在游戏中扮演一个或多个角色,通过与游戏世界的互动,推进故事发展,完成任务...

    RPG培训手册(中级)

    ### RPG培训手册(中级)知识点概览 #### 一、程序代码行的编写 本章节主要介绍了AS/400环境下RPGLE程序的基本编写规则和技术要点。 ##### 2.1 最简单的RPGLE程序 - **定义**:介绍一个最基本的RPGLE程序应该包含...

    游戏制作软件RPG Dreamer

    RPG Dreamer是一款专为游戏爱好者和初学者设计的游戏制作软件,它允许用户无需编程知识...无论你是想尝试制作一款属于自己的RPG游戏,还是希望通过实践来学习游戏设计的基本原理,RPG Dreamer都是一个值得探索的选择。

    AS400教程通哥完美版

    "AS400教程通哥完美版"显然是一个由专业人士,通哥,精心整理的关于AS400系统的学习资源。 教程可能涵盖了以下重要知识点: 1. **AS400系统架构**:AS400基于IBM的System i平台,集成了处理器、存储、操作系统和...

    RPGMAKER游戏引擎基于JavaScript的插件制作(七)——可交互对象(1):键盘指令

    在RPGMAKER中,Input.keyMapper是一个用于映射键值到特定指令的对象,文章中提到将键值78绑定到一个名为"interact"的标志。 然后,信号输入是玩家实际执行交互动作的阶段,比如按下键盘上的“N”键。在RPGMAKER中,...

    C#制作pdf大全

    2. 创建PDF文档:实例化一个新的PDF文档对象,并设置必要的属性,如页面大小和方向。 3. 添加页面:向PDF文档中添加新的页面。 4. 插入内容:在页面上添加文本、图像、表格等元素。 5. 保存文档:最后,将所有内容...

    游戏开发教程&案例&相关项目资源分享.rar

    总之,“游戏开发教程&案例&相关项目资源分享”是一个全面的学习工具,无论你是游戏开发的新手还是有经验的开发者,都可以在这个资源库中找到提升自己技能的途径。记得,游戏开发不仅是技术的运用,更是创新和艺术的...

    JS/HTML5游戏常用算法之碰撞检测 地图格子算法实例详解

    本文实例讲述了JS/HTML5游戏常用算法之碰撞检测 地图格子...早期的RPG类型或者SLG类型的游戏可以明显地看出游戏中的地图是由一些小的地图块格子而成,采用这种方式组成地图的好处是节约内存的使用,并且不需要太多的

    Pendragon ToolBox:PnP RPG Pendragon的工具集-开源

    它充分利用了专门用于创建PnP RPG工具的库,并作为该库的第一个实际应用实例。这一创新思路旨在通过开发此工具,为后续的RPG工具库开发提供一个鲜活的范例,展示其潜力和可行性。 开源软件是Pendragon ToolBox的一...

    Explore.themachinery.net:Eclipse Phase RPG的配套网站

    "Explore.themachinery.net" 是一个专门为 Eclipse Phase RPG(第二版)设计的配套网站,它利用 Flask 框架构建,旨在为玩家和游戏主持人提供一个互动和资源分享的平台。Eclipse Phase RPG 是一款科幻背景的角色扮演...

    像素图制作教程 全中文翻译

    本教程旨在为想要学习像素图制作的用户提供一个全面、详细的指南。通过本教程的学习,用户可以掌握基本的像素图绘制技巧,并逐渐提升至能够创作出具有艺术感的作品。 #### 描述:很不错的像素图制作教程~中文翻译 ...

    RM MV學習筆記(6) 描繪進度條

    标题中提到的“RM MV学习笔记(6) 描绘进度条”是一个学习记录,其中记录者分享了在使用RPG Maker MV进行游戏开发时如何描绘进度条的心得。这部分内容包括了进度条的绘制方法、相关的函数使用以及如何与颜色和其他...

    棉花糖的MV mv,源文件,素材都有

    总之,《棉花糖的MV》项目不仅是一个娱乐作品,也是一个生动的教学实例,对于想要提升Flash技能或了解多媒体创作过程的人来说,是非常有价值的参考资料。通过深入研究这些文件,你可以更全面地掌握Flash动画的制作...

    peep-rpg:以“偷窥”为特色的简单角色扮演冒险

    《peep-rpg》是一款基于Python编程语言开发的、以“偷窥”为独特玩法的角色扮演游戏。...对于想要学习游戏开发的Python爱好者来说,研究这个游戏的源代码将是一个宝贵的实践机会,可以深入理解游戏开发的各个环节。

    python游戏开发的五个案例分享

    Python 游戏开发是一个有趣且实用的学习领域,它可以帮助初学者深入理解编程概念,特别是当涉及到数据结构、算法和面向对象编程时。以下基于提供的案例,我们详细探讨Python游戏开发中的核心知识点: ### 一、序列...

    roll20:存储Roll20宏和脚本

    Roll20是一个在线虚拟桌游(VTT)平台,它为玩家和游戏主持人提供了一个集中的场所,可以在网络上进行桌面角色扮演游戏(RPG)。在这个平台上,你可以创建地图、管理角色、投掷骰子,以及执行各种游戏机制。标题提到...

    Linium Realms-开源

    《Linium Realms:开源2D多人在线RPG与创新游戏设计》 Linium Realms是一款基于SDL库的开源2D多人在线角色扮演游戏...同时,它也是开源软件社区的一个优秀实例,展示了如何通过协作和共享实现游戏开发的创新和进步。

Global site tag (gtag.js) - Google Analytics