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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
: T5 Z# U3 v3 d0 f    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
# g* I; Q! c& V9 ]3 tdo
8 ?6 a3 w8 k, ?% E" A        current.eraselayer(1);
9 ?9 ]) _3 r% A4 c4 i) P) E       
9 }# K# _" X: w9 ^4 k        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* Q: B2 c, h; P3 {( u                inspect messagebox("设施数目不对！请核查...,",50,13)
# u- S6 Z. x( P0 E" j) y                when 16 then
                        print"yes";
$ t6 V+ ~7 [/ x2 {                when 32 then
3 i8 B2 W1 r  R                        print"no";
! k* c% Z% V6 e                else
8 n. ]* x; _( x% q# L                        print"cancel";
                end;
% U; Z# P0 o" e1 l1 \. V                eventcontroller.stop;
        end;
; d( d; b# z6 V% f; c% k# _0 d       
( o" J; `6 _! C2 r0 K$ {8 d5 W# L        for i:=1 to number_of_machine loop
; c$ H. b8 L1 _5 z& _        machinename:=sprint("M",i);
; o1 h8 B/ h, k) P5 S! j$ y        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
* [: C- z. H' W7 W0 n        end;
        bufname:=sprint("BF",i);
9 r# U9 K  [" D) Z, U+ q        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
/ ?2 \/ T& i2 W8 V. O) L- f3 E        end;
        next;
) Y8 e- J% q( Q' c+ G; @       
! i! t; i4 m2 C+ x        dx:=0;
+ n1 F9 ]+ i/ m/ k; a2 @# ]2 |  N- a        dy:=0;
        for i:=1 to number_of_machine loop
3 w3 U/ C4 u8 Z6 }$ T2 }( p/ o                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
! G( ?* `% N# v4 G                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  o: E; p( X% s& ?                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
; `5 V% Y$ y, Z; K! K) e2 H                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- t8 p5 m. @& f! G8 i- a                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
4 ]0 I! T* T0 F: {6 t" z                        dx:=0;
9 i$ \" ]5 y; p! x+ n% f- Z  B                dy:=0;
                        --end;
                end;
. t) r6 E" ]4 Q9 X                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;
            if activityspace[2,rows]>dy then
0 B! m2 j# |9 K  i2 @                        dy:=activityspace[2,rows];
                end;
$ F8 B7 F5 {/ K, e# M. F                dx:=dx+activityspace[1,rows];
9 g# i& g8 E3 s0 ]                /*if mark=true then
                ct:=activityspace[2,rows];
( x" l- G4 K) l                        activityspace[2,rows]:=activityspace[1,rows];
1 p* J" e; j' |' S6 ^0 ?                        activityspace[1,rows]:=ct;
$ `  t/ U" G/ o/ r) s5 A+ x                        end;*/
8 ?' V' D/ R5 M  e3 H% _* I        next;
, K3 B/ {) [( m3 x        y_max:=y_max+dy;
+ R; S0 B& K9 a' X2 ~+ _        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);
0 ?& L% s2 o# X) z       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
8 H6 F7 L- ^" ]9 l5 H; [' d: I                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
: d; V( c+ Z  W: y3 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];
3 Q, P. e/ M0 y                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
  L2 a  k$ q  t% }7 a9 j; B& k       
        lines:=0;
9 U; s( X/ Q) h, ]+ D2 I& u        partstable.delete;
       
0 e8 c- P- J6 m$ A( N7 {        for i:=1 to number_of_machine loop
6 j5 ]& L2 Q. s" @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ n, o& T* S6 V4 p: I0 L# i                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
7 z6 o" b1 v5 O) g7 Q                        if w_from_to_chart[j,rows]>0 then
8 p& _$ Q! k- }. [& |& V                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
' s! [0 b$ ?9 g* B; c                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
( m, D, P* F  _3 V0 Q, _1 ?                        partstable[6,lines]:=j;
8 }+ H- U0 `+ Y0 T6 r                end;
+ G& g* r2 N6 V9 T        next;
7 t  x) V. n+ F. Z" c0 K0 A& J        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;
2 h; \( Y7 d; B3 f* z# Z* r  L3 |5 G        machine.label:=activityspace[0,rows];
, F; Q( s( e3 e2 `9 d  B8 O: Y  b        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]);
0 Y6 h" k7 }# X: s% P        buf.name:=bufname;
  m7 A. R% l- X' v4 e. c( Z        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
0 h8 p4 V3 ?% s+ G       
( K6 c4 T3 T: N' x& N& y        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ X% M* x" M0 }: n6 C4 Sdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
* Q! }4 S" ]- Q/ ^+ p! Fcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
2 ^0 P0 t3 O& N! x& P  \end;