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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
) x& X5 @5 w8 }2 v    machine,buf:object;
do
1 ]( M8 O: s  E        current.eraselayer(1);
       
1 V! T. o" W0 d! g        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
/ g" @2 h& M" X4 I' i                inspect messagebox("设施数目不对！请核查...,",50,13)
8 G. w1 B; `5 x, f+ _) g2 ^                when 16 then
1 f7 F$ \) {/ _% T$ d! s                        print"yes";
6 ^! S" t) a: \! L                when 32 then
$ [2 s+ i' ?# ]8 u) f                        print"no";
8 T. |* S/ u/ N7 u' Q0 M                else
                        print"cancel";
                end;
                eventcontroller.stop;
  m9 L! T" E' @, l4 e" V( N: ]1 q1 F7 R        end;
" u7 N) o% F; D6 z       
8 O2 p9 b6 o, N- [# y! L        for i:=1 to number_of_machine loop
( d' u; J: ?! B7 ^, L  q        machinename:=sprint("M",i);
, s: _5 E$ N4 V4 m" Z        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
' j' C, G! m5 c9 D; i  B* }: H                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
6 J1 Y* t+ z/ x9 d9 Y" F9 i% b  D1 }        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
1 Z: Z. c1 u) @/ z: X7 E                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
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
  F$ [7 o" N" L. ]                        activityspace[2,rows]:=activityspace[1,rows];
+ b; Y" l! r" E2 y+ S/ K! K                        activityspace[1,rows]:=ct;
/ k! O, z# }" @: L" q* @5 M                        mark:=true;
                        else*/
# a4 P5 f: u9 t# ^) b( O3 q3 r                        y_max:=y_max+dy;
8 b, t& k0 M+ i" z                        dx:=0;
                dy:=0;
                        --end;
. }# ?7 }* t0 G. J& N                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 k/ l4 T! w* i% T) L0 z% p                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
: z4 y0 M5 t* d3 S1 }# O$ C                end;
' ^$ O- N5 D3 k/ x                dx:=dx+activityspace[1,rows];
( _" l% Y7 m3 ?! s9 E                /*if mark=true then
                ct:=activityspace[2,rows];
; e% Y& Q* \5 v$ N, k                        activityspace[2,rows]:=activityspace[1,rows];
6 e- G( F9 l/ U' @9 ?4 ?& ^- _                        activityspace[1,rows]:=ct;
# ?3 c- A* y- q4 n6 [8 k                        end;*/
+ c) U7 D  A6 y- _        next;
- T( I: \& z+ c& t9 P' S        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);
: O8 ~, z' V% G' i8 Z       
        rows:=0;
9 d6 q7 `- v0 p& V) a, q        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
5 E0 L0 D* V  l# X1 v# y% i2 {8 ]                                d_from_to_chart[j,i]:=0;
7 j1 N4 l2 ^0 T6 e1 X9 H                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
# X8 R" P* a4 f5 |3 l2 u$ {% X! q                                d_from_to_chart[j,i]:=abs(dx-dy);
7 ^8 E5 T/ D# I5 @                        end;
                next;
        next;
: P1 U- @& x7 z! N% V- u8 W2 A       
        lines:=0;
  o5 H9 r/ p; J  b0 X9 C( y        partstable.delete;
       
. |' ~# q4 d8 x        for i:=1 to number_of_machine loop
! i* j- V+ Y3 \( a1 K0 L                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
0 O' M) r. W6 e                        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");
+ L( Y2 e, Z& E1 ~                        partstable[5,lines]:=rows;
) ?. M% U% K; Z" P, C" y0 r7 r                        partstable[6,lines]:=j;
  @# d% m  t* D                end;
        next;
; M% X: W/ F) T, k% W1 X        machinename:=sprint("M",rows);
        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]);
$ N2 {2 K5 E) H' _, ?/ S        machine.name:=machinename;标识符未知
; z% Q. k) `  }        machine.proctime:=5;
+ o" _# `; M$ Y8 V) p- x3 S, e        machine.label:=activityspace[0,rows];
! h0 \1 v, [3 w' X& R( u9 x$ Z        machine.exitctrl:=ref(leave);
7 e, ?7 d5 O. w2 r       
7 S: @% W  ?$ s        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;
        buf.proctime:=0;
7 u# @6 I: G( w# x! Z- D        .materialflow.connector.connect(buf,machine);
       
5 t$ L  l# V" Q! d2 J7 O# }2 `        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;
: M& V! I6 n0 v0 hcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;