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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
; }* [1 ~. h0 K    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
0 j( [' K1 V9 q  s/ e5 T        current.eraselayer(1);
+ @! h3 N# w" N% a7 a( X       
* y& Z, ~$ z- \' o" t        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 O2 Y* H8 P3 m3 ?                inspect messagebox("设施数目不对！请核查...,",50,13)
7 {0 I8 J) W, p* e& T" L) x                when 16 then
: K: j6 X3 T8 \. m( A8 P                        print"yes";
$ R# F9 _4 {: c# T5 z                when 32 then
                        print"no";
                else
9 g7 k5 q% R, e$ |: D% O$ {+ r                        print"cancel";
                end;
                eventcontroller.stop;
        end;
; t) Y( Z/ j. ]' W3 G+ |       
, ]# N/ F! w9 p' M        for i:=1 to number_of_machine loop
( v" z6 m1 N8 X  V. s        machinename:=sprint("M",i);
- v# }0 ~1 [( f  y* g        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
  Q4 F; B$ `8 l8 ]# M, y; V                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
! }* N3 y1 x( u( }. k                buf:=str_to_obj(bufname);
                buf.deleteobject;
. [& u$ [$ k1 k. w# i' s- P        end;
! M) _% Z5 @' |( g$ Y, u        next;
. i/ T3 j$ C" z" k* X+ F0 I6 }       
  v5 e6 i$ s! X        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
' P# j8 Z8 V. c8 }8 V6 U1 i                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
+ k" U/ f" D8 M; S2 I3 ^                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! W$ U7 H; [: C* r( ?                then
/ V% m  P/ c8 P2 m& D1 k8 Y- U! a/ [                        /*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];
& }5 P1 o9 i3 f1 T) m* ~. S                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( j/ H; R# k7 b& p! A0 T                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
. A$ {3 e7 V/ n* d                        --end;
. N7 h/ s* w1 ]' d! b' d& V                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 R- Z4 ~8 l& k3 v- }4 Q                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
/ g* I. d4 b& j1 M& B. R2 g/ V. a            if activityspace[2,rows]>dy then
6 B: b0 }! U6 T2 `  y                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
: [) m! w& l  E2 j* v, j                /*if mark=true then
. t& N. y( N- z1 x, m3 u4 j                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
* ^$ z2 m; n) B0 U: e                        activityspace[1,rows]:=ct;
0 L( v5 [! \0 z( `4 k, a" W$ I                        end;*/
        next;
        y_max:=y_max+dy;
! c! O0 g& W( n0 e1 J        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);
       
        rows:=0;
        lines:=0;
& |7 M' j. W% z* Q& ?        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
0 T) ^# @; P5 j9 r                        if j=i then
                                d_from_to_chart[j,i]:=0;
" k; x6 y0 Z, c. Y                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
, Y( V: u% ?" Y                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
0 E8 W/ K" o; z! y2 a. O                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
: s, s0 \; v6 C& ?$ V                next;
        next;
       
5 H% m' ?' D0 y6 U! G, W! |        lines:=0;
        partstable.delete;
9 g1 E7 V  v& K3 |; V( r       
        for i:=1 to number_of_machine loop
: S. s5 R: F( n; @3 H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
$ r8 B: M/ @6 V$ x) Z( M. \& z                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
$ n; s1 A% }  p$ U' r  m                        lines:=lines+1;
* y9 S6 N% a( n/ c' @                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
  ^/ T4 S" N+ o" c! W                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
( m  L; t0 q) d+ |; f% `, \, j) Z5 J        next;
. c: f1 O- U$ Q        machinename:=sprint("M",rows);
, X& {4 j' q8 u5 Q+ Q, N! Z5 z0 n* G        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]);
4 F/ K$ B4 d4 ^        machine.name:=machinename;标识符未知
        machine.proctime:=5;
/ V- ?! {+ k( `2 }& R/ |        machine.label:=activityspace[0,rows];
* P4 w0 N$ U) [0 ^        machine.exitctrl:=ref(leave);
* E! X6 z( K( a; _- O  r7 Y       
        bufname:=sprint("BF",rows);
/ i% B; \1 L2 R. h/ h( S8 d* i        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;
$ T3 V* E3 u) R0 ]        buf.capacity:=5000;
        buf.proctime:=0;
4 w6 a; `2 ?! m% h  v; T+ e        .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;
. O$ v& m  g0 }8 m* G6 d4 j6 scurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
' l) f1 Q5 y- I. m% S: j1 p, {* ~end;
$ q2 q6 h8 N* V  |, U1 A+ c3 J% `* b7 k: y