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

zooey

is
        mark:boolean;
9 m3 L6 y  C4 g        dx,dy,ct:real;
+ o& x/ w# S8 b* e/ R    i,j,rows,lines:integer;
$ u& O+ J& C1 f( H7 E    machinename,bufname:string;
    machine,buf:object;
% e: G  }& C- b5 g2 ]do
        current.eraselayer(1);
       
+ T5 P2 `' J5 p        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 @7 ^2 J; ^% T/ B                inspect messagebox("设施数目不对！请核查...,",50,13)
, ~/ f" T7 M7 Y: F" n; F: B7 [                when 16 then
6 j2 t7 d7 N8 a' K& h6 q                        print"yes";
                when 32 then
! n# I: {; k7 H3 p3 O1 h                        print"no";
                else
8 T8 `1 z. `$ H# t! ]# x+ L, t: H                        print"cancel";
! W0 [) e/ F5 h" ]- s: F: o) p% c                end;
, m8 V' H$ P6 Q: ?                eventcontroller.stop;
        end;
       
! h0 a2 A" U! t. ^        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
1 V' ~$ K' K- b$ S: c  l7 D        if existsobject(machinename) then
5 x. }' @: ~# r5 T* }, u. ^                machine:=str_to_obj(machinename);
' c3 z. ]- I, I0 T0 ?                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
. l7 u8 t- ~7 v8 ^$ F7 O, y/ `        end;
        next;
2 K4 P! |2 J8 b: T- ^       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
. L1 Y( W2 `8 F9 G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
' ?% _0 l8 |+ Q* B* j; X                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 y/ d  B6 `/ r' `                        and activityspace[1,rows]<(1.05*y_max) then
* b' H) H0 `6 x* f/ p2 }                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
8 }% m# s' G" G- I/ U, j                        activityspace[2,rows]:=activityspace[1,rows];
2 d4 ~! e* t  v6 z                        activityspace[1,rows]:=ct;
                        mark:=true;
- l& O) i. M. l. t7 L0 H                        else*/
                        y_max:=y_max+dy;
& y& ~; Y. F6 J4 G. c9 q% H                        dx:=0;
                dy:=0;
/ N0 H2 B( a5 u) \9 C. u$ v                        --end;
9 N# Y! k  j2 J! A' z                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
                        dy:=activityspace[2,rows];
                end;
7 K# a6 {5 `0 T& X; N) G  ^5 |                dx:=dx+activityspace[1,rows];
5 }) r+ F" K$ J/ V$ t                /*if mark=true then
9 L0 U& d! @. Z8 F2 H                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
6 V; j4 J1 ?+ W. z                        activityspace[1,rows]:=ct;
                        end;*/
- j2 [$ g0 u- W' ?# Y' M0 [        next;
        y_max:=y_max+dy;
0 `+ z% u. a" s        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);
; b7 s- }: j) l       
% y+ Y) Z$ a8 l# e- w; K, ]        rows:=0;
7 I; {% U$ X3 e- o& Q        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
" R5 s% x8 m1 D                        if j=i then
0 ]2 }$ D' a3 u  @( i4 O                                d_from_to_chart[j,i]:=0;
3 l% s, m( W' q. h                        else
1 O4 A, V  I8 m* m                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ b" c' m2 `; p5 ]% M                                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);
# c0 ^$ M% @1 N) q* m                        end;
( {# a& ^+ W' N; L                next;
( ?- E" `7 T5 T' r6 ~9 P! y        next;
       
        lines:=0;
; R6 B' O7 ^, ~" I        partstable.delete;
! j  n5 f2 d; A$ _& B       
/ j7 J. l; M7 p2 [        for i:=1 to number_of_machine loop
2 b3 g$ C* c' q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
/ b* v# W1 K9 g4 B5 v* n0 j                        if w_from_to_chart[j,rows]>0 then
" A5 A9 P- h+ l9 X. r/ h                        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");
- k* h' O& v3 E3 m+ W8 _5 G3 d; J                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
" n9 y6 D  G$ O: y                end;
        next;
        machinename:=sprint("M",rows);
; V2 \+ k7 Q, m# ]$ n1 z        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
+ R/ O2 ?' u5 H" r- x) r        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;
        buf.capacity:=5000;
6 X6 h6 \# _5 m+ k" r% y' g        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);
9 k( G8 M+ ]7 R9 r, pnext;
7 T; ^8 {# t3 T' d7 O  w8 |  Dend;
' t" e- Z$ W( `4 g