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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
/ [' T# \1 b- I: ^& ]2 \    machinename,bufname:string;
- X) t3 R: q% }  i    machine,buf:object;
do
7 _( s  E& T/ ^        current.eraselayer(1);
       
: |0 g+ v, E' N# j        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
! j  Q5 a5 u' n                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
* T' d/ i  O2 o6 M, {8 ?                        print"yes";
# n1 @3 S0 e1 _$ w                when 32 then
                        print"no";
' ?  z9 ^" D+ `7 s: H                else
$ r4 y4 n8 ~; A! a7 N                        print"cancel";
' \0 ^9 ]0 G! E. k( {* |/ u                end;
9 c' s+ k5 @, w0 X" l                eventcontroller.stop;
8 M" @+ O+ B6 z) i6 h1 o# a% I: p8 ~        end;
       
        for i:=1 to number_of_machine loop
3 X1 m- Q1 ?' N/ U        machinename:=sprint("M",i);
5 Q$ S; V8 K& c) Z! m        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
8 L5 }- ^$ Q9 }' X* {        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
9 D  ^) E7 G, |' f5 r8 R                buf.deleteobject;
; v( J. Y; h9 P        end;
, j8 D( l7 P  d) i1 \$ d1 ?        next;
* D+ w- Y1 p, m- w- T       
$ I% j& h" Y+ ]4 I        dx:=0;
; K5 Q0 D, w7 V+ n9 o4 L        dy:=0;
        for i:=1 to number_of_machine loop
2 ~5 o9 R9 g9 S                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
1 J3 v4 N( D6 k  m( \6 Y                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 k1 M3 V& `/ @2 v6 r* v; ^                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
6 \# s( R! k" R% M4 \+ s+ \                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
3 Y2 H, _( _! e7 \                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# V; T" M0 b* y                        activityspace[1,rows]:=ct;
6 O8 K2 t4 p2 B7 c& i                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
! b8 M0 |  y* }. S3 R7 v' H                dy:=0;
                        --end;
                end;
5 \4 o. Y( ~9 C5 c5 }0 g, ^                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
" b$ I8 m  k4 n% \5 t                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];
                end;
; Z" E% ~3 `( _* r; N/ b& N# _4 K                dx:=dx+activityspace[1,rows];
, O- T: [. |* q" |' A                /*if mark=true then
                ct:=activityspace[2,rows];
# u! J4 `) i; p. }# l4 e4 k                        activityspace[2,rows]:=activityspace[1,rows];
: \& c8 G2 n' }& [% x" ]. o                        activityspace[1,rows]:=ct;
                        end;*/
# N  g4 J* P9 V        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);
3 d% C! B% d1 q, e: Z) J/ a* a        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);
       
" A8 X+ ]- h+ w" O( K2 z; N        rows:=0;
% Z) l4 e: R6 P, [        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
/ R; Z" b6 n3 B- U  f+ u' e                                d_from_to_chart[j,i]:=0;
                        else
3 E5 W) h: U: T                                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];
+ P2 k( ~. J# B1 r, t( Q& Q$ m+ A                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
9 o4 K4 p, q) o+ Q       
' w5 n8 u& r+ w        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
+ e8 u& d3 Z- I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; X/ ?5 N+ k+ d8 w                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
% @1 }6 g4 z# h% Q/ [( R, z                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
. m, w9 a- V8 r$ t' Y9 d, p                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 w3 M4 k8 i, {$ U$ Z                        partstable[3,lines]:=sprint("parts");
0 ~* ~6 ~6 p; I                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
6 {. a* O& b4 V- M" w0 \0 |: E        next;
        machinename:=sprint("M",rows);
( s7 Q; E# t7 m6 x& |3 R( Y! ^4 D; c        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;标识符未知
        machine.proctime:=5;
6 N8 k( q7 t2 m. k, R        machine.label:=activityspace[0,rows];
0 _7 C, d% J/ o: p* L        machine.exitctrl:=ref(leave);
       
7 e. g9 D2 R. @8 c2 l* B5 h        bufname:=sprint("BF",rows);
! w5 Z. ^- ~& w/ Y, L        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]);
# v. b, s5 P, s. U7 e3 m8 S        buf.name:=bufname;
$ O  A0 |9 G( \        buf.capacity:=5000;
        buf.proctime:=0;
0 f% Q8 C- a9 ]4 j+ J* N+ s: Z2 u        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
# \4 c! I1 X& B7 _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;
0 f, s. A" T, Iend;
/ e7 {- Q) K+ G8 ]