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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
' s# G6 ~& |. H; `9 v! N) A+ H        current.eraselayer(1);
- R1 Q# ~( c1 L3 Y9 }  ?( ^& ?       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 ~: c" ?- I% G2 u; [* j3 q# x                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
  l7 E. p- M7 L! ^: q                        print"yes";
                when 32 then
8 t8 Z6 P, l# u: O+ ]                        print"no";
( m! h7 L% V$ O; N- h                else
- r% t, N- h  }6 s3 j1 Z/ y5 Y                        print"cancel";
/ r2 F0 ]$ k8 m- m: d3 D2 s                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
2 }- `' [. q" P: w9 j- c5 C        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
. x- Q* ~, o& r  ]+ M- Y; v                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
$ G! N, [4 E" Z9 A" s% t        for i:=1 to number_of_machine loop
+ V4 H$ u' q# c# @, `) Q2 z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
" o" ]# S& I- _! \5 S! i2 W& _                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
* W! }6 D& t. o8 G/ j                        ct:=activityspace[2,rows];
  ^2 k3 B! m; `6 a                        activityspace[2,rows]:=activityspace[1,rows];
. y" \8 h' F+ I) [- S                        activityspace[1,rows]:=ct;
* x. G9 i1 {7 |# s% l* G                        mark:=true;
                        else*/
8 F& Z) N& E: ?; |4 ^                        y_max:=y_max+dy;
, b: N7 D5 Z- N4 `                        dx:=0;
                dy:=0;
                        --end;
- r1 U' w1 F" _. g# g+ u                end;
  ~# u7 W7 P1 p) N& \' C, k2 n# D; P; z                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; k& P8 T$ A* u, q8 v& @                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
8 K; f3 }* C. C5 T            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
9 L7 b, l  _7 X) ^+ E% D* S' I                dx:=dx+activityspace[1,rows];
. g1 e- O- y3 @$ D$ a                /*if mark=true then
7 G: g' a8 L" Y3 j8 E& _                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( m) |  I" o7 X  p3 c6 g) g                        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);
. e8 d* N. v% 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);
: @' E$ L$ Q% Q  w& U  _9 [       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
7 e, Q$ [- g5 G: y, s3 u                        if j=i then
                                d_from_to_chart[j,i]:=0;
! j& ?5 z4 p; f5 E1 d" r                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 S& A5 G& {0 T! W. S. c                                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);
                        end;
) X4 \; S6 u7 I6 L                next;
# m' E; D3 M$ m9 a        next;
3 b% @* k7 u5 N4 {# N) T       
        lines:=0;
        partstable.delete;
! A' u& S6 G3 N% l# c' J1 u0 r       
" Z+ u* O4 B4 d# d2 Q+ e        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 s; n7 f% a% L9 m2 M% |8 F                machinesequence[2,i]:=rows;
                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"));
: T7 ]7 W5 G7 F& `( Y6 U                        partstable[2,lines]:=w_from_to_chart[j,rows];
  b( t0 }7 p0 Z* q& L                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
$ c  M  n% y2 p1 P, k+ M0 B! I        machinename:=sprint("M",rows);
2 y! \1 Y8 v3 z# z: {& C        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]);
2 D/ W9 a1 W* V1 [" `3 D        machine.name:=machinename;标识符未知
! w5 o3 N8 z: N' O5 ^        machine.proctime:=5;
7 Z4 \1 E5 F% @/ H8 R        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
! c- k$ I$ H: Y3 {       
2 ]! u3 |5 A' o& |        bufname:=sprint("BF",rows);
' R7 O9 C6 Y+ a5 W        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;
, _6 C2 ?4 N) R, m# z% b        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
" L4 G( C& X  N" t4 n- }4 B        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
3 l  j% k/ m! t7 ]2 p