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

zooey

is
4 x! `1 r' u* h  g0 M, R6 z        mark:boolean;
( d! P1 u& E% A$ }6 ?0 R2 T        dx,dy,ct:real;
. X: H' M- K4 K# a7 k3 D$ G    i,j,rows,lines:integer;
    machinename,bufname:string;
$ r' ]. L  t3 |7 B. d7 ]    machine,buf:object;
do
        current.eraselayer(1);
# H' t6 M* G, q  ~/ `: g       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. a' b; O& y3 ?6 ?3 `& Q- ?; T                inspect messagebox("设施数目不对！请核查...,",50,13)
& q5 G: C6 P6 P% F2 I! r                when 16 then
                        print"yes";
                when 32 then
3 g$ J. O8 g* Q2 {" ~# r, @                        print"no";
                else
                        print"cancel";
                end;
5 Q6 |/ ?2 c( }* s8 U                eventcontroller.stop;
        end;
       
  e. @9 P) y, h8 p% P: S        for i:=1 to number_of_machine loop
, f: p% W9 y- [5 |' i        machinename:=sprint("M",i);
# O7 D# V4 l5 k9 M' z        if existsobject(machinename) then
) B' v4 Z/ x% j% _: o" O                machine:=str_to_obj(machinename);
                machine.deleteobject;
$ V2 J3 t* x8 v        end;
% O" }  u- c. u$ I0 b/ @        bufname:=sprint("BF",i);
        if existsobject(bufname) then
( z9 u) ~  [/ p                buf:=str_to_obj(bufname);
! e% A; b# H, S6 L' E                buf.deleteobject;
4 `9 \/ k; z& M' N& {3 n- g        end;
        next;
" E+ e0 H( X& ~       
7 j2 J; v+ `, N        dx:=0;
        dy:=0;
% B3 J4 ]* C) n. Q        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
6 f- d* P% e  }5 b5 u3 V                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
0 s. D8 M/ x  ~. h; P, ]                        /*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];
                        activityspace[2,rows]:=activityspace[1,rows];
; e9 B: G/ J. Y9 _6 P  N                        activityspace[1,rows]:=ct;
$ Y) {. y' I5 h                        mark:=true;
% D( ]4 i( I  y                        else*/
& i( }$ O! A- T                        y_max:=y_max+dy;
$ r& X! L' Z7 q  a. k% s                        dx:=0;
# x9 e- A, G1 a: `4 M* K                dy:=0;
                        --end;
                end;
" k5 ?3 [: k7 g6 b* o                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 S. ~9 J4 p1 e5 B" P                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
4 o+ G- P3 c1 Z            if activityspace[2,rows]>dy then
  Z& k! V3 ^' U( D8 V$ b9 x# \                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
; L0 f2 {4 I: {: w                /*if mark=true then
8 r9 @* {; e; n! ]4 q5 r                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. t* O# ^! k1 O  k2 U: u                        activityspace[1,rows]:=ct;
4 O- D! U) }! \; n: B                        end;*/
        next;
        y_max:=y_max+dy;
$ @0 L/ {1 v- I0 y        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);
       
4 [$ h+ m3 M$ m$ a7 B8 p        rows:=0;
( g9 P; F: i' a7 T/ y' w0 K1 R        lines:=0;
; Y, W  X# {3 P% [8 P0 e5 \        for i:=1 to number_of_machine loop
& \2 y* y, y' r, P! W. N6 \' l                for j:=1 to number_of_machine loop
2 B: P- h& u$ z5 l5 y                        if j=i then
( ~6 J. Q* u, Z6 z' m8 p$ H                                d_from_to_chart[j,i]:=0;
                        else
: `, m! k5 l! L4 y1 I                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
, P2 l. j1 K: o! Y8 a  R9 ~9 @+ e                                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;
* N2 W3 Q# y- M6 ~* B       
        lines:=0;
        partstable.delete;
       
7 s5 _: k1 U5 C5 I: y        for i:=1 to number_of_machine loop
5 Q# B! M; Q! S: ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
. G# t+ p' S4 @" z% K                        if w_from_to_chart[j,rows]>0 then
' Z& [. _* J" G  S$ B9 b) Q. }" I4 B1 e                        lines:=lines+1;
* [/ H: d2 M) o/ y! ^4 C' i                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
" e4 {3 S  G$ |* a. j' s                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
, q9 [" S7 w+ v* @: m. M        next;
        machinename:=sprint("M",rows);
5 f1 U% `3 H4 m, c/ ]0 v- ^1 R        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;
. ]/ m. E/ q0 p# K8 f$ c+ O' M        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
* |% R) o( p5 v       
        bufname:=sprint("BF",rows);
! c. Y3 W- x$ Q" V' b% k        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]);
& q: m1 }, `$ D7 J9 M        buf.name:=bufname;
, h7 T. `- l) X        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;
% B3 S' R! S* M) I# h& Mdy:=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);
, H/ O( A' z/ knext;
end;