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

zooey

is
        mark:boolean;
6 z7 q& E* i5 b        dx,dy,ct:real;
    i,j,rows,lines:integer;
( A" z% k/ Z+ p; K    machinename,bufname:string;
    machine,buf:object;
; [% o3 f1 F; ?, Q  K- J  b. ~do
: b7 z. j* l+ x        current.eraselayer(1);
       
- ?& q. p' ]0 s" o        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
8 Q1 D1 W8 A8 v, t                inspect messagebox("设施数目不对！请核查...,",50,13)
( M2 d1 }; c0 U# X. y) l$ N+ B                when 16 then
/ [) e& S) A" s9 G) I5 T, z/ R$ E                        print"yes";
& F+ a2 E8 Y+ n                when 32 then
, }( ]/ d4 M1 X& \. u                        print"no";
# c4 T. h; t; `" f( b# [/ E* y                else
                        print"cancel";
                end;
9 |" H! w4 e+ X# I! n2 b( S                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
! G3 Y: X) G% G        end;
        bufname:=sprint("BF",i);
! s* x* D% I: r: V/ ]7 i- f& y        if existsobject(bufname) then
5 R$ O( h9 u4 B) `% p# D                buf:=str_to_obj(bufname);
3 Z, p$ |* }6 i0 j# ?- S, U* G                buf.deleteobject;
" [6 w! D- A/ {( U- ~1 i/ _        end;
        next;
1 j: e3 s2 o. i       
$ a; Q' a. B' {2 j7 p& a        dx:=0;
4 _* G1 k; e7 d9 B2 x        dy:=0;
# _; c) q. A! ?% [0 d        for i:=1 to number_of_machine loop
8 ]: M  Y- o5 b0 U; g7 R) ]. t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 b0 B4 r: R2 I                --mark:=false;
* i9 e& k; Y1 K9 X                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
' i+ H8 v; }; ]: T) y0 j; L4 e4 E& d                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
" Z' i  P$ b" [2 T                        print activityspace[1,rows],",",activityspace[2,rows];
( F) @8 j3 i0 V                        ct:=activityspace[2,rows];
7 U0 Q/ z+ b- ^6 q6 d; c                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 Y, J3 o$ y: x, v                        mark:=true;
; v5 `! E7 O. c& x, l- l% k                        else*/
: F  g4 m; ?: N                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
, E6 t! c2 S3 b* M! o4 h                        --end;
8 X# V& a' e: L8 X, v$ Y& a                end;
; z" g) [; Z6 _6 u2 Q                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% j8 F: N$ `1 C3 V4 d- \                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
# r1 W2 {) G9 k8 c) u4 L) o            if activityspace[2,rows]>dy then
  K0 b! ]0 @: w. K                        dy:=activityspace[2,rows];
4 F0 r0 ^4 n  F5 E+ N                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
7 a# j+ v2 Z+ L0 D' {0 Z" B5 [) n                        activityspace[1,rows]:=ct;
                        end;*/
        next;
( n3 i' b1 y& `        y_max:=y_max+dy;
& x9 L& U: ?( Q7 v; _        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);
       
        rows:=0;
3 K& @: N2 Z& O! g( M; p        lines:=0;
% r8 y" S0 R! S) j+ H' B/ c% {: D        for i:=1 to number_of_machine loop
" U- r5 `: I' y8 J% l0 ~% B                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
6 ^+ j1 ^6 }7 l- T% \) z                        else
' S0 D/ J4 E# W8 N, e                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
- s/ `4 s/ v& w: n! H. M                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
* b. Z) \& _5 b5 I5 X                next;
% r2 h! K5 s$ m        next;
       
0 \9 Q( h4 y+ b. D8 r3 F. C        lines:=0;
8 W  n0 d* G2 N4 `+ D* R        partstable.delete;
5 u0 r5 g; W7 L1 C* W2 T       
: ]/ y" O5 i4 p3 z. f        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" \* S# F' d1 i                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
/ P3 V/ s& ^; ^                        if w_from_to_chart[j,rows]>0 then
& v) h  |$ J4 c, O4 r/ R' Q" g                        lines:=lines+1;
8 x" q5 X) m- a6 \+ C- \9 A2 [                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
* e& s* n+ i5 r, q                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
. z, s6 N) y  B7 r& l' }0 f0 b                end;
# }# C5 j6 E1 q4 K3 G6 p        next;
. l5 a  B1 w- \( m+ b/ [* A        machinename:=sprint("M",rows);
( P- t4 B; |8 G& e3 }  B, G        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]);
3 e% W. b- _  O1 N' Y1 q: d: ]        machine.name:=machinename;标识符未知
5 ]" d- `7 N0 {( J& {. b4 [" K& N        machine.proctime:=5;
! e1 w/ A5 ^* T% l3 S% C        machine.label:=activityspace[0,rows];
( o+ _) s- c4 a! d0 @" E+ \( U9 d# _% [/ M        machine.exitctrl:=ref(leave);
       
( D5 K" \# W9 z& j2 p) w2 E" u        bufname:=sprint("BF",rows);
9 s+ M. e( H5 Q1 d) S" G" r        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;
2 c! k6 K& v; s, w- X7 ?        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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);
- J9 ?4 g+ c4 bnext;
! @3 u, q( X0 N, Dend;