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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
, u8 Q1 l5 ^+ G( |3 A    machinename,bufname:string;
    machine,buf:object;
do
6 |+ e  [/ L8 c) Y5 B, A* @        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)
( R# ^0 b$ m! c, n7 V# j& M                when 16 then
                        print"yes";
1 ?) P) n: c3 B                when 32 then
/ n3 s0 K3 S4 y$ v9 ~2 T                        print"no";
                else
                        print"cancel";
                end;
" E' o$ r1 E6 z8 i                eventcontroller.stop;
        end;
. O: s# b& y! i2 O4 N       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
8 }- a2 F# W) T2 z6 U+ S        bufname:=sprint("BF",i);
        if existsobject(bufname) then
) v! }9 T* ]8 x5 H& `! L* z! w                buf:=str_to_obj(bufname);
- w* \, u8 K$ v' C/ V                buf.deleteobject;
        end;
- w; O$ m8 X8 V: N1 L        next;
$ h( o0 b/ P" T4 S: g' k' l* w% C' V       
6 b! d" P8 G/ b4 E/ s$ a        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 k8 [, k* ^8 f8 z/ v9 |2 k; K- N                then
, h3 _" {. O4 ~2 C% S                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
$ q) z; e1 o# r2 x" G                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
2 }( `6 S& j% c3 h                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 h! u* c/ f8 t: h                        activityspace[1,rows]:=ct;
" F9 h& `2 ?' Z2 x7 Y" t9 }                        mark:=true;
) p8 c2 r1 p7 u' R+ ~4 m+ v' Q7 h                        else*/
$ O6 s: M- g( T; O8 N+ K) q                        y_max:=y_max+dy;
                        dx:=0;
$ `. I* {' C+ U                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
# `6 R! w3 G) p* f' X, A                end;
7 h( Q; E" V6 m* H# G% g                dx:=dx+activityspace[1,rows];
0 g# y6 _* e" \3 c. E0 F                /*if mark=true then
0 A! V1 J0 k2 p: ]: B" v( R                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 }# Z, K! Y/ _  Q& s3 ?+ @# t                        activityspace[1,rows]:=ct;
+ o' Q2 L5 Z7 `, z7 e! k7 y. U# s8 n                        end;*/
9 t( Z8 j* B7 C, W0 S6 \        next;
        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);
       
( C' j& j9 J. z        rows:=0;
1 p2 O0 G. A; S) ~/ o        lines:=0;
5 A+ a' a; O* [& H# z; |5 M& d0 T# z        for i:=1 to number_of_machine loop
0 J) ^/ d2 ^& V- T2 t& n4 M5 G                for j:=1 to number_of_machine loop
5 M: j& c. |  ~! [7 _; j                        if j=i then
+ b; p& H4 D8 j6 m" O7 P+ @                                d_from_to_chart[j,i]:=0;
                        else
' n  _7 E: _4 F3 w* @( t3 w                                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);
                        end;
                next;
        next;
( t2 K9 t$ M* k/ G1 T$ M       
$ `/ c+ }9 B, }" ~) E        lines:=0;
+ }2 h! q- s4 v3 [        partstable.delete;
       
( |+ v: a% c/ p        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 p0 A4 [  Z& K* q* {/ `) Y                machinesequence[2,i]:=rows;
) r$ K2 o  p  v8 F7 _4 O                for j:=1 to number_of_machine loop
/ D8 v; h7 r. }$ j% J                        if w_from_to_chart[j,rows]>0 then
: _, y$ K) [6 m                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# d" k' I8 p9 o6 w6 ]5 i& Z2 r                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
* Q  S" m, P. S6 k- I9 R: }                        partstable[5,lines]:=rows;
; x* q2 d* d3 h$ D. U) [3 [$ E- |                        partstable[6,lines]:=j;
- `( I( R% l1 l" k( V4 G                end;
        next;
        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]);
7 y! y9 C' x9 Q$ h7 A        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
' }; h5 {6 p$ ^  w2 ~8 D/ @& R8 S        machine.exitctrl:=ref(leave);
       
' M$ Q, z( Q( a0 M9 J  K        bufname:=sprint("BF",rows);
% b6 ]& x7 S0 Y  _        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]);
$ h6 C% w5 a4 ]0 e        buf.name:=bufname;
        buf.capacity:=5000;
) O$ l+ {& ]& A! v$ P. W" j# m: l        buf.proctime:=0;
: r$ u% w3 ]2 k5 J7 W2 ?" F        .materialflow.connector.connect(buf,machine);
! `) G. s- Y0 _5 F* E6 q       
& g* W: [+ i* F" V6 e/ C: M        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;
7 s  l# C- y& }, }current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;