; Sumup program written in OPS5
(startup
(watch 0)
(make start)
(run) )
(p initial
(start)
-->
(remove 1)
(write (crlf) |input number :|)
(make upto (accept))
(make sum 0)
(make count 1) )
(p count-going
(sum {<s> <=> 0})
(count {<c> <=> 0})
-->
(modify 1 ^value (compute <s> + <c>))
(modify 2 ^value (compute <c> + 1)) )
(p count-done
(upto <u>)
(count > <u>)
(sum <s>)
-->
(remove 1 2 3)
(write (crlf) |sum is | <s>)
(halt) )
|