LBL "SEECHR"
23
X<>Y
LBL 02
CLA
ARCL IND X
1
+
AON
STOP
AOFF
X#Y?
GTO 02
CLX
RTN
END