39 lines
No EOL
553 B
Text
39 lines
No EOL
553 B
Text
Filename:MN-MENU
|
|
0->W
|
|
0->Z
|
|
Lbl 1
|
|
?->A
|
|
If A=55
|
|
Then Prog "MN-INVEN"
|
|
0->W
|
|
Return
|
|
IfEnd
|
|
If A=43
|
|
Then Prog "MN-SAVE"
|
|
0->W
|
|
Return
|
|
IfEnd
|
|
If A=63
|
|
Then 666->W
|
|
Return
|
|
IfEnd
|
|
If A=25 Or A=50 Or A=75 Or A=100 Or A=125 Or A=150 Or A=175 Or A=200
|
|
Then A/25->L
|
|
Prog "MN-GETID"
|
|
0->W
|
|
Return
|
|
IfEnd
|
|
If A=26 Or A=52 Or A=78 Or A=104 Or A=130 Or A=156 Or A=182 Or A=208
|
|
Then A/26->L
|
|
777->W
|
|
Return
|
|
IfEnd
|
|
If A=46 Or A=92 Or A=138 Or A=184 Or A=230 Or A=276 Or A=322 Or A=368
|
|
Then A/46->L
|
|
Prog "MN-IDROP"
|
|
0->W
|
|
Return
|
|
IfEnd
|
|
A->Z
|
|
1->W
|
|
Return |