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

zooey

is
        mark:boolean;
; L+ e7 q0 U! F5 H        dx,dy,ct:real;
. T- L. ~8 X+ B) [; k; y    i,j,rows,lines:integer;
. \7 j% V9 ~$ D" W6 I    machinename,bufname:string;
8 O& b$ ?  n, `: e5 k  B8 }/ W% T    machine,buf:object;
. ]4 e5 F/ @% o' Pdo
        current.eraselayer(1);
       
3 E& K% m. x1 O; \* A1 L% H) D0 d        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 F" X# A4 E, e- ~+ \2 X5 Z2 ]: S                inspect messagebox("设施数目不对！请核查...,",50,13)
2 o( Z: k6 m& A% `                when 16 then
  b8 ?4 q; B0 j$ z& p3 Z                        print"yes";
) `# W# z9 s5 W8 I) h2 J+ G( l& I                when 32 then
                        print"no";
) W6 r+ V2 [; L7 p                else
                        print"cancel";
% W" V7 G- Y4 r  G; t7 U) B' a                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
5 U5 W4 b: K; z9 b        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
2 r: F6 U) J' {& [7 R        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
; y# _( \; t$ J5 H; c        dx:=0;
+ U0 ]. j. B$ j# R* v( e4 ?        dy:=0;
" N/ E, N) S, q9 ^        for i:=1 to number_of_machine loop
$ v0 U% g9 _5 q1 D. C5 Q" r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% S: m! a7 w8 b' F% F                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 K$ W$ l) `7 \; F+ G" N3 m4 M                then
7 n) ~- e9 e# W* V3 ^+ ~' E                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
& y7 t  K5 z0 U+ B7 v( r                        print activityspace[1,rows],",",activityspace[2,rows];
2 N: s7 \5 Q4 N. r+ |- d& V/ s                        ct:=activityspace[2,rows];
' g. L5 o& T! U% t7 D4 b. B' G: E                        activityspace[2,rows]:=activityspace[1,rows];
! E" o( N0 a" g7 a7 @                        activityspace[1,rows]:=ct;
                        mark:=true;
# e+ E" j8 b2 k9 q                        else*/
- J0 _; X: Y( u% x3 M) ^. M- Q) J9 f                        y_max:=y_max+dy;
/ @7 s4 R; }9 b9 w: V# ?0 f" @                        dx:=0;
                dy:=0;
* P; j2 P0 m' W  _                        --end;
% m0 R/ Y8 b! ?7 @2 G# A                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! X" |8 |* L$ R: J0 P4 |* g                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
1 c% u4 o; ?3 k5 y0 R8 |; w            if activityspace[2,rows]>dy then
- ]) E- \. i7 D+ b                        dy:=activityspace[2,rows];
. }# E; G' f& `: k5 V1 X) ]                end;
7 b: P# o. B  E                dx:=dx+activityspace[1,rows];
                /*if mark=true then
! P4 v2 N7 _! ~7 ^( l- I                ct:=activityspace[2,rows];
0 z7 B7 j7 p9 }. F9 k. j( q                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
* W3 r& Z5 T( J3 u! z                        end;*/
! B  b2 Z- C. ?5 g) x  l        next;
+ j& {. l8 y( v7 P        y_max:=y_max+dy;
" \! f5 z7 D; X  p        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);
5 l9 O3 S& i' ]7 h        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 R# o) \" L# X5 V" t! _       
        rows:=0;
) K; c! m+ b2 V' U9 R" H        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
$ o% T6 G/ w  I, Y5 P% L- \* ^                                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;
3 G4 \& P# X/ O: b       
        lines:=0;
# T3 I, B% G" Q# ?7 z3 j        partstable.delete;
! l8 Z: N" r; ], f$ g: A: Z8 k       
        for i:=1 to number_of_machine loop
" X! R6 N" g1 {+ @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, O' L% B. l% O0 j( b                machinesequence[2,i]:=rows;
$ F$ |# Z8 r5 q6 t9 ^6 m                for j:=1 to number_of_machine loop
( Z& @1 J+ k; j' J: G                        if w_from_to_chart[j,rows]>0 then
- V: r/ B6 U6 Q5 B2 C, ~2 P; d                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
. U2 [1 u$ U! y8 V, J4 T# j1 l                        partstable[3,lines]:=sprint("parts");
, ?! U$ i7 p( w6 u; a                        partstable[5,lines]:=rows;
& M( v: a  C, ]4 W                        partstable[6,lines]:=j;
3 k8 @+ I1 ?8 g                end;
4 b- S/ Q; a' }        next;
7 {% n' z& G% o3 M. Q# l        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;标识符未知
( A9 @9 M0 _- m        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
& b0 g# Q% m6 v) D* Q       
        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]);
1 z8 t6 k! \1 w# k        buf.name:=bufname;
" k7 m' O! q+ k! `" i$ q        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
4 \; s# l5 a0 K8 @. B        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
6 W( |/ o5 D  Vcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
9 @( q2 t; v- `' ynext;
& P- f& N: ?- l" e- X) W$ \end;