proc main 500 80 u- endproc