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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
! P# K, |* T0 W9 T; F    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
  B# j$ k9 w) V8 Y2 Pdo
        current.eraselayer(1);
" g, S7 U+ R; w( t9 V( }/ C       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
" |; S0 D$ P. X& V, k                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
* e, n* x) o2 ]8 ?; F( e3 Q* F                        print"yes";
                when 32 then
8 w. h' q: z5 y# J' x$ w                        print"no";
                else
7 Y) X$ A0 u) D4 u6 F                        print"cancel";
                end;
  g3 I0 a( w2 K8 l4 S) C                eventcontroller.stop;
4 S) u+ t& E, T/ ?) ~  T" ^; a        end;
" G1 G; h8 i$ c! B# m       
2 I! C- ^, ~% M9 E: |0 |        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
" A" T( {: ~! a6 t* {        if existsobject(machinename) then
& }3 w# Y$ V$ K/ W7 U9 |8 @% L                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
+ H& f; \+ T; C# F1 ?& ?, }        if existsobject(bufname) then
- h$ V2 y# P6 s; O4 e                buf:=str_to_obj(bufname);
3 y, \; b' A( x8 U% ?! S                buf.deleteobject;
        end;
2 a5 X' D. X7 s        next;
3 w3 p$ V' T' w$ t, \3 M       
        dx:=0;
( S3 u( ?7 A! d. w* e5 W3 r        dy:=0;
; I1 n4 E- F5 k7 h2 z6 x        for i:=1 to number_of_machine loop
( h2 d- _; ?+ c9 D                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ k9 h& [7 [. v! S8 q# Z                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! c& A9 e7 L/ Q0 h* H                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ S4 ^) _4 U- Y4 F                        and activityspace[1,rows]<(1.05*y_max) then
9 l0 D& Y" k' X* q                        print activityspace[1,rows],",",activityspace[2,rows];
4 j) V$ }% m5 y1 I1 ~                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
  V, _/ k0 l# Q& x% ]( ]0 ^                        mark:=true;
7 ~1 V) s' a4 m3 \  Q                        else*/
                        y_max:=y_max+dy;
# G* P6 y5 q# a) S; j                        dx:=0;
                dy:=0;
: v9 X. S* o/ i- J, K) G1 D                        --end;
                end;
9 o( }- W7 T5 t8 R7 j. t2 [                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) e8 w. o2 u  h, B7 s                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
% K$ o; e% u& a1 _# f            if activityspace[2,rows]>dy then
) A3 t9 ]. j. Q; E                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
1 F1 y$ l/ y2 z8 l                ct:=activityspace[2,rows];
+ v' ^& M0 Y. U                        activityspace[2,rows]:=activityspace[1,rows];
8 u' a, m' \9 Z8 F1 A. P                        activityspace[1,rows]:=ct;
: g2 m$ P% Z) p; F1 I                        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);
        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);
1 a7 R( H" \* p5 ]7 R       
" b9 c2 ^2 x. }' O        rows:=0;
% ]9 d4 m( [4 Y$ R$ t, R        lines:=0;
9 R: m5 k6 \# t& Z  S        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
% }0 K; S# b: G- Y' d7 V                        if j=i then
3 r/ I" h! j) V% [3 S7 }                                d_from_to_chart[j,i]:=0;
& K4 b5 `& Z3 E0 a" H% T5 M                        else
                                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];
7 {0 E+ y  C( U                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
8 o3 @7 ~+ r4 U  j: o+ W) I                next;
        next;
       
        lines:=0;
        partstable.delete;
& P$ w" M7 o0 B       
8 b0 @2 V) o8 O' {9 V6 `- j        for i:=1 to number_of_machine loop
3 v/ N3 n) z$ G0 L! w                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
  G; Q+ m, t: a; n8 X- i                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
  o. K' D$ ^  a9 X; V0 y                        partstable[3,lines]:=sprint("parts");
# L: I8 q5 T9 K# Y% v                        partstable[5,lines]:=rows;
: y9 H9 X$ E! |2 w. V% v: o' [                        partstable[6,lines]:=j;
6 ^1 H7 A) G' J8 V: A                end;
: c+ L( {% v3 o6 L2 {, Z5 ?/ w1 v        next;
1 m# ?: }: _, g        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;标识符未知
. D2 w7 r. E4 c9 u# j        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
/ z# ^1 r+ F& S        machine.exitctrl:=ref(leave);
8 B( J3 ]1 V, C       
$ Y  w1 M' T) C* T0 ^3 K7 n, ^        bufname:=sprint("BF",rows);
! t6 O. w2 m0 K6 [. Z        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]);
: ^" S( w: r0 [/ c( W        buf.name:=bufname;
6 \( M% l0 j" }7 |6 Q, H        buf.capacity:=5000;
; b& r5 B; m* z( v3 ~  _2 Q7 w        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
' t9 v8 z- l- J% i& v  u       
6 E  w7 i4 w/ \        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
1 K2 j4 c7 Q/ E  R; P# D( xdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
' Y3 B7 |/ g7 }2 a/ g5 Tcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
1 ]7 x9 J% Z0 D/ j' hnext;
0 O- i+ b; t7 y8 p  p/ F# [end;
1 C& U! m; y6 n9 C- n& p7 u, P% |