围棋打谱复盘程序.pdf

电 脑 学 习 第1期 围 棋 打 谱 复 盘 程 序 广东省水电安装公司 增城5 1 1 3 4 0 温盛文 在中日围棋擂台赛等多种世界性围棋竞赛的影响下 全 国 掀 起 了一股围拱 热 为 此 本人在I B M P C 机上 用B AS I C A语言编制了一个围棋打谱复盘程序WQ B AB 1 主要功能 1 对弈t 两名棋手在同一显示屏幕上对弈 用移动光标的方式落予 操作十分 简 便 2 棋局输入 可将棋谱按对弈方式通过键盘输入计算机 3 棋局调用 调看对弈过或打过谱的棋局 定式等 可供棋手复盘和欣赏名局 学习 定式等 落子处有大光标闲烁 赏心悦 目 2 程 序使 用方法 在西文B AS I C A 状态下运行后 屏幕提示输入文件名 这时输入棋谱名 接着计算机问 是否为新谱 输入Y 或N回答 计算机再问每落一子的速度 秒 输入一个数字 回 答 完 毕后 一张漂亮的棋盘就显示出来了 如果不是新谱 就会按输入的速度重显棋局过程 显 示完毕还可继续输入棋谱 这说明该程序有封盘续弈功能 如是新谱 可直接在屏幕显示的 棋盘上对弈或打谱 移动光标用 1 P g u p P g Dn H o me E n d 8 个键 可 直移也可斜移 按对 角方 向 在光标处落黑子键入数字l 落 白子键入数字2 封盘或结束 键入数字3 提子甩空格键 本程序容错功能强 光标移至棋盘边界处时 不再 走 动 按错 键也不会出错 只是光标不动而已 参考文献 1 伍国荣 王作新 B A S I C 语言致应用 广东高等教育出版社 1 9 8 5 1 0 2 张福炎等 微型计算机I B M PC的原理 与应用 南京大学出版社 1 9 8 7 5 程序清单 i o KEY OFFt S CREEN ot W I DTH 4 0 I X 1 2 一 Y 1 9I C LS 2 0 I NP U T f i l e a m e I DAT 1 I I N P UT a e w I i l e Y N J N I I NP UT S p e e d N UM 3 0 N UM NUMe 4 B I I F N y OR N Y T HEN 5 O 4 0 OP E N DA Tt F OR I NP UT A s 1 5 0 x XI C HR 2 1 8 C HR 1 9 6 Xz C HR l 0 5 C HR t 9 6 I x3 C HR 1 9 2 C HR t 9 6 6 0 FO R I 1 T O l X1 x 1 C HR I S 4 C HR I S S t NF X T I XI XI E HR 1 9 1 7 O F OR I 1 T O 1 7 x2 x2 C HR 1 9 7 C HR t 9 6 t N EX T I I x2 x2 C HR 1 8 o 2 维普资讯 8 0 F C R l 1 TO 1 7 I x3 X 3 I R 1 9 3 C I I R 1 9 B 1 t N FX T T I x3 x 3 c R 2 1 7 9 0 CLS LOC ATE 2 3 t P Rl NT X t LOCATE 3 1 t P RI NT X1 0 0 F OR 1 2 r O 1 9 L O C A TE I 2 1 P RI N T x 2 NE X T I 1 l O LOCATE I 1 1 1 P RI NT X3 1 2 O F OR l 4 TO 1 6 S T EP 6 F OR J 4 T O 1 6 S T EP 6 L O C AT E J 2 l 2 1 P RI NT C HR 2 O NEXT J I 1 3 o l F N Y O R N y T HEN 3 1 o 1 4 o l F E OR 1 THEN CL OS EI GOTO 3 1 o 1 0 O l Ig P UT 1 XZ W X W Y 1 6 0 l F XZ 1 THEN LOCATE W Y 2 W X GOS UB 7 7 0 1 7 0 I F XZ 2 TH EN LOCATE W Y 2 W X 77 0 1 B 0 l F XZ o THEN 1 4 O 2 1 PRI NT C HR 3 I LOCATE W Y 2 W X 2 1 2 1 I PRl NT o 1 LOC ATE W Y 2 W X 2 1 GOSUB 1 9 0 l F W X 1 AND W Y 1 THEN LOCATE W Y 2 W X 2 1 I P RI NT CHR 2 1 B 2 0 0 l F W Y 1 AND WX 1 AND W X1 AND WY1 AND W Y1 AND W X 1 9 THEN LOCATE W Y 2 W X 2 1l PRI NT CHR 1 9 7 2 4 0 1 1 W X 4 OR W X 1 0 OR W X 1 6 ND W Y d OR W Y 1 0 OR W Y 1 B 2 5 0 l F T1 O THEN LOC TE W Y 2 W X 2 1 I PR1 NT CHR 2 0 B 2 帅 l F WY 1 N D WY 1 AND W X 1 9 THEN LOCATE W Y 2 W X 0 1 I PRl NT CHR 1 9 3 2 9 0 l F W Y 1 9 AND W X 1 9 THEN LOC ATE W Y 2 W X 2 1 I P Rl NT C HR 2 1 7 3 O 0 G0TO 1 1 0 3 1 0 I F N车 y O R N Y THE N OP EN D AT 1 F O R O UT P u T As 1 E L s E O P E N D AT 1 F 0R APP END S 1 3 2 0 L oC A TE 1 3 1 P R I N T S ll e n g we n W e n TI ME 4 DA r E L OC AT E X Yl X CS RLl N Y P OS 1 3 3 0 X1 S C R E EN X Y t X C HR X1 3 O L OC A TE X Yt P Rl N T C HR 2 1 9 L O C AT E X Y 3 5 O X1 l NKEY 3 6 0 l F X1 CHR O H THEN 3 7 0 EL SE 3 8 0 3 7 t 1 l F X 3 TwEN P RI NT X I LOCATE X Yl GOTO 3 2 0 ELS E PRl NT X X X一1 i GoTO 3 2 0 3 8 0 l F X1 S CHR 0 G THEN 3 9 O ELS E 1 0 0 3 9 0 l F X 3 OR Y 2 1 OR Y 3 9 THEN PRl NT X LOCATE X Y GOTO 3 2 0 ELS E PR J NT X X X 1 Y Y 2 GOTO 3 2 0 2 0 I F X1 S CHR 0 O THEN 4 3 O F L SE 4 0 3 0 I F X 2 l OR Y 3 T HE N P R I NT X 1 L O C AT E X Yt GO T O 3 2 0 I L S E P RI N T XS X X 1 Y Y一2 G0TO 2 0 2 8 维普资讯 4 4 0 I F XI CHR D I THEI 4 5 O ELS E 4 6 D 4 5 0 l F X 3 9 THEN P RI NT X L OCATE X Yt G O t O 3 2 0 ELS E P RI NT X X X一1 Y Y 2 GOTO 3 2 0 4 6 0 1 F X1 CHR 0 P THEN 7 0 ELSE 4 8 D 1 7 0 I F X 2 1 THEN P RI NT X LOCATE X Y GOTO 3 2 0 ELS E P RI NT X X X 1 l GOTO 3 2 0 8 0 I F X1 CHR 0 K THEN 4 9 0 EL S E 5 0 0 4 9 0 I F Y 4 1 THEN P R NT X t LOCATE X Yt GOTO 3 2 0 ELS E P RI NT X Y Y 2t GOTO 3 2 0 5 2 O I F Xl 1 TH EN 5 3 0 E L S E 5 t o 5 3 0 XZ l l W X Y 1 2 t W Y X一2 G0TO 5 9 0 0 1 F X1 2 THEN 5 5 0 ELS E 5 6 0 5 5 O XZ 2 l W X Y 1 2 l W X 2 t GOTO 5 9 0 5 6 0 I F Xl 3 THEN 5 7 0 ELS E 5 8 0 5 7 0 XZ 3 t W X Y 1 2 GO t O 5 9 0 5 B 0 I F xI 0 O R XI C HR 8 O R XI TH EN x z D W X Y一1 2 WY X一 2 l GOTO 5 9 0 ELS E 3 5 0 5 9 0 l F XZ 3 THEN OS E END 6 0 0 PR NT 1 XZ J W X J J W Y 6 1 0 l F XZ 1 THEN L0CATE W Y 2 W Xo 2 l PRI N T CI t RS 3 L OCATE X l Y 6 2 0 I F XZ 2 THEN LOC ATE W Y 2 W X 2 l PRl NT O LOC ATE X 1 Y 6 3 0 I F XZ 0 THEN 3 2 0 6 4 0 I F WX l AN D WY 1 T HEN l OC AT E WY 2 WX0 2 4 l P RI NT C HR 2 1 B t L O CA T X 1 Y 6 5 0 I F W Y l AND W X 1 AND W XI AND W Y 1 AND W Y 1 AND W X l 9 6 9 0 I F T2 0 THEN LOC ATE W Y 2 W X 2 l P Rl NT CHR 1 9 7 LOCATE X 1 Y 7 0 0 T3 W X 4 OR W X l 0 OR W X 1 6 A N D W Y OR W Y 1 0 OR W Y 1 6 7 1 0 l F T3 D THEN I OCATE W Y 2 W X0 2 1 PRI NT CHR 2 0 6 l LOCATE X 1 Y 7 2 0 l F W Y I AND W Yl AND W X 1 9 THEN L OCATE W Y 2 W Xe 2 1 PRI NT CHR 1 9 3 l I OCATE X 1 Y 7 5 0 I F W Y l 9 AND W X 1 9