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

zooey

is
        mark:boolean;
6 C$ d! Y3 Q4 z9 Z: j1 d9 M$ a' w        dx,dy,ct:real;
; K, o$ h6 f' Y4 D1 ^    i,j,rows,lines:integer;
$ V* `) B" }- J7 @* Z) i0 S    machinename,bufname:string;
1 o* w5 u# h5 C" G( U' S9 a# f4 T3 ^    machine,buf:object;
) V) B7 |  Y# M, w7 h4 G. \do
  p6 {' J- t9 [/ z& M6 a* h1 c5 M+ U        current.eraselayer(1);
# g  g: _2 n2 f1 c: _       
) l6 t/ P" k2 [: B        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
  G' B- \0 U/ y3 r* v9 Q                when 16 then
3 u) Z( x' g" }7 r& C: J                        print"yes";
, A* t/ y1 k" N                when 32 then
6 {0 M! C7 ]1 m                        print"no";
  p3 i  N" ^9 v* P1 n$ x; e# q                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
4 Z  s7 l, O3 a4 x( J       
        for i:=1 to number_of_machine loop
3 `5 y" [# R6 A5 g3 `$ C        machinename:=sprint("M",i);
9 E' z! T6 N/ T' e5 L# b+ J        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
% Q- M3 F, ]% }0 N' F* M        bufname:=sprint("BF",i);
5 w; A; t' g1 O" L- k9 o8 m2 q1 @        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
; {8 h  n' t/ K. A3 ]2 }                buf.deleteobject;
        end;
        next;
       
7 I% F/ q6 R/ f7 i& r        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" y$ K) `5 m* {                --mark:=false;
. q  C% o2 T* c: z                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];
                        ct:=activityspace[2,rows];
4 f/ k: t4 G# @& h; Q5 \                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 c4 A/ z% q, x0 L) u                        mark:=true;
' S1 l# L& H/ V% q7 Q                        else*/
                        y_max:=y_max+dy;
# |3 _% ]& v0 G' E% m; i! X4 Y                        dx:=0;
                dy:=0;
7 W  a7 p  o* P7 W' ?$ x                        --end;
- v/ o# t: @/ F4 R) H* |                end;
& k/ `% p( b1 e5 w8 c" @! r; _5 ~, T7 {                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;
                dx:=dx+activityspace[1,rows];
7 Z/ W2 r7 K) @) T, s$ x9 i                /*if mark=true then
                ct:=activityspace[2,rows];
3 b& V) Y3 H- V1 t$ M6 u                        activityspace[2,rows]:=activityspace[1,rows];
" U0 ]5 R* M% L                        activityspace[1,rows]:=ct;
                        end;*/
        next;
, u0 q. X0 s2 Y8 A; g- t* [5 B        y_max:=y_max+dy;
0 _' a3 f( |& ]7 }- z4 [        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);
6 P. [2 `# m2 G( C# y$ U7 ~% F       
# N3 G6 I1 U2 J) f2 S3 w/ \        rows:=0;
        lines:=0;
- c& B+ q6 Y* A0 w0 d& D1 W/ O- Z        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
% [) U2 t/ F* @) a                        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;
                next;
. Y9 v+ z9 {3 i        next;
       
        lines:=0;
        partstable.delete;
       
$ _" x5 u# P! t3 O7 f2 _        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 m/ z( _9 y% W7 C                machinesequence[2,i]:=rows;
; C( T2 D# D! V* C, R                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
0 ~# g, W2 @! X2 {6 |) B! J                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
% x8 z! Q7 b7 y                        partstable[2,lines]:=w_from_to_chart[j,rows];
- q5 X; H1 J8 h6 Y                        partstable[3,lines]:=sprint("parts");
) k7 g; W1 X3 [, e: n6 d! _. G0 F                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                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]);
/ t. \3 b; W+ h. |        machine.name:=machinename;标识符未知
3 s- n; ?. }( B/ k' y        machine.proctime:=5;
9 @& {$ a% s- G: u        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
" a$ d# L& T$ h) }3 k       
* e, L( W. M# q' {" x# H" x- G: v        bufname:=sprint("BF",rows);
' l' ]+ [2 u! E7 |0 ?" z        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;
! I% x$ _, V+ h" F  R) f- v+ V/ ]        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
0 v; Q) k3 K( z' U. E/ X        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);
next;
end;