57 lines
643 B
Text
57 lines
643 B
Text
|
Filename:MN-GAMEC
|
||
|
Mat M[9,S]->W
|
||
|
Lbl 1
|
||
|
If W=666
|
||
|
Then If Mat M[11,S]!=1
|
||
|
Then 0->L
|
||
|
Do
|
||
|
L+1->L
|
||
|
0->Mat M[L,S]
|
||
|
LpWhile L<11
|
||
|
IfEnd
|
||
|
Return
|
||
|
IfEnd
|
||
|
If W=999
|
||
|
Then Prog "MN-GAMEO"
|
||
|
Return
|
||
|
IfEnd
|
||
|
If W=0 Or W=1
|
||
|
Then Prog "MN-LVL1"
|
||
|
Goto 1
|
||
|
IfEnd
|
||
|
If W=2
|
||
|
Then Prog "MN-LVL2"
|
||
|
Goto 1
|
||
|
IfEnd
|
||
|
If W=3
|
||
|
Then Prog "MN-LVL3"
|
||
|
Goto 1
|
||
|
IfEnd
|
||
|
If W=4
|
||
|
Then Prog "MN-LVL4"
|
||
|
Goto 1
|
||
|
IfEnd
|
||
|
If W=5
|
||
|
Then Prog "MN-LVL5"
|
||
|
Goto 1
|
||
|
IfEnd
|
||
|
If W=6
|
||
|
Then Prog "MN-LVL6"
|
||
|
Goto 1
|
||
|
IfEnd
|
||
|
If W=7
|
||
|
Then Prog "MN-LVL7"
|
||
|
Goto 1
|
||
|
IfEnd
|
||
|
If W=8
|
||
|
Then Prog "MN-LVL8"
|
||
|
Goto 1
|
||
|
IfEnd
|
||
|
If W=9
|
||
|
Then Prog "MN-LVL9"
|
||
|
Goto 1
|
||
|
IfEnd
|
||
|
If W=10
|
||
|
Then Prog "MN-LVL10"
|
||
|
Goto 1
|
||
|
IfEnd
|