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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
0 _2 b+ r& K! s) o6 Udo
        current.eraselayer(1);
       
$ t  p7 W7 c. d" F  N$ }5 T        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";
$ [8 |6 i* \. O$ y! y* A" E* X                when 32 then
3 g& p$ F3 ~" }                        print"no";
                else
                        print"cancel";
4 h. n- T- n0 W2 B3 O                end;
                eventcontroller.stop;
        end;
7 B- d) n- \: J+ p- K) g+ ]6 }       
: b8 ]+ Y/ u. l        for i:=1 to number_of_machine loop
) V- w8 H" u' w2 b. E        machinename:=sprint("M",i);
        if existsobject(machinename) then
' F9 u. q- j! W8 ^3 U                machine:=str_to_obj(machinename);
; L; h( z2 }4 r' C                machine.deleteobject;
/ `0 B# L; d! f. {        end;
, g# e$ m4 l2 x2 d8 U        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
  o  j2 C7 z0 O4 N% [& \                buf.deleteobject;
        end;
% x7 c5 t) o" u: b  Z0 a        next;
       
" Y9 y$ r- R$ Q9 u( G        dx:=0;
        dy:=0;
) U: r: ~3 z! w! D$ M' U. l; |! l        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ T4 m  G# g2 I0 m" w4 W' B. _                --mark:=false;
+ L+ m; S" [( w7 }9 V: _6 `. G                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
3 x* _/ [7 V# `9 n' u                        print activityspace[1,rows],",",activityspace[2,rows];
# e* V7 L! S) ~; U& L# A. T7 |5 r                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. X* `: v/ O8 A( k                        activityspace[1,rows]:=ct;
' b7 i3 q. u. [                        mark:=true;
$ q7 N# M& |3 k. F# X5 j9 b                        else*/
& q( F* s3 ]" g                        y_max:=y_max+dy;
! d7 M! f3 T$ @4 ?3 Q  k8 e  ^7 X                        dx:=0;
                dy:=0;
                        --end;
- @5 r1 V# g) Z& r8 j( e                end;
7 B: f5 v7 A) ^& N# ^8 n$ k( v                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 \' a% D0 o$ A' N) u                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
3 a% `# a* \+ X8 f            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
) @  D( j- M9 d6 O                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
7 w% Z$ m- @( Q) k# J" Q9 c                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
# i/ q/ D6 a3 @& B8 O; O+ R) s% j        y_max:=y_max+dy;
- Q2 x% c' E+ e" ^        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;
2 y9 h' l9 c0 v2 y- a        for i:=1 to number_of_machine loop
- S' q: `% b6 h. Q  n% i4 o) ?8 {                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
) e. r4 C1 s5 U                        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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
  @# K! Z6 P6 {2 R; w8 o6 f                        end;
/ Q3 U$ Q6 h  t- u( [9 p- G. t2 l                next;
- @7 Y+ G2 V8 a) k( K/ `9 y        next;
       
6 s& h! M7 F" z# Y% m- R        lines:=0;
        partstable.delete;
- W6 j2 ~, v6 l1 V: l7 U$ o& N       
        for i:=1 to number_of_machine loop
2 g- V% }& b3 I( w! W                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
7 f3 d; X6 z7 Q/ \3 ~) h                for j:=1 to number_of_machine loop
) L9 w" C5 @1 Y! o" P1 u4 |# T. n                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
: k% \# G: T1 B* N& B                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) E( B% A0 E! z3 p, `                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
: S' T" C- |% y& a                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
% |6 E3 I: j0 B+ @8 d( V4 p, @; ]( @' H        next;
: |  y7 o# B/ M# K4 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;标识符未知
* B/ o* f0 J8 A4 R. |/ m1 l" S        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
" U8 R7 |  z( A& A  m$ j' s       
! _6 q: e6 `" z( l" g        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;
! U  R6 ]% x- A  I  e; Y/ @        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
# Z$ F6 K7 |2 s! R       
' r$ s3 |' x& s* G- R5 v2 k& ]7 u        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 ?, A/ D' h# r+ [! Edy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
, D1 y9 d$ x. e+ }! d