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

zooey

is
        mark:boolean;
5 s/ J5 u7 `3 z3 S        dx,dy,ct:real;
7 O1 Y0 E* Q& k/ O! c5 F* {    i,j,rows,lines:integer;
$ k( Y- p- Q! G9 W. v2 Q) r6 X    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
7 Z1 @. f7 S/ p$ F; C: X: j       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
- R  ^" t  q( o& P- g                        print"yes";
                when 32 then
- S8 h8 D3 W$ @  d                        print"no";
1 `# R* n) B( u0 X+ h                else
& O2 ]1 Q4 H3 u, L  o                        print"cancel";
9 ^! ?5 `4 v# H' ]                end;
* k; c% _8 T/ W+ O/ S                eventcontroller.stop;
8 N5 w5 L, e! j% l( O8 t- h        end;
3 k$ R/ M; @# O8 E- p0 ^       
) ?( R* H+ E' ~9 z: x+ N        for i:=1 to number_of_machine loop
% B% w, X0 j# ~, T        machinename:=sprint("M",i);
        if existsobject(machinename) then
, p% c& a# R: T. ?: J                machine:=str_to_obj(machinename);
5 n. z+ C8 B2 N0 q/ B0 L- G. z                machine.deleteobject;
        end;
, {& a+ d5 {1 E) k        bufname:=sprint("BF",i);
        if existsobject(bufname) then
1 C1 ]5 \1 C" a+ ~0 S# [. e3 }5 s+ A  \/ Y                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
* d5 y* C) w5 n! K        dx:=0;
' R4 R: Q6 i! \& B        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" w( a: a2 M: m+ f2 S                --mark:=false;
; M. U$ _1 D$ X# z) I                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
! n+ C$ E6 J" |7 P" D4 y                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
, _* t7 G# A$ N+ ?                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
. U4 v) M% `  f                        mark:=true;
; k1 K( h; k$ }. O9 H                        else*/
                        y_max:=y_max+dy;
7 M. r' K+ t( v1 H& m# f! e! g0 I                        dx:=0;
                dy:=0;
* h8 d9 w  ~: Y0 Z  n7 d7 d. Y: u0 f; |& [                        --end;
1 F7 I2 ]9 u; B7 P' I# `7 s0 w" i  \                end;
                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;
; ?+ i7 L2 ^1 U! Y  j1 L# W4 d            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
, C4 z9 v. H; G                end;
                dx:=dx+activityspace[1,rows];
' h! G4 B0 C, Z8 [6 M! Q4 e                /*if mark=true then
                ct:=activityspace[2,rows];
) B5 c2 K" i5 t7 i# m- O- t                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
' Q( `4 x/ ?  C, E2 `0 H" a* |        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);
' B! @3 _. k3 a, f! G+ M6 m1 U7 T       
0 P. g8 P# @" v3 L+ b9 d0 _5 U0 s        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
) }" B! _# I. Y2 [' \4 _# T                for j:=1 to number_of_machine loop
5 M8 {. E) R! D1 r                        if j=i then
( l; j& G% X- x  X! L. Q( g                                d_from_to_chart[j,i]:=0;
: c, h4 j- O9 U* t! Z( S" M                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
) d* H, C6 I: G9 [% f6 j6 [) y2 l                                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;
& I# `, L" n+ K) a& G/ a                next;
: q! B) m0 q3 t1 f        next;
       
; W/ p3 w" f$ X0 K- g6 g% g. D# h0 ~0 C        lines:=0;
9 m8 I, ?6 }+ N2 X; [, p        partstable.delete;
8 Q# {" b1 ]* z' z8 Z       
        for i:=1 to number_of_machine loop
! X/ y- A- u3 q# w# k9 Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
% V7 f- c  n+ F$ W7 [                for j:=1 to number_of_machine loop
( C$ u  n: q" }/ p; I                        if w_from_to_chart[j,rows]>0 then
- O, p. W: z0 F+ R$ t; a2 J$ D4 E# b                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
, G3 q" B) m* a1 l, V9 O                end;
# q5 F- g; K3 @* ~# I* A1 w, G        next;
& k$ z- Q1 T4 L" S# K, e$ A8 p        machinename:=sprint("M",rows);
5 h3 k$ l* t$ X: K' Z        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];
# k/ A# \4 v% A& j& {        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]);
5 X, H3 T* C( X# f9 b) s        buf.name:=bufname;
' q1 @# W9 K3 ~) V        buf.capacity:=5000;
        buf.proctime:=0;
1 N3 r& a9 x+ r        .materialflow.connector.connect(buf,machine);
       
6 H/ S0 j( r7 \# a" @  ^6 S        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;
% B7 s- f" i. Y* L& ^( c/ |  S  m* uend;
1 Y1 R1 ?6 u' ?" _- i