numerator/denominator e.g. 1 ENTER 4 => 1/4
Arithmetic-Keys: A=- B=+ C=* D=/
5 ENTER 4 ENTER 1 ENTER 4 <B>: 3/2
1 ENTER 2 ENTER 1 ENTER 2 <C>: 1/4
Code: Select all
LBL "/"
SF 27
CF 29
STOP
LBL D
X<>Y
LBL C
ST* Z
RDN
RCL Z
*
GTO 01
LBL A
CHS
LBL B
ST* T
X<> Z
ST* Z
*
R^
+
LBL 01
FIX 0
STO 02
X<>Y
STO 01
LBL 02
STO Z
MOD
X#0?
GTO 02
LASTX
ST/ 02
ST/ 01
LBL 03
CLA
RCL 02
LBL 04
ARCL X
"|-/"
RCL 02
RCL 01
ARCL X
PROMPT
CLA
/
INT
X=0?
GTO 03
ARCL X
LASTX
FRC
X=0?
GTO 03
RCL 01
*
ABS
"|-"
GTO 04
END