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

zooey

is
, H; L, Q& j# b3 F, U* o! W% f" ?        mark:boolean;
9 O4 k. B  n3 h, R/ _+ Y        dx,dy,ct:real;
8 C  M" e0 z1 A' d    i,j,rows,lines:integer;
    machinename,bufname:string;
2 g1 b8 I, k3 W* M' {' M    machine,buf:object;
do
9 {# ?9 o1 z" y4 L        current.eraselayer(1);
       
6 a; z" z+ N2 J1 k# U/ f        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
                        print"yes";
5 D) e; K) p( h/ P; Y" c; j- j" g                when 32 then
                        print"no";
                else
                        print"cancel";
+ D, y; N' @. A. ~* B" }                end;
) j; v* F) Y' P% t) Q+ g7 R                eventcontroller.stop;
        end;
* f$ x# Q- W3 c' e! {* F" @' y       
        for i:=1 to number_of_machine loop
  [5 X. E( M1 v/ p7 J/ l        machinename:=sprint("M",i);
8 ~# \, L. _+ y! q8 p        if existsobject(machinename) then
/ S$ p3 b4 P: @, O0 k7 }) r                machine:=str_to_obj(machinename);
% F7 e0 K) b  _. ^, F                machine.deleteobject;
5 P; Q8 |, Z/ ?3 J6 O/ E4 d8 V        end;
. f5 O. r) V; U4 A, \        bufname:=sprint("BF",i);
        if existsobject(bufname) then
- d  S' E7 Z' ?! k. ^                buf:=str_to_obj(bufname);
1 ^: u# p0 \1 C* B, w/ Q, J                buf.deleteobject;
        end;
        next;
+ Y8 i+ b1 M" D2 n; W       
        dx:=0;
% z' X% k, d3 p+ u2 A3 r' q        dy:=0;
        for i:=1 to number_of_machine loop
% W; N% B+ N9 q/ V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
+ }6 a! q' k/ \0 A                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 o4 D+ _/ j7 J$ V: _4 b) D                then
7 E! \: Z) `. L5 g1 p' A                        /*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];
                        ct:=activityspace[2,rows];
; H5 d) h$ Z7 K" C                        activityspace[2,rows]:=activityspace[1,rows];
3 e% l' N. K( k& k                        activityspace[1,rows]:=ct;
7 o! d- z! I; F$ k- {: T                        mark:=true;
                        else*/
' u6 _+ c# R# k! k                        y_max:=y_max+dy;
, [/ d* z1 ]9 w! s# c& a3 K                        dx:=0;
8 ]. B' Y8 ^0 ^% t7 m8 y                dy:=0;
6 u) V) J3 [. i$ D* e, g0 x7 x) p% S                        --end;
1 j5 [( e# O. [* X1 t8 l2 o0 m                end;
1 o# K" x( a4 v! Z                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
% k# O( L; c+ d                        dy:=activityspace[2,rows];
5 S4 h4 ]. `5 H: H3 O0 A" d                end;
5 v) w4 K/ m8 I' @( U2 A                dx:=dx+activityspace[1,rows];
7 D, K3 @! v8 J; L: g7 `  k' S- N                /*if mark=true then
1 H7 {4 r8 ~7 C! \' \" h                ct:=activityspace[2,rows];
7 \: S$ |: l- U5 ?; w                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 R7 T" ]0 e: X& L                        end;*/
" @; c. ~+ N) i5 {4 d3 D        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);
# @' L& o  k* a( ?7 \        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;
        lines:=0;
' {2 L/ B$ i2 U% N        for i:=1 to number_of_machine loop
$ y7 {" U$ ]+ j# u* U                for j:=1 to number_of_machine loop
" l( J3 h( e# y: p: I                        if j=i then
                                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];
: V, B6 Z' p5 X3 ~8 L4 Z                                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;
                next;
: y- P: G" }( _        next;
& Y; s- r' |; e7 f6 w. `6 ]9 _       
        lines:=0;
! F4 k3 T  n6 p; Y# A; c- f) A0 f        partstable.delete;
       
) u! l  S' j, K+ c; u        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
5 I. y: N7 }$ l5 ?- F                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ a% |2 n- w) j                        partstable[3,lines]:=sprint("parts");
- i4 M4 j' e6 _# t; R/ s                        partstable[5,lines]:=rows;
+ y! |. b4 e  \# ]) R                        partstable[6,lines]:=j;
9 u0 k2 X6 p; r) J: l& T+ I) N                end;
        next;
        machinename:=sprint("M",rows);
6 V9 D# K4 z  Q4 W. @$ d1 {. w, _        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]);
6 k4 n# f+ I, `( Z        machine.name:=machinename;标识符未知
# I, o! `2 M9 b, c4 |        machine.proctime:=5;
- s* U0 h) V7 @        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
$ \6 n2 M7 L* D5 L0 _1 j( `: E       
        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]);
        buf.name:=bufname;
. `& ~! X) n3 S9 @+ V+ s        buf.capacity:=5000;
  j$ c2 Y" e! y: w) x6 b7 c3 e        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
! M2 r1 J, q8 I        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;
7 s$ K4 p* g9 k5 Ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
/ y+ Z& B( A* x$ k% ]' k8 Dnext;
end;