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

zooey

is
  L1 l6 T: g* X, s7 N        mark:boolean;
) q6 U, `4 @( m. t/ c2 C0 [* _        dx,dy,ct:real;
) E6 b9 u& I- g8 a8 J    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
4 O) J: J( F( b$ j# S4 V2 s        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
( e" j& y7 v0 B5 B4 v4 H                inspect messagebox("设施数目不对！请核查...,",50,13)
6 Y, ~+ Q, l; j+ g" Q0 T                when 16 then
                        print"yes";
2 m( w6 @2 x5 E, S. l8 j5 m! v                when 32 then
6 n  ^& P& d9 W                        print"no";
                else
                        print"cancel";
                end;
; c* H- D, |1 l6 @; I+ O                eventcontroller.stop;
! w. d: [, ], j; K. P! T- o, K        end;
2 @6 t$ I; C  z( K, P  R       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
# F; p# o2 F% c7 T# y        if existsobject(machinename) then
( [  t5 N) z6 T# S                machine:=str_to_obj(machinename);
                machine.deleteobject;
& }. U- k2 \0 A8 _        end;
        bufname:=sprint("BF",i);
3 \" x: o9 A* c2 P# y        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
# n# `4 M& T& [$ b4 Y3 w# Q8 q                buf.deleteobject;
8 C! R  }+ {) N( Q5 z) ~        end;
        next;
# O0 `- U0 k: _7 P       
% H0 s2 `  k+ n# W/ ~        dx:=0;
  G* ~1 [- \) M1 t3 j2 h' N5 z6 K        dy:=0;
        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
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
' u, [- }. O1 T) S# {' F                        print activityspace[1,rows],",",activityspace[2,rows];
9 N) D; V7 u. |" b1 e                        ct:=activityspace[2,rows];
! p: C+ l1 A5 B2 M1 }3 |                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
. |5 a* z, w# B% F                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
0 Y/ {7 [  p& f                dy:=0;
% A/ N/ ^! g; h0 e  v+ C                        --end;
& M2 j0 x2 s: p! J3 _" I+ r3 J                end;
- T7 k. X( O, J# |                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;
) N0 X$ _; l! X) p/ B            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
1 S' K% [5 F) R                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
+ F/ a; Z/ ^5 }5 {$ a' Y. i                        activityspace[2,rows]:=activityspace[1,rows];
$ s+ W, g, w9 L1 H                        activityspace[1,rows]:=ct;
                        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);
8 W+ ^6 Q5 K/ 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);
       
        rows:=0;
        lines:=0;
3 F7 W) A5 m8 Z7 I( ]3 c; y& T        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
# @+ H9 e  {9 k7 V& C                                d_from_to_chart[j,i]:=0;
3 J. R1 Y) z7 {- H9 g+ }                        else
5 t" `9 e" z. {5 X! T& p; L* r1 L( C                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
" K9 I! T6 E7 |6 K                                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;
        next;
       
) F8 K* {. q# h6 Q; I        lines:=0;
        partstable.delete;
3 d/ f, x- w3 @0 g       
2 C* \3 |" s2 i1 N5 U6 ?7 O        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
; j' `9 W7 g9 f4 U9 u" ^9 c5 I8 `' q                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
  p8 @9 V& `5 f                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
! x- s# C6 O% }" c! ?$ ~3 i8 v5 U* k                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
) C) ], z& j, U  x4 X, B: I) u1 x3 f                end;
6 k7 R# }/ k$ v5 w0 |        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
: B$ G, ^5 u& w" e        machine.label:=activityspace[0,rows];
9 R) [! o! _1 j+ V7 Y, ~6 G        machine.exitctrl:=ref(leave);
' F; C2 ?- p8 _: U3 i2 r4 |       
        bufname:=sprint("BF",rows);
  G0 p/ k. u; v% T3 O        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;
% d% a( M3 p2 N3 B; Q        buf.capacity:=5000;
        buf.proctime:=0;
        .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;
* |; y# v6 `. z! `! m- ~- hcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
. W/ V$ `9 X4 U) e% ynext;
, D" Q+ E5 Z$ T% i" A9 ]end;
9 m6 Z) V  x+ n& _