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

zooey

is
        mark:boolean;
+ s; Y6 l4 c& O2 J1 W        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
" C9 Z! g; A+ Z$ x# R. p: X    machine,buf:object;
do
- _9 Y& I6 D# L( r& |        current.eraselayer(1);
       
$ `0 f5 M8 b; Y6 P5 n7 i3 d" e        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
! W" g/ q1 U6 @% I# Y$ N. g                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
% C4 m) Z8 T  R: q                        print"cancel";
! J2 J8 F; F0 E: C                end;
                eventcontroller.stop;
1 E8 `6 B" j" T        end;
       
: q; x* |* g- K3 u, u  D* O        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
( T5 _7 F% O( M7 v( L* B        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
5 k  U7 [0 D! M! r& k7 |2 o        if existsobject(bufname) then
* E: \) {0 l& h                buf:=str_to_obj(bufname);
                buf.deleteobject;
, v5 v3 `9 L0 p1 w* M        end;
        next;
       
        dx:=0;
' H) U9 A, d" E7 \        dy:=0;
        for i:=1 to number_of_machine loop
/ s7 t3 G2 s$ N) K8 J& `                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
( D: f1 n3 j* h2 v                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& s- t# W4 _  X/ v                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
# A; T( J- V3 ]9 Y- Z                        and activityspace[1,rows]<(1.05*y_max) then
: i7 s* p5 r+ o1 T+ u& e                        print activityspace[1,rows],",",activityspace[2,rows];
; p" X8 l" t  E+ V                        ct:=activityspace[2,rows];
1 V1 |1 p' F: S; ]9 V                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
# Z3 W% h  U/ T( O( X% u                        dx:=0;
/ m! T6 @6 z' U- C5 q                dy:=0;
                        --end;
1 B4 X0 a  L8 p                end;
% D( d, Q+ `8 z                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;
% Y  [2 D6 A! D+ R            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
) u$ Z+ x* n: F! {6 D+ F7 ~2 z                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
6 C+ b8 m  N$ f' i" f( |        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);
        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);
) x- ?0 m9 N) h! j* _& w1 q3 Y: u       
        rows:=0;
) ]- \% ?2 n6 a8 i        lines:=0;
        for i:=1 to number_of_machine loop
8 r$ U% y/ H2 S, t. n                for j:=1 to number_of_machine loop
! `! z; @9 d0 j7 Z" ~                        if j=i then
3 T) A0 w, z1 T( H+ ]- |                                d_from_to_chart[j,i]:=0;
2 I- J* q  i% p6 X/ x3 ^                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
( n7 N4 f# P) ~6 |6 @( n                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
* e/ y# g% x' k( g3 [0 ~* ?0 e" T. N. D                                d_from_to_chart[j,i]:=abs(dx-dy);
. X- P9 b4 c: V                        end;
                next;
        next;
       
, p$ A) P1 E- X- G/ N; o        lines:=0;
1 p7 P% H& V% J% v% C; {        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 @9 E/ t5 [  m. q  G7 W& r                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
7 Q+ c! N% f" `                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
6 @( ]; r7 W/ o* W$ e: g$ T; T                        partstable[6,lines]:=j;
                end;
        next;
* x( [5 ]2 Q& a0 ^' ~        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;标识符未知
# U0 j& a' Y; v& J, x! I        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
1 U! [6 R0 B6 S/ D1 `/ M3 @0 H        bufname:=sprint("BF",rows);
) \. E' c3 D( ?$ w# d6 [! q, V7 S# n        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]);
7 l& B3 L7 T8 ?0 z' O& w8 P        buf.name:=bufname;
        buf.capacity:=5000;
& @- l( ^; ]6 V( _. J  E, b1 u        buf.proctime:=0;
! n$ ~5 ^2 [8 b6 G2 H        .materialflow.connector.connect(buf,machine);
0 u/ E/ D# v8 l       
        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;
6 V( @/ q2 Q8 [+ [( b1 rcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
, E  {+ N/ c3 O+ g9 Anext;
end;