LBL 'CERCLE' ; Key: 22
'CERCLE'
AVIEW
PSE
'RAYON ?'
PROMPT
STO 00
LBL 51
2
*
PI
*
FIX 02
STO 01
'PERIM: '
ARCL 01
AVIEW
STOP
RCL 00
X^2
PI
*
STO 01
'AIRE: '
ARCL 01
AVIEW
STOP
RCL 00
GTO 51
END