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

zooey

is
        mark:boolean;
+ Q, }, U8 t9 Q  T- N* Y        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
* L& B$ s0 H1 G, }" I    machine,buf:object;
do
  m( q( x. I' k  W        current.eraselayer(1);
       
  ?. ~5 J) y: i/ j        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
1 u; i. A2 c( ]5 F" }: @: n  u3 x                when 16 then
, e4 J9 ?. v% x4 l8 [                        print"yes";
                when 32 then
                        print"no";
- \  m; H: s' O  ?  w# u                else
                        print"cancel";
                end;
                eventcontroller.stop;
$ _$ e% k- X! c# x+ W+ T  F        end;
; b* f1 K+ D+ i4 N1 k% u       
        for i:=1 to number_of_machine loop
, X6 N) w0 ?) d% e% U7 c# a4 Q        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
# T( L' `3 I! r% M        end;
/ Q3 y) C8 t) W. h' H        bufname:=sprint("BF",i);
        if existsobject(bufname) then
( T2 E# M. F$ W% t/ Y% v, F9 b$ T                buf:=str_to_obj(bufname);
# I" S; M% E9 O! P: U- M7 B0 t                buf.deleteobject;
$ }4 ]1 [& k. h# w        end;
        next;
       
  i7 m4 s2 V2 w; h3 U! Q        dx:=0;
' S. d2 ^8 _% S+ h3 ?        dy:=0;
7 E5 X/ C3 @$ S  @        for i:=1 to number_of_machine loop
$ P; b2 W; \, D- X2 H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
) j- {/ n, z1 Y4 I( _6 M                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];
5 r% _6 m; Y7 \( G, ?                        ct:=activityspace[2,rows];
5 U8 [# T, n4 j4 w7 P9 x                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- `' Z8 K5 U: W( n) b( P4 b. _" L                        mark:=true;
                        else*/
! e: ^) f" d& B) w                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
                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;
9 e, U7 v$ K* V* M            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
# k$ ~' o: U1 `, U1 ?                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
  y3 y& v$ H% a. i1 o" ?                        end;*/
        next;
+ y9 T7 q3 k; S2 S! f        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);
* K7 \! W7 @/ p6 J        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);
       
. H: |" |' |0 \! I/ m/ e2 {        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
9 e) f: d/ X; d0 ~, `                for j:=1 to number_of_machine loop
, N& v; [- q4 S7 e! E  b3 f/ ^5 r                        if j=i then
                                d_from_to_chart[j,i]:=0;
# X/ e! j6 I5 N: ?, F4 b                        else
( J4 p# Q/ {# i9 X4 h                                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];
( O1 F- {4 S$ P# A- [                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
, V+ E2 s7 a: P0 k        next;
6 B9 X, z/ D/ U" r' ^' O       
        lines:=0;
8 e' ~3 [; @9 V1 a) T        partstable.delete;
6 L6 C. a4 ?9 ^0 R$ ^% H       
        for i:=1 to number_of_machine loop
. y+ q( k4 z! l' i' e                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
0 B8 h9 c+ x' Y6 L                for j:=1 to number_of_machine loop
$ g, C: V) L# B+ i9 g7 E6 w+ ?                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
, j7 A, ~# I. ^  {                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
: j4 ^8 k. o0 o$ z- R1 h3 h7 a- G                        partstable[6,lines]:=j;
                end;
; d/ h. p: s! m2 U7 G        next;
# t( [! x. p$ p7 q        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]);
        machine.name:=machinename;标识符未知
, K/ N7 o0 A# g% w# D/ ^+ d8 V! Z        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
: `9 I4 N$ e4 e3 ]8 D- e8 X        machine.exitctrl:=ref(leave);
/ D1 t) H$ B# Z2 p; C       
        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;
        .materialflow.connector.connect(buf,machine);
2 A/ a  o9 @. M+ t% J       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ @7 L( @( D4 T! o+ Ady:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
0 X1 y; q/ k3 I/ }# acurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;