LBL 'ANNIV' ; Key: 24
'ANNIV'
AVIEW
PSE
'N ?'
PROMPT
STO 00
365
1/X
STO 01
1
ST- 00
STO 02
STO 03
LBL 71
1
ST- 00
RCL 01
ST- 02
RCL 02
ST* 03
RCL 00
X#0?
GTO 71
FIX 02
1
RCL 03
-
100
*
STOP
END