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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
/ L8 ]* {# C# i  W4 d9 G% ^    i,j,rows,lines:integer;
    machinename,bufname:string;
# H" }+ `  [$ w( \3 h/ W7 W    machine,buf:object;
do
% k' d; [* y3 }: m        current.eraselayer(1);
       
' z) D+ x+ r$ P- V& v* A$ h        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
4 T8 Y- s% [% [6 r                when 16 then
                        print"yes";
7 A& ~! g" t7 g2 S9 B" }8 Y                when 32 then
, t+ h/ V. T2 L                        print"no";
0 w7 L/ h- ^9 f  V/ u, P                else
# h" l; h% B2 c/ p; |/ f7 c' S. y                        print"cancel";
* e% \6 B$ Y9 ?- {8 ~4 Y/ o                end;
                eventcontroller.stop;
7 ]0 w  F9 k9 }! }' R! M9 a$ u        end;
       
' M, }' P8 a! l3 E% w6 s        for i:=1 to number_of_machine loop
2 X# O  `* E' N& k4 d8 f' m3 E& z        machinename:=sprint("M",i);
. q( s5 @; V4 \* Y* N; H9 J8 R) |        if existsobject(machinename) then
# Z4 G& d  U! X. r$ B7 {+ \5 V: @                machine:=str_to_obj(machinename);
                machine.deleteobject;
9 h  \3 B# ~; m: o" R        end;
8 [7 r& P: v: h/ j        bufname:=sprint("BF",i);
        if existsobject(bufname) then
. r' e+ G/ r0 ^! ?: B                buf:=str_to_obj(bufname);
                buf.deleteobject;
5 a5 p, R3 n/ h+ c$ n, C4 e        end;
/ f# Y1 j: |" @! n& |        next;
       
        dx:=0;
        dy:=0;
. K7 j3 `2 q# m7 a9 s        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 h: X/ @- k% R/ q) ]& Q                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 b; R' v' x* }+ T- ]# M+ z                then
; P3 ?+ }' P: [  R4 y                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
. [) [2 T9 Y( b! w                        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];
                        activityspace[1,rows]:=ct;
8 s6 Z* S$ S1 y/ k+ a8 V                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
5 T% e' P( r. U4 X  j                        dx:=0;
                dy:=0;
$ B, u1 X; ?1 B3 h0 E                        --end;
2 r# k- r/ |; v7 o. D                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 @' r2 n2 ^9 q7 U* c8 O3 N% a                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
" ~2 `: |- t7 b9 N8 R1 T4 {            if activityspace[2,rows]>dy then
5 \/ O1 M5 i; Q: c1 A) b& \                        dy:=activityspace[2,rows];
# ]$ O. z1 l- @                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' m/ h: W. @6 ~2 F$ d8 o4 r+ g                        activityspace[1,rows]:=ct;
                        end;*/
        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 ?1 t' `) x: J9 r! |' K       
2 f4 ^1 D( a/ s, r8 f9 V7 [        rows:=0;
) |" O0 {% |: h$ }6 z6 w        lines:=0;
        for i:=1 to number_of_machine loop
6 p8 a. g; O0 c4 S7 D                for j:=1 to number_of_machine loop
' m7 z( }4 s  F" N; ]% I4 _/ a                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
) _* p  z& k5 X2 p                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* l% r. e8 K. I& L9 L                                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);
4 u. S& b- ]/ G+ q" g                        end;
6 S5 D  `0 n  ~4 `! e                next;
        next;
       
$ h' S. x' F& o0 a1 \( v8 ?        lines:=0;
6 R  F% t! C6 U. C$ n        partstable.delete;
6 c- s( c6 n7 v$ B       
        for i:=1 to number_of_machine loop
) l( R% |5 D5 ~& j9 n7 _                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  w: c) |, Y9 x( C4 G+ S5 k                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
" }* h5 M( N, l5 E                        lines:=lines+1;
6 d/ Y  R0 |  d' |: n                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 G" w+ ]) {7 e' C; P9 O; o                        partstable[2,lines]:=w_from_to_chart[j,rows];
$ T# Y" u& r, o, R+ w+ y+ S; y                        partstable[3,lines]:=sprint("parts");
: J* _5 s' U0 X% S; P$ s                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
: _$ a7 @" ]  k        machinename:=sprint("M",rows);
% C6 v  E" ]/ b& u/ _        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]);
! i" l4 t( |2 k1 a5 l/ G+ ^        machine.name:=machinename;标识符未知
1 f- `5 E' ]: e        machine.proctime:=5;
* F- P( m/ x% f, y5 R: Q+ n( Y1 f$ ^        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
+ n7 U; @. Q" r        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;
        buf.capacity:=5000;
" }, ~' p) P+ W        buf.proctime:=0;
9 ]- @" ~$ _4 p) N/ `* z0 a& K        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
0 R, f3 h& h* N* x. vdy:=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;
' t) a6 ?  L) l. h) [