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

zooey

is
        mark:boolean;
( K, d9 S9 T9 @        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
2 `; O* f% ^# r  M' d  V, a- \do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
2 V! d: T8 y4 h; q4 Q" `                when 32 then
$ F4 h& g& h1 o& ?! I' l; z                        print"no";
                else
+ p) d0 \  X& X3 a7 ?' R                        print"cancel";
                end;
                eventcontroller.stop;
. A- a0 g  i+ J  j5 I        end;
) A# U9 ?* X! T: @+ V; i: K       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
* ?" b* X* ~$ z- B        if existsobject(machinename) then
; ~9 `5 H6 M9 K  {4 Q; f                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
" b; A& p$ y# H( t) b( I& F        if existsobject(bufname) then
  G% n* P1 q, g: y, A- Y, L0 W6 K                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
+ Y6 ^. r; Y$ r- S! \. S       
        dx:=0;
6 ~. X) ^2 h5 Z  K, T2 Z        dy:=0;
) O2 Z( Y' D: g) e        for i:=1 to number_of_machine loop
1 f# w$ z2 I) K# `  c  J7 e                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
& x# i( ]  s  B- s1 V                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 X8 |% {3 ~1 ]4 x9 M0 ^                        and activityspace[1,rows]<(1.05*y_max) then
. D; c$ O7 W0 b6 x. w% x& C                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
4 i1 I6 o3 d; P                        mark:=true;
                        else*/
) B$ R/ M+ ]0 t' C- K                        y_max:=y_max+dy;
) p1 j. Y7 j$ F9 t' G                        dx:=0;
                dy:=0;
. ]9 u2 q' }7 Q) j                        --end;
                end;
1 O- v( K# F7 U$ _( a                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
6 {. m/ s1 G. @* A                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
, m9 d7 o3 U8 g            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
. A/ c8 R$ Q+ w( s: E8 d                end;
                dx:=dx+activityspace[1,rows];
' h/ z8 i5 Q! N& A; @  ^6 X                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 E& W5 C, v, c' J                        activityspace[1,rows]:=ct;
& f8 O2 D. O: y8 j' \. @. q                        end;*/
) V3 K1 s7 Y! Y        next;
, L3 A: L0 |. Y3 |5 m+ A        y_max:=y_max+dy;
6 }3 o& W1 ~. \" ]8 ]7 f' G        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;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
, _  |% s! f1 q. J                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
: h, \( l2 S' X4 K                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
8 \) \( l/ H9 F" M                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
1 M- @& b# J  Q) B' _4 B0 y                                d_from_to_chart[j,i]:=abs(dx-dy);
$ y2 E- x+ Z- ^1 k$ I                        end;
                next;
: l; q- V5 y$ Z: K2 |        next;
8 \6 r  L* T. a  [" b  K  m& E# P       
# }! q1 ^8 b+ T        lines:=0;
' |# F. \% K, }& g        partstable.delete;
       
$ ^% G( o7 [' o        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
1 D1 Z. Y8 g! z; W% a4 f3 ]                        if w_from_to_chart[j,rows]>0 then
1 ^, e5 d# E3 w* T: v5 h                        lines:=lines+1;
+ K1 B9 q9 I7 l: H- r) Z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 M6 f0 R3 k% K+ O( R                        partstable[2,lines]:=w_from_to_chart[j,rows];
2 {' o4 z$ \6 n* L" ~) {                        partstable[3,lines]:=sprint("parts");
# r4 N: ]  S9 x' D7 L5 r% L7 e! J) N                        partstable[5,lines]:=rows;
  J3 I: W7 e' O" N' d. d                        partstable[6,lines]:=j;
+ T, S3 G' h" t                end;
        next;
6 @* T7 X( e5 \  b7 k        machinename:=sprint("M",rows);
* T5 ?( Q" X& ^' K4 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 v5 K0 D% U7 L+ d- x7 o        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
' {7 ?4 n, F# ?9 Z* i       
9 [0 a! O+ a$ s+ m' s% ?4 l5 ~. @- l        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;
& T- C, p% Z1 |/ c$ w. J        buf.capacity:=5000;
* m' E" K  p' U: X        buf.proctime:=0;
% P) A; ]! T. S% j0 t7 H        .materialflow.connector.connect(buf,machine);
* X2 _% d  L* Q0 j       
        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;
  I) X3 a" n: ]5 h8 y( Dcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
$ s, r  _" d* y2 Snext;
end;