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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
# L, F' f8 s  y) M* s       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
  p$ n9 O8 J5 d) J5 U- `                inspect messagebox("设施数目不对！请核查...,",50,13)
- O+ ?+ s$ T; i: G* f. B9 a                when 16 then
0 {# t: B9 o' U: b1 b; j                        print"yes";
                when 32 then
                        print"no";
% ]' o3 w) h& S                else
                        print"cancel";
                end;
' A/ H# t. `+ ^5 {; q$ N; C                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
7 J8 P1 a9 ]/ p. }# `, q8 e2 W, z        if existsobject(machinename) then
$ p8 |' v. i* W                machine:=str_to_obj(machinename);
3 v9 \3 Z+ X5 c; g! U                machine.deleteobject;
5 c0 _8 M& }5 K+ e2 I' o; T+ z- T        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
4 p3 E5 P, P: ^: I; U3 x0 f8 X( v                buf:=str_to_obj(bufname);
. }% J3 x: h3 i# X5 d2 J0 w# h                buf.deleteobject;
9 p) b& p: {! j/ J) e        end;
        next;
- C! D' @% q% e  m) n       
        dx:=0;
" l; L" _# j- s5 k        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! i7 j8 ?2 o0 ^2 U. ~3 k                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
* f7 ?) q5 s& N9 n, `/ P                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 z5 S" P8 E- d+ b  R( `7 o% T2 D                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
% a# J& Y# Q$ N& Q9 j                        ct:=activityspace[2,rows];
! I9 }. S3 b' Y/ M- p% J0 A4 [                        activityspace[2,rows]:=activityspace[1,rows];
$ X7 F* S! U- t/ }+ F7 [. w1 V                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
0 s: N- s; o7 ?' M0 l8 V) u  j                dy:=0;
- [( C  {% O) T3 _6 `  X                        --end;
- R9 C% D2 l$ X* c3 G                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
$ p) Q5 \7 e4 q5 r                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;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" c" ~! h/ f9 b. K                        activityspace[1,rows]:=ct;
$ C0 O" E7 n9 T2 b5 C7 K                        end;*/
4 G4 G: U' B6 w* e) a  J        next;
  @9 p/ G# ]% N5 W$ g1 B3 A        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);
8 J: X, J- y* c" c9 u* k; j       
6 F2 N- K( M, k5 y( s        rows:=0;
! `6 t0 E$ P: v  U" l        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
6 ?# d2 @: v1 v5 ~$ f                        if j=i then
                                d_from_to_chart[j,i]:=0;
* F) K1 j* I5 U- q                        else
                                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);
* c8 V5 V( j9 Y# z; X                        end;
                next;
6 c+ u* R( }5 r2 c1 O! d        next;
0 `1 y5 R1 t2 d0 o       
* l* @1 s1 A0 b7 t        lines:=0;
        partstable.delete;
       
& T0 f+ t% A# q( k        for i:=1 to number_of_machine loop
+ w8 _. @. E& H- _- S0 k" d                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& P8 B2 X6 {+ e6 i' U5 a  T                machinesequence[2,i]:=rows;
# G  J* w/ ?$ {                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        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");
                        partstable[5,lines]:=rows;
( c1 b. k$ t; W2 \1 f7 t3 I  |                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
" z# d. K. O8 {$ ?/ H3 `2 h        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]);
' E7 c! l+ s" h2 B" @: b  c0 J4 u        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
. q3 l5 D3 T1 h) N        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
        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]);
. u3 e5 X7 R! _/ H2 U        buf.name:=bufname;
3 S/ v+ I3 P9 |0 N8 E0 G. u8 t  g        buf.capacity:=5000;
2 y3 Z4 W3 Z" f2 l! d8 M* C        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
* ]# @; f3 }# x7 E* {; r       
' J) Z' H' a2 n5 x& Y        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
% Z; m; d$ N8 r8 J9 a$ ydy:=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);
; R3 t# i: C* h0 @  p" x% g3 Lnext;
9 O$ |' m2 q! y# {( V3 t" N& ~. Mend;
( M9 g+ w1 \; T! \$ e7 Y0 o