LBL "ROMARA" ; Key: 12
FIX 0
"ROMAIN ? "
AON
PROMPT
AOFF
CLST
*
LBL 01
ATOX
X=0?
GTO 09
77
X=Y?
GTO 02
DSE X
X=Y?
GTO 03
CLX
68
X=Y?
GTO 04
DSE X
X=Y?
GTO 05
CLX
88
X=Y?
GTO 06
CLX
86
X=Y?
GTO 07
CLX
73
X#Y?
CLX
X#0?
SIGN
ENTER^
GTO 08
LBL 02
E3
GTO 08
LBL 03
50
GTO 08
LBL 04
500
GTO 08
LBL 05
E2
GTO 08
LBL 06
10
GTO 08
LBL 07
5
LBL 08
R^
X<>Y
LASTX
X<Y?
X<0?
CLX
ST+ X
ST- Z
RDN
+
GTO 01
LBL 09
STO T
STO Z
X<>Y
STOP
END