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

zooey

is
, U8 v# H- ]! W0 W5 w! k) ?# _        mark:boolean;
, Q2 I+ G6 x9 C7 p& M7 W5 G        dx,dy,ct:real;
, E+ M0 }3 H/ K4 [( U) t. ^- l    i,j,rows,lines:integer;
    machinename,bufname:string;
" l0 |. J' A% C' @& x4 H    machine,buf:object;
9 I$ t  ~3 F4 ?$ _# d1 g' Wdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
( e% f; y2 g& Q5 W1 r                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
9 ~& |* z0 s) r& \                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
. c9 t; G  c, i- K$ K8 [       
        for i:=1 to number_of_machine loop
' i0 z2 }) o' S, b        machinename:=sprint("M",i);
% n( ]2 y$ v$ N2 Y& D        if existsobject(machinename) then
& g& W6 M; ]. Q& q7 _( s                machine:=str_to_obj(machinename);
                machine.deleteobject;
  t+ w# r" E$ B  T4 p4 `( `        end;
: G$ ]" m* X/ O1 x8 ^        bufname:=sprint("BF",i);
# h' Y6 ~! q( U7 M! V$ U        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) D, b7 O, H+ W8 I2 \9 G                buf.deleteobject;
' E8 n# T5 _, t1 W        end;
+ w# T4 Y: V) T* B' a$ ?        next;
# H: c7 Y7 r& h; q7 S" S- p! |6 i       
: ^! \0 `4 X( F+ Z/ v9 a+ |( Q        dx:=0;
2 d* r3 Y% F/ R- B; V" ~        dy:=0;
. ?$ a& }" h9 o- _- q3 J        for i:=1 to number_of_machine loop
0 ?- j4 G& s- l0 Z  b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
5 n1 O6 T+ U, o9 q! m" o3 }( f                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
6 v1 D( g, y' e4 `' E* m7 R                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
( Y% P3 _& L2 b8 S5 h& u                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
! [& }) ?* K% j9 E9 s8 Q                        activityspace[2,rows]:=activityspace[1,rows];
" x. y9 W2 {, {) ]                        activityspace[1,rows]:=ct;
                        mark:=true;
9 D5 r3 y6 C9 b                        else*/
                        y_max:=y_max+dy;
/ O; T! G& d; c7 s' U                        dx:=0;
                dy:=0;
                        --end;
7 I* K: `5 S5 X$ B" k: Y% A( w8 t                end;
0 k* N* A0 X1 G                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 C! Y) L% `: J  Y- M/ J( U0 o                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
! U% N* H; D$ i7 K# [6 V" o! a            if activityspace[2,rows]>dy then
( Q& l+ j2 |+ R& d" `* M                        dy:=activityspace[2,rows];
3 Z) h5 K' Y* k* M9 h. m                end;
2 D7 i# S- f4 o+ h: y; q; p1 t$ C                dx:=dx+activityspace[1,rows];
                /*if mark=true then
4 @$ A; r7 a. X! X                ct:=activityspace[2,rows];
3 U- l  U5 p$ p* ~; E                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
9 |  Y' _/ C/ A- h0 [- i                        end;*/
8 C8 _  W  W5 t5 j" b- F        next;
        y_max:=y_max+dy;
2 U0 M. R. O6 d4 a; _3 Q8 r        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);
" F$ J# L8 Q, B       
- m$ _6 X9 S1 N3 U& F        rows:=0;
        lines:=0;
5 X: y: X/ o$ |2 A3 ~! h/ E6 P        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
1 N- a4 w8 A4 O* D6 i                        if j=i then
                                d_from_to_chart[j,i]:=0;
' u# p( g1 o/ i* d                        else
5 l! t: s) `$ d                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
6 k0 ~& b8 v; c+ ], U5 M                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
# X9 V! b9 b% Y+ v- t: ?                                d_from_to_chart[j,i]:=abs(dx-dy);
: @) ~: Z$ p1 f/ W4 E                        end;
                next;
        next;
       
; c6 v# F5 j  h, C' K% D        lines:=0;
        partstable.delete;
1 X7 J+ o9 }( p4 r       
        for i:=1 to number_of_machine loop
/ a3 V5 b  g$ ]2 h                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
' n5 ~( E3 g1 x; N. a) y/ z9 D# [                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
1 K2 y9 F+ ]# [1 S                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
2 F) P+ b4 S5 d3 P                end;
6 F2 o% ~1 n, ^$ N        next;
        machinename:=sprint("M",rows);
% @; c* a' o. {: b4 x0 l' X! q        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]);
0 b" {( }4 J* G        machine.name:=machinename;标识符未知
& M0 I# v& v4 Q, s        machine.proctime:=5;
, N) s: }0 n6 Y+ ^0 G        machine.label:=activityspace[0,rows];
2 v$ Q$ h6 u0 M- L+ H0 o        machine.exitctrl:=ref(leave);
       
+ v0 m5 s( c3 |4 o3 t7 l        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]);
; n+ c, S2 K6 h& t. @' i        buf.name:=bufname;
: Q: M% u2 W9 B. V* U0 ?        buf.capacity:=5000;
5 O! R+ e' B; F4 o/ i8 S        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;
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);
$ g; |  X, ?2 [next;
" G, |: M* ?$ s/ X; u  aend;