NOTE 井字移数字游戏的【程序档】(#SUB.PRG)
PROCEDURE PRINTNUM
* J=方格位置 N=数字 ◎在第J格印出N
* ┌──┬──┬──┐ ex: J=5,N=1 ┌─┬─┬─┐
* │J=1 │J=2 │J=3 │ │ │ │ │
* ├──┼──┼──┤ ├─┼─┼─┤
* │J=4 │J=5 │J=6 │ │ │Ⅰ│ │
* ├──┼──┼──┤ ├─┼─┼─┤
* │J=7 │J=8 │J=9 │ │ │ │ │
* └──┴──┴──┘ └─┴─┴─┘
IF N=0
BOX1=' '
BOX2=' '
BOX3=' '
ELSE
BOX1='╔═╗'
BOX2='║ ║'
BOX3='╚═╝'
ENDIF
DO CASE
CASE J<=3
@ 3,6*J SAY BOX1
@ 4,6*J SAY BOX2
@ 5,6*J SAY BOX3
@ 4,6*J+2 SAY SUBSTR(BC,N*2+1,2)
CASE J<=6
@ 6,6*(J-3) SAY BOX1
@ 7,6*(J-3) SAY BOX2
@ 8,6*(J-3) SAY BOX3
@ 7,6*(J-3)+2 SAY SUBSTR(BC,N*2+1,2)
CASE J<=9
@ 9,6*(J-6) SAY BOX1 ..
访客只能看到部份内容,免费 加入会员 或由脸书 Google 可以看到全部内容