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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
& Z; Z* {9 C# ]5 i, V        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)
* |. D0 J: t. y8 J: a# l. N                when 16 then
                        print"yes";
                when 32 then
# s& \- C2 y/ M7 P) h! q  N                        print"no";
                else
) G, P# S. |2 `: O                        print"cancel";
8 X% B( U% R- R6 }, L                end;
4 k/ O. l8 N3 Z& m                eventcontroller.stop;
& U+ K; i  T8 P& v# r6 I        end;
       
" Q4 F2 h4 O; @9 z        for i:=1 to number_of_machine loop
/ s# l8 v. }0 }/ \# p8 A+ S% Z( @        machinename:=sprint("M",i);
; L0 W7 _# G, `) t+ w: W4 o1 a        if existsobject(machinename) then
9 i) a9 f' `9 F* t3 }                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
2 ^/ ~# [' Z( H        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
6 E: J4 l( A3 Q6 u7 f0 j                buf.deleteobject;
        end;
3 a4 O, y# @+ G: I: `        next;
! s# C; I1 M6 w- G( w       
        dx:=0;
; l1 C/ y( B4 K! z        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. y- J3 g) S, D5 D" i                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
1 {2 t) C! U" |( u# T                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- v% M3 h" z) \- e                        and activityspace[1,rows]<(1.05*y_max) then
: u) M. _: u+ z& J5 }' |                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
- U0 a+ l, R+ l' b; |3 C0 d: ~                        activityspace[2,rows]:=activityspace[1,rows];
0 }4 m% Y+ ^0 m/ E                        activityspace[1,rows]:=ct;
                        mark:=true;
/ k, x$ ]' h  n  I+ J                        else*/
* B9 U* J+ H3 |' x' ~                        y_max:=y_max+dy;
  n1 I# L  S8 a& s- b8 Y                        dx:=0;
- x) Z+ q4 y7 }" B7 b                dy:=0;
                        --end;
                end;
" A4 p6 K3 z6 h3 D  w. G& b                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;
! T4 B0 F( c0 J; T" T- O% ~            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
$ A& r, _/ Q! n9 N2 y                dx:=dx+activityspace[1,rows];
& A1 Q. Y8 g" E7 p' v                /*if mark=true then
) J: k! G/ P% A                ct:=activityspace[2,rows];
' X' y, I( J! C( n2 Z- ~$ ?* ]! }                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
! D7 E5 q& S: R0 T4 i                        end;*/
        next;
        y_max:=y_max+dy;
6 X! z; a" p+ r: x, N        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);
  R1 j  M* x! Q2 v        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);
       
- R8 q$ {% A/ x( l        rows:=0;
' @9 x5 }, L% ~! @+ L# h7 C: A  A        lines:=0;
        for i:=1 to number_of_machine loop
8 {$ y8 D  C8 }  M: `9 Q                for j:=1 to number_of_machine loop
                        if j=i then
. B- c" [* N& r3 V6 n: P                                d_from_to_chart[j,i]:=0;
% o2 ]. ^& I" y/ S                        else
7 H& c& _+ V, D" t# m. e- B                                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);
5 H8 o) Y4 {) }& z6 n                        end;
                next;
        next;
       
$ H% Z7 F! b7 z& X9 z        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
7 Q, r5 U8 K7 ~/ E  d+ n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ |/ L' p0 J1 L9 C                machinesequence[2,i]:=rows;
- P9 g6 f2 @1 {8 q                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
, D/ U) l9 b) M                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
4 c( a3 h) g8 o& x$ s; }                        partstable[2,lines]:=w_from_to_chart[j,rows];
; y" V- {+ O3 A' M. D* x                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
2 I/ ~2 G) M* t' g; _                        partstable[6,lines]:=j;
                end;
        next;
# x% W" ?: N3 @' t/ D        machinename:=sprint("M",rows);
1 F7 g' x, p2 M; S/ W  F  w        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;标识符未知
2 t+ }& f# [9 [( ]5 A, S        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
) |2 n2 Q2 E! s; R+ I        machine.exitctrl:=ref(leave);
( [4 L0 w! u2 g' X! m       
( |# ^  \- H' R8 g* x: j' F( E        bufname:=sprint("BF",rows);
$ m! C2 q& W3 w        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;
5 X6 S3 Q- J8 M        buf.proctime:=0;
. ]9 k! S0 v- z+ k( H5 C  M        .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;
2 O7 Y* o3 L. M( h: J5 i1 jcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
0 v8 K3 t! c9 n. Wnext;
! V% v7 H" T1 \  V3 Aend;