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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
& \' Z3 V3 Y' G    machinename,bufname:string;
    machine,buf:object;
5 h& G) Q6 S4 ?5 i% G* N- y. H: Q" Ldo
        current.eraselayer(1);
" k. |' ^/ C, v/ ?1 V       
        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
) d. R: |6 Z0 ]0 J2 L" ^) j' @                        print"yes";
                when 32 then
                        print"no";
/ h6 q/ V9 `8 s2 T9 z' T: k. ?4 l                else
2 a' W. o) z! J% p' w1 V  E5 B+ V9 U7 |                        print"cancel";
                end;
+ ]; L9 J% l) _% h  }# L1 X                eventcontroller.stop;
4 ~: u( f0 p& S' i        end;
       
7 `; @: K( T# H& R9 o        for i:=1 to number_of_machine loop
3 q1 K2 F6 c+ ?! B  @% ^        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
/ O/ [2 q$ J2 O        end;
        bufname:=sprint("BF",i);
# i" C( S/ D# R        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
' f7 w# B& h8 G2 _1 p' [% B        end;
        next;
" V1 z3 L) X+ J) }8 h$ U* g$ v8 E* y       
  C% Z, ], Y+ G- ^+ S/ ^$ P8 u        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
, Z, i! T8 w! X- H- u# q, q( Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
% U/ b  s; v  x' ]% W6 }& V                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
/ E# }4 g0 ?( d( f. T( {2 M                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
5 Z$ R- t) H( ^1 w& `' a( L0 u                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
" _& D, K1 R( Q, f6 ^& l, y                        mark:=true;
                        else*/
1 w! y' ?+ d* L0 z  L: W$ T                        y_max:=y_max+dy;
                        dx:=0;
5 l1 L# Z6 D* f5 j                dy:=0;
1 k) p9 L" B3 p. h$ K8 J                        --end;
# W* ~3 n, {3 c9 U4 p: X                end;
* Q2 d) N: A3 K9 G6 k) [8 e# h                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
* g( Y1 a2 }  X                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;
* @1 O  r0 T( {                dx:=dx+activityspace[1,rows];
                /*if mark=true then
" M& L3 C, _" H' d5 D2 `) _                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 D: u: m. n0 h                        activityspace[1,rows]:=ct;
                        end;*/
& E/ K( l6 @6 f+ Q3 y        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);
       
0 }* y9 W$ E2 Z        rows:=0;
! r3 [8 N$ S( b: N        lines:=0;
% E3 _$ ]+ m* X; W        for i:=1 to number_of_machine loop
4 J/ H5 R- Q0 g8 m; Z( q                for j:=1 to number_of_machine loop
                        if j=i then
. F9 d; {# S$ j1 x                                d_from_to_chart[j,i]:=0;
, [4 |5 ]8 ~: V2 J$ h, I' @                        else
                                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];
. P* s% z% Z! `1 Z0 @                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
1 R$ L5 f4 s% L6 e9 c                next;
        next;
0 n4 u9 N' o" B7 `5 q0 f: u       
6 P9 }5 V0 W* _1 q! j% M        lines:=0;
        partstable.delete;
; @- L/ r3 S. N       
1 W" s# x0 |" ^5 m: |, I- q* r& Q        for i:=1 to number_of_machine loop
) y' U: L- z" [1 n0 g, \4 j, ]                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
/ I3 e* k) l# ^9 f" w* R$ \                for j:=1 to number_of_machine loop
7 L, |/ M& E% r. i& x+ D                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
0 n) N% r% q/ _                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
1 [) w+ Y$ Q9 B# D: i4 W0 [                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
6 H, z; T# H0 W3 d9 s        machine.label:=activityspace[0,rows];
/ |% y/ `! f! y; j+ K        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
! d. C) B- x8 O% N$ z5 w        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;
0 A& n) {6 }4 Y* [. R        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;
9 P/ Q0 z2 G* H* e/ ydy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
+ _, H$ F( b0 D5 Jcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;