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

zooey

is
        mark:boolean;
6 K' V1 }3 g# B6 p        dx,dy,ct:real;
    i,j,rows,lines:integer;
! \  s" S" N, y    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
3 N( ^6 f" c' x% r, t       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
0 P/ i9 q+ q" A: y* j                when 16 then
1 i2 ?' N, \% e' q' k! E* B                        print"yes";
0 t# @0 y, M7 M3 w/ d3 D$ M. M                when 32 then
+ S/ y5 `0 K+ d5 q8 I) k                        print"no";
! c  E( k4 i+ G4 C                else
                        print"cancel";
                end;
                eventcontroller.stop;
0 t  j3 H' `5 k" h) y+ j. D7 X7 `        end;
       
$ p) x2 `' _) v" y5 `2 `! ]; A        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
4 `6 M+ B  s+ `- `: U% K/ |        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
, _2 R. V# {$ S7 v, r        end;
. \$ g; ]+ g7 a% [9 V        bufname:=sprint("BF",i);
+ Q7 Z$ q* \8 s3 ]4 b+ g8 K: j        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
* P$ T  S: T- K        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
/ P' E1 S6 o4 G8 y% J, k# A9 u, n                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
% Z8 R7 `  f4 r$ r5 E                        and activityspace[1,rows]<(1.05*y_max) then
+ J5 {; z- N+ Y1 G                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" I& B% f# }/ ^8 o                        activityspace[1,rows]:=ct;
5 X1 V4 x6 H- B* ]) r                        mark:=true;
                        else*/
6 q6 X  c/ L( q5 V7 B- x- P! Z% C                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
, {" l6 c6 ^& A9 ~& O8 t                        --end;
, d# o% P" Q+ z6 ?                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
: b& ^0 ^0 d! Q4 q4 v                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
1 w+ R  C: l% A                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
- K2 i0 I* @8 \5 x+ i+ Y! x+ G                /*if mark=true then
                ct:=activityspace[2,rows];
2 d: R( \6 ?% s2 B% W                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
0 }5 Y& S1 ~6 t6 H                        end;*/
/ ^7 S+ L; v8 B$ W# R6 I$ u        next;
- s. R4 W8 o) F- l7 G' Z  v        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);
4 F# @) E- r+ 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);
8 f) M: E) Q( }: }* m* \       
        rows:=0;
% K9 l( _5 M+ E        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
  p: v* B( R* `! S( L6 m7 |4 P                                d_from_to_chart[j,i]:=0;
' K& C$ _& }  a                        else
8 o. _% v3 M1 D, k$ B, D' r                                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;
. F* R1 E1 S7 G7 q                next;
        next;
! Y: p; E  D0 r       
- Z3 ~  B0 z5 ?$ L& o) q" [& m3 i        lines:=0;
) ~' A  s* t' `1 b2 f; M5 o        partstable.delete;
       
        for i:=1 to number_of_machine loop
0 h' b  u$ d  ?# p+ h( r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' ~( a0 ^, Y; M5 d' d. M                machinesequence[2,i]:=rows;
, @# r! `+ L- h- E7 o, J  I- u# z                for j:=1 to number_of_machine loop
; L0 [( h/ D# m$ u                        if w_from_to_chart[j,rows]>0 then
: D/ F9 l( F) ~: W  _                        lines:=lines+1;
/ S0 b$ D/ d6 E0 y! n                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: n) u, r8 x* q/ h% U2 c6 r                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 s/ U8 p4 ]% m$ o                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
, j" I: W. K' D; C) R" K/ \* |; T                end;
        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]);
" G, M. L& p' K+ E. Q  O  {/ _/ I3 H        machine.name:=machinename;标识符未知
: @3 ?) X- l2 v( O! K8 _& O2 s        machine.proctime:=5;
: \) _9 g% u9 {2 R& p4 m1 d0 e        machine.label:=activityspace[0,rows];
- R& d/ a3 H: r) P& I; d2 J        machine.exitctrl:=ref(leave);
- p. ?4 r7 X7 L/ A7 n' L; z       
        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]);
: ^# N6 R0 ^. f; F        buf.name:=bufname;
3 X, D9 w& D# `& w        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
: i/ U! E. T# l0 D$ y        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);
4 E6 L- K, A+ @* _$ ^next;
( O' T; b$ l+ W. o5 d. @end;
( J, m7 P6 A# \