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

zooey

is
        mark:boolean;
& n% m" q" N* L6 V) q3 l3 w        dx,dy,ct:real;
* L' H* k% s" }1 u7 i$ y1 X    i,j,rows,lines:integer;
2 [4 w" D2 [& _3 t. [    machinename,bufname:string;
( V  Z% I9 `" e& V3 G# q6 U& Q    machine,buf:object;
8 v) |' a" E/ z( W1 B# Vdo
9 E% K, }4 j* p: e* [6 d        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 l$ P- i% w5 w                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
) Y" S# R- P6 s                else
+ j1 n) o* o3 H                        print"cancel";
0 v" t1 a5 H' y& x& m% k                end;
$ N0 V" t3 I# N' J  V                eventcontroller.stop;
7 J% n! z  e9 X; S1 D        end;
3 s, b. x0 U$ a# k3 a- k* F       
        for i:=1 to number_of_machine loop
* t' c8 i: w6 m* Z7 Y7 x        machinename:=sprint("M",i);
0 U2 R$ \3 j& L  L        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
# M4 \. ~2 S4 E7 h, |% K/ v! P        end;
$ H" D3 r) u, R: m# M        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
  z+ v2 {% f, y9 C; {* c. m( _& h% \                buf.deleteobject;
  U6 m4 h: Q4 A; e0 r        end;
        next;
       
        dx:=0;
        dy:=0;
& d2 e2 Z& T/ z2 T9 G        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
5 P' e' y  \! `7 u+ j+ w' A. q                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! M1 E* o/ Y6 |2 }0 F$ {; `. A                then
8 {# @6 w, a  g                        /*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];
% L  ?1 ?3 h/ O% c/ G) Q                        activityspace[1,rows]:=ct;
# w" @/ K. h& J) @3 |/ |: B                        mark:=true;
8 V% N# K# a) W                        else*/
$ S3 t. ^5 r2 K* D                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
6 @2 ]$ q* P7 S* C                        --end;
                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;
9 U" I. x  v/ O% p! t            if activityspace[2,rows]>dy then
# q6 L( f7 I) e& \& v& K                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
4 z  }8 o( w. A8 h9 i; r                /*if mark=true then
                ct:=activityspace[2,rows];
/ i1 m3 O# l9 m/ ^( A% C                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 ?# r4 s6 P: Y: R% o4 J                        end;*/
4 F" H$ v* f5 ^" c0 c        next;
5 |- ~1 s0 ?; [4 G9 U        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);
6 q+ c: U& K, R  O, [! y        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);
% }) l: n( H7 w$ ]' |3 O       
7 b9 @& j6 N9 O8 g# N) [        rows:=0;
+ y( q* b( k$ \( r2 D        lines:=0;
        for i:=1 to number_of_machine loop
6 i% H9 P- [% q* ?6 R. A* V                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
% @: p* p4 ?, ~5 ~; C3 i                        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];
6 D, j+ g* u* L  a8 \                                d_from_to_chart[j,i]:=abs(dx-dy);
# a4 R& Y* h3 Y# T- U9 N                        end;
  v% C1 V7 Y0 B                next;
        next;
       
        lines:=0;
& J9 ?& q& j0 w( E        partstable.delete;
       
        for i:=1 to number_of_machine loop
9 m9 D3 Q9 A/ o$ p                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, g, f/ b5 {% q                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
  W* S1 f0 z) c! {                        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;
                        partstable[6,lines]:=j;
6 ?/ T* `5 ?4 I6 @% j                end;
        next;
        machinename:=sprint("M",rows);
8 Q/ e: _1 B; l, K& K        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]);
1 y" v2 N% `9 ~% A4 [        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
8 ?- S& u; l0 ^7 w+ g       
$ n/ E  ?0 P' o- F3 B9 w7 b        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;
2 Y  n' O3 d. u) i  Z1 |1 P        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
, R/ k' r0 \4 e4 d0 L        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;
5 {, Q: B. O4 @( W: C# B% Y4 acurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;