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

zooey

is
        mark:boolean;
# e3 M. ~, q$ Y+ |/ k        dx,dy,ct:real;
    i,j,rows,lines:integer;
+ O9 q  p' G5 `/ L6 e    machinename,bufname:string;
& L( y, Q% c( K) O    machine,buf:object;
do
( X( W  ~$ m1 u: p# ^0 _        current.eraselayer(1);
3 H# T& E( ]& S) x! R' r: `1 g       
8 M4 Q5 k+ m$ V4 ^$ e        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 D4 j1 W" `% O                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
) @3 S7 o6 H$ C6 i6 ?- F" ~                        print"cancel";
$ Z* Y. M* z0 j3 M# ~' J0 s                end;
                eventcontroller.stop;
        end;
* K8 {$ j) _  b3 F6 b       
        for i:=1 to number_of_machine loop
* T' ?' f7 b- L/ W1 E" ]        machinename:=sprint("M",i);
' ]: w' r' {# W- T4 b/ U        if existsobject(machinename) then
) V' ~: q3 Z$ ^  S. X1 H                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
: R% W# C; x& Z1 ]- |# S        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
2 S5 p' r5 Q/ f  F; x: ?        end;
8 Y2 p/ J/ w. \        next;
6 r. Y' S$ ~: t8 x* B       
! z* G; x% G# D( Y; K* l        dx:=0;
        dy:=0;
4 x$ D5 a8 z7 H9 n  I        for i:=1 to number_of_machine loop
3 T( g1 s! ^, e! G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
7 H, f# }( p- b& K                        /*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];
8 D- K4 p) o, D& v) v/ _# c. T                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 x% l. p# C. x5 T. S" @                        activityspace[1,rows]:=ct;
; G8 T" p& g; J; l/ m9 t5 e4 t/ _                        mark:=true;
6 {7 }' W1 o; b3 ~                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
* e* |% Q$ N6 L- W8 ~6 j) z  T5 v                        --end;
2 M* k% U0 o5 G. X: I$ N  o% N                end;
4 a+ a+ d* `7 Z9 ?- j4 _) [2 \                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;
7 E0 T- P/ `4 h* p2 t! y            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
6 S3 V  r4 q0 O- Z! C) Y( W$ @9 X                end;
- J, W7 h6 F  C7 ?/ D9 \5 x; L                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
) v& F" t# |* H2 L1 s+ Z                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 w# O/ T, ~# h% x2 W                        end;*/
- V* k; `, p& U3 U        next;
3 Y6 q/ R9 h, b, u        y_max:=y_max+dy;
# z5 }0 M. ^1 b. ]9 S        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);
7 S% a2 Q. ^- l1 ?        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);
       
4 }: _0 T" _& D; c1 \+ @9 Y) J% E        rows:=0;
# P3 W$ a3 U& u) l3 c        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;
/ {' Q, h, Z- k+ U/ m6 x! n6 }" E                        else
                                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];
4 }. g" j3 q# |9 P# K& a* E2 {) D) y                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
) h, R/ K1 }, u) g                next;
3 \, V7 X. p% D8 _" U1 P" p& U% D        next;
: `7 v5 K$ F5 T' U% v' W4 u       
+ A- N% w" k% O4 R/ J7 ?, ]" I: ]        lines:=0;
& L, H$ ~9 @1 Q# B$ i! U        partstable.delete;
( c- Q. \- t' o# K: B9 W/ ~       
3 R5 O) N/ E9 R        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 w4 i( N: L- j0 }/ {' s                machinesequence[2,i]:=rows;
- Q7 L1 ~' _! Y2 S  Q                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
' R' G2 {; e( _# Y" T1 |2 b' Q                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
( a: z$ j  d' q! n; Z5 C                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
$ o# f0 y7 q3 C' I0 y        next;
/ a- r" |8 o; ]2 I- }/ p" d7 w3 v        machinename:=sprint("M",rows);
  {/ I) L4 e6 H, o0 g, M4 q4 I        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;
; |! m* }5 ^. j0 D( T* V8 C7 k        machine.label:=activityspace[0,rows];
' G# }( v7 h& ~+ D# }! k# b4 j        machine.exitctrl:=ref(leave);
* V% |1 }! w$ y! E6 c5 O       
        bufname:=sprint("BF",rows);
. `5 P; ?6 F+ h7 n5 C        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;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
, d) |+ A) _) R7 x# v5 I% y       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. q$ q# e9 S, P0 ]# I! W- |dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
% I  Z1 ^( n8 L4 P; \current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
- p7 H8 H/ s* a) L0 ?1 ]next;
end;
3 |# P$ [  b0 U3 o