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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
/ H  ?2 P1 u# `+ B# i! X% [    i,j,rows,lines:integer;
    machinename,bufname:string;
/ u7 J/ n: s; ]1 i    machine,buf:object;
do
        current.eraselayer(1);
: U& Z; u+ l6 b       
  ]  ~0 ^' z. k' o8 Y. E        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 F' E9 M( O; n( R% b                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
) M* L/ Y0 |2 p/ J+ \$ A                        print"yes";
- J5 u% m7 y0 \. S3 t6 T                when 32 then
                        print"no";
# K( H( f3 E/ W- z; w+ }                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
9 k" ^) H; w1 z- ~       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
  U* v6 |3 [6 \* }! f9 y0 p- A        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
( e2 T% r6 t# j+ d, L) r        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
) t4 I2 f- n( i1 p- l/ B; B! f; [        end;
        next;
# g; z2 r9 a) {* Y" c! Z# B% T7 V       
        dx:=0;
( h! ~& }1 p, R: I! K6 C        dy:=0;
0 J2 K/ }  b  p2 U! }        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( U8 b9 [; w: A3 |5 t; }                --mark:=false;
; G* G5 X: |" f8 J( F7 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
$ t! S6 i, T3 v2 A/ C( o                        print activityspace[1,rows],",",activityspace[2,rows];
4 n5 V- c/ K3 j; c5 b& w! W6 k6 g                        ct:=activityspace[2,rows];
5 J$ R% ^0 e/ \! p8 u& q) t) @6 I                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
, @4 Y  S' ^* B$ K                        mark:=true;
                        else*/
" h4 B. A" @, }1 F/ S( a                        y_max:=y_max+dy;
                        dx:=0;
$ ?$ B& i2 P/ C5 U# R# T, q& F% u( g                dy:=0;
0 o2 Z9 N, h& W4 {$ ^: v6 c, k$ q" W                        --end;
                end;
7 ?6 E) Q7 _8 z, v4 F1 {. g/ O                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];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
. s# `3 A4 w. A4 V" g                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
$ H4 M8 v4 x( D7 q/ `( w                        activityspace[1,rows]:=ct;
2 m6 U+ h; R  |$ n( ]3 y* H& |                        end;*/
3 H6 \. I8 E! i        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);
% S2 g& N: O, J# d3 y- V) u  A5 w        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);
9 @: ^) R- k" l6 Y6 H) |, N9 b9 z/ j       
) J0 o: x: H, p) p$ s        rows:=0;
- S8 J2 ]) a9 {* W. W        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
, b/ M) m6 u) ?+ S% j1 w& U3 W# Q4 V1 B                                d_from_to_chart[j,i]:=0;
                        else
3 `# m% `3 v. ?4 G% O; n                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 \* J6 A9 m9 v3 Z1 c                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
; F1 r- B( B( s5 D" ]! e                                d_from_to_chart[j,i]:=abs(dx-dy);
# P$ `4 d5 ^2 l$ w+ L                        end;
                next;
( o& i3 w- q" \3 R) V        next;
       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
- x" O( w" k8 l+ _                        if w_from_to_chart[j,rows]>0 then
                        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");
                        partstable[5,lines]:=rows;
0 t! G# b( K5 t- q  U" q# y7 y/ O                        partstable[6,lines]:=j;
                end;
, V6 J6 O/ X3 f; Z: f        next;
: h8 W: T8 N2 P        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;标识符未知
7 U1 v' b/ m3 y& z8 Y( ]; }# k        machine.proctime:=5;
2 \7 y* f- D% O% N- y        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
4 I/ k! A/ v% A4 Y' Y" x# Q        bufname:=sprint("BF",rows);
- i2 i, _, N4 U' x  ]        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]);
$ H; l5 r, P1 B9 B) H, }8 s6 {        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
6 G! _6 z% r5 V# t5 @8 y+ ~        .materialflow.connector.connect(buf,machine);
       
2 W5 |8 N. _: I) ?! q6 N/ A        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;
( N2 X2 L2 K0 ^: zcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
* C& O& l- }4 b/ C4 Cnext;
end;
/ G0 `5 N0 I1 C' s2 _0 E. }