Filename:MN-1MAIN
Lbl 1
55->I
63->Q
43->T
25->E
26->U
46->D
ClrText
"======THE MINE====== 1 Aloita uusi peli   2 Lataa vanha peli   3 Apua               4 Pois!"
?->A
If A=4
Then ClrText
Stop
IfEnd
If A=3
Then Prog "MN-HELP"
0->A
IfEnd
If A=2
Then Prog "MN-LOAD"
0->A
IfEnd
If A=1
Then Prog "MN-NEW"
0->A
IfEnd
Goto 1