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

zooey

is
        mark:boolean;
9 Q1 t5 a. I- w, \; D; m& \4 r) b        dx,dy,ct:real;
    i,j,rows,lines:integer;
7 J* E6 T. ]+ f' K) g    machinename,bufname:string;
, U7 h. K4 ~3 r! P    machine,buf:object;
do
4 ]* {' c) y2 f# Z        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' D$ C( J! B& ?) N5 B                inspect messagebox("设施数目不对！请核查...,",50,13)
) h1 |% Z% d# j+ x6 K                when 16 then
* m. k5 ]1 d8 J/ ^8 S                        print"yes";
9 u% f: [+ |8 H2 B5 t                when 32 then
" ^* i0 X# [! S% f6 I+ |                        print"no";
% |  S5 w+ A; H% }7 Y; I                else
; Z6 j: b* @% r- U8 p/ z: }                        print"cancel";
  N, ]7 k+ R4 i( K" Z& ]                end;
6 g" R' n3 \. _; N$ g! D                eventcontroller.stop;
        end;
5 u. Y9 l+ L7 O' S5 S       
: L( v9 m: B4 V* @        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
  w+ L5 {. S( P- ], }% \& r( t: k                machine:=str_to_obj(machinename);
                machine.deleteobject;
1 t! |6 T8 W. ^+ K        end;
        bufname:=sprint("BF",i);
4 L7 h% ?9 v. q6 ^        if existsobject(bufname) then
( r5 Y* t0 D9 |# l5 M                buf:=str_to_obj(bufname);
, m9 Q; Z$ @" q9 K( J5 ~! }                buf.deleteobject;
        end;
        next;
  k; a+ G8 s; F" f$ A       
+ j5 M6 |3 m' R( l$ V" L        dx:=0;
        dy:=0;
$ ?6 k" b% p/ A% ]0 t        for i:=1 to number_of_machine loop
6 E! K- U& `9 F0 a1 p0 I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# o/ B* R- _7 |9 x/ h( a" S; c4 H                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 l; [  b+ G5 B+ @- W                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];
, p6 Y: Y1 B7 y: C: Y                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
- i: j$ o# N% N                        y_max:=y_max+dy;
/ i0 V  U4 l% Z  Z( E                        dx:=0;
5 U$ D( J" K$ s( C( T+ x                dy:=0;
. o" I# _; A" R# y                        --end;
. t" T& Z- F- b1 _& i. a, @, [                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% d$ R6 [2 e% J/ D                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
7 H) Z2 b! Y8 D8 g6 l            if activityspace[2,rows]>dy then
3 k, K9 P* \+ M8 f, L1 D+ e                        dy:=activityspace[2,rows];
* \) E6 Y( j3 \- f4 H                end;
2 L% Z4 Y* r6 b6 W5 v2 h1 |                dx:=dx+activityspace[1,rows];
9 w; ^0 q* l8 I" C5 X                /*if mark=true then
                ct:=activityspace[2,rows];
7 p# R/ K/ a9 D+ @                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
$ c0 _- L$ c( |# c        next;
        y_max:=y_max+dy;
8 {5 G% \- g" ]( T+ q% U        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);
) O9 Y9 t$ u& p, \& ~1 Q        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);
) m& a, j; E! N: f! d       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
5 ^  X* A4 }  @# H: O                        if j=i then
                                d_from_to_chart[j,i]:=0;
# _$ c% [/ b8 ~1 L; c1 T" _, b: U                        else
" z; C- f5 l* F                                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);
                        end;
                next;
3 p* h! b* C0 |5 {9 B- e: P+ t( L( O        next;
       
        lines:=0;
        partstable.delete;
       
8 J8 M" Y$ @$ R& Q; t        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
% V" q0 m) d% M. T0 y                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
4 T5 A0 p2 F- o. g5 C4 |2 {# i                        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;
  Z4 t- l6 J2 j4 R4 ^6 b                        partstable[6,lines]:=j;
# [- P' K2 \2 j* C' Y/ J* o                end;
        next;
3 R" i$ b: L3 [) z0 {0 b" g; Q        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
' K0 V" L( D4 V3 V( g- A+ q        machine.label:=activityspace[0,rows];
; F& ?# N( F, d" {5 W9 b        machine.exitctrl:=ref(leave);
       
        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;
1 y- D) d# o- W3 b# m. N" [( X        .materialflow.connector.connect(buf,machine);
       
! X9 n! P/ O, A4 U2 f        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 @  T# I, `) @0 S! ?* A0 i$ J, Fdy:=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);
9 P$ h* K1 D$ h! k( Z" b9 Bnext;
end;
0 c5 M( p  V# c: t( S3 }