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

zooey

is
6 i  z' K3 F3 @9 y        mark:boolean;
7 w# s4 x9 C4 Q3 d7 D  X        dx,dy,ct:real;
    i,j,rows,lines:integer;
9 t* \  I8 l% n* m    machinename,bufname:string;
    machine,buf:object;
do
9 r; U8 b. P5 s  l7 X9 g! p& S9 S        current.eraselayer(1);
+ l- n/ y4 C! }( I1 ^1 k       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
2 e7 c" }- e1 @' b0 U6 O                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
/ N  T* v: O4 x/ N' z; R5 P. d                        print"yes";
; i; e; B. `$ d0 Q- Q8 r                when 32 then
$ h, [6 K2 Q& r/ ~                        print"no";
5 U9 k% x8 y6 L, c% V, [                else
  T6 A2 q/ J$ k$ [+ P                        print"cancel";
                end;
) }+ J, k4 k( o9 o) P                eventcontroller.stop;
        end;
9 A. f4 ^4 z5 j1 k  k9 G3 Z       
        for i:=1 to number_of_machine loop
( s6 m: ], h1 l% l  c) P+ J        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
3 `7 U: _  q1 b3 j9 X        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
  U1 D1 ^3 D# k. d0 _# G                buf.deleteobject;
: {2 Q1 f7 q9 V8 @0 m        end;
        next;
/ ?# X2 }6 B$ b' c8 @* r. ]9 `       
2 @. y0 x1 C  ^        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
+ g2 K, C6 F3 q7 z0 y" _9 P. d: N                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
! K+ W" w8 Q3 l1 Q/ P1 m                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- C; @# q6 Q7 @) R% d2 J3 i; L                        and activityspace[1,rows]<(1.05*y_max) then
' K0 T, G# _7 M8 }$ `' e                        print activityspace[1,rows],",",activityspace[2,rows];
9 A( v) P: R  r8 T( K                        ct:=activityspace[2,rows];
3 v! V2 ^  y7 v- U) p- w( O) M) p                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 k- m* g5 A8 n6 i                        mark:=true;
! B+ h' F3 U- V6 c! w                        else*/
/ r* \( R& Y: ?; O/ R$ Z4 y9 P! k9 a                        y_max:=y_max+dy;
                        dx:=0;
9 \! G  e! s- ^" d- V                dy:=0;
- u- b2 w, t" p/ l0 g3 x                        --end;
8 T- d* \" d( \& r  l1 V7 X5 j                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 o. O% m! S; _$ n, ]% N4 X                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
3 C% @  w' X9 k3 h7 O            if activityspace[2,rows]>dy then
$ h; b4 v8 M; n0 T. y                        dy:=activityspace[2,rows];
  }. c1 z; A2 @' Q7 U+ _/ N  D4 K                end;
                dx:=dx+activityspace[1,rows];
! s/ N  l5 W, t- J                /*if mark=true then
5 ?! M, x% C" {$ L7 \- O2 n, {+ ~                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
4 U( n, q+ i2 A, h5 q- J" Q+ T                        activityspace[1,rows]:=ct;
                        end;*/
8 F' S4 o# B: r        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);
        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);
  [( `8 M' \9 ^  h' M0 a: \4 @       
        rows:=0;
! y4 Z0 P! |9 `8 r' b( K8 ?        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
8 W6 L6 d- z5 q                        if j=i then
                                d_from_to_chart[j,i]:=0;
5 u5 k5 g* \4 p, x' W                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
) I4 ~; A% r/ Y& E9 v: N4 P                                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;
3 s: P' ~: I% S, C% ^% Z                next;
        next;
       
  z0 @. X; D6 w        lines:=0;
. V& s7 d/ o+ H9 E. i8 g, d        partstable.delete;
       
5 Q( S" L% y5 T        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- W0 O' R* w3 U7 x$ V$ w4 H                machinesequence[2,i]:=rows;
! i6 Z7 v; A" t9 `% A                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
% c- Y4 C; q# Q5 U                        lines:=lines+1;
' o, P) {7 O3 F* @                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
8 e  T5 q, J, d  b, N                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
7 _/ v$ R+ T( O                end;
        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]);
* Z4 d0 R% b7 f5 q- f- c        machine.name:=machinename;标识符未知
2 _! z% i* X; H8 @) a& r9 n        machine.proctime:=5;
8 O1 B# b; g) K1 g% Q        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
( C! `' F, V9 h! F( g, k/ o, G       
- D; d% j. M3 }( M; Y        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;
/ k3 }1 x: f, o- |# h+ T        buf.capacity:=5000;
        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;
4 D' o! X0 p, k: N; |: v+ fdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
$ L( M6 x' F7 O8 Z( z7 C5 {current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
' Q7 Q" O; H! s0 gnext;
- U8 x6 z2 ~0 @0 u& P6 P0 dend;
( ?7 t0 k4 h1 K/ j- f9 E1 b