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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
, Q  F; f! G6 |! b4 x( X       
1 G; W2 {# ]. \( W        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
# g  J& j: b  o                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
# x+ M. H% H, C6 y                        print"no";
                else
                        print"cancel";
                end;
; z' M$ ~* c: w+ E                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
5 s8 l. I7 ?- O( z+ y7 a. h        machinename:=sprint("M",i);
        if existsobject(machinename) then
0 r8 g4 o3 f- H# d3 q7 f                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
$ ]7 o2 w* [7 ~/ A2 e                buf:=str_to_obj(bufname);
; N# O& @2 T+ f                buf.deleteobject;
% Z: a) x; j' o. x, d2 s. K        end;
        next;
) j- }2 W1 I* k0 g       
        dx:=0;
* q& {; J0 f& {5 L& t) J9 J/ L        dy:=0;
        for i:=1 to number_of_machine loop
& W9 f% G$ \" K, A                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*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];
                        ct:=activityspace[2,rows];
$ K7 [2 m3 L$ ?3 J( Q4 }                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
                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;
3 e; @. u) z$ N) {2 [& q7 `5 j            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
+ u/ Z; N/ o, b+ W% @                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
0 f& C( K! x  Q                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
7 @  |. Y# t9 x8 L8 X                        activityspace[1,rows]:=ct;
6 u3 E, `9 ]6 G  r- m% I                        end;*/
; M" X5 i* ~7 n3 a3 z  o4 k        next;
- ?( @* j7 S7 [9 R/ c) O4 n4 n        y_max:=y_max+dy;
, [+ h: R& V6 H8 y7 m( W+ u8 b6 c        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);
" N1 |( t7 m+ r) }8 ?" v1 M9 P       
        rows:=0;
) q- ?- b. o( T5 y        lines:=0;
$ K7 T/ f1 \* c9 h" ^/ z        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
* M$ b! c/ f$ F8 Q2 E7 l" q3 E                        if j=i then
                                d_from_to_chart[j,i]:=0;
) n$ g5 g* C0 m7 U% W                        else
$ [% S. F& D. W6 S                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 q* J, y& O* D0 ~, k                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
+ R* s$ R. O# l( f+ D  Y) X                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
4 k+ ^. y9 U- i. ?: Q8 @) A2 U       
" d  j: S$ v9 W: g        lines:=0;
        partstable.delete;
% M" e$ B' ^* x, m  @. |- S       
        for i:=1 to number_of_machine loop
, F2 R, ^* L: f( n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
, D! V8 V2 Q6 ^6 `( B8 `7 b& `                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
" l0 Y8 L& m9 K% w                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
: ^* G4 o8 c# g) @) Z0 O2 M$ h                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
  X, B; W- c# P+ ^! D        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]);
5 l- d& C3 v! k$ I3 g) e- ?        machine.name:=machinename;标识符未知
- j0 E- \5 n) t+ m6 `4 U0 e0 K0 J        machine.proctime:=5;
( \( d3 d" `0 I( a5 n+ G! G        machine.label:=activityspace[0,rows];
0 F- R4 b: b+ q0 o1 l* ~/ I% n        machine.exitctrl:=ref(leave);
/ f7 n8 c! \6 `. A* B+ e. }       
        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]);
' O& g( H' B4 u        buf.name:=bufname;
        buf.capacity:=5000;
/ M: w  u; _8 c2 E4 T        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
: i, B6 D6 f1 z; o6 a       
        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;
) @7 A# Z8 L" V* }" send;
  s. N. r$ r  g! @( `- H" q