LBL "CLRGS"
ENTER
ENTER
INT
X<>Y
FRC
1000
*
LBL 01
ENTER
0
STO IND Y
RDN
1
-
X#Y?
GTO 01
0
STO IND Y
RDN
CLX
RDN
CLX
RDN
RTN
END