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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
2 ^0 C  L2 ?' c( p3 ~    machinename,bufname:string;
    machine,buf:object;
8 y5 p) r$ V; }do
' E+ u5 L; o+ C, k) s        current.eraselayer(1);
. E5 ?# z& G) t0 G       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
% j5 g5 Y: x. ~: X$ l( W, ^- g                when 16 then
7 [' `/ D7 u* m3 q, v6 W; T3 `                        print"yes";
                when 32 then
8 H3 ^" y" a; `2 r- b                        print"no";
                else
5 ~6 k8 V0 k  F. d2 f                        print"cancel";
- C+ y  ^( o6 n; H/ Y! |                end;
5 h2 v  Q% C- I8 j                eventcontroller.stop;
        end;
7 U$ I/ h! a8 M6 K0 G/ o9 p       
% Z2 U9 j7 D. ^: v; \        for i:=1 to number_of_machine loop
4 ]2 K9 T7 ?0 F5 q; A# h        machinename:=sprint("M",i);
6 R  m, v+ ]& G  [$ u        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
# f) N0 m; v2 X% B, Y        end;
0 A, ]& ~6 w$ @& j% N. a        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
$ g1 z3 r1 g1 W  y/ k        next;
, _. w8 r/ j# o, Y: U; Q/ l       
        dx:=0;
        dy:=0;
% [; ^) A7 a3 |, w6 D        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]类型不匹配
( S- Q8 b) N7 Q2 z2 F3 r- @5 B                then
1 j! ]8 C$ e0 B& i* W9 G                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
( k8 a% A5 l5 K$ x! K                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
) _* u# N  C* Z5 u                        activityspace[2,rows]:=activityspace[1,rows];
2 @/ X0 y7 ?3 m9 u; u                        activityspace[1,rows]:=ct;
4 `& H# a0 Y, ?  C4 M  \                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
  y, {/ [. C& g- K                        dx:=0;
$ ^6 A* y4 @; m7 W                dy:=0;
                        --end;
                end;
2 t  Z0 P1 v- B- h                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;
# w9 F) m/ V9 V6 Q- u+ {/ Q            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
+ K2 a& `7 r; @+ Z0 a$ n+ W* g3 F" u                dx:=dx+activityspace[1,rows];
6 B+ g; ^$ K) t' J                /*if mark=true then
; s+ i5 c4 ?9 \! ]                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
2 I4 m& @! @4 b, h' k  z        next;
5 ]0 i, A4 l2 p$ Y2 s6 Y        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;
8 w2 C7 O( d7 B) U* e0 [4 u. e        lines:=0;
' n+ h+ g! o1 e9 x( N$ @) E' @        for i:=1 to number_of_machine loop
" F( @0 Z9 `2 p! L% E: G                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
6 O* ~: k$ W0 g' J                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ h- j: W, h3 v. ^                                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;
" f* l. j! |' g. y5 q                next;
$ k6 W$ T7 R" F; S# A; M* V        next;
* l( l% k" L$ D2 C2 v, H( W       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ V" V. Y) X, X; `; |                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
% u( Q: ]2 C0 N7 J  L; n0 y                        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];
+ ~0 R/ p  C  R; f, B: A( B                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
' E2 g' }5 M( {- K5 {                        partstable[6,lines]:=j;
                end;
; f  C( K+ a7 J2 S% \5 n        next;
        machinename:=sprint("M",rows);
& O1 f9 Y2 @( G( w) J        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]);
* }4 Q4 ?( D$ P# b' ~        machine.name:=machinename;标识符未知
        machine.proctime:=5;
  a# Q# Y1 r2 E0 m# q' |; ?        machine.label:=activityspace[0,rows];
1 K8 u  [/ E7 I% |& _* {        machine.exitctrl:=ref(leave);
: P3 j4 J* w; U0 d; I/ X       
        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]);
6 }$ L3 M( f3 Y' M& R$ a8 ~        buf.name:=bufname;
/ O! ]( ~5 ?% ?4 o        buf.capacity:=5000;
9 z% y' p0 P: W. a# s( @6 `        buf.proctime:=0;
; U" r* s4 i4 L0 J6 G9 a! f        .materialflow.connector.connect(buf,machine);
, t/ {. G3 l* x, `' J4 R+ `       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ p9 x& H+ l  |+ Rdy:=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);
  q* |" ~' j! I% tnext;
end;