#==========================================
#   PYTHAGOROVA VETA - VYPOCET PREPONY
#==========================================
# X=a, Y=b
ipush 2
sto .0
x<>y
sto .1
rcl* x
x<>y
rcl* x
+
x<> .1
rcl .0
rcl .1
pop
gto 10
# X=c, Y=a, Z=b
#==========================================
#         VYPOCET DRUHE ODMOCNINY
#==========================================
lbl 11
1
x<>y
x<=y?
rtn
enter
enter
enter
2
/
lbl 12
/
lastx
+
2
lastx
rdn
/
enter
rup
x<=y?
rtn
rup
enter
rup
gto 12
#------------------------------------------
#       VYPOCET S ULOZENIM REGISTRU
#------------------------------------------
lbl 10
ipush 4
x<> l
sto .0
rdn
sto .1
rdn
sto .2
rdn
sto .3
lastx
xeq 11
x<> .0
sto l
rcl .3
rcl .2
rcl .1
rcl .0
rtn