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

zooey

is
        mark:boolean;
# [( j* B2 d; T" v1 m        dx,dy,ct:real;
" l2 g9 ?+ J. L- `" W8 M% H    i,j,rows,lines:integer;
4 f) I7 c7 Q: C  M7 [+ G# H6 j) W    machinename,bufname:string;
; ?) m; M$ L0 W  p2 e+ a9 W9 W    machine,buf:object;
do
  U3 y: j- ]7 k        current.eraselayer(1);
- i! R( ?, ~  [7 I8 E: w% G       
( b* d0 K# S( j' C% Z/ U1 f# o        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
2 S0 r6 z5 f2 [, C' ~0 i5 Y                inspect messagebox("设施数目不对！请核查...,",50,13)
9 g; d# N+ r7 z! n  l. Y% g                when 16 then
2 T2 H$ v" Y) e$ `1 \1 t3 P                        print"yes";
                when 32 then
" T1 T2 r' I4 p) E; O7 }6 N* z2 p                        print"no";
                else
' W. ?3 V; O- j9 Q                        print"cancel";
                end;
                eventcontroller.stop;
, x- f' I7 L7 Q# z        end;
" X) _& V  W8 v       
& l; S6 _8 y: C" X* Z        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
" P* E  A, R7 j: y' ]. d3 Q0 K                machine:=str_to_obj(machinename);
* t! E4 i# r' B; D7 W                machine.deleteobject;
        end;
  T; ^1 Q. c2 z) f& G! A6 P        bufname:=sprint("BF",i);
; |- a6 E2 t" j% O, N% c+ y        if existsobject(bufname) then
3 s) S! l, V& I) o4 ~1 }2 H                buf:=str_to_obj(bufname);
6 d8 x8 ^2 N2 K" p/ j# [$ o                buf.deleteobject;
% O- o3 a& a' T3 n( p% C        end;
        next;
       
8 a4 {$ v; s' k) i, S0 u        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
, ]4 l- B7 t1 ]# T                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
7 O' M$ p! x( a9 T9 c3 C                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
, n, E& k* n  B' {                        ct:=activityspace[2,rows];
2 V3 k6 K5 T* N0 D+ h9 t                        activityspace[2,rows]:=activityspace[1,rows];
8 e* l1 S& T# e  h8 c4 G                        activityspace[1,rows]:=ct;
: r. Y1 p. @3 `4 b4 `% Q                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
4 y9 f1 T& M) v' i6 J                        --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;
            if activityspace[2,rows]>dy then
$ i  H, k, `1 E! |* ?% a' N2 ~1 I; P                        dy:=activityspace[2,rows];
6 J  m+ P& g$ {5 s3 B) R5 o$ N                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
7 U; i3 O* {* e+ R+ v                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" A, @( u4 y7 s4 E. Y4 ~$ p0 q                        activityspace[1,rows]:=ct;
& J, u2 X, k' D0 t7 C9 C$ S                        end;*/
# i* E" a9 o4 U' L4 E        next;
        y_max:=y_max+dy;
  l0 w) s2 A8 a. _        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);
       
        rows:=0;
' e' x: i5 F3 x8 L! @        lines:=0;
- I0 ^. H' f4 V. X& G        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
' V# a7 P) K2 L7 Z                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
% E# K/ d7 g& k0 u2 y) U                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
% L4 s, R: t5 d9 Y+ ~                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
5 y2 P8 `7 D. l4 _6 N. Y$ @                                d_from_to_chart[j,i]:=abs(dx-dy);
' o, L, |) x1 b' c$ H# f) g                        end;
* U. B; x5 {# c  H                next;
        next;
8 i- O) \( f" [& m       
, f+ Y8 H6 r' V/ \        lines:=0;
7 J& C4 P& ]; D( K9 h        partstable.delete;
$ V3 e! N# F+ y' t3 Z, A4 l       
  m# I& g7 a$ _3 a# x& f4 R! G        for i:=1 to number_of_machine loop
% y- E, I/ |7 H1 E% y, r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
4 N  S) V/ G& w# a) F                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
( ?/ A0 p( ^. ]/ h$ q* {2 m                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' H6 {  k3 @- \6 h, Q                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 n7 J( b5 y: q2 {# [3 z+ o& T                        partstable[3,lines]:=sprint("parts");
' w5 y8 o/ E; a2 G( _# y. _                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
# f/ x* [/ `  N        next;
0 [: z0 n6 H) @9 K! L8 z5 @& F$ \* }        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]);
6 d* l8 z; z' |2 ]        machine.name:=machinename;标识符未知
1 [3 D. ~7 m7 W        machine.proctime:=5;
$ P( c* I! e' a+ Z) t  R5 S        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
: H3 K3 f# I# i5 f# K. h6 R+ I5 a       
- P2 z% L% m. E' X5 e        bufname:=sprint("BF",rows);
# V' l/ w) q$ ]- 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]);
        buf.name:=bufname;
        buf.capacity:=5000;
9 }0 X4 w( M! u2 K8 e" l5 V        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
" X) ~8 N% y; R7 B& H! M. H        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
! h9 n6 y( a  P8 E) K/ h5 Sdy:=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;
1 N+ p- i6 P+ h% e% O( O6 D/ s* ?end;
8 F: G7 a% _3 f' ], v- }* |