Ratio Equation Program

[Didier Lachieze]

A shorter version (2 steps less):

Code:

001 x=0?
002 GTO 14
003 Rv
004 X=0?
005 GTO 10
006 Rv
007 X=0?
008 GTO 14
009 Rv
010 Rv
011 /
012 x
013 GTO 00
014 +
015 x<>y
016 GTO 06