Unnamed

LBL GE]
LBL 00
GTO 50
STO 03
0
STO 01
1
STO 00
STO 02
LBL 01
STOP
FS? 00
GTO 98
RCL 03
+
STO 03
RCL 02
1
+
STO 02
RCL 00
*
RCL 01
+
GTO 01
LBL 50
STOP
STOP
STO 01
0
STO 02
STO 03
GTO 01
LBL 98
RCL 03
RCL 02
/
LBL 99
END

LBL KELV
273
+
END

LBL CELC
273
-

LBL KLOK
RCL 00
0.000196721
HMS+
STO 00
PSE
GTO KLOK
END

LBL TKLOK
0
ENTER↗
RCL 00
0.0001
HMS-
STO 00
PSE
X<=Y?
GTO 22
GTO TKLOK
LBL 22
BEEP
END

LBL DISCR
RCL 01
X↗2
RCL 00
RCL 02
*
4
*
-
STO 04
STOP
RCL 01
CHS
RCL 04
SQRT
-
RCL 00
2
*
/
STOP
RCL 01
CHS
RCL 04
SQRT
+
RCL 00
2
*
/
END

LBL DI
STO 02
RDN
STO 01
RDN
STO 00
GTO DISCR
END

LBL RNG
813
ENTER↗
Σ+
Y↗X
1/X
SQRT
SQRT
SQRT
END

LBL SAMINT
STO 03
RDN
STO 02
RDN
STO 01
RCL 02
100
/
1
+
ENTER↗
RCL 03
Y↗X
RCL 01
*
END

LBL P+
STO 01
RDN
STO 00
RCL 01
RCL 00
-
RCL 00
/
100
*
END

LBL XY2
STO 38
RDN
STO 37
RDN
STO 36
0
STO 39
STO 40
STO 41
STO 42
STO 43
RCL 37
CHS
RCL 36
2
*
/
STO 40
X↗2
RCL 36
*
RCL 40
RCL 37
*
+
RCL 38
+
STO 39
RCL 40
1
+
STO 41
X↗2
RCL 36
*
RCL 41
RCL 37
*
+
RCL 38
+
STO 42
RCL 40
X>Y?
GTO 00
1
STO 43
LBL 00
RCL 43
STOP
RCL 40
STOP
RCL 39
END

LBL CLM
CLX
RDN
CLX
RDN
CLX
RDN
CLX
END

SQRT
15
*
80
X<>Y
-
.END. REG 08