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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
% G+ V5 C) g% w0 M  p    machinename,bufname:string;
    machine,buf:object;
do
        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)
$ c1 {  }) G8 P) V' _/ t) C& y                when 16 then
                        print"yes";
! q  e$ b2 j8 \  S% ^' d                when 32 then
3 u$ c2 k' Y% q+ ~: w                        print"no";
0 O! `$ C: L/ V                else
                        print"cancel";
( e8 t" ~( S6 j; n                end;
                eventcontroller.stop;
        end;
  {% G$ R6 Y% o& k2 F       
- v6 m- ~1 \  F# _        for i:=1 to number_of_machine loop
1 J+ P9 U" H: {2 K        machinename:=sprint("M",i);
        if existsobject(machinename) then
1 J1 F+ H" I5 x$ k4 v( v; m                machine:=str_to_obj(machinename);
3 d6 z( d& \6 d2 D7 G/ G4 n                machine.deleteobject;
1 Q1 ^* x3 h9 J7 y, p+ [& V. ^        end;
- ~& m* g; {2 X, `) ~$ x3 _8 x        bufname:=sprint("BF",i);
! Q) v- k- B( b        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
9 x" v% u% Z3 f/ L8 z9 Z                buf.deleteobject;
8 Y% t6 ^) R, Y! N! `        end;
        next;
  E7 Y- U- m$ g; I3 E       
        dx:=0;
        dy:=0;
, S7 D/ C' i. h: h1 [1 x; q        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
' `+ h. i; x+ v: }1 e                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
% F: Z, _4 c* t                then
3 Z# Z" B! ^' Q6 ?9 p% {, u) V                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
8 [4 ?# b: y; v9 z                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# \/ n- Z$ W/ n! s3 Z: a                        activityspace[1,rows]:=ct;
                        mark:=true;
% L, t8 @( @/ w6 w# K9 u                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
2 `2 {" W* c1 W% X( Y* j1 f                        --end;
5 r6 n9 ~0 o# s$ {                end;
. a! u5 O7 L% K                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
/ A$ S+ q2 N5 o, q                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
: Y9 e' T: h5 W! M' ^9 X# @2 c            if activityspace[2,rows]>dy then
3 Q  l: [$ t5 v/ R5 n                        dy:=activityspace[2,rows];
                end;
4 K7 n0 X1 m: d& c                dx:=dx+activityspace[1,rows];
9 ]: K0 K& ^0 S7 o' N- V                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
5 U% g8 `" u$ N) D  M. M                        end;*/
        next;
# s+ q* J  F2 ^        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);
# p, I4 o5 l4 n        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);
       
3 Y1 z8 k& h- w8 q        rows:=0;
# F% o2 K9 I4 H        lines:=0;
        for i:=1 to number_of_machine loop
" c$ d$ e& j& b  z! @' P  J0 C: W                for j:=1 to number_of_machine loop
+ o# s7 F7 u( h( \  s' ~/ X                        if j=i then
+ l7 q. o9 T: w                                d_from_to_chart[j,i]:=0;
& ]2 L) \/ g' R7 j! T& m' Q/ H                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: O: I- v" b5 c/ F' l% |                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
, q6 t& p( `3 r# i7 s5 b                                d_from_to_chart[j,i]:=abs(dx-dy);
, a6 _2 S7 p6 K1 G+ x                        end;
                next;
; n% H# l: S0 S" w9 o1 A! D6 D        next;
       
        lines:=0;
        partstable.delete;
) q) I) \, [9 Q       
% Y; ?8 G5 h6 }        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
; }& g9 t; }3 w7 @, e# z$ a                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
. u( f2 r. x! R' d0 a* a# l6 ^; V                        lines:=lines+1;
6 }+ B, v3 W+ T) H; [                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
/ e) x7 W8 S' t! n7 @. i3 ~* X' A                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
3 {% u4 @" I: @                        partstable[6,lines]:=j;
: a6 d! r$ P/ o4 [6 s$ B( Z                end;
( O$ X5 E2 y+ w6 \6 r' 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]);
7 R. b+ `  I4 ]4 w% s: ~) @- F        machine.name:=machinename;标识符未知
9 I" L) S2 |8 N        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
" V5 B1 ^! z* h. A' k) J. G* R- a        machine.exitctrl:=ref(leave);
; `: ~! f2 k8 U' T  k' K8 I       
4 p. {1 Q& X, D  i& e0 [        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]);
! A  h1 A2 K7 j4 d+ ^6 r7 R        buf.name:=bufname;
" {( P. C7 k5 e& D) L) H) P* k, D        buf.capacity:=5000;
; i1 H* Y  Y- t        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
' y( z  {2 C/ E9 U2 K$ \: F2 t       
2 K- [! F% V: p0 J        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ Z/ E8 b! l# i% \9 E, ~6 |dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
! U0 y8 M+ U* I9 A$ M, p+ Mcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;