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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
1 \' o5 D! @* `+ x3 a, g! d( B" h    machinename,bufname:string;
    machine,buf:object;
3 a" `" M. L! w' ]8 ido
" }" G: M9 \/ Z# X: u# Y, o        current.eraselayer(1);
       
/ A  C% Z0 }# O+ a) f1 u, s3 \        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
' k6 F% d( g) s+ A5 O                when 16 then
2 M$ }5 N9 F) E& C5 p* h% ]# q- O                        print"yes";
                when 32 then
' S) S' Q7 P  z" u2 w" H. ^                        print"no";
                else
                        print"cancel";
                end;
% d7 ?7 ?% N( Z0 T- [% \8 n                eventcontroller.stop;
; h3 K* L/ S5 N        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
3 d: D: \) v# P7 k        end;
- T; u& O: ]+ _" k        bufname:=sprint("BF",i);
2 r% A4 V- T9 \$ ~7 H) Z5 K        if existsobject(bufname) then
8 p# a5 x& B. {- j+ U, W) B                buf:=str_to_obj(bufname);
                buf.deleteobject;
; k, i/ j' v6 x        end;
% _8 `* r) m% u1 g7 q& V8 \        next;
( ]. F' H4 l* K) x0 V; k  S       
        dx:=0;
( P8 G9 X& Q" c2 u& g! g. t        dy:=0;
/ X' f1 U; a' X; g  w( I        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
) l: J6 I$ V% R8 G' n3 }                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
/ w0 @- Q& V& G% l% Q' t; f                        and activityspace[1,rows]<(1.05*y_max) then
& ?! B7 {) f1 q# q& T, ?0 G                        print activityspace[1,rows],",",activityspace[2,rows];
+ T0 {7 h. ~: b9 y4 X$ ~& T                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
  S5 ~, S+ D. O                        y_max:=y_max+dy;
                        dx:=0;
$ S5 _3 w0 l- Z" l, }% N& q/ D6 L                dy:=0;
                        --end;
                end;
* `6 C: _: S2 \/ a  M                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
3 C! D+ I9 ?5 r- N  i+ ], S$ R                dx:=dx+activityspace[1,rows];
9 r) ?4 q7 i8 C; v2 N                /*if mark=true then
                ct:=activityspace[2,rows];
- ]" n1 `( T4 h% p- z9 R+ O                        activityspace[2,rows]:=activityspace[1,rows];
1 l  K7 l) `/ ]3 g! ~* \1 ~                        activityspace[1,rows]:=ct;
* |, y2 i, F3 }) M& s5 }; 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);
& z5 Q$ c  P4 A) W* S5 `; D3 A' m       
& z% F9 x1 w* c7 k        rows:=0;
# [+ y' U* b2 e7 C9 _2 R$ q$ O        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
. a' x3 b4 x( U6 f8 b; h  @& H- x# ]4 j                        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];
                                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;
2 U8 W) |  H6 M) F                next;
( i* n" G- w& c: \- h        next;
' C; Z0 r- n+ j7 Y# ^% S; q       
- {. i% i8 j. f& h) X        lines:=0;
        partstable.delete;
       
' K+ ]! E* U* a0 T) k5 ]        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" X( w2 _$ E& L* X' [; R                machinesequence[2,i]:=rows;
; h0 u% V1 i' d( l; {5 n3 w                for j:=1 to number_of_machine loop
3 z# k; N, W  d. h+ {: t' U5 [# M                        if w_from_to_chart[j,rows]>0 then
( m. P: D4 W( O  `                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
7 ^. p& ^* F. d2 I+ _: A/ w                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
8 Z- x. d; y3 U7 s4 K        next;
        machinename:=sprint("M",rows);
3 ]8 h$ S) F4 F2 n: ^        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;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
0 w: m' _1 ]. b" O2 z1 @% Q        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]);
1 F" g' U( j$ ]' ]+ g        buf.name:=bufname;
        buf.capacity:=5000;
) e$ p; s0 w/ }        buf.proctime:=0;
; u* T+ p0 y6 q6 y9 O' u        .materialflow.connector.connect(buf,machine);
- b; q5 g1 ~; Q3 G       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 Q! Q2 z$ p# c) N" y) Ady:=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;
9 Z$ ^7 L! O8 yend;
4 k% [, D8 o/ q  F( i9 d( I