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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
" u. ?5 D, G- [7 g7 N    i,j,rows,lines:integer;
    machinename,bufname:string;
2 H' \8 |3 V* S: [    machine,buf:object;
5 m( F& p3 \* pdo
$ o6 o4 w! s' b& A. ?* A        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 g) B0 u% U. r' d                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
; u5 K. F4 k) ^# A                        print"yes";
% {: k1 s5 m) x; L                when 32 then
                        print"no";
7 R9 q; b" z$ C8 V) x9 [                else
                        print"cancel";
4 B; x4 H" X5 m4 k" W# K                end;
4 O# K9 M' E6 A# Z& p1 H1 m% z8 a7 k/ ^) z                eventcontroller.stop;
4 [9 D$ m7 i9 X3 N& X        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
4 L* {% {" c9 N* I/ i2 c; O7 J                machine.deleteobject;
3 t- r  o& W0 \* l2 _9 e5 ^        end;
5 D! ]0 I: H' W8 @5 z  e        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
8 Z' w( V: x* O9 f, `       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
# A: |* o& y' B" y6 Z% `* u                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
. E! a0 J  f& S+ f                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 P* i; t0 P4 E1 r# }                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
; C" |  r8 E, |: Z& A& a- P% T                        ct:=activityspace[2,rows];
" I' O0 F' b- Q7 U8 x, O                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 f0 p' \% R$ V- k                        mark:=true;
  F3 c2 S# C: V: `9 s; M                        else*/
- e- Q/ w& [$ L/ E                        y_max:=y_max+dy;
0 M) \* N% \- }) ]4 ]                        dx:=0;
                dy:=0;
                        --end;
                end;
, t1 ^# F2 O, ~( h                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 V* n0 {7 E! I# q6 L$ E9 J1 k5 [                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
* f. F7 S# o. l2 V            if activityspace[2,rows]>dy then
& c. @5 F" Z* i! W8 P5 v                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
; j: w: u- t. m% Y/ ^( Z8 D2 `1 H                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        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);
; w% K) Y6 w# Q8 R& R( H5 m0 L2 G7 [       
        rows:=0;
; n: v6 `7 ], R  u/ M/ R        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
$ o% Y7 n+ D9 K, Y                        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];
4 e$ D# f; H7 {/ g( p4 u2 Q                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
9 H+ c6 u8 U- l; B8 H, ^1 \# D: k                                d_from_to_chart[j,i]:=abs(dx-dy);
* a+ u" K1 k" [4 ^                        end;
                next;
        next;
" k9 p% \) l0 J* r: ~) \- r1 P       
1 ?" ?" n3 v  A7 J8 R& _        lines:=0;
9 l( ]/ T$ h) G9 k! i- [        partstable.delete;
6 ~$ Q% i2 W0 @! G1 [# r       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; l" |/ s/ u& }6 F- k                machinesequence[2,i]:=rows;
! @1 ^4 z- a% G* H# `                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
$ I0 `2 g. Z. S6 j( b" B6 x; l                        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;
: T( s8 C4 @3 _0 o                end;
6 s: \% _9 @# B: [) k. X        next;
) D" L; W4 o' h        machinename:=sprint("M",rows);
* ^, j9 m' `9 v, W$ T4 X8 u        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;标识符未知
1 [* l$ ?# W9 D. T        machine.proctime:=5;
( \3 T2 F: @5 m! _9 V        machine.label:=activityspace[0,rows];
; Y; W! p1 g+ M# Y        machine.exitctrl:=ref(leave);
       
1 g/ {# v; i4 W3 k5 t        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;
  A3 U# z; m6 @+ K) w        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
8 S. }* @2 S* F9 V9 c' eend;