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

zooey

is
        mark:boolean;
2 W% {3 ?" Y+ X5 V' p, s# ?! m- Q) ?8 k        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
, f2 u4 `! |* w( H: m        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
, A2 B; _0 o8 i7 B                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
$ b6 w3 ?' ]) Z  }4 `8 L$ O! k                        print"yes";
                when 32 then
                        print"no";
! h* ?8 j& `$ m: O  r                else
                        print"cancel";
                end;
5 M4 q" Z3 k% B3 \1 X                eventcontroller.stop;
        end;
       
# _" a- I% t! x        for i:=1 to number_of_machine loop
' f  j3 c3 o& @* q1 q        machinename:=sprint("M",i);
8 I! `+ I/ K6 ~% p        if existsobject(machinename) then
: w9 h! l8 i- L7 P, z0 V! s                machine:=str_to_obj(machinename);
2 S* r; l+ a; ~/ v                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
6 w  g4 Z* ?9 n                buf.deleteobject;
        end;
        next;
       
. O9 }7 _  h! d        dx:=0;
% D8 p2 l$ `9 o% S# f, }        dy:=0;
' Z( f5 i- l2 s. J        for i:=1 to number_of_machine loop
7 F- i( v4 v6 |% ]  J! H, g: e                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 G# y1 p9 k8 _& c                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 \9 B2 R' R, F, m                then
9 D' g- Y# p9 w                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- E6 s, z! K+ I( ^                        and activityspace[1,rows]<(1.05*y_max) then
7 [% A2 y: v2 i1 X5 x                        print activityspace[1,rows],",",activityspace[2,rows];
6 U8 c# P! L$ ], t- k+ n                        ct:=activityspace[2,rows];
" Z( {+ f8 N. R5 o# ]                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
7 n; @1 t- @3 Y                        else*/
                        y_max:=y_max+dy;
  x) h; |& y1 F/ p8 B4 }1 M                        dx:=0;
                dy:=0;
                        --end;
9 W  ^5 q$ y$ N8 s% }1 J+ O                end;
- V5 x! L$ r' b3 M: E) g, u5 d                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
3 i- F$ P. B9 U. v* T1 N* g: ~                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
4 C* a: i4 V( J5 K& y$ [3 X            if activityspace[2,rows]>dy then
6 u9 ]6 f' b* ]+ A: B- l+ `                        dy:=activityspace[2,rows];
                end;
8 {" w8 l; n4 ]5 ]' Y                dx:=dx+activityspace[1,rows];
  r6 C9 q3 T$ T% U; c. [                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
4 Z7 {! ?# k0 O& ~- @. \                        activityspace[1,rows]:=ct;
' k' _; N7 K( e3 n: g& b                        end;*/
; ^9 P7 u7 J' L        next;
        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);
4 N; q9 E! p" |  @4 X4 T        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);
: m+ f$ O' F' ?' B# E; x; B. q       
        rows:=0;
1 P0 L0 H# k7 z9 n        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
) R. f- Y+ g/ {2 m0 G# c1 M: ^/ ?                        else
' R( l1 a( l5 ^1 I. y: v6 J                                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];
- O" G% V2 l0 G" t                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
# j  b2 G0 F* I3 m" L% ]* c        next;
       
        lines:=0;
, x+ R* F- u, i: ?! o        partstable.delete;
8 g6 F3 b' G; [       
/ _* h" T4 K+ c, j" J        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! W& d5 N1 f2 n7 L                machinesequence[2,i]:=rows;
: H7 G. h0 h3 }8 f, c# d5 Q/ F5 x                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
) w/ w7 Q& N4 Q/ I8 C# K. z- T                        lines:=lines+1;
% V' O+ k% t# F4 P: Z. T% y3 R                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
4 J- r# J& L5 u( h! N                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
" r4 K5 {$ T; K4 K. Q7 B                        partstable[6,lines]:=j;
                end;
5 E4 G& @1 x" _$ o0 S% _; y        next;
        machinename:=sprint("M",rows);
9 f; K9 |: H8 ]/ \9 [5 ]+ m        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 Z2 J8 J7 x2 [0 _* A        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
- }) F; y  r+ Z        bufname:=sprint("BF",rows);
: e5 C: u! ~% s. N" V7 `        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 q8 T4 I$ _+ q- Y        buf.proctime:=0;
. z; S5 J5 ?2 h4 f        .materialflow.connector.connect(buf,machine);
$ q# s2 D% G7 d; n- H  o/ ~       
/ q! T% X  t2 Z        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 N* R. \+ |/ a6 ]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);
: U" y  |6 J4 T; A$ qnext;
end;
1 k% p$ `; y/ L& F$ [- p6 ~, M8 y