帮我看个程序,好吗

zhangyc1985

你好,帮我看个程序,好吗
' {' Q# k% x: ]5 N! v( k- Z  G" @   这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)
* E8 o) {/ [* m) P
# ~$ _9 J& _1 z# s- i6 bprocedure mech_Pro_Type()
- h' s' l) U; |) S2 ^2 X# xvar
pro1_process,pro2_process:process
the_logic:logic
" e" ^. g9 {1 Lbegin
3 d, }3 C1 D6 l   wait until out part_count 0
7 N) r$ a1 D7 J6 A   require part any
* d- \5 W4 Q3 P4 x   pro1_process=get_process('Mechanism400')
- d/ d$ L8 j6 u   pro2_process=get_process('Mechanism500')

, a0 a, t" b% l  V  v3 g4 P2 z   if(cpart<>NULL)then
. S, Y% X! X* Q  R# k/ N       if( cpart->Product_Type==400)then
# f3 I9 H8 I8 g4 F            do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING
         -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
. U0 k. _3 \6 `( w) O( d  F- X# B       else
            do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING
          --write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
       endif
( @3 p/ p7 E' x! F3 d   endif
1 X' i! g" |! a4 Z% [" Tend