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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
% S! z  L' E' Y5 W6 G% ?    machinename,bufname:string;
% n5 f9 x3 j" p! c/ w0 @, z: m( D    machine,buf:object;
do
* F: a5 M+ d) c3 J: a        current.eraselayer(1);
: C" w: @* W  T/ H       
* a% Z9 @& z6 ^7 e# n9 C2 {5 c- D        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
. g1 O; J# R: P; O2 a" X                when 16 then
# v" \! ?3 C3 d: {9 C6 _2 t                        print"yes";
+ Y% u4 a0 E2 Q* U* M# j4 W5 {                when 32 then
4 |0 I5 _9 d# O# A; h  X                        print"no";
9 T# W/ s" d- z. ~6 a( F7 J                else
                        print"cancel";
                end;
' Q$ @( a. p6 x" m% Q                eventcontroller.stop;
4 D' x: T# k% g5 O        end;
       
$ @- z- P5 k4 ^* ]# t        for i:=1 to number_of_machine loop
* _* a8 i, {  A  v# }- p        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
3 T6 c. A+ _$ ]* Z. _1 ^) I: l  ?                machine.deleteobject;
* h) m' J- E0 T        end;
+ Y% |. i( p' ?# k4 ~        bufname:=sprint("BF",i);
        if existsobject(bufname) then
* w9 c8 w: c* J  z1 ]                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
. L) _* I0 G6 M' B$ U; R* E       
        dx:=0;
) a; [  ]2 b7 ~' P/ C' t! D* Y9 Q, o        dy:=0;
        for i:=1 to number_of_machine loop
# Y5 E* N" o  X& z$ X9 L                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 x% A. M, H6 \                --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]
                        and activityspace[1,rows]<(1.05*y_max) then
+ y! \' m) }) E* @& M$ y                        print activityspace[1,rows],",",activityspace[2,rows];
1 M" c8 Q. l) f                        ct:=activityspace[2,rows];
3 V& ]* k7 ^( }' p                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# u1 J. t! c. s9 e                        mark:=true;
# e/ N1 t! I- U- @% a3 {                        else*/
$ O, B, G+ u. z, m                        y_max:=y_max+dy;
                        dx:=0;
! A: d  x8 O/ b  U( b8 N, I                dy:=0;
" G% ]  q# }7 o5 [                        --end;
                end;
- w5 ?9 J# K  I$ j7 \                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
# ~5 ?- G+ V- ]2 C9 P; `1 ?                end;
' k5 i5 M: l: F. k6 [                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
* Q  N5 g& D5 U/ t                        end;*/
2 L5 v' m8 P0 l" S$ m* n  h- S' [        next;
        y_max:=y_max+dy;
8 v+ x' s% J9 [8 @9 `  T7 Z% }* 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);
% h# q1 ]8 }/ |% u- D: G        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);
% K/ ^: A! G! x$ @% ]9 ?& _3 I       
2 z; L( m! C9 A  T" W" S        rows:=0;
        lines:=0;
( U6 ?2 P6 o- w0 l0 u- b2 B        for i:=1 to number_of_machine loop
$ x6 g8 s& E+ P                for j:=1 to number_of_machine loop
0 K+ q$ f5 H' Z+ T2 a. {$ G                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
) j( x+ {( Q# P" d8 G6 e) }                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
0 W# y9 V- D8 Z$ ~/ `2 Z                        end;
; I, t9 v& o, _- W! i$ @3 t3 q                next;
) m/ |" H) a$ s( Q" @        next;
       
9 o; z8 w; p- _% I        lines:=0;
        partstable.delete;
, w# F5 \2 m3 O7 d% {: _6 q( t+ V       
: E. d  M  r/ M1 ]% z7 c; r; @        for i:=1 to number_of_machine loop
, a. S, Y: r) w% F# @  B! F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# |* M7 o( q4 Z                machinesequence[2,i]:=rows;
$ [$ `3 ?+ v7 u- ^# x* U                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
, g* ~/ j+ y& c5 N/ N' I                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
& |2 i! x0 \9 o4 C. I9 C" a! v  R                        partstable[2,lines]:=w_from_to_chart[j,rows];
5 ?4 ~% }9 O) M* C2 z                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
( |$ V( Z7 l$ l8 C& m9 a) c5 h                        partstable[6,lines]:=j;
4 W: v0 P/ A  c) Q% E* }- J  W                end;
! d+ E* T* q* h; Z% n: [        next;
        machinename:=sprint("M",rows);
( E8 d: y5 @2 q  ]# Q& \5 u) F        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 p: ]% P5 d  |$ [        machine.name:=machinename;标识符未知
" c# y9 J# z8 o! `8 d& [" f, P* Q        machine.proctime:=5;
1 T4 W8 l' f2 X7 C/ Y( s/ u  E        machine.label:=activityspace[0,rows];
  u- t' E( W9 u# B) N        machine.exitctrl:=ref(leave);
8 X" ?3 _5 P7 C       
$ M) W+ g) ^! ?$ n* D8 n7 c# H        bufname:=sprint("BF",rows);
9 S" {8 Z6 @* S0 N& K        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;
# p& f5 a& }# c        buf.proctime:=0;
1 w( n8 m8 R# ]        .materialflow.connector.connect(buf,machine);
; i4 U2 _1 v! S$ r/ V/ S       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 J5 w3 b4 ]- a* ydy:=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);
8 O- S7 o& K9 B4 V( q; Mnext;
end;