LBL "HL" ; Key: 23
LBL 05
XEQ "ZZ"
1024
*
INT
STO 01
1
STO 05
FIX 00
"HI-LO"
PROMPT
LBL 01
RCL 01
-
X=0?
GTO 02
X>0?
GTO 03
X<0?
GTO 04
LBL 02
XEQ "TO"
FIX 00
CF 29
CLA
ARCL 05
>" ESSAIS"
AVIEW
PSE
SF 29
FIX 04
GTO 05
LBL 03
1
ST+ 05
"PLUS PETIT"
PROMPT
GTO 01
LBL 04
1
ST+ 05
"PLUS GRAND"
PROMPT
GTO 01
LBL "ZZ"
RCL 00
FRC
X=0?
TIME
PI
+
5
Y^X
FRC
STO 00
RTN
LBL "TO"
TONE 08
TONE 08
TONE 08
TONE 07
TONE 08
TONE 08
TONE 07
TONE 08
TONE 09
TONE 09
TONE 08
TONE 08
TONE 07
TONE 07
TONE 06
RTN
END