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

zooey

is
        mark:boolean;
! g/ Y; k! n( Q1 s8 }        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
* Y' d$ M+ J& }/ W4 @) e- t    machine,buf:object;
do
        current.eraselayer(1);
) H8 E; S& s5 ^. T3 q- C* H       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
2 R" c( V  P7 M. r4 E                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
7 w; b+ C6 D7 ^' @; a) _                        print"yes";
5 @. F. Z/ N9 E& |6 I9 v% v                when 32 then
                        print"no";
                else
' k3 ?; d6 E% k" d/ I  ^8 z% {5 W                        print"cancel";
                end;
' Q5 X) d; S7 M% H; E) V, E1 ?                eventcontroller.stop;
& G  j& z. J  ^7 k: d7 \, y5 M        end;
  J- S) B- Z0 ^- r, Y/ ?       
        for i:=1 to number_of_machine loop
2 j3 V7 J* d& ^9 w        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
* \+ S9 \: \) n        bufname:=sprint("BF",i);
        if existsobject(bufname) then
2 z  Y7 v6 L4 `  L) o                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
: \0 @# `8 m+ y# s: b        next;
* k# Y. K! C% D- K: e& Q       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 k' y3 s9 Z8 v' f& c                --mark:=false;
6 T. `1 {$ \9 h, W1 m9 E: j1 ^+ C: ]                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  d) o- [, [' h9 E- I' s* Z                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ f5 N) R& d( b2 ~6 h                        and activityspace[1,rows]<(1.05*y_max) then
; C2 e: w) @2 l; P0 `' @                        print activityspace[1,rows],",",activityspace[2,rows];
7 u7 ]. I6 K3 R                        ct:=activityspace[2,rows];
& }* L: N: x  K                        activityspace[2,rows]:=activityspace[1,rows];
- P" ?7 U2 j0 _7 N                        activityspace[1,rows]:=ct;
                        mark:=true;
3 G$ ~1 k% f/ y+ \7 C  j                        else*/
' B/ _3 P9 H5 K8 \                        y_max:=y_max+dy;
                        dx:=0;
0 E3 }2 O8 W9 Q2 u; c( {( U                dy:=0;
; ?* v$ a0 k" u, G7 s                        --end;
                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;
+ z7 P! V% \2 p' }5 G5 ?4 v; e/ Z            if activityspace[2,rows]>dy then
* m$ p; k: ~% q( c9 M# Z2 {/ |                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
: u3 _; d4 w" `  T' q$ q* T( J+ F                /*if mark=true then
3 L3 @: I# C3 n4 R( R$ ]& @                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
& ~% f5 j5 x  M* i, E1 U6 T/ j                        activityspace[1,rows]:=ct;
) p: n( r7 V4 y; Q/ p% m3 h                        end;*/
        next;
$ V( k2 [' X# {" o1 L) |+ l        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);
# k" Q' m  z6 {4 N+ l       
' m1 J2 M; I; p* @0 `" t        rows:=0;
0 _' c; F# u! `5 B        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
) I  |0 u, _' Q3 a                                d_from_to_chart[j,i]:=0;
                        else
& A" @% X4 e1 ^  M                                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;
. e$ C5 D- R5 G& R/ t        partstable.delete;
       
        for i:=1 to number_of_machine loop
9 M4 p" i: C6 K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 H* J# Z1 e% c3 Y$ K1 ?0 R! M8 i# F                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
" b9 |% o, j8 e- ^6 U                        if w_from_to_chart[j,rows]>0 then
; \$ y2 I- M/ W. j  V7 U2 T                        lines:=lines+1;
4 s: R  }( V$ n; w% ^                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; p( g0 @+ E$ \0 X# \/ n                        partstable[2,lines]:=w_from_to_chart[j,rows];
6 O& `/ {2 P% m' f! r6 I* D: W* q                        partstable[3,lines]:=sprint("parts");
9 p2 p" G* X" ?$ O, g1 W                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
4 e5 c$ X& l5 H; G. o) N                end;
        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]);
+ v( T5 R, k9 S) b8 ^        machine.name:=machinename;标识符未知
        machine.proctime:=5;
" B' H, z0 K+ e$ o1 ]        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
) `7 i  c4 ?$ O" D        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]);
* p+ Q) m& X. j+ q7 F/ ]# J, t4 B% t) K        buf.name:=bufname;
  k, C1 F1 y! i! f: h: w4 n        buf.capacity:=5000;
/ ^7 g, m1 Q- z& x# A        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
" h6 Z) Z' P2 b0 z5 N: `. E  q       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ X+ b6 B2 F) t6 a  S: Zdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
  [* l, H! A% e! \: e% Pcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
8 G' U. f' y9 m# U+ E0 Z5 Q. k5 lnext;
end;