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

zooey

is
        mark:boolean;
9 \  d9 U9 N) p  k" X        dx,dy,ct:real;
. Q+ ]: m0 r* V5 g5 \; N1 ]" |8 f    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
' s/ n3 e4 I5 C. k% G  N: B       
& {" [% V( p8 E" p        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
9 p, d* }: {; q1 ~: h  @$ E1 n& @                when 16 then
                        print"yes";
' K% H; q! R8 \                when 32 then
/ |! F# Y! ]. }4 @                        print"no";
0 @4 \7 }- s' d                else
                        print"cancel";
2 X' f- }% k: i; J                end;
                eventcontroller.stop;
        end;
! r3 F! ^% m$ k$ J       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
: p2 K; k; C( L                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
2 |, C( b. `' o% ]0 `( y        next;
       
" |, q  I/ H; v$ m4 s3 i3 l        dx:=0;
8 y- S; u) L1 @9 _/ g        dy:=0;
! U/ I% r2 D2 C# H5 C( F- o        for i:=1 to number_of_machine loop
0 i( B. v# w* t: H" _, F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: ?! m, e; p" v" I# |4 W                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
; |4 p* ~9 Q% i6 Z- [                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
2 t5 P9 N- g$ J" [1 r6 |                        activityspace[2,rows]:=activityspace[1,rows];
- d' J$ K+ F- r+ U+ H                        activityspace[1,rows]:=ct;
                        mark:=true;
0 ^" U1 M4 Q9 q                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
7 Y% {. m% N, v/ P                dy:=0;
9 I7 y+ Y- z1 V0 G                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 r- ^* l/ w5 g$ W) D                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
- c& S6 u0 q$ @6 y            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];
7 B5 t6 @, k) k" R4 i                        activityspace[1,rows]:=ct;
+ C2 q) i$ p% O8 ~3 s8 c- m- U                        end;*/
; r" s5 l  m& u2 s" B: m5 T        next;
- T4 ~! x) G$ r        y_max:=y_max+dy;
. C! k, B% W8 L! H! H        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);
+ ~' m# g) i( I- i" V: O8 \2 B/ 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;
        lines:=0;
) T5 l" Z' T  d8 P        for i:=1 to number_of_machine loop
2 g% P2 N0 X: R+ }                for j:=1 to number_of_machine loop
7 D: x( ~+ s2 B( K                        if j=i then
: m( s' X' Z3 U& L. u. `, [/ f                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
" g$ r  Z7 t( `, d$ {4 u2 {                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
                                d_from_to_chart[j,i]:=abs(dx-dy);
; j, V( N  g- I3 R                        end;
& o0 K! ~. n2 n7 Y                next;
* T  I1 ?, i% C3 [/ h8 J6 a        next;
5 E, d, ?" q- c& A! ?: b9 V% x1 M       
) S$ \! V" I% _7 p1 f        lines:=0;
8 p6 i! S& W2 ~6 _! x        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
" }' `5 D; s% r- ]3 G                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
- o* t/ H3 f0 E$ S: V  T1 [                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
* M+ [$ A- h, J, ~9 R- N5 Q                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
( B& B+ A) Q2 I8 |4 ^        next;
  O2 D. s5 r0 T8 r& O. e        machinename:=sprint("M",rows);
- w1 }. |/ @0 B# b. D        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]);
% H* U" [+ A  S5 L3 L/ U7 R. y        machine.name:=machinename;标识符未知
" g( _% j4 r+ y0 W        machine.proctime:=5;
6 f9 ?: S( r, R" }) ]        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
4 G- C% [8 _. |8 a# ?       
        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]);
& Q( P4 {$ j# I0 Z  Q2 r$ A        buf.name:=bufname;
8 R; K# j5 q4 E; C! ^) m9 k        buf.capacity:=5000;
  c% v1 j9 {8 S( D) ]* N        buf.proctime:=0;
3 f8 Y& j+ e: B, }2 ^) B; s2 X        .materialflow.connector.connect(buf,machine);
4 X6 b% R) X1 I0 |2 M       
2 r5 p$ }' o1 n* L: ~# A9 `        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
6 a, Q) v" z$ h4 o! ?/ _dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
/ |$ }% l* f1 hcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
% q, k6 b2 v; \- z3 d1 cend;
% T+ ]* A2 v  A: t, m: \+ I4 R