[dBASE] 移方塊遊戲

NOTE 井字移數字遊戲的【程序檔】（#SUB.PRG）
PROCEDURE PRINTNUM
* J=方格位置 N=數字 ◎在第Ｊ格印出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 ..

訪客只能看到部份內容，免費 加入會員

x0

看起來好像不是很好玩不過還是謝謝

x0