35 lines
No EOL
634 B
Text
35 lines
No EOL
634 B
Text
Filename:MN-LVLWO
|
|
Lbl 2
|
|
ClrText
|
|
"Tee töitä hakkaamallanappeja. Saat rahaa sen mukaan kuinka paljon jaksat napu- tella tietyssä aika- määrässä."[DISP]
|
|
ClrText
|
|
"Pitämällä nappia poh-jassa ei voi huijata;joka kerta pitää pai-naa eri nappia. Aika lähtee heti, ole val-miina!"[DISP]
|
|
ClrText
|
|
0->R
|
|
0->L
|
|
Do
|
|
Getkey->A
|
|
If A=B Or A=0
|
|
Then Goto 1
|
|
IfEnd
|
|
A->B
|
|
R+1->R
|
|
Locate 1,1,R
|
|
Lbl 1
|
|
L+1->L
|
|
LpWhile L<2000
|
|
R/10->R
|
|
Int (R)->R
|
|
Mat M[10,S]+R->Mat M[10,S]
|
|
Lbl 3
|
|
ClrText
|
|
"Tienasit: 1. Pelaa uudestaan 2. Pois!"
|
|
Locate 11,1,R
|
|
?->A
|
|
If A=1
|
|
Then Goto 2
|
|
IfEnd
|
|
If A=2
|
|
Then Return
|
|
IfEnd
|
|
Goto 3 |