28 lines
344 B
Text
28 lines
344 B
Text
|
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
|