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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
4 j& {1 ]5 v/ Y! O3 J% p: @        current.eraselayer(1);
# T. q! U7 M" P9 N* c- ?! S8 @, }8 n       
4 b) |8 _* N1 @2 S% S5 B# b, \        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
* X( a- o1 o% j; O  z' G. c                when 16 then
                        print"yes";
# `7 f% M7 w6 c: K: k! Z                when 32 then
2 t! ^2 L. l/ R: D4 K+ \9 E7 Z                        print"no";
1 a; d2 B2 Y5 z9 I- v                else
  T' `$ O2 x6 {  C/ \5 z: O                        print"cancel";
% Z4 D( w" F/ W  U4 r2 s! s. D, w+ T                end;
                eventcontroller.stop;
3 M9 Y' f. F: R        end;
       
* I1 ^5 r( ^$ [' e7 |1 T        for i:=1 to number_of_machine loop
: K& Q0 d& t6 c1 u+ F0 E        machinename:=sprint("M",i);
        if existsobject(machinename) then
, C  D3 d- j& e1 C+ Q- a: B4 b" D                machine:=str_to_obj(machinename);
2 ~3 Z8 o: ]* q* l  b                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
( b# {. [9 @" x# N, o# s$ ]& t! ~. k4 V        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
$ E' ]$ ~4 o6 O  Q) }( X        end;
( o; `* T* o3 f' |        next;
/ _, A3 g$ y  G* c' d       
' k* d$ c7 V3 m5 ]3 t8 S8 f        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
; m0 T7 |( h: B* B                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];
, }" ?9 U& ]6 v1 Q/ C                        ct:=activityspace[2,rows];
* K8 d0 o& q! ^- _                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
/ [, i# p% r- j3 x  |                        dx:=0;
  _. t! [% Q) R6 I7 z. E' |                dy:=0;
# W8 x4 h" X" j3 n0 S! n                        --end;
0 v& D  L* y: `$ z: v                end;
& v  W& _1 h  p5 r$ `                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;
4 K$ Q1 U" u9 {            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
, Q* D8 y+ `7 F                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
1 I+ x% A# c5 R, A1 ~0 ]  H                        activityspace[2,rows]:=activityspace[1,rows];
- z7 X# z3 ^. n' W                        activityspace[1,rows]:=ct;
: c; F8 @0 ^& K' t+ |: q                        end;*/
        next;
5 ?# h) c, N* K4 `; R  q4 }3 g8 a        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);
: W  L! `, F' j9 z9 ]) ]6 Q       
' j; O9 g& B* ^; H3 s3 k        rows:=0;
; m0 e7 u6 B3 f( d. B/ q        lines:=0;
% l8 a8 b0 C4 }, t1 `+ u# s        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
& o$ F7 S) o3 k3 }# ^6 P; \- h: x                        if j=i then
) u3 }# D3 @$ [" q8 m* g                                d_from_to_chart[j,i]:=0;
1 u4 R( {8 o! Y6 n) q                        else
4 k; P  X$ h- u/ C3 O+ L( D                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
/ z* c" \' h* [' I8 K                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
0 ^/ S9 a0 G2 u                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
( k! l+ M; V3 h' n: [8 j9 m0 ^                next;
% J3 g* Z7 Y# M7 H        next;
6 x7 z8 u" z- u0 I0 G       
        lines:=0;
        partstable.delete;
6 O! x7 L+ `1 F9 K0 g, L; f$ U- u       
$ U" d6 R& V1 h+ o- ~        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* C, s: g& R- O# ^6 j& }1 q& `                machinesequence[2,i]:=rows;
0 _: N5 ^( ?, ]5 z/ G$ T" j. s                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
5 ~% @2 X8 U% i" Y9 G                        lines:=lines+1;
' E: p# a. K* m. F& |                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 f) ?9 C: D2 a2 Z1 m                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
9 F) i1 X: h' a) l; I! P        machinename:=sprint("M",rows);
2 Q- w, m! ~, X; [. ?        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]);
! _! Q5 U$ T5 b& p- e1 [        machine.name:=machinename;标识符未知
9 q4 B0 G( W' M7 J, T        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
, q! d: @, T4 I8 e% V# q: h        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]);
1 _  m/ c/ G, `( T! Q. ~8 x        buf.name:=bufname;
3 L! m: ?$ [8 b4 G$ R: f6 u& W) g        buf.capacity:=5000;
        buf.proctime:=0;
7 Z1 `9 G/ j$ U) ?$ O4 x( T, e        .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;
' [- m9 k% e% S3 m0 }( v, Xcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;