围棋打谱复盘程序.pdf

电 脑 学 习 第1期 围棋 打 谱 复 盘 程 序 广东省水电安装公司 (增城 511340) 温盛文 在中日围棋擂台赛等多种世界性围棋竞赛的影响下，全 国掀起 了一股围拱 “热”。为 此，本人在IBM PC机上，用BASICA语言编制了一个围棋打谱复盘程序WQ．BAB。 1 主 要 功 能 1． 对弈t两名棋手在同一显示屏幕上对弈，用移动光标的方式落予，操作十分 简便。 2． 棋局输入；可将棋谱按对弈方式通过键盘输入计算机。 3． 棋局调用：调看对弈过或打过谱的棋局、定式等，可供棋手复盘和欣赏名局，学习 定式等。落子处有大光标闲烁，赏心悦 目。 2 程序使用方法 在西文BASICA状态下运行后，屏幕提示输入文件名，这时输入棋谱名，接着计算机问 是否为新谱，输入Y或N回答，计算机再问每落一子的速度 (秒)，输入一个数字 回答。完 毕后，一张漂亮的棋盘就显示出来了。如果不是新谱，就会按输入的速度重显棋局过程，显 示完毕还可继续输入棋谱，这说明该程序有封盘续弈功能。如是新谱，可直接在屏幕显示的 棋盘上对弈或打谱，移动光标用 “ 、{=，1}、 、Pgup、PgDn，Home，End”8个键，可 直移也可斜移 (按对角方 向)，在光标处落黑子键入数字l，落 白子键入数字2，封盘或结束 键入数字3，提子甩空格键。本程序容错功能强，光标移至棋盘边界处时，不再 走动，按错 键也不会出错，只是光标不动而已。 参 考 文 献 1 伍国荣，王作新．BASIC语言致应用 ．广东高等教育出版社，1985．10 2 张福炎等．微型计算机IBM PC 的原理与应用．南京大学出版社，1987．5 程 序 清 单 io KEY OFFtSCREEN otW IDTH 40IX 12一Y 19ICLS 20 INPUT file~．ameI )DAT1$IINPUT aewIile(Y／N)”JN$IINPUT Speed= )NUM 30 NUM=NUMe4BIIFN$ y ORN$= Y THEN5O 40 OPEN DATt$ FOR INPUTAs 1 50 x$=… ,XI$=CHR$(218)+CHR$(196),Xz$=CHR$l‘05)+CHR$(t96)Ix3$=CHR$ ‘192)+CHR$(t96) 60 FORI=1TO l,X1$=x1$+CHR$(IS4)+CHR(ISS)tNFXT IXI$=XI$+EHR$(191) 7O FOR I=1TO 17，x2$=x2$+CHR$(197)+CHR$(t96)tNEXT IIx2$ x2$+CHR$(18o) ·2 · 80 FC)R l：1TO 17Ix3$ X3$+ }IR(193)+CIIR$(19B1tNFXTTIx3$：x3$+c}】R(217) 90 CLSLOCATE 2．3tPRlNT X$tLOCATE 3．1tPRINT … +X1$ 】00FOR 1=2rO 19LOCATE I+2，1：PRINT +x2${NEXT I 1lOLOCATE I+1．11PRINT ¨ +X3$ 12OFOR l=4TO 16STEP 6FORJ：4TO 16STEP 6LOCATE J+2，l 2+1：PRINTCHR$(2O) NEXT J．I 13olFN$= Y ORN$=¨y THEN31o 14olF EOR(1)THEN CLOSEIGOTO 31o 10O lIgPUT’ 1，XZ．W X．W Y 160lF XZ 1THEN LOCATE W Y+2．W X 2+1}PRINT CHR$(3ILOCATE WY+2，WX 2+1 GOSUB 770 170 IF XZ。2T