use pp
go 1
if deg < 10
store 15 to dsun
else
store 0 to dsun
endif
go 2
if deg < 10
store 15 to dmar
else
store 0 to dmar
endif
go 3
if deg < 10
store 15 to djup
else
store 0 to djup
endif
go 4
if deg > 20
store 15 to dven
else
store 0 to dven
endif
GO 5
if deg > 10 .and. deg < 20
store 15 to dsat
else
store 0 to dsat
endif
go 6
if deg > 10 .and. deg < 20
store 15 to dmer
else
store 0 to dmer
endif
go 7
if deg > 20
store 15 to dmoo
else
store 0 to dmoo
endif
