LBL 'PGCD' ; Key: 23
'PGCD'
AVIEW
PSE
'NOMBRE 1 ?'
PROMPT
STO 01
'NOMBRE 2 ?'
PROMPT
STO 02
LBL 99
RCL 01
RCL 02
STO 03
/
INT
RCL 02
*
CHS
RCL 01
+
STO 02
RCL 03
STO 01
RCL 02
X#0?
GTO 99
FIX 00
'GCD: '
ARCL 01
AVIEW
STOP
END