09/09/26 12:26:22 B459tnt7
nscripterで以下のような選択肢用のサブルーチンを組んでみました。
;プログラムここから
*sentaku
getparam $1,$2
if %tc=1 goto *sentaku1
for %1=1 to 30
mov ?bunki[%1],%1
mov $?bunki[%1],""
next
mov %tag,1
*sentaku1
mov $?bunki[%tag],$1
inc %tag
mov $?bunki[%tag],$2
inc %tag
if %tc=0 mov %tc,1
return
*sentakustop
mov %tc,0
select $?bunki[1],$?bunki[2],
$?bunki[3],$?bunki[4],
$?bunki[5],$?bunki[6],
$?bunki[7],$?bunki[8],
$?bunki[9],$?bunki[10],
$?bunki[11],$?bunki[12],
$?bunki[13],$?bunki[14],
$?bunki[15],$?bunki[16],
$?bunki[17],$?bunki[18],
$?bunki[19],$?bunki[20],