program prog1
call sub01
call sub02
stop
end
