simtalk程序调试不出来，帮忙看一下

zooey

is
        mark:boolean;
        dx,dy,ct:real;
0 k3 j1 |3 ]2 Y    i,j,rows,lines:integer;
. V, `& O6 b) O  S3 G0 Y    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
* i7 @* u) a5 h       
6 \3 R5 X- k9 f2 @( Z) m        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
" V2 |9 ]" w! U/ f3 L                inspect messagebox("设施数目不对！请核查...,",50,13)
. g+ M- `3 F8 j7 B                when 16 then
& b" `, X2 J& Q' n  ]                        print"yes";
                when 32 then
5 i3 T9 l+ v9 s: |/ D0 K  Y                        print"no";
0 _8 A( }; [. x$ P3 X, x) j                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
6 Q. t$ a0 @# U        machinename:=sprint("M",i);
9 T6 G0 q% `* n& X0 d2 q        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
; y& b8 b3 w. N% Z7 G0 F+ \" z* H                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
% ], G- P9 {2 U- Y* H& b6 U                buf:=str_to_obj(bufname);
' V1 n2 w- P; @                buf.deleteobject;
        end;
2 h* f5 k4 k) O, E: Q        next;
       
        dx:=0;
4 D% _$ K: P- k0 w4 Q8 r! a) Q' e        dy:=0;
  S" P, C7 n, V. F! m1 f        for i:=1 to number_of_machine loop
2 u$ ]2 A# V% H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
1 u9 G) u/ c" ]. N6 n                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
: t$ h( w+ ?; B) @0 m' @                then
4 l& I( R' I/ |                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ G4 a8 W+ i. h3 U6 u. d/ @                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, d1 Q1 o+ K2 u; K: Q' D                        activityspace[1,rows]:=ct;
                        mark:=true;
9 m, O5 V4 r- z                        else*/
9 f$ |9 X; g- }- R/ ]                        y_max:=y_max+dy;
$ J/ I1 ?6 G; x. x+ u. G                        dx:=0;
                dy:=0;
6 _- H+ G' [: m% \6 x7 `% J2 x! Z9 I# g$ m                        --end;
                end;
& M+ n. x' M: g$ H+ d+ K                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
1 m8 j+ P2 V6 X1 J3 k            if activityspace[2,rows]>dy then
+ L: c; a7 w7 O2 y3 S. M4 P+ W2 t& w                        dy:=activityspace[2,rows];
6 H. f7 r5 t; l/ t; n  a; \                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
. {* u: c  W- x* L3 ^7 c6 E                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
7 c. D& S5 a( B" i! q" X        y_max:=y_max+dy;
        current.drawrectangle(1,x_pos_init-5,y_pos_init-5,activityspace[1,number_of_machine+1]*xscale+10,y_max*xscale+10,228,174);
7 _% ^6 a  c% v3 U+ z4 i( Q% b        current.drawrectangle(1,x_pos_init-7,y_pos_init-7,activityspace[1,number_of_machine+1]*xscale+14,y_max*xscale+14,238,176);
       
        rows:=0;
7 P/ B. ]/ t$ W+ V        lines:=0;
& Y2 E8 C2 V  _* f- u        for i:=1 to number_of_machine loop
; _0 m, Q8 ]9 u* x9 V2 c                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
% M/ C+ K' ?: k$ B7 a                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 z( H; o  G0 O) u5 n% s                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
( w8 [! x" c" Z' `$ Y7 Z                                d_from_to_chart[j,i]:=abs(dx-dy);
6 E: o' y* n* M# Y( \$ v' m                        end;
3 A) {* [; w5 t+ W) y$ H8 O                next;
+ `+ z0 G' T) A" m) ^% u        next;
* n0 B" l6 m. h5 O" j       
" q% M, N' f) T' x4 d* V        lines:=0;
        partstable.delete;
       
/ W$ E6 V* K' M$ ^% R, C" V$ @        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( Q, ^) M) f+ T6 N                machinesequence[2,i]:=rows;
. G: C& S' O7 J' f4 @8 p4 L                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
* \( Q9 w7 j; i: \                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
2 J  a& q1 u( r4 }/ H# }! A                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
1 H6 c# t- A4 Y# J5 Q: Q                        partstable[6,lines]:=j;
                end;
5 y6 k4 _7 l  k  ^: Q* E        next;
* a/ w* C0 x: @6 p& y        machinename:=sprint("M",rows);
        machine:=.materialflow.singleproc.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]+15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
        machine.name:=machinename;标识符未知
  X$ e- i0 [7 O. D        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
        buf:=.materialflow.buffer.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]-15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
        buf.name:=bufname;
- I2 m% r( u( z) l7 v$ x# D* a; Y  I        buf.capacity:=5000;
        buf.proctime:=0;
2 `$ T1 M) U% y" a1 N" R# A8 E        .materialflow.connector.connect(buf,machine);
2 V5 W0 D# F# E6 U. d# @5 |       
$ R; e* j, j' [& I        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
3 t) E6 ]2 B. E- K3 o9 M" P3 O) c5 Enext;
end;