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

zooey

is
        mark:boolean;
. A1 u0 a4 Y/ Q9 L% k( }        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
0 N+ H4 m/ J0 l0 p* t' V1 i    machine,buf:object;
- |2 \# G1 B# e2 P1 j3 rdo
$ }* I" l9 S2 b* ]9 Q        current.eraselayer(1);
- S2 [+ s: v* X  A) b+ w7 O' {0 e" l$ N$ g       
% t0 r: ^. N' ?/ K( u        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ e1 |# {- H4 \) x& D. f# P                inspect messagebox("设施数目不对！请核查...,",50,13)
8 @2 c, L, A, _+ @( j+ P; o, K                when 16 then
                        print"yes";
7 h* n. A2 L2 V: P, `                when 32 then
                        print"no";
                else
  ~7 c% l5 I2 s( k                        print"cancel";
                end;
9 e2 Q4 p  s/ J* N1 p                eventcontroller.stop;
        end;
& c9 _  a3 H. {" i/ T* ?% b9 ^       
$ ~, c, |3 k9 _" r        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
( _2 _& w  W; W" ^                machine.deleteobject;
        end;
) b" C4 p" L$ w        bufname:=sprint("BF",i);
0 C8 o. C3 ?4 _$ g! @" E        if existsobject(bufname) then
. L0 @/ R; L' i- l                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
6 _4 ]6 f7 q4 v        dx:=0;
1 V% b( U; l4 }  z( T- Z        dy:=0;
        for i:=1 to number_of_machine loop
  S0 f8 C# q8 K. i  y3 l7 F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
4 j1 v) e0 X& I: [! t0 a- O+ b                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
# a; S1 @7 B5 k' T- f, H                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
9 G( z! F3 K, p                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
9 M$ I  F$ W$ J. o8 H                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
, n" m5 Y/ j6 w8 _' A$ |1 J                        mark:=true;
: c# W6 W$ K. [& }2 c                        else*/
( G5 P; M6 L* \                        y_max:=y_max+dy;
7 K1 s  N8 ^3 H- I  e2 ^& s) ^                        dx:=0;
                dy:=0;
* V5 u" A' t8 e9 q! T, x( x8 t                        --end;
7 g: E7 a+ B' @' @1 s                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- t. k4 n: \  _* ?$ z. f) g3 ^                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
3 Y* k. z0 y* y$ H+ K" l# B5 Y            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
0 H* |2 Y, z& O6 O                end;
                dx:=dx+activityspace[1,rows];
( Q9 L! `3 a$ J- S                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
2 d0 I7 c# z4 ^5 {                        activityspace[1,rows]:=ct;
                        end;*/
        next;
7 g. w% [7 S& \" L: d/ |  c( n        y_max:=y_max+dy;
3 B" X9 r4 H# i* R  V7 {& 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);
# L) t2 P" [# S2 W        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);
& G0 L! X" [% A, ]# w( e8 }       
        rows:=0;
# P" ]% L9 P$ Y& b$ V4 w# A        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
5 J9 f4 T7 V9 B3 V8 X                                d_from_to_chart[j,i]:=0;
2 j" g( D  g/ a0 m8 x8 v                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
0 {& ?( T2 [" W                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
; \% r! j: A; c                next;
' f9 z9 o) a- y' m        next;
2 x# r  ~: P4 s3 _       
- k3 R8 ^5 t  O: c9 R+ [4 H2 W! @        lines:=0;
        partstable.delete;
0 P' u5 s8 x+ ?; u( X       
) ~% j9 r' `9 b3 B4 P        for i:=1 to number_of_machine loop
1 u  E, {9 X5 A& D& R                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, g$ i& j3 r0 Y3 `' ?1 M                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"));
) }2 U# I2 m# T) I: m( m                        partstable[2,lines]:=w_from_to_chart[j,rows];
% y2 y, e' K8 c+ L9 Y9 C                        partstable[3,lines]:=sprint("parts");
( x2 Z: a3 r9 X8 `) B( j7 E" Y                        partstable[5,lines]:=rows;
( c- b) V0 ~! R" P5 D: S! p                        partstable[6,lines]:=j;
                end;
        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]);
+ o; ~; j7 B: [8 |; K9 v        machine.name:=machinename;标识符未知
9 `2 _3 u! h  [8 J        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
8 h- n1 ?2 j9 i1 ^' J       
, v% N# y9 }0 ?3 {' J3 \. l% t        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]);
: J7 ~3 I+ z0 f$ O  J; Z; D        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
/ B, o9 B. n: J$ N# J$ _5 D3 Q3 M( O        .materialflow.connector.connect(buf,machine);
       
# N: y  i. x( C! O- ^4 |. [) 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;
3 _+ u0 Q! p2 S: s' \; e8 ^/ {: L. V  ~current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
4 x' {9 t% h- bend;
4 a: o+ v4 ]5 L% S) W6 A