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

zooey

is
        mark:boolean;
+ e8 C; h4 X, }: e        dx,dy,ct:real;
    i,j,rows,lines:integer;
* f& E3 C7 {! h0 o6 [+ }    machinename,bufname:string;
5 h2 @* D! ~( z; b+ U4 F    machine,buf:object;
do
        current.eraselayer(1);
: |$ H$ ^6 R; s! e       
, j+ ^  x) y7 P3 y        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 c* T: k( |7 d0 \                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
0 V3 e: ^# {; Q! H9 Z                        print"no";
+ E/ I; D! B0 r                else
# J' @5 w( T3 }. Q1 G3 F$ R                        print"cancel";
                end;
                eventcontroller.stop;
        end;
4 q' {% t4 h" S: b8 y% J9 M& E7 R       
0 U0 t4 Q0 B$ J' [7 X: A        for i:=1 to number_of_machine loop
& P% i6 y. D7 g5 Q' Q' z* \/ z0 _. ^        machinename:=sprint("M",i);
3 V1 g- N1 g3 E, \4 M! E$ k3 @8 Y        if existsobject(machinename) then
, f1 L$ X! s+ x% h7 o                machine:=str_to_obj(machinename);
                machine.deleteobject;
: t3 k+ I: M; |7 J  E8 J        end;
, J6 p( c4 [; y% v) l. i        bufname:=sprint("BF",i);
        if existsobject(bufname) then
# C. n- U$ \0 E  W3 l+ c4 x                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
  W4 F9 _1 p* j$ l) d        next;
- z3 J8 H, |3 O- W. ]0 [2 o8 K+ }       
$ X- ~! K4 H/ G0 j        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
" ~6 t: _* F% v' ]                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; t/ b' @$ l, y" B" [- `3 B  ]                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! p( L& ~' ~2 \! w' {. j                        and activityspace[1,rows]<(1.05*y_max) then
& M8 S8 [( E8 A$ `5 R  J5 O                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
& `9 F( A9 b: ^- @                        activityspace[1,rows]:=ct;
) G# _8 G3 \3 g+ h! X                        mark:=true;
- _/ N4 j, O$ I* B                        else*/
                        y_max:=y_max+dy;
! U8 R3 e0 X3 I                        dx:=0;
                dy:=0;
                        --end;
  S; a+ ~! n6 }                end;
% r  o  a' K0 n7 x9 v2 v. l( O) `                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% z' N* U) k9 t* P9 z* c                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
* n6 a) W6 i" \5 g7 p, V9 h            if activityspace[2,rows]>dy then
# G( y  p2 W8 R, D( b6 P' D4 p9 ?2 c                        dy:=activityspace[2,rows];
                end;
' P, P' m" x- W  H5 c' N( X                dx:=dx+activityspace[1,rows];
                /*if mark=true then
* f; {9 s+ p1 K+ M' }                ct:=activityspace[2,rows];
# ?1 b1 K% f2 C- D4 l4 o- p                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
4 p6 V5 V0 N# ]% m& n        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 `8 T/ ?1 ]. y4 k8 V/ ]        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
: F3 H& `& O1 E$ ?! r                for j:=1 to number_of_machine loop
. ?3 v% B9 W& U                        if j=i then
                                d_from_to_chart[j,i]:=0;
! `& W2 o+ d5 t                        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];
4 @, ]4 j7 {; R/ s0 n                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
5 \* B# u1 h" X6 o       
, A2 ?+ F- v& V0 w1 ]        lines:=0;
% C2 v4 D( M+ A5 }- @        partstable.delete;
       
+ C4 i1 w# P; U$ x        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# w" `6 W2 T  X* V. B                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
$ t# y5 k! ], s# t5 h0 t5 I& e                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) J; e2 {$ e% ]  U4 _, }) U' ]  X# l4 [                        partstable[2,lines]:=w_from_to_chart[j,rows];
- C# t" t  x+ v6 A                        partstable[3,lines]:=sprint("parts");
1 v3 u. h* u* @2 i9 o                        partstable[5,lines]:=rows;
: g5 b. |: n& V+ F/ \9 h2 ~                        partstable[6,lines]:=j;
; J* G8 s5 K8 f! |                end;
        next;
! ]9 }9 Y  ]: e- [        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;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
: x6 K  f* |# w2 x       
        bufname:=sprint("BF",rows);
) G! ]3 y' G9 H2 \        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;
  c- p# v+ r$ |3 U8 G0 i7 \/ e        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
& P) Q( l7 R/ j, m* ~0 g6 x       
) U8 }) L/ J3 g4 i' D        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) U3 p6 U' q. v1 Bdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
+ R; J" X1 v4 D; g: k) [9 B! Tcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
& T/ ]. I0 O5 mnext;
' H5 ]# [. U' j  E1 Eend;