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

zooey

is
        mark:boolean;
# V1 K7 a) v/ K1 p        dx,dy,ct:real;
) f) A* @  n4 q- i  B2 e    i,j,rows,lines:integer;
  |" I/ X% D0 \5 H3 {    machinename,bufname:string;
  p# T. {4 u6 W) }0 H- X9 o* f$ M    machine,buf:object;
do
  b8 N0 O, J1 d" n- F        current.eraselayer(1);
0 _! D+ ?# z( i" U+ ]       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
2 S- k0 z3 c) p; U# x* r2 V8 Z9 q                inspect messagebox("设施数目不对！请核查...,",50,13)
$ T7 _7 K, c, [; D                when 16 then
                        print"yes";
                when 32 then
                        print"no";
0 ^% O) }5 \0 t' I                else
                        print"cancel";
8 l3 Y* ]# D- |                end;
4 n7 B7 c6 H3 J" [- i' o3 e- L                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
* A& ^1 P" z6 P" F, ~        end;
6 q8 O% Z, w! r) u3 h8 |        bufname:=sprint("BF",i);
        if existsobject(bufname) then
. A2 V8 ]; v- g, P/ m                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
4 h# k) k8 o6 z1 W: c/ Y        next;
( J5 b( q+ q1 \       
        dx:=0;
        dy:=0;
5 k3 y0 B9 n, Y- `- Z, g. R        for i:=1 to number_of_machine loop
; d7 U  ~! H  @" w3 U                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) u) u; l% l0 W; v, O; ]: L                --mark:=false;
' d6 s2 ?5 u/ |  U2 l  a                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! _7 X; B$ t  s% E1 }                then
+ ~9 k. e3 b! H- k" N8 D2 _7 y                        /*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];
3 B: T/ f$ T+ v! t6 I- T                        activityspace[1,rows]:=ct;
                        mark:=true;
5 |) t* ?! w- o0 U. y, A                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
5 T) l8 _( S- ^' \) Z0 j                dy:=0;
                        --end;
" d% @+ l3 x2 J$ L1 a: a                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
& h+ @) N' I+ u8 u/ p( A                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;
; j+ H% n3 v- K: q7 h* k* {+ t                dx:=dx+activityspace[1,rows];
1 n6 Q: l: s' d4 p/ N                /*if mark=true then
+ t4 w: U4 d% x( G" @! P% c5 N2 b# t* \                ct:=activityspace[2,rows];
: j* ~$ o8 R( X1 W; R                        activityspace[2,rows]:=activityspace[1,rows];
' y/ ?; A) d; M                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
7 z  [  B8 X8 k  m        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);
$ s' b" F8 m; d" i       
0 F* @8 r/ x; f9 T% f6 n% ]        rows:=0;
        lines:=0;
1 l3 Y- B( E" y$ E3 X$ w        for i:=1 to number_of_machine loop
; F7 M5 a, ]) t  y9 U' u3 R( ^7 E                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
3 Z8 j! u6 V, j& \0 g% L' B4 x3 R                        else
# r6 J# Y$ d. [$ q$ s: q                                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];
2 V4 m+ T2 O% i- |                                d_from_to_chart[j,i]:=abs(dx-dy);
0 B. B. ^4 \8 |/ d: }                        end;
7 ?% P: `2 I& ]8 K. s# i                next;
        next;
       
        lines:=0;
        partstable.delete;
       
/ z3 \# q! q& V2 c+ |1 R8 p* b        for i:=1 to number_of_machine loop
) B* [3 J- [, u' Z" R1 r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 @2 B! K1 e' I& z/ C1 E                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
: [: H5 U8 _) L! D                        if w_from_to_chart[j,rows]>0 then
5 A% P6 x, L# q7 U9 A5 x/ a                        lines:=lines+1;
6 y* E) R$ R3 N; x9 y( y                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
3 ?3 f; o* V5 L  v$ @0 m  I, A                        partstable[5,lines]:=rows;
5 w6 v, ?4 }# ~1 W2 p+ D3 I                        partstable[6,lines]:=j;
/ k+ U: k6 w/ a                end;
        next;
: V0 g4 H2 @1 e% R        machinename:=sprint("M",rows);
        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]);
4 t' ^9 y% Y; Z) ]8 u/ M* n        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
7 s7 @2 k$ |3 }) ~6 y        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]);
5 e* k: C+ e' @5 z) @        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
' S* S4 a3 Z! w1 H& L0 ?& X5 A       
1 N0 B0 B) g2 r. u/ v        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 @; c8 Z: F+ n) p1 y' D6 y( h. Pcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
8 m& C8 M* r' fnext;
2 r+ A$ _# o% C4 E& Q+ r+ L0 p7 ?end;