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

zooey

is
- Z3 `: t/ G0 o' m        mark:boolean;
        dx,dy,ct:real;
5 E, I- X7 Z, x1 ~0 s# R; O# b    i,j,rows,lines:integer;
2 i& c* b( E4 Q1 r6 i    machinename,bufname:string;
+ ~3 a  W* s0 {8 }) L5 f    machine,buf:object;
do
$ c0 ~3 @5 |  @0 d: O        current.eraselayer(1);
9 [: ?  l- G7 ~7 {) |) H       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
( q" u+ ^; j2 P- y' a. O: D                        print"yes";
                when 32 then
% G" N1 {7 U5 `% |6 ~                        print"no";
3 d; z+ a+ Z0 x, e                else
                        print"cancel";
                end;
( K/ R# i% P1 M' ~3 ]% Q                eventcontroller.stop;
        end;
+ d! L/ V* \, W; H+ Q: J# F* c/ z       
        for i:=1 to number_of_machine loop
+ a/ ?1 S  u9 O, n1 L1 ~2 G        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
& [7 Z. U6 I& K# U% a4 S9 H, \  O        end;
5 x5 u4 m9 l+ @; B' ?0 F  B        bufname:=sprint("BF",i);
        if existsobject(bufname) then
4 p3 g; i- l9 u' {+ g! v- W8 i                buf:=str_to_obj(bufname);
. e8 R& Q8 h8 O# a1 D! U8 u                buf.deleteobject;
        end;
        next;
' Y& P7 I# s0 H4 @% Z       
$ @( r! N' U' ^7 S, y        dx:=0;
: v; }# A, t- o! _  f        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
5 b3 u* A$ p0 E5 ?                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
9 S; G9 l4 K* I9 i$ H                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
6 E0 q; z6 a5 v# j, u$ J0 {# m                        and activityspace[1,rows]<(1.05*y_max) then
, y6 c, C4 j& I                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
. s0 \8 L% `% H/ @' L! b                        activityspace[2,rows]:=activityspace[1,rows];
' }7 w2 f3 }5 S                        activityspace[1,rows]:=ct;
                        mark:=true;
5 e3 d* j" L/ L9 i: s                        else*/
/ w! v$ h+ Y% a/ w! m, n                        y_max:=y_max+dy;
* ~2 V3 u/ X: `7 [& L                        dx:=0;
                dy:=0;
( L" u  `, M: _8 s3 j5 X, b+ t$ ^                        --end;
9 `3 R  ]' d) Z2 d% |+ H8 E                end;
) _1 c, H2 g2 ]) ?                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
& R' _7 q! |' i( g9 w0 h! {& ]1 a                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
6 {/ M1 v4 ]" h8 E4 I                        dy:=activityspace[2,rows];
! o: A7 F% |+ E: W8 R                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
, z+ z) v. O; C5 O5 u# @                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
& e& |2 o: d' ^0 s9 a7 _                        activityspace[1,rows]:=ct;
                        end;*/
9 S3 J$ z) T- l  n3 ~        next;
; s/ P: F2 k) v% \$ _1 L, s        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);
# r" c: @: ^1 v% o        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);
       
        rows:=0;
! W, C- T. k  y7 [  w        lines:=0;
9 ?- {& F, M* {        for i:=1 to number_of_machine loop
6 t" p9 z7 W  N$ _% q( t% V0 g                for j:=1 to number_of_machine loop
  {) f% I1 H7 \                        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];
3 J9 ^: q% B9 ]+ `5 y4 J8 n6 |, G0 ?" L                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
  x0 l  y- Z% u5 ]' s: F                next;
        next;
, ~' s" l" X. c- L% L' U       
        lines:=0;
9 [* n6 I, j3 d# J4 a) H4 h        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# T1 A% }3 y9 g$ @  i                machinesequence[2,i]:=rows;
9 B4 U3 x+ z* w0 Y0 l: Q* z                for j:=1 to number_of_machine loop
# f% q! h2 G2 D# Q                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
, P4 m( s  Z) k                        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;
                end;
        next;
- A! U, A7 k9 p1 s7 e/ c5 v8 c4 V        machinename:=sprint("M",rows);
9 `4 B( l: n8 g2 z- w, t        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;标识符未知
6 e3 @6 R4 P; t7 Q        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
$ [& G) Z' K( l% @  U# D        bufname:=sprint("BF",rows);
9 R# s, ~8 ]6 Q        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]);
: u) h* q2 F2 D8 l: }6 F        buf.name:=bufname;
' y$ j  b5 Z3 T: ^* |3 g        buf.capacity:=5000;
/ w4 R, e" E! T# `2 Q- H        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
% F7 C/ F( j) I& \       
0 O$ N) {) x; @3 ]( [& }        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
; c) Z$ S% O0 O3 o3 d4 Tdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
* j) x" Q! M# W4 F4 m8 tcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
8 }( R5 N- G; ], N7 eend;
8 m& U" w6 x; y" B3 [