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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
1 p8 t4 n4 s) E0 i2 m' t    i,j,rows,lines:integer;
    machinename,bufname:string;
5 C1 P9 v2 w% H, m7 Y% m6 Z    machine,buf:object;
do
        current.eraselayer(1);
' r0 l4 b( i% F; ]+ s0 H       
/ q  C$ W, e8 o* G        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
+ d# y$ `) |# K                when 16 then
                        print"yes";
4 Z+ n3 z6 t& I! J) K                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
. e5 u. Z' |# v/ |# h! [; m* U                eventcontroller.stop;
        end;
1 x; }2 v; \& k' u+ u. l, S       
$ }( b+ h$ B, Q3 @# |9 t' F        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
7 x) ~# j4 ?1 P2 i/ |) Q                machine:=str_to_obj(machinename);
                machine.deleteobject;
- R1 l7 ~8 X# T1 M' X: V        end;
        bufname:=sprint("BF",i);
/ o- S; n- X8 m* |- H) O! a, T        if existsobject(bufname) then
9 a: c  m# r8 h. Q  m) j5 K                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
8 p% n: k6 z/ r: ?5 O7 s4 R        dx:=0;
6 j' q0 |2 B( c* H; x  _, H; h        dy:=0;
        for i:=1 to number_of_machine loop
/ j" N( p) }9 r4 Q( a                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 M- K% a8 a. b/ s3 ~% z                --mark:=false;
1 a, K+ W5 \. a% u8 K) o) j) e4 s                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*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];
6 ?7 j: ?: m( P# M" T                        activityspace[1,rows]:=ct;
1 t, _. ], }  q" [                        mark:=true;
                        else*/
0 ^. M& }" @5 v8 u& r1 u# Q" W                        y_max:=y_max+dy;
" d( e+ G* @0 G. H% q9 C                        dx:=0;
' K( {: O* t8 L5 ~6 }' z/ F$ H                dy:=0;
2 j8 G# C# ^7 b( p! C                        --end;
( K. i4 R: m, i; X! ^9 N                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;
: q5 Y- q3 O( S( @            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
$ {  J( C9 w3 u0 d) V, g                end;
                dx:=dx+activityspace[1,rows];
2 R1 l1 b* s9 i: T+ _  c; ]* M                /*if mark=true then
                ct:=activityspace[2,rows];
3 A4 @/ o; I4 ^) P, p/ [# I                        activityspace[2,rows]:=activityspace[1,rows];
6 t) u' k6 d) a8 {                        activityspace[1,rows]:=ct;
$ y' K1 G& ~+ ^0 `: ~                        end;*/
        next;
        y_max:=y_max+dy;
: Q, {' D8 D5 n( u7 U( R, [        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);
2 x$ y- n$ w1 [+ j4 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);
       
+ `8 x: j/ L2 x        rows:=0;
. p; U' K: N  X- B        lines:=0;
& {, r: G, \) w" ], {0 p2 E- n        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
& J- h7 G1 u3 P# j, L                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        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);
6 h/ e  {# W( v7 Z% P% E                        end;
                next;
. H& i8 w1 a. T1 h1 H        next;
       
        lines:=0;
0 v# t+ b$ W) E6 H7 ~        partstable.delete;
       
* K! V" ^% Y" _' L+ u1 o2 l* R' c        for i:=1 to number_of_machine loop
. L& f1 p& F  S2 x                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 {& H6 L. }" I. j7 ?) _7 i6 ]                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
' l2 \# t8 ?- @; L                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
; z; \+ i4 ^% w& u% v( V                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
0 q) g& Z0 x5 K% a- \                end;
        next;
0 ~- k; X9 p3 z  T3 }' d5 ]1 G- k        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]);
/ q9 A* K& ~6 D- b8 t9 e        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
6 C; e% L( z: |; R        machine.exitctrl:=ref(leave);
  t) a( b. Y% [6 {1 K* _8 q0 d$ H       
3 Y3 v: a6 ?" q9 U' t1 \( K        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
2 J, ~; D: [" B        .materialflow.connector.connect(buf,machine);
+ D4 g7 c/ i4 r) q       
1 k0 Y. s6 G* i* S0 L9 V9 V& v        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) \+ [4 f9 G- T8 H( Qdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
& y4 }; P% ~8 c+ ^, B! c* _3 Wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
3 B6 _! L7 t5 Y4 W6 V+ unext;
2 ~7 R. q2 ]8 v" v, iend;