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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
5 ~6 i0 C. b6 ]- j. k$ T    i,j,rows,lines:integer;
7 u7 U4 L5 |' I( f3 O8 @    machinename,bufname:string;
  R$ K( S! {! W9 y6 A1 V    machine,buf:object;
# t# ?$ f' E7 x4 Q; r0 U& }do
        current.eraselayer(1);
. Z! L! z  d, ]$ @) ^       
        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
                        print"yes";
                when 32 then
                        print"no";
. M# _3 _! ^  Q( |                else
0 o' L3 ~9 I# D* |                        print"cancel";
- }- @3 w" U" S                end;
+ ]; [# E6 R) ^! M                eventcontroller.stop;
        end;
       
- Q- [5 r* j3 J" @( w* Z        for i:=1 to number_of_machine loop
  U4 ?$ K6 R: Y( ~5 r        machinename:=sprint("M",i);
* Z2 ]9 i* ?: X1 D6 b0 H        if existsobject(machinename) then
4 J/ x6 J9 b* }/ r$ l8 I$ O                machine:=str_to_obj(machinename);
- _/ a3 |. f) s% ?8 I                machine.deleteobject;
        end;
9 H( x: t- N# E        bufname:=sprint("BF",i);
& x) S; V6 ~1 h; I4 |        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
, e6 q' J9 h5 r        end;
        next;
       
        dx:=0;
" X; ]6 x6 w& G3 P" X: r        dy:=0;
: [9 [. x& F; e5 `        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
' T" j% m, g7 s8 R                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
0 Q! g$ Q* ]! W/ t/ ^2 g; W1 [  ~                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
& H& h3 f: I& W) K                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
+ v) t! E9 e8 m" `" D4 R                        dx:=0;
8 \! d' I' M# N( J1 I& U. k* m                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 r& f$ @. z7 ^+ ~# W) N- G                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
( B. a1 f, u, F: x6 V3 S( [' |            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
1 m& h! i2 C; W                end;
% _) _' V, o4 T; Q                dx:=dx+activityspace[1,rows];
' u' M5 v$ d5 @$ `5 h! \2 ~                /*if mark=true then
                ct:=activityspace[2,rows];
  x; z4 F, m+ _' a                        activityspace[2,rows]:=activityspace[1,rows];
" F0 \. p, n3 ?) u                        activityspace[1,rows]:=ct;
                        end;*/
        next;
: o; }% e  h' v! O* u1 Q; S        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);
4 r) g! V! V. g, i( f5 ~        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);
3 C8 J/ N' a$ G5 F3 q4 l       
        rows:=0;
: s* t0 W) w) M  N1 ?$ ^        lines:=0;
! I) L: P) ~  H* \. m5 h, f        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
0 p0 _& |' ~# N$ z                                d_from_to_chart[j,i]:=0;
$ ~( \$ z' E# A! ^                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
3 u8 y2 M( r2 ~! d2 n5 n                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
8 @3 M# E& G+ q/ |1 |                                d_from_to_chart[j,i]:=abs(dx-dy);
9 W( e! w; n8 ?' F3 T! M% Y                        end;
                next;
        next;
       
        lines:=0;
/ U% f9 J# O$ N        partstable.delete;
       
+ G' _. J( J, ~; L7 O# f! n- {        for i:=1 to number_of_machine loop
9 Z* w9 ?: s9 N) w9 @) b$ x                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! u4 p  R% L# K$ \2 [  Y                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
. N9 N+ ~7 h( ]* ?; b                        if w_from_to_chart[j,rows]>0 then
+ W- Y  E7 K6 f# v, 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");
; y* ^4 O; j: E8 a* z+ M                        partstable[5,lines]:=rows;
1 c0 o9 z$ a4 @% o                        partstable[6,lines]:=j;
                end;
! X! l" Z% v7 I. {) x        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]);
+ d8 b4 i7 i& v, @9 f4 v; b        machine.name:=machinename;标识符未知
        machine.proctime:=5;
/ Z) k3 W" T# {" t; {        machine.label:=activityspace[0,rows];
& a, D. @' G  o2 S: N. B5 ^        machine.exitctrl:=ref(leave);
. A/ _# V' S1 K2 Y4 A* m& j       
        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]);
* C0 \4 S6 C" ]  Y  ^& }. o3 D9 L9 g        buf.name:=bufname;
! W- J* A6 E) q8 g0 l+ F        buf.capacity:=5000;
        buf.proctime:=0;
& R* _+ P. g# P3 {2 \& S( }, y        .materialflow.connector.connect(buf,machine);
       
% E6 U% l3 q. v9 h        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
5 W8 x2 O2 V5 {5 J: _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);
- `) y4 `8 F, ]$ l$ knext;
. Z. P. D/ h4 A+ Dend;
  _4 T2 T- ~, V* t