Display a menu and select menu items with the numerical keypad.
'+===========================================================================+
'| Declaration variables |
'+===========================================================================+
private tempkey$
private ver$
'+===========================================================================+
'| Initial Settings |
'+===========================================================================+
ver$ = "1.00" out &h6080,1 ' Set to small-size font
'+===========================================================================+
'| Main menu |
'+===========================================================================+
main:
while 1
beep 3,1,1,1
'【Display】
cls
screen 1,1
print " Sample ";ver$
screen 1,0
print "1:Stock"
print "2:Send"
print "3:Check"
print "F4:End";
'Go to each process
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
'+---------------------------------------------------------------------------+
'| Process 1 |
'+---------------------------------------------------------------------------+
proc1:
cls
screen 1,1
print "* Stock *"
screen 1,0
wait 0,&h01
tempkey$ = inkey$
return
'+---------------------------------------------------------------------------+
'| Process 2 |
'+---------------------------------------------------------------------------+
proc2:
cls
screen 1,1
print "* Send *"
screen 1,0
wait 0,&h01
tempkey$ = inkey$
return
'+---------------------------------------------------------------------------+
'| Process 3 |
'+---------------------------------------------------------------------------+
proc3:
cls
screen 1,1
print "* Check *"
screen 1,0
wait 0,&h01
tempkey$ = inkey$
return
If you have not registered
The services on this member site are available only for registered customers.