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

zooey

is
        mark:boolean;
7 J; @: C$ ?# p! H! e        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
2 t+ Y7 O; G6 ]2 q    machine,buf:object;
do
, `+ \  o7 g4 Z1 k4 P" T        current.eraselayer(1);
6 n6 e1 s/ B+ ^       
! T, B' X# m6 [  T$ y* j        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 j/ F7 f( B4 D/ K# W2 B# y6 V                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
! T$ W4 R. S! O* P0 ?0 x                        print"yes";
- i7 J3 v1 _' A1 i0 j8 r% }                when 32 then
                        print"no";
                else
6 i' T5 t4 a. W                        print"cancel";
2 E9 }) h3 C! [9 [                end;
                eventcontroller.stop;
; E3 ^" t/ R$ Q" Y( X& \        end;
       
        for i:=1 to number_of_machine loop
" r7 L+ O. b2 \1 o( P        machinename:=sprint("M",i);
        if existsobject(machinename) then
6 G  ~! [* l4 X+ h- q" s& Y. s                machine:=str_to_obj(machinename);
/ A7 D! g0 R# Z# P) I                machine.deleteobject;
. I0 m; F! H! e2 x$ J* p4 u- x) Y        end;
* N7 F0 h7 a0 w4 p( o% c        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
) L# B2 y( z5 \- g+ b% I+ l        for i:=1 to number_of_machine loop
( ]! W+ v/ |4 ?! D2 r6 S                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]
% _- T1 O9 R4 k/ ~+ g) L                        and activityspace[1,rows]<(1.05*y_max) then
9 I2 K  {) {' i; g                        print activityspace[1,rows],",",activityspace[2,rows];
% R( Q2 X% S) l& v: I                        ct:=activityspace[2,rows];
' W- l% H+ S- U1 X+ Z3 @                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
/ r6 A! r( N( D, n2 w2 ~) T                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
0 L+ G8 [4 V7 G- g1 ~. E: F                        dx:=0;
                dy:=0;
                        --end;
                end;
6 ~3 x0 \- `' v                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
# k. w; Q# i: Z& k  V                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];
9 R  ~/ G, }5 `2 w; T6 p, n# y                end;
* k( o. _# i( F5 j                dx:=dx+activityspace[1,rows];
                /*if mark=true then
# O7 ~2 F& J) d4 q; k                ct:=activityspace[2,rows];
$ K$ @2 C7 u& O; s3 c) y# y                        activityspace[2,rows]:=activityspace[1,rows];
: f/ S( }8 q  N$ w                        activityspace[1,rows]:=ct;
                        end;*/
: a2 u; h( z0 K/ o* ^9 x        next;
1 |6 \) Z/ p0 F/ h, [        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);
       
# E( e1 X- s8 j2 U        rows:=0;
- B. G% ]) \& t        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
/ r/ r8 E+ z4 I! M; A                        if j=i then
                                d_from_to_chart[j,i]:=0;
; x: X& O  [" R1 A, T- W                        else
* c8 Y2 X4 y# W. H* e6 [' J0 t1 j                                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;
        next;
       
        lines:=0;
2 Z1 i+ ^1 C% Z6 n        partstable.delete;
$ T9 f+ N2 S7 C- S- c       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 ]$ K$ U; X( @! s! G% s                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
- ]2 N" ^5 Y4 V) H3 }2 n3 ~                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
  s- Y/ q! A+ H7 t4 k                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
3 _* `3 d+ O' Q1 }4 C) S) R! P8 l/ n                end;
        next;
* s4 Z4 x  d& l- `' P5 t        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;
- [% H- D* i' f4 h$ B4 a        machine.label:=activityspace[0,rows];
" T9 ~" n0 \1 j0 |        machine.exitctrl:=ref(leave);
       
$ }' g1 `8 z# _/ i* i        bufname:=sprint("BF",rows);
, Y, D- d9 C3 ]3 j6 M! 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" V0 C( Q$ b- K$ z1 ~' x( {        buf.name:=bufname;
        buf.capacity:=5000;
) X' X" D9 j, ?5 G8 U        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
; V# W4 t5 @, r2 c( W9 D        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
% z% d7 K( n7 q0 L6 u6 E* Vdy:=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;
$ C1 N% Q7 M; C/ F+ m0 p( m' eend;