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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
% V& r/ N: ]' Q2 `" ^4 C! t$ v$ o    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
: ~/ W7 I6 ^" F2 r+ ido
        current.eraselayer(1);
  F% ]( p+ h/ U+ Z  e. d       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 \1 y- `3 q; n4 s3 }  s                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
0 y1 I  e7 @" w. U8 z7 V$ P                when 32 then
' e( q. v! X: C  ]                        print"no";
% i4 x- _  @7 F/ ?4 N                else
  ~  ]$ F4 |2 D) q; a                        print"cancel";
                end;
) B4 l1 _! ^  J# _                eventcontroller.stop;
        end;
       
/ F8 P3 O7 x+ ]0 T1 i: K        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
5 Z- Z9 W9 w! B5 J# R7 `0 _8 \                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
' t8 \+ m! u( T+ E        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
) E* x! m5 m6 U; L) f9 q        dy:=0;
        for i:=1 to number_of_machine loop
; I' J. x* y% b# V* v* p3 r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
# J/ ?# X' k8 V2 `                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 V" |, ?* D1 Q1 _* x8 @% m6 x                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
( `! a$ S7 R/ K9 ]8 E4 \  ?                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 Q% L$ k2 [- @- X& t                        activityspace[1,rows]:=ct;
                        mark:=true;
  ~) l- D& B5 q! O2 R6 [/ K1 v$ F7 j                        else*/
                        y_max:=y_max+dy;
2 o! s% C% U" Y/ k& m                        dx:=0;
* G: P/ K3 g0 C- r/ }. S- T                dy:=0;
                        --end;
4 c9 `9 r$ M( U                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( [% I# x8 w2 N; m9 V, ?+ Z1 L                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
4 `) K: ^5 M9 [# i3 c7 M            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
& I4 f: `- k7 h  w  j                end;
$ T- o* {* _1 ]  p, ^' a                dx:=dx+activityspace[1,rows];
0 o7 Z4 l5 Q. g  B6 i3 a                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
- p: P5 [2 w: n8 C/ q; |                        activityspace[1,rows]:=ct;
, u6 o- @' i, i( ]- D. H                        end;*/
8 y) G. w, u0 @- E1 r9 }        next;
        y_max:=y_max+dy;
, a8 Y( @: e, e6 n0 Y        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);
4 z3 I; j' b7 L' \7 J        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);
       
! b, \; e4 F3 W        rows:=0;
        lines:=0;
. O- c1 H/ A% U- L# l- n        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
+ N: ^6 `' G% `! `& f4 v( S                        else
* `2 S' Z/ k2 j1 t& l3 a                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 u3 m, S& ?' I. P3 O- ]                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
# I% X9 ]2 d. q( q+ _3 ^7 M  F' Z+ T                                d_from_to_chart[j,i]:=abs(dx-dy);
  T& o" h3 F! c: Q, h, i3 T: `                        end;
                next;
6 M, e1 z0 m& ?7 k, t3 ~  X        next;
! J/ }, P( \! V( b! t       
        lines:=0;
        partstable.delete;
' h' w5 M6 r- f* _  H       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
/ n2 P$ {6 i( K% e% R                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];
  g! I+ R. _, a" z5 c; R( |                        partstable[3,lines]:=sprint("parts");
4 Z5 c4 G/ V, E, R4 A, k                        partstable[5,lines]:=rows;
8 g/ F, t4 i; {                        partstable[6,lines]:=j;
( _9 U& r+ \5 E: s5 }                end;
5 N' j0 m# n4 V; k        next;
$ V2 E: v0 l! v! f  y3 K        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]);
) i5 [, n7 S6 q) X2 x( `        machine.name:=machinename;标识符未知
( T! y2 Z3 L5 W# e" p) A  d        machine.proctime:=5;
$ N$ ~  ]8 X) [; [" ^        machine.label:=activityspace[0,rows];
8 F. s! F7 O7 r; e# _! ]        machine.exitctrl:=ref(leave);
: \1 a0 b: K5 o! J; Z( S       
8 H# g0 Z9 I( l! f! w7 i0 H3 `        bufname:=sprint("BF",rows);
* O9 r5 `- f$ u$ t5 c0 k4 ]% a5 a        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;
' {9 m/ \- P# e% ?        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: {. e) I  D: m1 L! X  F1 udy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
/ y1 Q( A# N, }current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
% L  ^' a( {  B& z# z4 snext;
end;
% m- P# r: v, Y2 z" `3 L5 L; \5 k( _