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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
3 w: Z: e3 F* b! Y        current.eraselayer(1);
       
8 m2 _. ~" }6 r( V. s9 C! `1 h+ i        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
# t0 I4 y& B$ S# Y6 {- C6 R                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
- b% L" L1 L; c: l! V% Z                when 32 then
                        print"no";
                else
: e& ~- V9 e( t                        print"cancel";
                end;
3 U' s6 i  H/ G                eventcontroller.stop;
        end;
* @; J. p6 l1 a0 s) O       
        for i:=1 to number_of_machine loop
" N; ~% V/ S" V% `5 L        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
) b" U6 q1 h) I3 F& p( X* P4 P+ x, x        end;
        bufname:=sprint("BF",i);
0 }% V+ y; T4 m; m7 f! g% B        if existsobject(bufname) then
& H- k- t* {4 g                buf:=str_to_obj(bufname);
                buf.deleteobject;
% b7 V6 k" u2 `& g: A0 F3 z1 m        end;
1 C( S; w1 ^& J4 O, S        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
$ J' g* ^  O  m! l                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 _  x; ]% s, I                --mark:=false;
5 w' Y$ L' b, `                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' ]! n" c+ P% B5 Z9 H6 r                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 C6 M: Y+ x' V' `                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
( [* p# p6 T) [( l                        ct:=activityspace[2,rows];
2 ]% O, V# U, ^! G! x                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 q" T* \2 e8 A) p4 G& S- Q7 U                        mark:=true;
7 n" M* i6 P/ B# E  S3 n! X/ S: l                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
" }6 Z2 u* ~: W0 B                dy:=0;
                        --end;
+ z  _( T* Q# ~/ p                end;
1 e/ v5 x3 m1 q4 f3 j: j. }                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 j0 [" z% M4 _                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
! R; ?( ]$ i: l1 @+ Y! L            if activityspace[2,rows]>dy then
9 F7 M, U' h: _& G) F                        dy:=activityspace[2,rows];
: X9 V7 j. q3 c& }                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
( d: v7 J: b5 o                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( V. f; P3 B' g                        activityspace[1,rows]:=ct;
                        end;*/
0 }# o0 @% U: o7 }        next;
% N: T) l2 |6 F3 Z, _        y_max:=y_max+dy;
8 ~; O$ Q8 A& R) y3 c, u+ H        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);
2 y9 u, W6 U6 r& I3 ^. T& k% H        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;
  B  |% v; T6 G) ^3 g; a        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
7 {1 P; u5 w6 g- y                        if j=i then
                                d_from_to_chart[j,i]:=0;
7 M9 P4 Z8 r4 p/ I/ v, i( k( ~                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
8 @! B1 |. c, {9 C4 L                                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;
       
! h, W$ |5 W' g0 d% H1 s" @. Z        lines:=0;
        partstable.delete;
       
3 [+ F( k2 {3 s0 }+ w* {- R        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
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
$ K$ t2 Z" o% k, R                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 @8 ?- k9 Q- j. P$ g0 T                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 B2 n5 B  E9 \# L+ o; \+ }                        partstable[3,lines]:=sprint("parts");
9 I4 ?8 d: @: \* p' u7 N                        partstable[5,lines]:=rows;
0 n+ R( f" f0 X5 F                        partstable[6,lines]:=j;
  h3 `$ ]$ E  Y8 i2 f                end;
        next;
# _3 [' ?/ j7 R- Q( M5 ~        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]);
1 W. ^! ~3 k8 y0 I: w% ^9 G0 N# t        machine.name:=machinename;标识符未知
6 c  s" _( J! h8 {, [; |        machine.proctime:=5;
! O' H: W" x* n: Q0 C+ F/ B/ @- T2 C        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
/ D, d0 r2 Q) g& e       
$ j9 j# B/ ?! \# x* T# x, {        bufname:=sprint("BF",rows);
2 ?1 s2 Q& \7 i2 Z7 a        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;
        buf.capacity:=5000;
9 `9 i) \  B% ]        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;
- i+ k& p- s2 E3 R, zdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
- \9 B9 H) X  ]current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
" I5 Y7 I* l. |, u  Iend;
$ p4 Q8 r+ p: l- h4 z: E