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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
7 u$ e  \* A/ n/ y2 |9 n    machine,buf:object;
do
        current.eraselayer(1);
       
5 Z1 a6 g* f( F- y        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
& O$ W9 s% \* r9 n                inspect messagebox("设施数目不对！请核查...,",50,13)
& i" K7 [2 u& `/ B% B& B                when 16 then
                        print"yes";
1 Z5 v! P3 ]5 Y) i# k                when 32 then
                        print"no";
& O# ]2 E. n+ {& x                else
/ ~9 p1 F2 m6 @2 M7 r                        print"cancel";
; r, c5 k3 q. r7 r* Y- j                end;
1 D$ k" z5 D, N4 J. e                eventcontroller.stop;
* J; z  l: |" g8 q  k9 J        end;
       
        for i:=1 to number_of_machine loop
6 ]+ n1 F* b/ B' _( b* K. B2 L        machinename:=sprint("M",i);
/ o5 o* O/ Z4 y. Y        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
2 z. \' a7 s( [0 I$ Q                machine.deleteobject;
4 b8 K) K4 O" Y) p" e        end;
        bufname:=sprint("BF",i);
; y* K5 }; T3 i6 A: d        if existsobject(bufname) then
' }$ c# W" N) K& L# A                buf:=str_to_obj(bufname);
) Q0 X. h+ H/ s7 Y; C  j+ I1 F                buf.deleteobject;
        end;
0 j  M% T  p& v6 \( V6 i        next;
. q6 R) N: W( H3 N' C       
        dx:=0;
3 q6 j. y7 \% ~        dy:=0;
        for i:=1 to number_of_machine loop
" L) _! M& D- I9 s! B5 S0 f' A                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 t, Y( r5 t. L; I6 s7 P$ {                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
; [$ T7 t5 ^% P/ ]; t7 Q                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ I  r# H5 t/ |# }                        mark:=true;
                        else*/
$ \/ V# A8 s; F: D/ v  L                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
1 E1 W1 F4 _2 b) b7 c2 A                        --end;
                end;
                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
3 H6 l/ B; K$ f8 G: Y                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
0 t# w. u) H9 N1 L                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
7 ]! C: t& D# `0 e* ^. L        next;
        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);
        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);
5 h; z$ H# i+ b# x# u: t# J       
  L8 c6 D1 j$ e        rows:=0;
$ F! d; H! [6 a  b) C& }        lines:=0;
1 ?8 b: R0 e! F5 Q9 C+ a( u1 ~        for i:=1 to number_of_machine loop
3 v6 P& Y1 g8 m; ?$ H                for j:=1 to number_of_machine loop
                        if j=i then
- K6 i; l3 c$ h4 R* n7 X" p6 g; @                                d_from_to_chart[j,i]:=0;
, }) b! e; E& z$ J" d                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 m+ b& z* P$ K; m                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
  ?* a. U9 E0 C6 b                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
; ]5 o  T9 ~4 `% z                next;
        next;
       
        lines:=0;
) E' l. C- o( ?        partstable.delete;
       
        for i:=1 to number_of_machine loop
/ _# G4 C1 x0 Y5 m* c/ B                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
7 q0 b! n0 j# r& D& Z                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
2 n8 _& x; ]' a2 z                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
0 P) u- x: A/ y8 p6 @( S  A                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
# g& N6 t2 R) T                        partstable[6,lines]:=j;
                end;
        next;
        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]);
( x2 l" G+ ~0 u5 t7 r9 `        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
" U9 v/ B! d1 R8 P2 m0 E# e       
        bufname:=sprint("BF",rows);
- @% n( v+ f6 m# Z6 v0 v- ?        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]);
: t* ~. [7 c; [2 x4 ]- d: `$ k        buf.name:=bufname;
        buf.capacity:=5000;
5 G1 t8 ^6 F9 W2 B+ P& Q0 @        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
' Z7 ?; ?9 W- S8 w( n1 D: q       
( }# T" P* o) S- w% S        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;
1 R/ h" r3 _" j; ?0 R" y" {5 gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
& k( h4 ^8 U7 Z6 R+ D( Ynext;
end;