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

zooey

is
        mark:boolean;
+ _4 f$ N7 ~1 W6 @, g: x        dx,dy,ct:real;
    i,j,rows,lines:integer;
' v8 I1 D5 v: s9 @9 Q    machinename,bufname:string;
# a% \; w' @9 B$ B5 d7 V% j9 ~) e: j    machine,buf:object;
do
        current.eraselayer(1);
+ E- c3 e0 t$ e3 I% R2 p       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 V" O% Y) w7 B2 {$ H                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
% f9 H" I! w) n' Y9 G/ H% A& Z; G                        print"yes";
7 N3 K$ B3 h& t                when 32 then
/ f1 ~  h; [, q9 e6 A9 U                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
3 `0 a" p- T. `+ W/ z5 e  R. y        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
$ z+ j: h% V& i0 i                machine:=str_to_obj(machinename);
) b9 L$ {, p1 E8 A5 A' e+ M7 [                machine.deleteobject;
        end;
' W( C* r+ {+ O9 o        bufname:=sprint("BF",i);
6 S9 W0 v$ D0 B8 y* x8 w        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
* ?. l4 ~, O* e5 w6 p        next;
6 i6 A" c$ @& H7 P  _' g3 W       
2 a" d  T  }) O        dx:=0;
        dy:=0;
3 K# v' A" k7 n        for i:=1 to number_of_machine loop
( c+ O1 B/ E+ t7 n# J0 C2 I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
; ^9 ^$ H2 `. z$ ]& Q                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
( b! j0 v2 A. O7 o9 H                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- O/ S. `+ {' K                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
9 n9 u6 J8 |5 k                        activityspace[2,rows]:=activityspace[1,rows];
# s. _+ x0 q3 f                        activityspace[1,rows]:=ct;
                        mark:=true;
, Q# o) x6 ^0 o, `) n- d& }                        else*/
, z  ?! ~9 E2 V. R- x# D                        y_max:=y_max+dy;
! |6 |4 w1 H1 R' }1 G                        dx:=0;
                dy:=0;
                        --end;
, b5 C' f5 j5 B$ Q% I2 X                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
5 L+ Q& l, `4 W. k) [' Z                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 ]7 T1 a) Y9 |* c" @                        activityspace[1,rows]:=ct;
                        end;*/
4 W2 `* |. k+ @        next;
9 \9 p0 A( `: f; w' B% \* \% C        y_max:=y_max+dy;
" o! C8 f+ J, U" `( n9 q8 f9 u. T! |3 r        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);
" j! D' K1 k6 w' _        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;
) E8 g: t, t% J( I        lines:=0;
        for i:=1 to number_of_machine loop
8 Z  J4 `8 x. U( J6 U! v- W                for j:=1 to number_of_machine loop
% q; ~2 w+ F* I4 [                        if j=i then
5 ]" \- i8 e2 s0 f                                d_from_to_chart[j,i]:=0;
4 I, c6 J9 [2 h, p                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
, x- o8 r, I% H# \: a9 V" Q                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
, L. J& X* }) {7 ]4 W& z9 H; |7 U& L) g       
' W. Y* p" {) Z4 k7 D1 O2 h        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
9 x, X  b7 _: m5 l) Y4 b, H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
  p% q- r: ?- K2 z- Y" |                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
5 H9 y! i% G. J0 z1 i; H                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 B% K& j( z. q1 l                        partstable[2,lines]:=w_from_to_chart[j,rows];
, X( ~8 d, ]9 x' {                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
( g' i! c/ p) x% s7 t( j( z        next;
3 D/ F5 g* o3 P( x        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
# B8 f; B: u* t- T6 Y+ L' o( z$ I- @        machine.exitctrl:=ref(leave);
0 L5 G6 `0 m! h       
        bufname:=sprint("BF",rows);
0 E/ X" U* \0 R" ?: V, t1 r        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]);
( f2 V1 k3 K# \$ x        buf.name:=bufname;
( N8 G8 {8 B) l3 _0 ]: U        buf.capacity:=5000;
9 E. k' l1 a# \7 a  `' V. `        buf.proctime:=0;
- O8 J) P. X6 D; o  M. n; j0 O        .materialflow.connector.connect(buf,machine);
       
        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);
next;
end;