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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
8 T" Z5 N: p4 T    machine,buf:object;
do
        current.eraselayer(1);
. P3 R& E: S0 g  E# a& s( M       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
! Z& b% H- p% k! i) p; Q                inspect messagebox("设施数目不对！请核查...,",50,13)
$ ^! _( W3 {2 z                when 16 then
                        print"yes";
; v0 o. [+ L6 z                when 32 then
                        print"no";
                else
( @0 E" W7 M: O6 z5 A                        print"cancel";
, Q) ]5 L, w& b- X9 a- A                end;
                eventcontroller.stop;
, t2 Z, W7 C1 f$ |' j        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
6 ^* k0 n) P1 B* b6 h0 Z! `6 e                machine.deleteobject;
/ \4 i6 Y- B) W0 i9 _# n# {) l% E        end;
* B2 [' Y: q. P8 L  O        bufname:=sprint("BF",i);
        if existsobject(bufname) then
$ x* R1 W, J' ^* E! L! _8 r                buf:=str_to_obj(bufname);
7 L& W6 F3 T  P- f- w; Z9 o                buf.deleteobject;
$ Z: d, l  P+ S7 h4 ^# @2 i6 t        end;
: S  b6 p; g/ C( p3 {7 e+ g( e: ?        next;
       
4 P6 x! B9 @" G1 W        dx:=0;
/ a! M3 c# b# J5 l$ z        dy:=0;
7 M. r+ q2 D- b        for i:=1 to number_of_machine loop
% f; o0 a* D6 ^                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: o8 Z* l! u& _* j* u1 q- ]8 A9 R                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: O  l7 w5 k1 ^; _                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
+ z* c4 U' I$ m3 n7 l) i                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
) R5 i+ Y+ g0 [& d                        else*/
' C2 {6 n* P% N2 i8 X6 h                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
% Y* m; {/ S/ k4 b: x                        --end;
                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;
3 B; [  a( C( i0 f            if activityspace[2,rows]>dy then
$ J6 x+ R; F! T) g                        dy:=activityspace[2,rows];
. ]# K' _8 q4 u2 D" b                end;
) d6 _* t$ Y# T, I" ~                dx:=dx+activityspace[1,rows];
                /*if mark=true then
* ]- l3 M* c9 |; L$ A+ w                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
% u- l4 E1 N* u, G- a4 p                        activityspace[1,rows]:=ct;
                        end;*/
        next;
! s6 o2 j" x4 o2 C' ~0 y; ?3 ~2 M        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
; a( ~& A! V) A; B1 c                for j:=1 to number_of_machine loop
* B' m3 _$ W. J  l- q8 y/ v5 ^8 P                        if j=i then
7 m; u$ u: a$ T$ ^                                d_from_to_chart[j,i]:=0;
                        else
, p& j9 t# q( s! I: |( Y                                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];
& `. h' b3 D! U' ]3 ?% s                                d_from_to_chart[j,i]:=abs(dx-dy);
2 A& W8 M, A5 f) q                        end;
                next;
        next;
       
        lines:=0;
+ K: c: A' B2 ~' O        partstable.delete;
" _. V4 c& G# w0 o, Z       
4 n3 z  m6 \2 T! P        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; n* n* N+ f4 v0 x- I" r9 H                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
/ u$ Q, ~' I& p. l) `                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
8 g/ I, M) F1 X$ }' p0 D/ A9 z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
' p# p7 q* B! Q1 g, ^: T                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
+ B7 q8 U; k; Z% G) P, ~  U" T        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]);
1 m5 A  l' y+ Q! R        machine.name:=machinename;标识符未知
8 y7 X$ V0 `' _: p8 G- g. N        machine.proctime:=5;
5 f, }: c1 u5 o; B! t        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
- E8 a" |4 O9 T% W% O  I        bufname:=sprint("BF",rows);
7 u9 r4 S% {/ x0 w8 ~  v: x; \3 p        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;
# M2 w- q  @- `2 [% d  |1 m        buf.capacity:=5000;
        buf.proctime:=0;
6 w4 X- e+ @. t0 O" \0 R$ T        .materialflow.connector.connect(buf,machine);
/ V; v2 n% J, a2 o       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. R+ Z- q/ \" g$ l- [6 U2 P. X! J1 L7 udy:=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);
$ o- f8 s# D. f2 Y; r  Snext;
end;