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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
$ G) C) f5 ?* s  G7 E    i,j,rows,lines:integer;
1 j; @  ?) N! m$ n* r    machinename,bufname:string;
& x( j' Q$ N' U  }4 K9 L    machine,buf:object;
9 t) ~4 @; T) Q+ E( bdo
$ f3 n+ w3 k/ x. L* G        current.eraselayer(1);
       
) }+ T0 h' d* d        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 j9 n. }, q$ c7 v; z/ V2 S% F                inspect messagebox("设施数目不对！请核查...,",50,13)
9 Y) ], x4 O* Z1 \$ R. Z) ]                when 16 then
, u1 l, }; d& ]% C- h                        print"yes";
1 q  B/ f) a1 L4 ~                when 32 then
( x5 x% e2 q: P/ K                        print"no";
5 Q3 ?1 ~- {* l                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
0 U0 ?% o, V( z) q" p" X1 x        machinename:=sprint("M",i);
' B: i$ ^( T; Q0 w4 {8 p        if existsobject(machinename) then
  k* L( P+ M) ]$ d# i2 y  i                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
4 |: P0 L6 V6 R# m( E/ F# i        bufname:=sprint("BF",i);
        if existsobject(bufname) then
" ]$ l4 e  A  Q2 e& P                buf:=str_to_obj(bufname);
5 |2 G2 V5 ^( ~2 U& @9 v' |                buf.deleteobject;
1 R* \* {+ e6 `0 l. U/ H- S3 M        end;
% ?+ c- G, l) h# {7 q) e        next;
  g  E  r  E4 `- Q- Q3 K/ L5 [: C1 W       
( g! q" P6 d' C- w1 S        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 W1 z3 j' y! N, c4 E                then
, s+ n  L- P+ j0 }( B/ p" P3 i                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
9 i' V2 C0 o. ]3 k3 z3 i1 Q+ _                        print activityspace[1,rows],",",activityspace[2,rows];
/ w) `4 ~) L( H8 I                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
2 g; _! C2 W, C1 \- x& @                        activityspace[1,rows]:=ct;
                        mark:=true;
# s# ~* x" u9 T4 e" h                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
1 m1 P) A9 p* k7 g: r: K3 ?                        --end;
                end;
/ e* t# u+ `! R4 T. c                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 M+ t& ?# {( ?+ f5 c- O                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
* k6 W0 @: ?* t; N+ S& E            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
' |! U9 d+ L  i4 A                end;
2 }- N& m& K: ~) d                dx:=dx+activityspace[1,rows];
2 {  d7 v, a* y$ U                /*if mark=true then
( a  K! u# c4 g) o' f                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        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);
3 M% T3 h# Y0 _& b        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);
       
. Z& D" f! \! u8 R& O( A, Y        rows:=0;
' v, i* u9 n' z, d        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
1 P8 T2 W9 g/ o* T. M/ Q- _' M6 ?4 s/ Z                                d_from_to_chart[j,i]:=0;
1 Z" J( }& S; {- g" m4 b                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
5 \+ h- Q5 Y6 h/ G- K1 |                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
+ ~& @* B0 M# B9 g. g# J9 ^- n5 u9 \                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
; Z6 f2 n4 @* P7 H                next;
% P# V# e( o% D! _; g. o4 t9 u        next;
2 }7 ~  a8 ?9 o# ]       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
- K0 n: D* T* N* E' z1 Z                for j:=1 to number_of_machine loop
! D. U! h. z1 q  p& X# l9 X                        if w_from_to_chart[j,rows]>0 then
7 g* u& o" }* r' v5 l( |- b8 Q+ i                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
( t0 y# F8 J; a                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
1 K1 o. c$ E9 j/ j                        partstable[5,lines]:=rows;
/ i; K' a5 J& J                        partstable[6,lines]:=j;
                end;
        next;
0 F/ {# ]5 B1 I7 y. b9 @' w5 w        machinename:=sprint("M",rows);
4 R* s% @1 T/ [0 U" m' P9 d        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];
5 O: K) g' N! G) ^% z4 W9 \        machine.exitctrl:=ref(leave);
3 A1 I! }6 V( W       
3 Y# d% v) @* ^: i; e" d7 T  w+ Q1 {) l        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;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
: J7 U. v: ]( h5 L9 i        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 d/ ]1 s1 b" L6 k5 E3 ~dy:=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);
6 Q) o! K3 K" lnext;
4 R' s2 \: O- d: u2 y* c5 Y, Qend;
1 z! R9 Y* b1 w5 G