ソース（大きくなってすみません）
コード: 全て選択
#include "ghj.idx"
#N88BASIC
Dim a As string
Dim b As string
Dim c As string
Dim d As string
Dim e As string
Dim f As string
Dim g As string
Dim h As string
Dim i As string
Dim j As string
Dim k As string
Dim l As string
Dim m As string
Dim n As string
Dim o As string
Dim p As string
Dim q As string
Dim r As string
Dim s As string
Dim t As string
Dim u As string
Dim v As string
Dim w As string
Dim x As string
Dim y As string
Dim z As string
Dim aa As string
Dim ab As string
Dim ac As string
Dim ad As string
Dim ae As string
Dim af As string
Dim ag As string
Dim ah As string
Dim ai As string
Dim aj As string
Dim ak As string
Dim al As string
Dim am As string
Dim an As string
Dim ao As string
Dim ap As string
Dim aq As string
Dim ar As string
Dim at As string
Dim au As string
Dim av As string
Dim aw As string
Dim ax As string
Dim ay As string
Dim az As string
Dim ba As string
Dim bb As string
Dim bc As string
Dim bd As string
Dim be As string
Dim bf As string
Dim bg As string
Dim bh As string
Dim bi As string
Dim bj As string
Dim bk As string
Dim bl As string
Dim bm As string
Dim bn As string
Dim bo As string
Dim bp As string
Dim bq As string
Dim br As string
Dim bs As string
Dim bt As string
Dim bu As string
Dim bv As string
Dim bw As string
Dim bx As string
Dim by As string
Dim bz As string
Dim ca As string
Dim cb As string
Dim cc As string
Dim cd As string
Dim ce As string
Dim cf As string
Dim cg As string
Dim ch As string
Dim ci As string
Dim cj As string
Dim ck As string
Dim cl As string
Dim cm As string
Dim cn As string
Dim co As string
Dim cp As string
Dim cq As string
Dim cr As string
Dim cs As string
'相手の駒
a="香"
b="桂"
c="銀"
d="金"
e="王"
f="金"
g="銀"
h="桂"
i="香"
k="飛"
q="角"
s="歩"
t="歩"
u="歩"
v="歩"
w="歩"
x="歩"
y="歩"
z="歩"
aa="歩"
'相手の「無」設定
j="○"
l="○"
m="○"
n="○"
o="○"
p="○"
r="○"
'共用陣地の 「無」設定
ab="○"
ac="○"
ad="○"
ae="○"
af="○"
ag="○"
ah="○"
ai="○"
aj="○"
ak="○"
al="○"
am="○"
an="○"
ao="○"
ap="○"
aq="○"
ar="○"
at="○"
au="○"
av="○"
aw="○"
ax="○"
ay="○"
az="○"
ba="○"
bb="○"
bc="○"
bd="○"
be="○"
bf="○"
bg="○"
bh="○"
bi="○"
bj="○"
'自分の駒
bk="歩"
bl="歩"
bm="歩"
bn="歩"
bo="歩"
bp="歩"
bq="歩"
br="歩"
bs="歩"
bu="角"
ca="飛"
cc="香"
cd="桂"
ce="銀"
cf="金"
cg="玉"
ch="金"
ci="銀"
cj="桂"
ck="香"
'自分の「無」設定
bt="○"
bv="○"
bw="○"
bx="○"
by="○"
bz="○"
cb="○"
'将棋盤 描画
'将棋盤の下は3にする
PRINT " 1 2 3 4 5 6 7 8 9"
PRINT " ・・・・・・・・・・・・・・・・・・・・・・・・・・・・"
PRINT "1・";a;"・";b;"・";c;"・";d;"・";e;"・";f;"・";g;"・";h;"・";i;"・"
PRINT " ・・・・・・・・・・・・・・・・・・・・・・・・・・・・"
PRINT "2・";j;"・";k;"・";l;"・";m;"・";n;"・";o;"・";p;"・";q;"・";r;"・"
PRINT " ・・・・・・・・・・・・・・・・・・・・・・・・・・・・"
PRINT "3・";s;"・";t;"・";u;"・";v;"・";w;"・";x;"・";y;"・";z;"・";aa;"・"
PRINT " ・・・・・・・・・・・・・・・・・・・・・・・・・・・・"
PRINT "4・";ab;"・";ac;"・";ad;"・";ae;"・";af;"・";ag;"・";ah;"・";ai;"・";aj;"・"
PRINT " ・・・・・・・・・・・・・・・・・・・・・・・・・・・・"
PRINT "5・";ak;"・";al;"・";am;"・";an;"・";ao;"・";ap;"・";aq;"・";ar;"・";ba;"・"
PRINT " ・・・・・・・・・・・・・・・・・・・・・・・・・・・・"
PRINT "6・";bb;"・";bc;"・";bd;"・";be;"・";bf;"・";bg;"・";bh;"・";bi;"・";bj;"・"
PRINT " ・・・・・・・・・・・・・・・・・・・・・・・・・・・・"
PRINT "7・";bk;"・";bl;"・";bm;"・";bn;"・";bo;"・";bp;"・";bq;"・";br;"・";bs;"・"
PRINT " ・・・・・・・・・・・・・・・・・・・・・・・・・・・・"
PRINT "8・";bt;"・";bu;"・";bv;"・";bw;"・";bx;"・";by;"・";bz;"・";ca;"・";cb;"・"
PRINT " ・・・・・・・・・・・・・・・・・・・・・・・・・・・・"
PRINT "9・";cc;"・";cd;"・";ce;"・";cf;"・";cg;"・";ch;"・";ci;"・";cj;"・";ck;"・"
PRINT " ・・・・・・・・・・・・・・・・・・・・・・・・・・・・"
'将棋盤ここまで----------------------------------------------------------------------
INPUT "No." ,cl
select case cl
case 7161 or 1716 or 7116
bb="歩"
bk="○"
End Select