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

zooey

is
        mark:boolean;
; R$ Q# z) L- l% `1 V        dx,dy,ct:real;
    i,j,rows,lines:integer;
( P, r' A" ?- }( o7 r; W    machinename,bufname:string;
: y# A& s, u  f# X# O7 @/ Y. w" W    machine,buf:object;
do
        current.eraselayer(1);
3 H6 h( {, W. F) o1 E       
6 v- i$ V7 `; A( o$ P6 D4 P        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
. H8 q+ a: N$ ?. W                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
0 s, g: v* j9 v# v: ^0 {$ h3 x                end;
                eventcontroller.stop;
5 c/ |' a; t6 m        end;
       
        for i:=1 to number_of_machine loop
, @# t# V* G% G0 }+ q7 [) L        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
6 H0 A+ w- _1 }: O, u% d                machine.deleteobject;
% [1 v' p* c+ M* X; |9 n  [* E$ X        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
, ~" Q( ?6 e7 h1 n        end;
        next;
" `% u4 M3 \( l. E& `) j       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 u- k. S% t/ V7 \$ z2 n                --mark:=false;
! l0 {8 `7 t# v! B$ `# c7 W" N4 _# I                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, `# f  n% t& \1 q# f* e( e                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
# p# c. L7 S$ N  Q4 D" t) |5 ]                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
; z$ @+ T+ w4 A7 ^2 m, W; ^. @+ i4 L                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 ]4 [  u% L2 w- p; V4 R! b( |                        activityspace[1,rows]:=ct;
/ S( I( e4 Q  C9 W6 X0 W: p                        mark:=true;
( s4 z# Z: U6 X                        else*/
' `9 \* D- K5 I# V- _                        y_max:=y_max+dy;
! `2 }# T- M4 c/ p5 i; j- ]                        dx:=0;
' V# A2 V; T* x& r2 {' R2 j* L                dy:=0;
7 o7 w# V0 a( I: g( f/ D0 y; d; V9 R                        --end;
                end;
& S, |  i' V! C6 U1 Y/ w( U                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
9 r6 y1 p+ j) Z2 d9 V  A. K                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
$ k( J4 Y; |2 x                        dy:=activityspace[2,rows];
! G( y) @! r' H& d                end;
                dx:=dx+activityspace[1,rows];
# i$ }1 w2 {0 }/ C                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
; F- ^9 F1 T0 p" \                        activityspace[1,rows]:=ct;
8 X5 L4 g' e1 n# L+ V! ^% n) t                        end;*/
        next;
; Q4 W+ ]$ C2 h9 d: L, A        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);
  y7 c% a2 X9 Z/ [% M1 n, z       
        rows:=0;
. u0 n( A+ L/ N/ w        lines:=0;
        for i:=1 to number_of_machine loop
! m1 F; }; i+ p                for j:=1 to number_of_machine loop
: `+ x# f8 g: H, ]4 z* J8 K5 V                        if j=i then
                                d_from_to_chart[j,i]:=0;
. }/ Q$ q3 K6 ~; ^. P                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
! @" V! x5 ~6 y                                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);
$ r, H" o; a3 C8 h* A: j" _% F/ h: [                        end;
  }( i2 X5 K1 \' _3 b                next;
        next;
% ?, d/ Z! X7 K/ o( o9 M' |5 y       
        lines:=0;
        partstable.delete;
- _7 g$ n3 t4 q$ A- x9 o       
        for i:=1 to number_of_machine loop
$ w; ]' n% v5 F+ }+ d, H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
- K# F( w1 I% S* G3 A% t0 k8 R/ l                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"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
: @! k) ~% j# W; x- R. `                        partstable[3,lines]:=sprint("parts");
/ E  h7 r( k7 T  X                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
9 l4 K+ `3 I% X7 p2 K2 O- O" [" h        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;
" }% v; H" P) _; N6 S5 O4 U  `        machine.label:=activityspace[0,rows];
: Y& H8 b( Q9 ?6 B% M; g; D        machine.exitctrl:=ref(leave);
       
! ?9 S" l, o: O        bufname:=sprint("BF",rows);
( j3 w' Z0 F1 w1 J        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]);
: N% o; y  c, _/ @        buf.name:=bufname;
        buf.capacity:=5000;
& |( j1 U" U  {, z  C# o6 D        buf.proctime:=0;
& j8 \  F- r/ q, ?        .materialflow.connector.connect(buf,machine);
       
' l; [/ Y. l' |$ b        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
( E/ b4 u* [$ [) C& F8 R3 v8 ydy:=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;
end;