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

zooey

is
        mark:boolean;
) q- F3 f! N* D* y        dx,dy,ct:real;
) K! u8 c- S2 y! f    i,j,rows,lines:integer;
    machinename,bufname:string;
- K% C0 V5 T4 A( C6 |* e& a  Y( {    machine,buf:object;
4 S. }  b1 w) E8 {do
( b+ S( a! E2 j/ j) `7 `$ K        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
3 G. C% u8 M* g" w* j0 c                        print"yes";
                when 32 then
                        print"no";
% M9 ~/ g& R* x3 x                else
! V* _& |( j) h' r0 E( `" v                        print"cancel";
1 J) X- q3 t, B* {  p( |' Z- Y                end;
! Q! ^, d1 n3 Q4 H: V/ a/ x                eventcontroller.stop;
        end;
       
2 l5 y3 H$ F8 n9 @) {, C7 H5 E        for i:=1 to number_of_machine loop
, k) ~" R/ L7 r9 E: {7 P8 ?        machinename:=sprint("M",i);
# A$ ?! ^6 T" x/ K  P- ^        if existsobject(machinename) then
% d# W( B# m" U) t; o                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
) l) k) f! R% X# s: v6 h        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
5 d% v% P2 Q& K, `$ T& h                buf.deleteobject;
        end;
- t/ ^9 t9 ]/ R( K* o1 G) N! T        next;
       
        dx:=0;
6 Q; {1 z, S4 d8 D# C" _. ~2 t        dy:=0;
- n2 I& K6 v5 U1 i5 Z        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 s8 z. [9 {4 |, f4 G! n, K                --mark:=false;
% x$ E7 u6 x. ~- y7 {. v+ U                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* k5 J# O0 r, p* H                then
6 a2 r4 Z$ X8 t                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
! a$ Q8 K+ b/ z8 N0 Z9 q' F                        activityspace[1,rows]:=ct;
' q+ D  l7 [: f4 Q4 V                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
7 J- U; Y2 x( d: l* q                        --end;
2 ~6 q1 i0 m; b                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
, Y' P" x8 C. u0 B                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];
3 y: I" c3 M4 l- W                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 r+ U; {& d$ v2 K" N                        end;*/
0 S% A7 n% s$ k( B, C        next;
        y_max:=y_max+dy;
' R1 ~8 f' F' u2 J6 d0 q' V        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;
! j. p* c3 M5 U" D( l2 m        lines:=0;
        for i:=1 to number_of_machine loop
0 S2 u% ^6 Y4 ^$ M8 D                for j:=1 to number_of_machine loop
+ F" E" I0 n* D& |                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
# c% }4 ?, Z4 k) O0 X+ ?                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
( h. }% P' J1 U% l                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! O7 D5 F  ?- v$ \% D                machinesequence[2,i]:=rows;
1 p% H( j% \9 `" u# y; V4 d                for j:=1 to number_of_machine loop
0 G7 L4 m7 g. n- P, O                        if w_from_to_chart[j,rows]>0 then
/ p+ N0 {9 X2 D* O& {3 {                        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");
% Y7 m4 {; s" r9 m7 [1 N. S" P: b                        partstable[5,lines]:=rows;
; Z) @2 d2 P" U  O4 ]1 F8 K( o                        partstable[6,lines]:=j;
                end;
; l8 I4 A+ W: |& n. B8 S        next;
        machinename:=sprint("M",rows);
3 t5 i& V; }9 X5 d% Z( y        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;标识符未知
( B" }! j; a! C        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
/ X, q% j8 D% [) U) `        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]);
8 R* L! @2 ^: i. _, z        buf.name:=bufname;
' I& p# T# z9 ]/ l' D: ]" D) r        buf.capacity:=5000;
+ K, [* v2 `1 r) U        buf.proctime:=0;
3 C# g) L) m+ Y        .materialflow.connector.connect(buf,machine);
* q# ~* Z+ \% t6 a: E       
' P# w7 @8 ]& e        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
! F2 j1 B5 o) w1 @" t' gdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
) V- `" ?9 \9 r4 n2 e* D* S4 p) _current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
1 M$ z; Q! t2 O, P  ynext;
end;
- w' y) `" Z: ?