2016-02-19 05:58:34 +00:00
|
|
|
Filename:MN-NEW
|
|
|
|
ClrText
|
|
|
|
"Huomio! Uuden pelin aloittaminen poistaa vanhan tallenteen."[DISP]
|
|
|
|
Lbl 2
|
|
|
|
ClrText
|
2016-02-19 06:16:58 +00:00
|
|
|
"Uusi peli muistipaik-kaan..? [1-6] Muistipaikat 0 Ei uutta peliä"
|
2016-02-19 05:58:34 +00:00
|
|
|
?->A
|
|
|
|
If A=0
|
|
|
|
Then Return
|
|
|
|
IfEnd
|
|
|
|
If A>0 And A<7
|
|
|
|
Then A->S
|
|
|
|
Goto 1
|
|
|
|
IfEnd
|
|
|
|
Goto 2
|
|
|
|
Lbl 1
|
|
|
|
0->L
|
|
|
|
Do
|
|
|
|
L+1->L
|
|
|
|
0->Mat M[L,S]
|
|
|
|
LpWhile L<11
|
|
|
|
Prog "MN-GAMEC"
|
|
|
|
Return
|