- 浏览: 156471 次
- 性别:
- 来自: 球面世界
-
最新评论
-
zhang_yi_yi：
...
Java常用方法使用心得 -
yeshuang：
不错，希望以后多多介绍一些
Java常用方法使用心得 -
tiansong163：
我用这个怎么不行呢？
jsp实现文件下载与中文文件名乱码问题解决 -
lshhjxlj：
Yes,it very good!
Java常用方法使用心得 -
jaja_jaja：
有错误，web.xml里少了servlet-mapping部分 ...
对log4j初始化并设置log文件的存放路径
这个主要程序RPG
Columns . . . : 1 71 Browse DHUG/QRPGSRC
SEU==> SDA04
FMT H .....H........1..CDYI....S..............1.F............................
*************** Beginning of data *************************************
*************** Feigme H.Guo*************************************
0001.00 H Y
0002.00 *
0003.00 FTSDAL UF E K DISK A
0004.00 F TSDAR KRENAMETSDARA
0005.00 *
0006.00 FTSDA04 CF E WORKSTN
0007.00 F @RRN KSFILE SUBFILE
0008.00 *----------------------------------------------------*
0009.00 *< ARRAY AREA > *
0010.00 *----------------------------------------------------*
0011.00 E @MSG 1 50 75 *MESSAGE
0012.00 *----------------------------------------------------*
0013.00 *< KLIST > *
0014.00 *----------------------------------------------------*
0015.00 C L@SDA KLIST
0016.00 C KFLD PNAME
0017.00 *
0018.00 *----------------------------------------------------*
0019.00 *< MAIN > *
0020.00 *----------------------------------------------------*
0021.00 C EXSR #S000
0022.00 C EXSR #ENDPG
0023.00 *
0024.00 *----------------------------------------------------*
0025.00 *< #S000--SCREEN 0 > *
0026.00 *----------------------------------------------------*
0027.00 C #S000 BEGSR
0028.00 *
0029.00 C MOVE @YES @LOOP0
0030.00 C @LOOP0 DOWEQ@YES
0031.00 C EXFMTSCD00
0032.00 C CLEARNOTE
0033.00 *
0034.00 C SELEC
0035.00 C *IN03 WHEQ *ON
0036.00 C EXSR #ENDPG
0037.00 C *IN12 WHEQ *ON
0038.00 C* MOVE @NO @LOOP0
0039.00 C LEAVE
0040.00 C ENDSL
0041.00 *
0042.00 C EXSR #CHK0
0043.00 C ENDDO
0044.00 *
0045.00 C ENDSR
0046.00 *----------------------------------------------------*
0047.00 *< #CHK0--CHECK SCREEN 0 > *
0048.00 *----------------------------------------------------*
0049.00 C #CHK0 BEGSR
0050.00 *
0051.00 C SLID IFGT 4
0052.00 C SLID ORLT 1
0053.00 C SETON 30
0054.00 C MOVEL@MSG,2 NOTE P
0055.00 C ENDIF
0056.00 *
0057.00 C SELEC
0058.00 C SLID WHEQ 1
0059.00 C EXSR #S001
0060.00 C SLID WHEQ 2
0061.00 C EXSR #SOO2
0062.00 C SLID WHEQ 3
0063.00 C EXSR #S003
0064.00 C ENDSL
0065.00 *
0066.00 C ENDSR
0067.00 *----------------------------------------------------*
0068.00 *< #S001--SCREEN 1 > *
0069.00 *----------------------------------------------------*
0070.00 C #S001 BEGSR
0071.00 *
0072.00 C MOVE @YES @LOOP1
0073.00 C @LOOP1 DOWEQ@YES
0074.00 C MOVE @YES @SIGN
0075.00 C EXFMTSCD01
0076.00 C CLEARNOTE
0077.00 *
0078.00 C SELEC
0079.00 C *IN03 WHEQ *ON
0080.00 C EXSR #ENDPG
0081.00 C *IN12 WHEQ *ON
0082.00 C* MOVE @NO @LOOP1
0083.00 C LEAVE
0084.00 C ENDSL
0085.00 *
0086.00 C EXSR #CHK1
0087.00 C @SIGN IFEQ @YES
0088.00 C EXFMTSCD011
0089.00 C EXSR #WRT
0090.00 C ENDIF
0091.00 *
0092.00 C ENDDO
0093.00 *
0094.00 C ENDSR
0095.00 *----------------------------------------------------*
0096.00 *< #CHK1--CHECK SCREEN 1 > *
0097.00 *----------------------------------------------------*
0098.00 C #CHK1 BEGSR
0099.00 *
0100.00 C NAME01 IFEQ *BLANK
0101.00 C SETON 31
0102.00 C MOVE @NO @SIGN
0103.00 C MOVEL@MSG,2 NOTE P
0104.00 C ELSE
0105.00 C MOVELNAME01 PNAME P
0106.00 C L@SDA CHAINTSDARA 60
0107.00 C *IN60 IFEQ *OFF
0108.00 C MOVEL@MSG,4 NOTE P
0109.00 C MOVE @NO @SIGN
0110.00 C ELSE
0111.00 C SETOF 31
0112.00 C MOVE @YES @SIGN P
0113.00 C ENDIF
0114.00 C ENDIF
0115.00 *
0116.00 C AGE01 IFEQ *ZERO
0117.00 C SETON 32
0118.00 C MOVE @NO @SIGN
0119.00 C MOVEL@MSG,2 NOTE P
0120.00 C ELSE
0121.00 C SETOF 32
0122.00 C ENDIF
0123.00 *
0124.00 C ADDR01 IFEQ *BLANK
0125.00 C SETON 33
0126.00 C MOVE @NO @SIGN
0127.00 C ELSE
0128.00 C SETOF 33
0129.00 C ENDIF
0130.00 *
0131.00 C ENDSR
0132.00 *----------------------------------------------------*
0133.00 *< #S002--SCREEN 2 > *
0134.00 *----------------------------------------------------*
0135.00 C #SOO2 BEGSR
0136.00 *
0137.00 C MOVE @YES @LOOP2
0138.00 C @LOOP2 DOWEQ@YES
0139.00 C EXFMTSCD02
0140.00 C CLEARNOTE
0141.00 *
0142.00 C SELEC
0143.00 C *IN03 WHEQ *ON
0144.00 C EXSR #ENDPG
0145.00 C *IN12 WHEQ *ON
0146.00 C* MOVE @NO @LOOP2
0147.00 C LEAVE
0148.00 C *IN06 WHEQ *ON
0149.00 C EXSR #LAST
0150.00 C *IN07 WHEQ *ON
0151.00 C EXSR #NEXT
0152.00 C ENDSL
0153.00 *
0154.00 C EXSR #CHK2
0155.00 C ENDDO
0156.00 *
0157.00 C ENDSR
0158.00 *----------------------------------------------------*
0159.00 *< #CHK2--CHECK SCREEN 2 > *
0160.00 *----------------------------------------------------*
0161.00 C #CHK2 BEGSR
0162.00 *
0163.00 C OP IFEQ *BLANK
0164.00 C OP1 ANDEQ*ZERO
0165.00 C *IN07 ANDEQ*OFF
0166.00 C *IN06 ANDEQ*OFF
0167.00 C MOVEL@MSG,2 NOTE P
0168.00 C ENDIF
0169.00 *
0170.00 C OP IFNE *BLANK
0171.00 C OP1 ANDEQ*ZERO
0172.00 C *IN07 ANDEQ*OFF
0173.00 C *IN06 ANDEQ*OFF
0174.00 C EXSR #SEL
0175.00 C ENDIF
0176.00 *
0177.00 C OP IFEQ *BLANK
0178.00 C OP1 ANDEQ4
0179.00 C *IN06 ANDEQ*OFF
0180.00 C *IN07 ANDEQ*OFF
0181.00 C EXSR #DEL
0182.00 C ENDIF
0183.00 *
0184.00 C ENDSR
0185.00 *----------------------------------------------------*
0186.00 *< #INIPG--INIT PGM > *
0187.00 *----------------------------------------------------*
0188.00 C *INZSR BEGSR
0189.00 *
0190.00 C MOVE *BLANK @LOOP0 1
0191.00 C MOVE *BLANK @LOOP1 1
0192.00 C MOVE *BLANK @LOOP2 1
0193.00 C MOVE *BLANK @LOOP3 1
0194.00 C MOVE *BLANK @SIGN 1
0195.00 C MOVE 'Y' @YES 1
0196.00 C MOVE 'N' @NO 1
0197.00 C Z-ADD0 @RRN 50
0198.00 *
0199.00 C ENDSR
评论
*----------------------------------------------------*
*< #INIPG--INIT PGM > *
*----------------------------------------------------*
类似的注释的，如有界面< #S001--SCREEN 1 >，
对界面1进行处理< #CHK1--CHECK SCREEN 1 >，
初始化< #INIPG--INIT PGM >等等
代码不长还是很容易看懂的
发表评论
-
as/400学习
2007-03-13 11:14 4584最近开始使用ＩＢＭ的ＡＳ／４００服务器进行开发了，也处于学习 ... -
as/400 RPG开发步骤
2007-03-13 11:22 3427as/400 RPG开发步骤 RPG开发步骤 1、建立数 ... -
RPG简单例子
2007-03-13 11:26 1694发送数据包SNDFLD到DTAQ的程序代码： C ... -
练习时做的AS/400 subfile 的一个例子！（1）
2007-04-16 23:18 1556这个是物理文件和逻辑文件 SEU==> ... -
练习时做的AS/400 subfile 的一个例子！（2）
2007-04-16 23:19 1988这个是显示文件 0001.00 ... -
练习时做的AS/400 subfile 的一个例子！（3）
2007-04-16 23:21 1948其中的主要RPG程序 FMT H .....H.... ... -
RPG/400 自己写的一个小实例分享!(1)
2007-04-16 23:24 1420物理文件和逻辑文件 SEU==> ... -
RPG/400 自己写的一个小实例分享!(2)
2007-04-16 23:26 1810这个是显示文件 SEU==> ...
相关推荐
本项目“用IRRLICHT3D引擎写RPG游戏的框架”提供了一个完整的RPG游戏开发基础，包括工程文件和源代码，旨在帮助开发者快速构建自己的角色扮演游戏。 1. **IRRLICHT3D引擎**：Irrlicht是一个用C++编写的高性能3D图形...
【标题】：“纯Java开发的一个RPG游戏，亲测可用” 这个标题揭示了一个基于Java编程语言的RPG（角色扮演游戏）项目，表明该游戏是完全使用Java语言编写的，没有依赖其他非Java技术。"纯Java开发"通常意味着游戏的...
RPG游戏以其丰富的剧情、复杂的角色设定和交互性深受玩家喜爱，而用VB制作RPG游戏则为开发者提供了一个实现自己创意的平台。 在VB中制作RPG游戏涉及到多个关键知识点： 1. **基础语法与控制结构**：首先，你需要...
这款"jianhun.rar"是一个Java游戏的实例，特别是一款角色扮演游戏（RPG）。 【RPG】 RPG，全称Role-Playing Game，即角色扮演游戏。玩家在游戏中扮演一个或多个角色，通过与游戏世界的互动，推进故事发展，完成任务...
### RPG培训手册（中级）知识点概览 #### 一、程序代码行的编写 本章节主要介绍了AS/400环境下RPGLE程序的基本编写规则和技术要点。 ##### 2.1 最简单的RPGLE程序 - **定义**：介绍一个最基本的RPGLE程序应该包含...
RPG Dreamer是一款专为游戏爱好者和初学者设计的游戏制作软件，它允许用户无需编程知识...无论你是想尝试制作一款属于自己的RPG游戏，还是希望通过实践来学习游戏设计的基本原理，RPG Dreamer都是一个值得探索的选择。
"AS400教程通哥完美版"显然是一个由专业人士，通哥，精心整理的关于AS400系统的学习资源。 教程可能涵盖了以下重要知识点： 1. **AS400系统架构**：AS400基于IBM的System i平台，集成了处理器、存储、操作系统和...
在RPGMAKER中，Input.keyMapper是一个用于映射键值到特定指令的对象，文章中提到将键值78绑定到一个名为"interact"的标志。 然后，信号输入是玩家实际执行交互动作的阶段，比如按下键盘上的“N”键。在RPGMAKER中，...
2. 创建PDF文档：实例化一个新的PDF文档对象，并设置必要的属性，如页面大小和方向。 3. 添加页面：向PDF文档中添加新的页面。 4. 插入内容：在页面上添加文本、图像、表格等元素。 5. 保存文档：最后，将所有内容...
总之，“游戏开发教程&案例&相关项目资源分享”是一个全面的学习工具，无论你是游戏开发的新手还是有经验的开发者，都可以在这个资源库中找到提升自己技能的途径。记得，游戏开发不仅是技术的运用，更是创新和艺术的...
本文实例讲述了JS/HTML5游戏常用算法之碰撞检测 地图格子...早期的RPG类型或者SLG类型的游戏可以明显地看出游戏中的地图是由一些小的地图块格子而成，采用这种方式组成地图的好处是节约内存的使用，并且不需要太多的
它充分利用了专门用于创建PnP RPG工具的库，并作为该库的第一个实际应用实例。这一创新思路旨在通过开发此工具，为后续的RPG工具库开发提供一个鲜活的范例，展示其潜力和可行性。 开源软件是Pendragon ToolBox的一...
"Explore.themachinery.net" 是一个专门为 Eclipse Phase RPG（第二版）设计的配套网站，它利用 Flask 框架构建，旨在为玩家和游戏主持人提供一个互动和资源分享的平台。Eclipse Phase RPG 是一款科幻背景的角色扮演...
标题中提到的“RM MV学习笔记(6) 描绘进度条”是一个学习记录，其中记录者分享了在使用RPG Maker MV进行游戏开发时如何描绘进度条的心得。这部分内容包括了进度条的绘制方法、相关的函数使用以及如何与颜色和其他...
本教程旨在为想要学习像素图制作的用户提供一个全面、详细的指南。通过本教程的学习，用户可以掌握基本的像素图绘制技巧，并逐渐提升至能够创作出具有艺术感的作品。 #### 描述：很不错的像素图制作教程~中文翻译 ...
总之，《棉花糖的MV》项目不仅是一个娱乐作品，也是一个生动的教学实例，对于想要提升Flash技能或了解多媒体创作过程的人来说，是非常有价值的参考资料。通过深入研究这些文件，你可以更全面地掌握Flash动画的制作...
《peep-rpg》是一款基于Python编程语言开发的、以“偷窥”为独特玩法的角色扮演游戏。...对于想要学习游戏开发的Python爱好者来说，研究这个游戏的源代码将是一个宝贵的实践机会，可以深入理解游戏开发的各个环节。
Python 游戏开发是一个有趣且实用的学习领域，它可以帮助初学者深入理解编程概念，特别是当涉及到数据结构、算法和面向对象编程时。以下基于提供的案例，我们详细探讨Python游戏开发中的核心知识点： ### 一、序列...
Roll20是一个在线虚拟桌游（VTT）平台，它为玩家和游戏主持人提供了一个集中的场所，可以在网络上进行桌面角色扮演游戏（RPG）。在这个平台上，你可以创建地图、管理角色、投掷骰子，以及执行各种游戏机制。标题提到...
《Linium Realms：开源2D多人在线RPG与创新游戏设计》 Linium Realms是一款基于SDL库的开源2D多人在线角色扮演游戏...同时，它也是开源软件社区的一个优秀实例，展示了如何通过协作和共享实现游戏开发的创新和进步。