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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
& {" o; O8 ?3 @    machinename,bufname:string;
, \: p# f# `" ?$ v) K' [    machine,buf:object;
do
4 m1 |+ S+ w8 c        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
8 a# }! ?( u5 m8 @                when 16 then
                        print"yes";
                when 32 then
6 h: K  S" ~8 h5 V% R                        print"no";
                else
  q" Z2 v0 F) m; u                        print"cancel";
, N# \' q& S6 m) D: l                end;
; G0 M% ?" v% h# T2 ?& a                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
, W! V' T& P; n2 z5 J        machinename:=sprint("M",i);
        if existsobject(machinename) then
  ~2 q* x) Y9 g) ?8 k                machine:=str_to_obj(machinename);
                machine.deleteobject;
; h* K" `1 M% ^5 v7 K1 E        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
& A7 U- P) x7 E# S. d+ y- q, E- s- k                buf.deleteobject;
  G/ J. s1 c8 L6 }$ y! H        end;
        next;
) C0 g) X8 P" V       
        dx:=0;
        dy:=0;
9 A2 F" p+ Q# o        for i:=1 to number_of_machine loop
4 e9 M. u* F0 {( |) Z3 [8 }  I& p                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
6 a) w. C( k$ j1 Z$ {3 u" l0 P! M                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];
                        activityspace[1,rows]:=ct;
% `) `. b8 F- Q3 ~                        mark:=true;
* u! a% s+ t5 C* C' ?5 Y                        else*/
9 r7 N) _/ U  i" R. z  r6 t! ~                        y_max:=y_max+dy;
                        dx:=0;
" s  |$ \9 j/ Z- w                dy:=0;
$ R# j% d5 U% N- l; a                        --end;
, @. d) `3 l3 _( U, m0 F+ F8 @6 R  n                end;
, ^8 J, y0 r6 ?! p% ?                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) @; T* Q/ I9 b$ c" o7 F                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
. Y$ _- A; M* m1 r" c0 A            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
+ Z7 U  I: R9 |- O! K' S, z4 a                        activityspace[2,rows]:=activityspace[1,rows];
( G$ O; t/ ~. e% M( Q8 [                        activityspace[1,rows]:=ct;
) C' P0 k0 g5 B* c. H                        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);
       
        rows:=0;
        lines:=0;
' P. d) l" i$ U        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
4 D8 G& d) R1 f. ~# U                        if j=i then
1 r# a( ?5 \5 C. G0 `* @$ ^                                d_from_to_chart[j,i]:=0;
0 F" D" Z% H  n- v! b$ y                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
6 l" m8 V; R- H  M  a* E                                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);
# v5 d8 ]7 u9 Y# M5 E: [                        end;
0 [, @5 \+ e) U) t8 A: J' [                next;
        next;
       
        lines:=0;
        partstable.delete;
' N: H/ X' t) W" {7 ?       
        for i:=1 to number_of_machine loop
: y. ]) s$ M3 a8 F5 ^1 U                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- V0 m: ?+ _/ `; P                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
5 I4 x. E, Y# U5 O4 W8 h3 H7 y2 ?                        lines:=lines+1;
! e  N/ v. G* o# j                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
5 g8 P+ ^0 N0 S, }                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
& _8 y" ^, ~' `8 a, x                        partstable[5,lines]:=rows;
8 @1 A( M! w: e/ X' u  t) ]2 `                        partstable[6,lines]:=j;
                end;
5 b$ N0 y4 Q3 \  |% f% O8 H        next;
        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]);
; Z, e2 x. B: c( p( O1 h# _; [) v        machine.name:=machinename;标识符未知
        machine.proctime:=5;
5 g3 ]8 k7 R- D; K8 \9 c5 P- j9 m        machine.label:=activityspace[0,rows];
7 F% S" e1 |2 N( J# C' o3 p        machine.exitctrl:=ref(leave);
! d# e" j+ ^' _0 D       
3 }" m! V# T6 f7 w! K% Z        bufname:=sprint("BF",rows);
1 L! b( l# f6 \, h        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]);
" X- i; q/ }! t- C8 |) `0 R        buf.name:=bufname;
7 Y* k/ _9 k) I        buf.capacity:=5000;
        buf.proctime:=0;
& h5 U+ u7 @$ R' w0 Z" l        .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;
/ M8 o) G9 L0 A* a! b) ]end;