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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
" j* Q8 l: Z! p1 s. I* i  ^$ [2 ]    machinename,bufname:string;
  G9 D$ K- H' q8 w1 }    machine,buf:object;
+ {* \% U$ |: `/ n3 Ado
        current.eraselayer(1);
4 {+ Y7 b/ q+ r2 c       
* v4 @: l  x( P% O        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
3 j9 Z$ I: V) A3 C( D# _$ y                when 16 then
, V9 |  ~2 ]0 D6 ^1 }( e. w                        print"yes";
! c3 I9 g4 B; w2 ~9 h$ X$ d9 K                when 32 then
+ [9 m+ w; T/ U8 X* T                        print"no";
                else
                        print"cancel";
, j. ]% d1 \" Z4 K6 K7 O: s6 M9 D' Y                end;
                eventcontroller.stop;
. r( g* E* u! d0 B  I1 A        end;
/ o2 ^2 z+ i2 h       
4 k/ E1 ~' a0 ^6 P; [, U" ~        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
' Z% n- \% z7 y- a                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
; d5 X- R8 S( @                buf.deleteobject;
6 S& {7 J8 X# {4 l0 ~5 ?. l        end;
# j  i9 C$ e7 @) K        next;
       
. m. g( S/ Z" @9 ?+ ^% M- Y$ D) ]        dx:=0;
3 u. [* }% v+ Q' D8 m" L* W2 C- q% v        dy:=0;
; w; b8 z; l/ [" O7 t* N2 g        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ W& l' P' r/ f2 Q  `! n0 q                --mark:=false;
1 t* u/ b. f3 x                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];
2 Q2 Z/ z& Q: ^/ \9 b- F                        ct:=activityspace[2,rows];
8 I5 @; d" G7 @9 M  V5 b/ e' l                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
; l, k; i! c! ?9 E                        mark:=true;
( y5 A0 z& v& _; D9 e) t0 a* ~% H                        else*/
. ^: C! Z4 }. e6 W- _2 e                        y_max:=y_max+dy;
' Z+ t% ^: x8 z: W% [$ E7 P2 b                        dx:=0;
4 [) s% p2 j( t" X, D" x3 x                dy:=0;
  L+ _% C$ t7 u& ^" ~4 }! `                        --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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
+ l' O& m2 h* G# z8 k: r                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
0 s9 C: H- _6 q2 @4 O                        activityspace[2,rows]:=activityspace[1,rows];
. I' |/ T2 w3 G+ Q  A                        activityspace[1,rows]:=ct;
                        end;*/
# u' M8 b" E% O5 c  |        next;
3 m6 k4 S8 ]9 B        y_max:=y_max+dy;
" D7 z$ \$ s( ~2 m* j        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);
+ R% T/ |% b, u- c( r        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);
       
8 [6 t8 F, w9 W# T& g! b. Y+ C* P        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
, D# O) j! I- N$ c2 O. k                        if j=i then
, T' E* _7 s0 m* R                                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];
! {2 K" W  d: I2 R) |                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
6 a. Z- I% ~+ D6 t9 S( H                                d_from_to_chart[j,i]:=abs(dx-dy);
' b) v. K" Y2 q                        end;
4 l% t' O' s% O- A                next;
/ W0 R' j' W* V        next;
2 h! e3 \5 z- N1 B* L$ E       
  C8 P. L4 F7 z# X; A        lines:=0;
; v# f' m7 a' `9 K; l        partstable.delete;
: r2 s& e+ h" I# ?       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
1 D" [8 o+ ~* e2 [; m; g' \  _2 q                for j:=1 to number_of_machine loop
* b: y% M- l' `: o0 m& l                        if w_from_to_chart[j,rows]>0 then
' D" F2 T2 Z3 K( ^+ s) t                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' V1 D: b5 @' W! A                        partstable[2,lines]:=w_from_to_chart[j,rows];
* M& V# z. y, T& X                        partstable[3,lines]:=sprint("parts");
: H7 t$ t1 m, k3 @                        partstable[5,lines]:=rows;
9 h2 d+ w1 E: J  E4 ?4 |5 B; U                        partstable[6,lines]:=j;
                end;
" `+ I5 p! \. {/ e0 b+ ?2 ~        next;
        machinename:=sprint("M",rows);
+ d0 W  @7 X9 W# ?* ]; j1 H        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;标识符未知
& O5 {% p$ b/ ]- _* p$ g' k! C9 L( w        machine.proctime:=5;
6 L3 l  `* Y7 U" P1 ?        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
1 Y7 I  n0 O0 ]1 ]7 C       
7 y4 V- F& D; |6 B! e6 U        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]);
5 i( G+ m; L# N' G. T0 l' o        buf.name:=bufname;
2 d; v/ Y5 W+ t% h. V. K# I        buf.capacity:=5000;
+ D) y  [0 o- {2 z( v9 H. S        buf.proctime:=0;
- C8 g- h4 T7 l( }1 }8 F9 C& J        .materialflow.connector.connect(buf,machine);
       
: y/ y- r. [$ S% B3 B1 S7 P  O        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;
, M; I( W1 n/ r  k( p' H. E- Q5 vend;