LBL "MM" ; Key: 34
FIX 00
CF 29
15
PSIZE
RCL 06
X=0?
TIME
PI
+
FRC
STO 06
LBL 01
"NB COL=?"
PROMPT
1
-
1 E3
/
STO 07
STO 09
"NB LET=?"
PROMPT
STO 08
"UN INSTANT"
AVIEW
TONE 03
CLA
LBL 02
XEQ 08
STO IND 09
POSA
-1
X#Y?
GTO 02
RCL IND 09
XTOA
ISG 09
GTO 02
ASTO 14
0
STO 12
"A VOUS ..."
LBL 07
AON
TONE 04
PROMPT
ASTO 13
1
ST+ 12
RCL 13
RCL 14
X=Y?
GTO 03
AVIEW
RCL 07
STO 09
0
STO 10
STO 11
CLA
ARCL 13
LBL 04
RCL IND 09
POSA
STO 08
-1
X=Y?
GTO 06
RCL 08
RCL 09
INT
X=Y?
GTO 05
1
ST+ 11
GTO 06
LBL 05
1
ST+ 10
LBL 06
ISG 09
GTO 04
>" "
ARCL 10
>"-"
ARCL 11
>" "
ARCL 12
GTO 07
LBL 03
"GAGNE EN "
ARCL 12
>" COUPS."
AOFF
BEEP
PROMPT
GTO 01
LBL 08
RCL 06
X=0?
TIME
9821
*
0.211327
+
FRC
STO 06
RCL 08
*
65
+
INT
RTN
END