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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
* X) v; |3 J: o6 F    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
) r! F# U4 m  h5 w1 cdo
  \/ [* \6 h' T, ]% w- s2 f1 D4 \        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";
5 e+ u, W; R3 I; n                when 32 then
5 E. a6 ~2 a9 W( y: [. Q! b& u                        print"no";
$ }1 h3 D, x& B% e' P9 e                else
                        print"cancel";
                end;
                eventcontroller.stop;
# j& d0 ]5 H1 R6 \8 b* k        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
% b, ]% S, A% _( `        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
0 z! j6 S  _9 ?( B9 L        end;
        bufname:=sprint("BF",i);
0 }- K7 V/ C$ y) `0 I        if existsobject(bufname) then
6 O1 A8 ?0 k' c( k4 K                buf:=str_to_obj(bufname);
: S) k5 A& \. a; e* p7 I% b1 p                buf.deleteobject;
        end;
( c3 [9 Q4 Y8 ]  n6 A- t+ d' G' q        next;
& k7 a; `" U/ m! `+ W       
        dx:=0;
# l& h3 t8 f. H1 t2 g  U        dy:=0;
        for i:=1 to number_of_machine loop
/ c3 w& Z" V# N/ C+ e8 }                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 _2 j: ^% Z" ?/ @; ~5 h0 m                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
5 ^. C' R6 _2 L7 |/ D- Y                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& [) c& B  i2 R                        and activityspace[1,rows]<(1.05*y_max) then
+ f, p  v' Q5 l. v: M7 G                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( p( {  P+ c$ |: G+ X. D$ |8 }$ |                        activityspace[1,rows]:=ct;
$ v# ]9 p9 S# v8 S) O2 @                        mark:=true;
                        else*/
, i7 V. v6 Y3 M  s- N3 V& y                        y_max:=y_max+dy;
2 j) n' h* N  w  L, j                        dx:=0;
                dy:=0;
                        --end;
                end;
& |) U) _/ B" F/ `8 c2 H                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 K# h, S; V) _4 G                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
4 V/ L: V, f; u& ~            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
) P2 V' w- L  ]' x  ]  s                end;
                dx:=dx+activityspace[1,rows];
4 m7 x9 L) @" Q1 b9 ?                /*if mark=true then
" K0 P6 b- c' @/ I0 v4 P$ P                ct:=activityspace[2,rows];
* p+ I' B- y$ R4 ]1 I' w                        activityspace[2,rows]:=activityspace[1,rows];
( Y8 [" P  f% }2 P) ~                        activityspace[1,rows]:=ct;
                        end;*/
        next;
& p0 O3 h6 U5 k/ q        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;
: x, [# Y/ C) t$ B) b        lines:=0;
        for i:=1 to number_of_machine loop
* Y. A/ `8 s" {% @: `/ H4 }$ A' e$ Y                for j:=1 to number_of_machine loop
# p' n, i  W" e$ p                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
! ~9 _4 U9 e3 D: Z                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 g7 V( M0 g; x' S% L! r                                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 d: ^( V! `% K) d                        end;
, }4 \3 _+ q# ]4 O- t" X                next;
- U. e5 |* b2 h+ T        next;
0 `/ C3 ~0 ~! b6 r* o' ]       
        lines:=0;
, e+ T% ^/ ~, ^' n3 z        partstable.delete;
       
        for i:=1 to number_of_machine loop
! N! q# ]/ Z& m) n  q9 s% K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 m% ]+ T% d5 l4 j                machinesequence[2,i]:=rows;
6 _" D* Y* _  v0 f' f$ |                for j:=1 to number_of_machine loop
$ ^0 N) z3 P4 @. E) E                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
/ g4 F+ Y: |& l, w" V2 z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
# R) a' S) k/ Z$ c" ]' k4 M- J5 F                        partstable[5,lines]:=rows;
% W/ S0 `. }3 w3 h" ]$ w; n                        partstable[6,lines]:=j;
4 z; _( l2 j0 Z$ T& p! t* U  R                end;
        next;
" J  S3 m$ A, k, ?  @( f        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]);
& T9 \8 L  s# K- [0 g, M        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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]);
3 j4 I( ^+ W3 R/ q6 o9 Z        buf.name:=bufname;
( c0 b! y0 M& t1 v: I2 i7 k        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) e5 ~; ]' K. r0 l+ wdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
) ~$ h% q; u9 ^8 B# [current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
& u3 u6 g  \! t5 k4 T: H3 \end;