LBL PROGRAM
PI
STO 25
X<>Y
X<> T
X<> IND 25
5
LBL 00
STO IND X
SF IND X
DSE X
GTO 00
XEQ 01
RTN
LBL 01
XEQ 02
RTN
LBL 02
XEQ 03
RTN
LBL 03
XEQ 04
RTN
LBL 04
XEQ 05
RTN
LBL 05
RDN
X<>Y
BEEP
RTN

