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

zooey

is
" |4 D4 {; e1 Y! l& ]1 C        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
; |& g  F9 Z- n% P% Z    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
1 Y4 o5 N7 s' e0 y       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
6 Z: M6 n. M" M" \9 o                inspect messagebox("设施数目不对！请核查...,",50,13)
. t: x4 z: {+ k                when 16 then
                        print"yes";
9 Y) J5 h" p9 d, n8 K1 S, M                when 32 then
                        print"no";
2 z+ h0 y3 r- J2 i2 R                else
                        print"cancel";
: l( [  N% O% q4 \                end;
" Y2 f+ p) [; A                eventcontroller.stop;
0 @% D  D" Z( z        end;
% f! h  T9 ~1 Q5 m! q. a% W       
3 |2 R; m) ]$ I7 ]2 j( G        for i:=1 to number_of_machine loop
! W; R# N) t' m1 s# M4 W        machinename:=sprint("M",i);
        if existsobject(machinename) then
3 E5 v. P, T0 o+ L8 U                machine:=str_to_obj(machinename);
                machine.deleteobject;
4 }; m. u2 v/ G" j$ W1 S        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
" \3 P- Q4 n- E$ C9 S" h                buf:=str_to_obj(bufname);
: i9 T2 o: p% @- u                buf.deleteobject;
$ k, Q) S1 G; T. W5 q; _8 C+ k        end;
( o2 T4 L3 I) y% v. e' D( W; Z        next;
0 q) U2 B; u8 p9 _3 C- Q3 h       
( _- W, V- l6 P/ P        dx:=0;
        dy:=0;
- [1 |9 @9 L" `0 S        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: T' J& f+ }/ Z                --mark:=false;
: ^) q. p' I3 W( q8 E; a  {                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 J; W+ w6 S" O: E* z                then
4 Y7 y3 }" A2 A                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
8 T9 o! n& I0 J0 }5 j7 N                        print activityspace[1,rows],",",activityspace[2,rows];
' w+ z1 F8 Z+ ~0 Q1 J/ @' s6 M                        ct:=activityspace[2,rows];
( i* B8 o9 Z& F% t  v; Z7 W                        activityspace[2,rows]:=activityspace[1,rows];
; f/ M# y0 `" ?4 U# o  K                        activityspace[1,rows]:=ct;
                        mark:=true;
# H. V. m8 \% X                        else*/
                        y_max:=y_max+dy;
; d7 I1 f" s% q) w1 ?0 L) H  N5 t                        dx:=0;
  m$ n: M" X: P5 X, U                dy:=0;
                        --end;
: m# A( Q" K& r2 Y, L, ]# [                end;
0 m, i8 n5 R& U1 d- v* E% a2 ?' e/ n                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;
; [) E2 v4 l# t            if activityspace[2,rows]>dy then
& `" A( |0 \8 g                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
) S4 F& A- r6 B6 @, P8 a4 @                ct:=activityspace[2,rows];
6 a9 Q+ x- J6 ]+ c4 L4 A' _                        activityspace[2,rows]:=activityspace[1,rows];
! d) f; E' `( |# i1 p* P                        activityspace[1,rows]:=ct;
7 c, Y! _) P2 e                        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);
       
        rows:=0;
1 t7 a% t, T% _2 f! u        lines:=0;
        for i:=1 to number_of_machine loop
  p0 U' V5 M7 q0 z( P; k" w+ x" `                for j:=1 to number_of_machine loop
. o( v5 T8 \9 S5 O% O; B                        if j=i then
                                d_from_to_chart[j,i]:=0;
) t' a1 d* o# z% o" n" h7 I                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
! I2 h9 j7 W! Y                                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 q1 E& t5 y/ |3 u                        end;
                next;
        next;
       
        lines:=0;
: D7 C3 p; G4 d: |        partstable.delete;
, Z( C; e0 [2 m7 Y+ x# F       
* o" ^7 [/ y2 n        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 _) b0 I/ K' Q& `2 b6 m  Z) X. _                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
4 P9 j0 |& o1 A% d                        if w_from_to_chart[j,rows]>0 then
2 x8 }) R. @9 e  [* f7 o' w, q                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
1 C# Y( K7 g6 E+ U' W. x                        partstable[6,lines]:=j;
( I: O. I) T9 G% r' {3 e  [                end;
        next;
* D; R- y' ?" W' F4 @' d0 z3 |        machinename:=sprint("M",rows);
  E% }1 X# {: k5 ^; B. ]) t        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;标识符未知
1 b* G6 V  l8 C, y( ?% E: M        machine.proctime:=5;
7 g+ j; ], u) U9 z8 A+ k        machine.label:=activityspace[0,rows];
- J$ o) W9 k, A9 C        machine.exitctrl:=ref(leave);
+ V2 e7 E& E0 C# U       
' O; R, O& L/ D4 `3 v        bufname:=sprint("BF",rows);
3 ~$ m5 r4 N; [% U& r6 w& X9 E9 Q        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]);
' G8 J! v' M, Y+ H) i& n+ O0 }        buf.name:=bufname;
        buf.capacity:=5000;
4 n- |0 r2 ^9 J/ Q        buf.proctime:=0;
( W( B2 ~% s1 _- c        .materialflow.connector.connect(buf,machine);
       
' ^% S- A' V+ i# p3 v; V9 Z        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 y& \) a3 t  i4 Ndy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
4 Q/ m, S( t1 Z" V0 f8 ncurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
5 ~4 G, N# ]1 b/ ^, i, T+ ~end;
1 t6 z4 y$ |; j; k