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

zooey

is
        mark:boolean;
4 A* t1 M- w) w5 v6 B        dx,dy,ct:real;
    i,j,rows,lines:integer;
) N, p7 E6 ?/ O    machinename,bufname:string;
    machine,buf:object;
do
' o' H9 W' H8 V9 ?6 {: H! a        current.eraselayer(1);
% T) o) y; R* n0 h/ b       
        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
/ A" ]; L2 h) U0 ~, Z3 f                        print"yes";
                when 32 then
                        print"no";
                else
, v9 s; ]$ j& C' U4 `& O" p# ^/ A                        print"cancel";
                end;
# \' N) C! b+ b! E                eventcontroller.stop;
        end;
& \9 o% d1 [( U. b7 i# d       
        for i:=1 to number_of_machine loop
3 g2 u8 F0 P1 P. {* S' u        machinename:=sprint("M",i);
  ?* R' a! u9 Q! }: B8 F8 Z, L  g        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
9 I$ X$ q1 {+ p7 F: J                machine.deleteobject;
3 b9 ?$ N/ C) f        end;
, g# S$ w* w9 l% L' y6 d$ Y        bufname:=sprint("BF",i);
        if existsobject(bufname) then
6 |5 T3 a& ~/ h6 m9 |6 e- t2 a0 z5 E                buf:=str_to_obj(bufname);
                buf.deleteobject;
& x% S. \; Y. |. E4 ~        end;
- l, B: V3 A- s2 C3 ~! |% h        next;
! S7 v( Y3 [; [5 x- }       
        dx:=0;
        dy:=0;
. ^# e* x  V+ k6 X4 [. h3 a- n        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  V6 _  H+ |* V4 L: U                --mark:=false;
5 ?* F! s- W  M3 l( \* J  E                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* U* V. g, n9 b7 T( I$ m9 Y. d                then
; H4 ?" `) h0 ^: W2 a# ^- {                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 p6 q9 V9 X6 n3 r; e6 D                        and activityspace[1,rows]<(1.05*y_max) then
9 r  Z3 o/ M6 i% K( ?/ b0 G                        print activityspace[1,rows],",",activityspace[2,rows];
& v6 |9 S% A' `) Y! m                        ct:=activityspace[2,rows];
4 |) s) G" V4 }3 R% p  u/ p                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
4 ^  Q8 r# C9 D* T: B3 J& u% s) Z                        mark:=true;
- n: |5 U2 M7 I8 {4 o, K                        else*/
                        y_max:=y_max+dy;
6 W- j, ~& J9 p7 D1 ~* m/ s& ~                        dx:=0;
                dy:=0;
$ E$ s+ A, Z( q1 h; D2 z+ c                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( L3 H( h) M: H2 w& n4 f                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
# v  ^  E( s6 K  e$ Y3 E                        dy:=activityspace[2,rows];
9 t1 l% e2 a: U% U                end;
                dx:=dx+activityspace[1,rows];
' e6 f% g1 m4 D9 I                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 y" B0 X- p7 t6 ~" d2 F& g                        activityspace[1,rows]:=ct;
( d% o9 D4 r6 X8 |% Z+ X( w                        end;*/
* G+ ?7 s6 Q( K4 H: l0 b3 X+ G        next;
% }2 R& {9 M. o& K/ u5 C        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);
& r% E& f4 i! U  e1 N! D        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;
  |. B/ `* V; z' E$ t7 v4 I        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
0 R, o( D) @" e" N! z, _                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
  _; |! V, z, X                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
0 U$ l2 H+ n+ \9 ]0 `                                d_from_to_chart[j,i]:=abs(dx-dy);
, v+ i0 \7 G1 Q. a. v- M  p* ]: g                        end;
8 ~( v3 _8 X! A, g& K, e                next;
        next;
       
& y9 h! b! U' q7 p        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
1 |" w8 @% k8 ]                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" f0 w0 K! \; Q5 A* B9 r                machinesequence[2,i]:=rows;
4 b* t- b, H* k. C* r                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
0 U/ D& e1 x" r                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
" h% ]5 P  U" P                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
4 [; g. [. @  e/ o                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
0 ]5 H! N: p, I* \) l; Q        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]);
# _% g# ~8 f6 v3 j  e        machine.name:=machinename;标识符未知
2 K- c, e0 h( {6 I) ^- z% o        machine.proctime:=5;
$ E' A( {+ n# E" }/ C1 D        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
# H# e. L8 g1 S/ }        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]);
  ?6 a* ~- Q: _0 m        buf.name:=bufname;
4 l- e) N" J2 r# l' a* M        buf.capacity:=5000;
        buf.proctime:=0;
# G4 z/ N- p# H4 Z% b& c; e        .materialflow.connector.connect(buf,machine);
7 v% Q5 M4 n1 Y       
9 }- b1 q5 D4 [' Q        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
; |+ Z+ k! h: H1 ~  ^dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
; Q7 }& p) y! q( s$ S* Xcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;