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

zooey

is
        mark:boolean;
/ I4 T" c6 c2 B        dx,dy,ct:real;
* a  K/ u; X$ s" g; K( B5 f    i,j,rows,lines:integer;
; l0 x; Q% i, @$ Z+ Y    machinename,bufname:string;
    machine,buf:object;
7 y/ F3 h2 b6 ^  hdo
" B8 Y* a) k' _" t. i- D/ n        current.eraselayer(1);
" m% r. b8 O9 |; Z  k9 E       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 f% L  `: I) V                inspect messagebox("设施数目不对！请核查...,",50,13)
3 t& F1 W2 c' A6 _% \, p/ I                when 16 then
                        print"yes";
                when 32 then
! y* m5 d) Z! C4 o- ~1 ^( n7 ?                        print"no";
, G7 D  K3 t1 T! [4 o                else
                        print"cancel";
                end;
                eventcontroller.stop;
( W) B+ ^- @7 i+ s  N        end;
: u- |: [6 z$ c& e" @, h       
+ Q  j; W8 q5 ]) V% `2 X        for i:=1 to number_of_machine loop
  X8 i; d4 t+ C7 h! Y7 ?" c& [$ |+ \; [        machinename:=sprint("M",i);
* C. D/ ?; W: L        if existsobject(machinename) then
& R. ?) r6 c$ [3 @                machine:=str_to_obj(machinename);
                machine.deleteobject;
8 J% K" U) h4 T  |; C        end;
* r( T4 k  v0 g( ^& A$ @+ A& @$ E        bufname:=sprint("BF",i);
$ R4 F- D, Z7 y% {7 y, M        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
  [2 j! v% I7 Q" j: `3 L        end;
; H2 r! ?) v! u0 G        next;
3 ?# c% o% D- X7 u( S2 K0 [+ F       
  U- D) Z$ w( W2 h! x* {3 L        dx:=0;
) h, g6 u* @5 {        dy:=0;
9 y/ y0 {$ ]5 ?! n        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" h; ~" u5 \, N, [: i                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 J$ M# H4 ?- I: l& G$ D, `                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 h$ [3 w$ C( K- M9 b7 L% G6 I                        and activityspace[1,rows]<(1.05*y_max) then
: A8 H% v' E) g3 @' |& ~                        print activityspace[1,rows],",",activityspace[2,rows];
* a% Y* @+ f6 Q* j' B% D2 @                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
! [" C) }9 }; ]3 s: E7 ]                        activityspace[1,rows]:=ct;
                        mark:=true;
0 L- [! b$ W, k                        else*/
                        y_max:=y_max+dy;
  l' `1 A1 a8 {8 r3 F" y( |9 w                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- y3 o# @) R: u4 M9 z! d1 W                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
( J+ j8 F' m. k0 b            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
: |! Z: D  M: o- @; i& t4 q- V                ct:=activityspace[2,rows];
% y: ?+ f5 z1 A7 Y- b* F. ?                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
- V& z9 [+ Y+ ?7 \' M' ?) y( f        y_max:=y_max+dy;
# f/ w' R: n, @9 A" b9 Z        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;
5 q/ o: i3 T* R2 U3 q8 U        lines:=0;
, G( e$ I( J1 }; c( X& C        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
- ?! z% V: g" z, Y. ?4 e                                d_from_to_chart[j,i]:=0;
+ w. \) a# Y: t' t) }                        else
4 S' y* O) ?& ?! U& S( p  b                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
" x2 o" c  l8 M1 [1 Y* L4 y                                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;
5 `% a+ I: G/ |                next;
        next;
4 S$ f: t( A6 k) F       
        lines:=0;
0 u* s8 H) p8 f) B        partstable.delete;
2 {9 _! u0 f& `+ ?       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 a3 n( L% x0 G2 p9 K                machinesequence[2,i]:=rows;
* Q; ^/ n% o5 T9 e                for j:=1 to number_of_machine loop
$ K; m* c, z4 x  v* u                        if w_from_to_chart[j,rows]>0 then
- j& p& b: r( ?9 P+ O$ S                        lines:=lines+1;
; v2 B, J/ R! ~; P                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
$ j2 N# V) o1 `- c1 h; j7 F) j& W                end;
# t: G8 _6 a2 d( p* u0 [        next;
        machinename:=sprint("M",rows);
0 Y! G- J  ~7 y6 k        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;标识符未知
) H0 c4 T4 I# F& {( w8 p        machine.proctime:=5;
! W0 A4 L8 [$ |7 e! m+ x7 a        machine.label:=activityspace[0,rows];
, N2 `3 z4 A5 l8 c        machine.exitctrl:=ref(leave);
6 B, N( [5 k: @& d1 [9 k       
) K9 z! d- k$ h, X9 B        bufname:=sprint("BF",rows);
6 W! N! F  R+ @! X        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]);
% w. q8 p7 k! W' @        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
6 V% J- i( j0 `. ^4 c" m+ o) a        .materialflow.connector.connect(buf,machine);
# d" ?' ~7 Y& S/ b+ A       
5 d8 H( X1 n5 B/ ~& M7 @2 G1 k        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;
# z! k6 o. j) _/ Vcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
6 U! n1 l  L! P5 _% K$ k2 Qend;