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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
+ Q' X/ p0 `: X$ c6 I    machine,buf:object;
: }  z8 t6 c  P0 P' r- e, gdo
        current.eraselayer(1);
       
1 {7 Q4 F5 j2 x; a4 @        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 d! X6 u8 t2 j3 ~- S1 I                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
! K$ f9 s! w4 o1 E: u) n                        print"yes";
  @$ z* J6 [: a& j& L                when 32 then
  `2 p3 Z' D+ y$ _  F  c7 J7 `                        print"no";
$ A- J1 u4 q% Z2 g! n5 R                else
                        print"cancel";
                end;
                eventcontroller.stop;
# R* s/ Q/ _" Q        end;
       
        for i:=1 to number_of_machine loop
  H2 u4 g5 w& @5 Z        machinename:=sprint("M",i);
" j2 {2 h# l6 G        if existsobject(machinename) then
0 }' S" d# y7 y3 H2 H- r( u6 x                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
8 j: G- e3 f0 |$ k7 e' x                buf:=str_to_obj(bufname);
! c. [8 [  u# ^  E                buf.deleteobject;
8 J: p+ S- v! P: _* C        end;
2 J6 D9 e: X) }7 S        next;
& D/ s" O1 A' f5 l: g6 p8 @       
; l  `* |. N  n5 ^8 C) `        dx:=0;
' e5 x7 H8 H# m        dy:=0;
% x9 J4 Z" j/ o; h( U1 Y        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
$ J+ O1 J9 ]* W& e                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
, i- ~. Q" H7 _. V) C& R/ p                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
( K* I# m6 z* m9 B5 ?4 V' J! z+ f                        and activityspace[1,rows]<(1.05*y_max) then
7 e% u% Q- z6 E1 E! g; \3 u) }                        print activityspace[1,rows],",",activityspace[2,rows];
0 v7 e' Z( X/ v! e                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ H3 s4 k6 p4 F0 l- ~( g* i                        mark:=true;
* D1 W1 V; K; p                        else*/
- T7 l5 d0 X5 t- ]( d0 f9 ?                        y_max:=y_max+dy;
                        dx:=0;
5 ~1 n# d! \6 c9 P. j" }                dy:=0;
* Q3 V  g( s3 B8 _4 ]0 k) ^( ?% j                        --end;
( k) ^6 M0 B: i; E/ J" I                end;
                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
3 E: k, e8 y1 ?  L2 t                        dy:=activityspace[2,rows];
1 u# X: R# @* F' v; C- ^9 `  M                end;
                dx:=dx+activityspace[1,rows];
$ |, J2 m5 i# \5 _0 G/ ^" h                /*if mark=true then
                ct:=activityspace[2,rows];
- d+ _' g7 Z/ X                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
# R2 J% ^3 |. q7 Y# k        next;
        y_max:=y_max+dy;
. J& [4 }; W0 j2 X        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);
, ^! m' `' u" Q% |+ s# K, O       
        rows:=0;
2 v8 K/ o6 @8 W        lines:=0;
0 y6 @# S/ ]+ K/ N        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
; N' }/ l( U  w1 D- P1 R+ G                        if j=i then
; K  [4 x4 _) n- `+ [3 K                                d_from_to_chart[j,i]:=0;
5 d& u! I. `! F1 K( K7 O                        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];
1 C3 i9 A3 r  F: `7 E/ l                                d_from_to_chart[j,i]:=abs(dx-dy);
+ m. d2 B: Z, y& E! E. @                        end;
                next;
        next;
       
  G. I& p5 f% \9 {: C        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
; _* H, C8 y5 \- D! O" d                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, F$ X, i- Q4 l+ Z9 w: e  X  F                machinesequence[2,i]:=rows;
! J7 ~4 G3 v! k* q2 _, g( C                for j:=1 to number_of_machine loop
0 B" z) r& Y/ t1 v" e                        if w_from_to_chart[j,rows]>0 then
, K% ?" r& l4 N% G- b0 T" g                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
& x) N+ x: P" [7 h                        partstable[2,lines]:=w_from_to_chart[j,rows];
4 B1 L0 D/ w, K& R                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
+ a) R" a1 f9 B! G  ~3 E        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]);
        machine.name:=machinename;标识符未知
) G, f5 i0 G- k        machine.proctime:=5;
) Y- r" {0 i. C# Y" [. J8 Y9 h        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
0 D( P1 ~) Q) z7 a0 R9 k       
. {, U6 a% M2 N* ^( k+ g. W        bufname:=sprint("BF",rows);
% |' S0 X# ~$ i6 J; F        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]);
. p" R6 M. ^4 e' D! ?7 N        buf.name:=bufname;
3 c5 t6 n7 s( r" D        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
) ]7 U# u( J( {  q! z9 b) `       
* e8 u% z% E9 B) B7 t0 i2 r        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, a5 B* X' u, v& G" G9 z( T( pdy:=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);
9 L1 J3 e4 |: L+ \/ rnext;
end;