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

zooey

is
1 z7 k# h" a) A5 u        mark:boolean;
        dx,dy,ct:real;
) ~) H% P& Y( m    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
6 w) ^* |. _6 U6 h       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
0 o+ s  I* I9 g                when 16 then
  u5 X) l2 F. g' S" l2 b  ]! |" p6 A                        print"yes";
/ Y) f) S& Z# s/ ?                when 32 then
                        print"no";
: a- q0 Y+ Z; M- C8 W                else
# w/ \  ]% g0 u                        print"cancel";
                end;
& [. x+ N0 x$ B( I5 Q) v+ _! v- n                eventcontroller.stop;
        end;
# M; ?1 k' d, [/ j+ q+ m       
; b, e9 Y6 E0 Z% b1 H/ B        for i:=1 to number_of_machine loop
  Q3 W5 }0 e& A* I3 q        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
- I! b% C! f& j2 B2 D                machine.deleteobject;
3 u" G, e' N- O1 {- A0 G5 A        end;
& q* T0 J0 k, B. z  i        bufname:=sprint("BF",i);
9 t8 u, J2 ^5 D' I7 B$ N        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
2 P5 T$ Z7 t& f/ V! Y: f) q       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
( H& s, U& s5 ~; C                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: n0 y5 q& H( O# Q! R* C) a                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
- S3 J# p- I1 I0 `( B3 c                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& n& S8 O! {0 q, q                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
; `  x/ g' l- f+ d  k2 X                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
% A3 p- t5 L. r1 ~4 L& M) ]$ ]8 o! k                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
! E  _( i! W& L: }( u1 t                        dx:=0;
1 M# r/ A; l6 e                dy:=0;
                        --end;
, ]8 i  ^, [1 w) n2 {                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
& Z. ]: P' o# G+ Y8 A, V                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
, P+ H9 Z" W2 u% i            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
* e; W# ~2 S( ~" X                ct:=activityspace[2,rows];
8 e; z8 n' r" r. b; C                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
+ _6 V$ U; i% J7 ^0 L7 r3 ]                        end;*/
+ }- n6 C) f: x( ?* d7 C) B        next;
4 @* g9 p- I" V& G$ f+ d% P0 L        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 S' Z& m4 @' @; k/ C        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);
       
3 G3 r! j, l9 B% X        rows:=0;
        lines:=0;
4 U  Y# |/ E( Z        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
+ R+ h8 k" Z5 _* _( _  V; U                        if j=i then
                                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];
                                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);
6 U" Q( l* h& n                        end;
                next;
& s& ]  c# g6 @2 w2 x7 l$ e        next;
       
8 f( |3 M# b/ |  ?* {  O        lines:=0;
. O" A! B4 r" M4 b. H0 y8 {1 B        partstable.delete;
8 L: l( X5 y! o1 q5 N+ K       
* C9 c3 M4 m9 d0 ]        for i:=1 to number_of_machine loop
# U0 y! U9 J  Z# K( a* D                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! z! ^# b# e$ T6 \                machinesequence[2,i]:=rows;
' \% m: O2 N. x' c! z* U( W                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
& R5 ~4 @, E1 V) R                        partstable[3,lines]:=sprint("parts");
3 U8 a5 }, O3 r7 B4 Y" r" m2 J% M                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
# M4 `2 W8 A: m) }: y        machinename:=sprint("M",rows);
% G. Z9 F. D% ^) N1 X) V) i+ y4 O# o        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];
/ P/ e/ a. {: ]$ {8 @        machine.exitctrl:=ref(leave);
$ @3 y' }, C1 M9 v9 `       
        bufname:=sprint("BF",rows);
3 ]1 S3 f9 K2 E        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);
       
9 g# b8 L( S) n3 Y) \        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;
$ h1 ]' U5 G$ Z7 n- vcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
8 u) d% ~$ `! Z) X0 A1 I( rnext;
end;