S001 LBL S
S002 SF 10
S003 POPUL
S004 PSE
S005 INPUT P
S006 6
S007 RCL P
S008 x>y?
S009 GTO S013
S010 3
S011 STO X
S012 GTO S022
S013 12
S014 RCL P
S015 x>y?
S016 GTO S020
S017 4
S018 STO X
S019 GTO S022
S020 5
S021 STO X
S022 STARS
S023 PSE
S024 INPUT S
S025 TERRITORIES
S026 PSE
S027 INPUT T
S028 RESOURCES
S029 PSE
S030 INPUT R
S031 MONEY
S032 PSE
S033 INPUT M
S034 CF 10
S035 CLSTK
S036 X*S+(X-1)*T+(x-2)*IDIV(R,2)+M
S037 RTN