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

zooey

is
        mark:boolean;
7 V9 S% ?7 R. P  f        dx,dy,ct:real;
1 F2 D6 {; b; v9 \* r    i,j,rows,lines:integer;
! z+ g) U% m8 {+ P! B: k; D    machinename,bufname:string;
    machine,buf:object;
do
) x2 L/ u! {" {) N; m        current.eraselayer(1);
% y. W9 t: W+ S5 x! \8 n  d       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
. B0 M6 @/ h2 Q$ n2 e) Y+ G                when 16 then
                        print"yes";
& H( f; e8 o% x& P. \) F                when 32 then
                        print"no";
                else
  f* U5 ]. n; N( G: g( o9 ]                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
5 `# A2 t7 m# V0 Y9 h9 k; b        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
7 p- e- `3 V8 W/ O1 j        bufname:=sprint("BF",i);
! _/ l4 M: o  m' ~        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
9 q% U6 ], p% `- M                buf.deleteobject;
, Y4 H2 m+ I! j/ d. l        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
6 \1 A$ C6 E6 G& g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
6 x+ y, ]! s/ z2 ^                then
                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
1 t1 s5 I7 E; R1 C) T7 x/ o                        activityspace[1,rows]:=ct;
: g* h6 K; a, z                        mark:=true;
5 A) }8 r0 X8 x( |2 U) g                        else*/
                        y_max:=y_max+dy;
$ w3 Q+ ]2 n8 ^$ @, }! \0 ~/ }& \                        dx:=0;
                dy:=0;
                        --end;
* M& J( H  |: [. }                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;
& H8 u! X: X' n            if activityspace[2,rows]>dy then
% a1 f; W: ^+ b: ?# j6 T7 V                        dy:=activityspace[2,rows];
% e: V- }2 _9 _% _, S: R! c( @. e5 B                end;
                dx:=dx+activityspace[1,rows];
; Z9 L7 h5 \0 f+ ]% O0 H9 s% N3 S3 E                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
: l9 o! U% M/ v, @# q        next;
" [! R, K" \# i( q- @  H# x( _4 T        y_max:=y_max+dy;
5 ^) f  n  k: ~9 T4 m% E* I8 N        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;
! b: ~( K7 v; d  \* A* A. |: l        lines:=0;
* l( o% R* ~: |        for i:=1 to number_of_machine loop
; ~7 e0 G2 p  }8 i: Y1 J                for j:=1 to number_of_machine loop
                        if j=i then
" M6 c) @4 i- Z/ O                                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];
3 P1 F* t- H+ c0 ?3 C# i                                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);
# b8 K6 L. U! K5 ^                        end;
                next;
        next;
0 p0 W( e/ q8 o' x+ {       
        lines:=0;
        partstable.delete;
/ J! B! v. h9 z; W1 C       
, O' ~, ~, b# p        for i:=1 to number_of_machine loop
) _6 @* h2 l1 t- v  Y# s8 z0 M2 q* m: u                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
$ K: L8 P- t6 x# v                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
0 C' p  \# b- Z; A+ N9 q# b1 n                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
" }$ a; O+ D9 Z, Y4 p1 a0 e# {                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
7 X3 w4 H/ X5 J                        partstable[6,lines]:=j;
7 y8 \! K1 ^# w                end;
        next;
9 k  k9 \, T1 r& a7 n! V7 V8 Z        machinename:=sprint("M",rows);
8 X" j( f- y& Z+ L/ Q8 }. U        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;标识符未知
* n  m9 B  s  Z- N9 U: C& \        machine.proctime:=5;
4 |, G$ f  \' a, `( F4 w( W        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
$ u) x  E. A! G- c3 r% H       
        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]);
" y. Z( P+ i4 z- N        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
' ?' ^) Z9 H6 K/ o% k       
6 g- s! A4 h  P4 I        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
' p% v" [1 ~  a3 O# q& idy:=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;
$ U; b) O  F& G* D) F4 zend;
7 J* ?5 E$ B1 u) |0 A" B2 b. e: `