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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
" L& m4 k" L2 \& f3 n- ~' C    machine,buf:object;
: d8 \) p1 _; u( ydo
; c2 H, ]" u! k        current.eraselayer(1);
       
; `. H, B7 }4 ]9 u4 B# V        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
2 t) ?! w. J5 I5 j) L                inspect messagebox("设施数目不对！请核查...,",50,13)
  ?3 U: X# F) t                when 16 then
                        print"yes";
" n; p) H# M% |                when 32 then
                        print"no";
1 e2 h4 w- W3 }! S% z                else
                        print"cancel";
% H  Y; f9 T4 S4 ]                end;
! @! x0 R" Z* V                eventcontroller.stop;
+ M! c! q4 i, f' D9 v- [        end;
& B/ f3 V; c9 B: s3 _( V! Z8 c  ^       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
& |+ X+ N6 z1 G        end;
. z6 C4 u: O( \; @- z7 m0 o3 Z- Q        bufname:=sprint("BF",i);
3 `/ ~, C7 T8 ^/ H! O        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
8 `* t& M5 }( ]/ N6 [7 n                buf.deleteobject;
4 L: Z) n6 N' E* ]        end;
        next;
       
) L: a: e9 p7 \2 @1 h        dx:=0;
, S8 b6 z% [8 h: \        dy:=0;
# R( P. R& t" |2 l1 \        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& z( E- ~, V! I* ?                then
7 H' z: I; O- O" o& h" U                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 l! J- b  V0 x; j4 V% Y                        and activityspace[1,rows]<(1.05*y_max) then
+ k% ~. K3 o  e1 P                        print activityspace[1,rows],",",activityspace[2,rows];
3 y  d( }( b. b( ?3 A                        ct:=activityspace[2,rows];
3 L0 ~- e$ ]% L6 Q                        activityspace[2,rows]:=activityspace[1,rows];
/ g0 Q# i, L; p; }; u5 J                        activityspace[1,rows]:=ct;
                        mark:=true;
+ ^: t  P5 @& `: [" K" ]/ J6 f& V                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
& U, O% c6 l, g' F$ ^( g                dy:=0;
                        --end;
                end;
% y. ^. o' j  R- i2 }                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' {3 [$ P2 K2 U1 c) O6 n' v2 L/ Z5 V9 b                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
: z. e5 a2 o( ]" k, G6 A/ V) A                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 j1 z" D7 z! D' Z- z                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        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);
       
        rows:=0;
: J2 F2 G& V7 {" l$ s! ~        lines:=0;
0 K8 J+ w9 o% `5 A2 U) s1 T$ X        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
4 m7 v/ B1 m6 Y: l/ j                        if j=i then
. X+ @" ?( L! ]: ?6 ^) Q5 }                                d_from_to_chart[j,i]:=0;
                        else
1 u2 @% Y# C  e1 O                                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];
  b  e' t  J: z3 _" |$ N                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
+ x" a9 t; ]) `" r" O+ T# G2 E9 T                next;
        next;
/ {% j8 D' T1 W- E6 y- q       
        lines:=0;
        partstable.delete;
       
# G: I. x, N$ v3 S8 A0 s% Y        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ p9 D; m+ S% a+ P                machinesequence[2,i]:=rows;
  l8 k2 ~5 m# a* q4 Y2 {                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
* ]% _! b0 r9 g! [9 K1 |$ G9 _                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 w3 S3 `* q8 L/ z2 B0 G                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
' A/ T! }) J3 z7 [0 C5 e                        partstable[6,lines]:=j;
                end;
3 _( P: E9 a9 l* @: T, N6 B& e! C        next;
4 N: W3 @9 ?( K& }; N" s, S        machinename:=sprint("M",rows);
& [# a& A3 t5 w- e( g! ~        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]);
" N, X+ v0 }7 ]: b4 h' s6 V        machine.name:=machinename;标识符未知
6 M# q) J! m* S" ]4 C: ~  f5 R        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
5 f- H/ l9 _/ p/ @3 K) ^% [; j, l( _        bufname:=sprint("BF",rows);
1 S3 t1 k* d  A5 V        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);
       
        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
. X' L8 o' h( P/ b9 x, }* Fnext;
end;