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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
( p" y, G% n3 Z. ]7 o, F7 u    machine,buf:object;
2 c' e  u: i* Ado
        current.eraselayer(1);
       
7 b8 `# t3 ^# F        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
( A) X" K/ a- _# s                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
9 J  F- ?9 W3 D$ y9 f                        print"cancel";
                end;
                eventcontroller.stop;
        end;
; p: s! N  [- @, p5 d( o       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
, d6 h& r3 }) N# A5 q8 r9 |$ m) B        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
% e" e7 E. ^1 k        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
9 r  F/ m6 n! b* B/ T- W                buf:=str_to_obj(bufname);
0 }/ v9 f& n+ ]2 d                buf.deleteobject;
        end;
        next;
3 j2 S& a1 J4 W4 W. I       
3 u, p- @4 E2 X0 ~/ L$ U, z9 m1 Z        dx:=0;
; K% T) K6 [  o        dy:=0;
        for i:=1 to number_of_machine loop
8 U; i& v3 p8 c0 e$ R                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 V  Q! H9 j( N. w                --mark:=false;
/ u6 J! a3 t# S( L' Z4 }; g                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
% n) o% E, }! I  p( y                then
7 A. J9 {5 H* w4 P- g                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
$ |1 L5 Q  w5 j6 A( O. o                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
  N, h- g8 l0 R# _                        activityspace[2,rows]:=activityspace[1,rows];
: j: m8 ^7 D+ N2 s% C2 ]0 W7 W, {                        activityspace[1,rows]:=ct;
" O! i7 r/ F& }- U( B; ^: [                        mark:=true;
! N; T+ ]' A5 N3 m) q  O: Y                        else*/
, m2 P% ^+ ~1 q1 B1 j                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
8 T/ [% v9 \6 h* P! f/ G8 R                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;
+ b) X0 s5 d0 K0 t8 Z* p            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
5 g5 t% b4 g+ V$ U                end;
+ J! a' s' q. X7 A& c                dx:=dx+activityspace[1,rows];
4 i  Z* ^  v0 W  S: `( m# Z* p- I                /*if mark=true then
                ct:=activityspace[2,rows];
5 v5 ?& `9 p8 T3 Q8 R5 ^& P3 g, X                        activityspace[2,rows]:=activityspace[1,rows];
; r' A8 K6 {7 s& l                        activityspace[1,rows]:=ct;
                        end;*/
7 o  W7 a% X1 \& L- w6 R7 [! ^$ e) g6 ?        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);
8 A+ G% \5 f7 B2 p' n- @! e* M        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;
        for i:=1 to number_of_machine loop
3 u7 n. B# G& S* ^                for j:=1 to number_of_machine loop
) C4 {6 ~0 S$ d* @, L# A                        if j=i then
. Z  p4 r; t) E7 @                                d_from_to_chart[j,i]:=0;
                        else
$ E4 n. y4 F: S0 _# Y                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* ?3 Z+ a1 F2 e5 z* w# H" O* P                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
" @, Y1 e2 W8 M                                d_from_to_chart[j,i]:=abs(dx-dy);
* y8 T- G9 u; \$ G8 M) t                        end;
) `- K' ~& C3 @* D  S                next;
* X" ?) `) ]2 C& }% T; v        next;
       
% B; j/ I) @5 d7 J6 T3 ~        lines:=0;
: N" m; g% X; W, r4 i        partstable.delete;
- E- {; b0 L+ R       
& [: W8 a8 y% t" T8 a+ a1 s7 Z5 s        for i:=1 to number_of_machine loop
! A3 Q' \7 D& x1 b+ s; A3 [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
  _) F7 Y5 j: M5 e1 e1 n/ M) X9 h* D                for j:=1 to number_of_machine loop
! @- K) G$ f0 h0 R; j/ z. }+ a                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
$ p& n+ G# S1 s; r0 H0 M& B                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 z, u2 A9 H( J3 F! {- Q                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
2 J( N' S" W* ]: I. d3 d+ w                        partstable[5,lines]:=rows;
* C% b' E. y# c. [                        partstable[6,lines]:=j;
. B/ j& X/ e3 d0 ~                end;
1 P. Z* B7 l/ _7 ]' }" _8 P; m        next;
        machinename:=sprint("M",rows);
& l, ]6 i! p: p        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;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
1 b+ W8 S, C6 K- }$ x, A2 Y        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
3 `5 W8 `2 K' ^7 l$ o, a! D        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;
/ y" w, k' W. p, z) o* ecurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
+ Y$ Q, [# q% `& n4 T4 f9 K9 [end;
1 j+ u% e6 c' B