メニューを表示します。
テンキーで、各メニューを選択します。
'+===========================================================================+
'| 変数の定義 |
'+===========================================================================+
private tempkey$
private ver$
'+===========================================================================+
'| 初期設定 |
'+===========================================================================+
ver$ = "1.00" out &h6080,1 ' 小フォントに設定
'+===========================================================================+
'| メインメニュー |
'+===========================================================================+
main:
while 1
beep 3,1,1,1
'【画面表示】
cls
screen 1,1
print " サンプル ";ver$
screen 1,0
print "1:棚卸"
print "2:送信"
print "3:確認"
print "F4:終了";
'【押されたキーに応じて、メニューを実行】
wait 0,&h01
tempkey$ = inkey$
beep 1,1,1,1
select tempkey$
case "1":
gosub proc1:
case "2":
gosub proc2:
case "3":
gosub proc3:
case "D":
power 0
end select
wend
'+---------------------------------------------------------------------------+
'| 業務 1 |
'+---------------------------------------------------------------------------+
proc1:
cls
screen 1,1
print "* 棚卸 *"
screen 1,0
wait 0,&h01
tempkey$ = inkey$
return
'+---------------------------------------------------------------------------+
'| 業務 2 |
'+---------------------------------------------------------------------------+
proc2:
cls
screen 1,1
print "* 送信 *"
screen 1,0
wait 0,&h01
tempkey$ = inkey$
return
'+---------------------------------------------------------------------------+
'| 業務 3 |
'+---------------------------------------------------------------------------+
proc3:
cls
screen 1,1
print "* 確認 *"
screen 1,0
wait 0,&h01
tempkey$ = inkey$
return