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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
( u1 Y, T. p* T$ B7 Z! {    machinename,bufname:string;
    machine,buf:object;
6 [7 T5 L7 G3 hdo
4 e  A( a" V) G+ l        current.eraselayer(1);
0 ]7 i2 ^! T. S6 R0 Z- m6 c       
- `8 ~" T8 O" y; t) Y2 B6 v2 H0 g) o        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
3 r4 B) O: b) c2 a                        print"yes";
" Q; T* z: y# ?3 l0 }  O                when 32 then
' u! O& v; Y; P$ G2 X) l1 C" n                        print"no";
                else
4 m3 V! t' b! U5 O$ g: F( f7 d2 ~3 O                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
: j  q2 V# w: s& D+ R        machinename:=sprint("M",i);
4 A3 F: t4 p6 _7 X. `        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
1 ~. Q/ W" N6 F4 u. B& E                machine.deleteobject;
+ ?: ?. G- Z' A0 b6 P# c5 a3 E7 @+ n        end;
8 F1 C  Z8 _5 x" N% t. t        bufname:=sprint("BF",i);
, k  I6 X$ U8 ~3 n        if existsobject(bufname) then
1 v% ]2 }3 w' ?3 w! w0 t; x                buf:=str_to_obj(bufname);
                buf.deleteobject;
$ u3 C8 Y0 Q, `" F3 v% V        end;
        next;
! X, D& v6 @2 \# l       
        dx:=0;
* ^) V( p9 O' ~0 \# j* M        dy:=0;
. h! g4 I6 W1 D  p) k        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' c* \; O' t" ~7 }: o( {                --mark:=false;
7 Q2 {5 ^! V; ]$ c7 J7 f                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
6 d7 m5 |" v& x( @5 u: ?. `                then
4 L- X# c0 P  t3 l; I                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
" d+ F0 I5 Z: K% f3 V                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
& O9 v4 _$ [+ l0 X' `: h                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# T8 r+ Q) e! \& U                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
, X8 l  G2 `, f                        y_max:=y_max+dy;
                        dx:=0;
, D7 f( T$ g! {4 `4 q" ?                dy:=0;
6 z* I! N, f" {* P% D                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 H/ G9 x. `% a                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];
. |7 ?* r. A$ w, X% t/ B  m                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
$ x1 h0 S3 T3 M! k- ~                ct:=activityspace[2,rows];
! B' T+ w5 Z& g1 Y  p  A% o2 u                        activityspace[2,rows]:=activityspace[1,rows];
0 O+ Q) Q2 ]# ?: |9 p4 P3 D0 {7 p                        activityspace[1,rows]:=ct;
                        end;*/
) ?$ J+ \% r4 Z: D. j% D) q        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);
2 K8 c/ d& g5 f2 H        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);
       
        rows:=0;
1 a# T/ d; d; G" I        lines:=0;
7 O$ n% X) ]7 x  R4 t7 @' c' j4 R3 t        for i:=1 to number_of_machine loop
: ^- R+ H  i7 D- x# |  S" O4 b- t                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
9 f+ @. W+ F1 s1 A% |                        else
/ O+ F! R. o1 O                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
5 S# [' `9 E" X6 k, n8 S4 e3 k! @                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
6 O) F9 c: ?( x2 s                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
; D( Y9 [3 Q0 a% P: b% `1 S                next;
1 X9 {, [5 o! m( g5 A. ~7 \7 d        next;
       
1 P9 v- r. Z  Z: y0 D        lines:=0;
: A! x6 ~: a9 V* g7 `        partstable.delete;
/ \/ Z( q) J# t' M5 h$ w       
: x- F) d2 E( b1 s8 Z# m0 \        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 b  }+ ?' ^9 K6 D! `                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
" ^  P$ a0 b* \- t/ |1 K                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
( v) m# ~7 ~3 n  E7 \3 w                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
4 \7 m0 V2 ?- s9 q                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
; h6 Q  i) z- i. U4 b6 P5 u                        partstable[6,lines]:=j;
5 M/ R  W+ n, Q/ b5 I3 {+ [                end;
        next;
        machinename:=sprint("M",rows);
4 o  `5 u: p# t& Q& I        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]);
9 C' z1 C3 @" Y$ u8 i* E; c        machine.name:=machinename;标识符未知
. v- D/ M  k% f! ?: j' Y( p/ z' j: z        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
" q; c2 b7 ~. t# O& y$ z8 g0 \        machine.exitctrl:=ref(leave);
, I4 c" ^! O4 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]);
. O: W& W# U: S( A, h7 I, O        buf.name:=bufname;
        buf.capacity:=5000;
8 v6 i* Z& @% w; G1 T9 G; i        buf.proctime:=0;
9 Q; M. V; I  G) ~! d        .materialflow.connector.connect(buf,machine);
. T$ c* j8 B& B- }) M       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
0 h3 X* }8 g" O3 @6 }dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
& }0 ^; C6 d5 ]  Q- `6 P8 V' Ucurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
& J4 o6 ~3 a* n0 W9 Nend;