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

zooey

is
0 n# B5 w% L4 g6 Q) g6 s1 n        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
. Q0 w  h6 S, m8 O        current.eraselayer(1);
       
) b+ Z- m# S) _        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
                        print"yes";
                when 32 then
- P5 w) S' [, r% \& i                        print"no";
                else
                        print"cancel";
( ~0 G( D5 X8 G4 `  b+ X                end;
                eventcontroller.stop;
        end;
8 i/ G% F, m9 v6 e' B       
        for i:=1 to number_of_machine loop
2 v; R) ~7 {' r! N& z        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
1 v/ L4 M! W7 k& K0 u9 }4 P- u        bufname:=sprint("BF",i);
; d+ Y+ y" H7 A5 K5 J4 Y        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
0 G/ }) A9 q4 N& c; I! S  T        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
. z3 u0 ?7 J4 i- u8 u, _                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
! C) a3 T  O! ^* c3 `: h% @* o% W0 B                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  x# @# o8 d6 p$ n- d  y                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
  k7 w  w9 `2 c& s1 q                        else*/
3 }4 p, J; Y% p9 I4 Z: e5 j                        y_max:=y_max+dy;
                        dx:=0;
+ L' R  i! c' a7 L5 n                dy:=0;
# }9 V! }" x7 q                        --end;
( Y* {3 @8 N$ u& E5 C                end;
% F) n! }; Q5 W                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;
1 D6 w* _" Q3 f5 F4 T5 c            if activityspace[2,rows]>dy then
+ H6 r! H- ^7 y$ N                        dy:=activityspace[2,rows];
: \! M" _7 w) A4 P" f( C: P6 ^                end;
                dx:=dx+activityspace[1,rows];
  Y+ b; m: [% R4 j( g                /*if mark=true then
                ct:=activityspace[2,rows];
; D% x1 ~/ ?2 P2 O1 v4 I                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
/ \* C% z$ G  b% X/ G        next;
& A$ T3 c& T! a! p  I2 a! W5 Z        y_max:=y_max+dy;
) Y2 @0 g4 K% e4 z        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);
$ L6 s4 H8 M" d: M$ A) N" r9 }        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;
3 e2 ^7 k* x- f0 c3 k+ R, g  s2 {9 n0 C6 P        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
2 z. t, W/ p/ L; A( q0 u" ?. X                        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];
6 v3 I  K4 E  b: f$ B$ \% `; g                                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);
5 A* c! f- C7 J! V                        end;
                next;
        next;
) h/ X9 _/ k! x, W+ B       
        lines:=0;
7 R* `2 z% f$ L/ l, |$ [$ G        partstable.delete;
% y0 l% m% o; q/ @& d       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
: M6 t4 u5 {6 {' e+ j) ^                for j:=1 to number_of_machine loop
4 y% f  N- h$ O, d/ \                        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];
                        partstable[3,lines]:=sprint("parts");
# v; }% a, Y+ y, k: I- n& R# {5 Z                        partstable[5,lines]:=rows;
1 G# ?# L2 u3 z! q                        partstable[6,lines]:=j;
                end;
        next;
+ q, ?2 ^& l' V/ n  z7 p- i% d* w        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]);
1 d) y1 E8 U" K" }        machine.name:=machinename;标识符未知
1 b, d0 A! k9 y" _2 ]$ Y2 t        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
: P" \4 `! t7 p6 s       
        bufname:=sprint("BF",rows);
2 t* o; K% e' m! ]( ?        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;
. T- X6 D1 a) M/ m        buf.capacity:=5000;
        buf.proctime:=0;
( e( W$ e: v, i* c        .materialflow.connector.connect(buf,machine);
3 {7 `4 C  Z6 z: u+ U1 V       
        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;
7 G1 T4 u. F# J/ c4 M- Fcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
" T- N, M4 v, Inext;
end;
, u! E9 k7 f& T" Z: r2 T. U