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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
9 S, w! R  h) o# @% Ddo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 j, S; X& m5 _7 J  X* F% g                inspect messagebox("设施数目不对！请核查...,",50,13)
# v* {. h' {( _7 E- i                when 16 then
                        print"yes";
2 R- g1 L6 O0 Z& i6 o8 K  K7 A                when 32 then
                        print"no";
                else
5 j/ s, C8 w1 t6 d0 |                        print"cancel";
                end;
7 U' J( ^6 x6 L6 {) y, w) k                eventcontroller.stop;
        end;
       
2 J$ }4 k9 v1 e1 @" Z3 M" a. L        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
" o2 T  f2 ]' K* K& k% f! H                machine:=str_to_obj(machinename);
  g/ p: M  m; ]/ h                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
5 c7 E4 Z1 n7 N6 I* z        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
/ o3 h; T  W- Q* T8 |                buf.deleteobject;
        end;
8 B; V- L! I; u* @# H7 E$ `        next;
# s% d/ U: T9 O$ @( q  w       
: D; s( i3 l9 C6 h) y6 D        dx:=0;
  j9 c+ A/ P# ]        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' s5 F7 K# {; I6 y% l. X) L                --mark:=false;
, B7 f$ o: P9 `0 N) a                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- a+ W( F8 I. q                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];
! {+ V2 T' s! `, w, p! C                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
3 s, N* J' z1 w# C, u6 ~0 H4 ?9 u/ Z9 \2 O                        activityspace[1,rows]:=ct;
! r7 ~# C# H/ D0 \( n- L8 d5 G                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
. @% u) Y- l/ ~. J6 g7 A                        dx:=0;
! ^. G& A' I' F; `, @                dy:=0;
. g$ s1 r/ E1 e) n* O+ u# t                        --end;
' a  J: K2 j( y. u                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
. o9 @; I& [- V; h/ n% P- U                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
' C+ c6 I8 j1 g4 W# N% k& ~7 r                        dy:=activityspace[2,rows];
6 C. _7 p1 f: d/ w  ~4 c/ R1 H                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
$ N1 u/ S+ i" o7 i0 Z7 i1 r6 m                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) D" b. i( x& v                        activityspace[1,rows]:=ct;
                        end;*/
        next;
3 m0 w; i# W0 v  X0 L        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);
7 ]# c: F; f5 ^0 {       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
! Y+ a9 t! C/ B1 E$ u! ~  |, a                                d_from_to_chart[j,i]:=0;
$ E- |# y0 Q' U5 D                        else
) @! L- Z0 n7 X; I8 @; w' u* S; P                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
! s6 E, ~/ v* I$ ]. Q0 [                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
1 F5 P) w: b0 `9 J+ i                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
1 _# ^# g+ _; P        next;
       
% r) D3 O! T( M2 E& Z2 V        lines:=0;
( L& i* `# ]% m+ Q4 n5 ]0 A        partstable.delete;
       
        for i:=1 to number_of_machine loop
  g9 Z! K& p- A  f7 q8 w                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        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];
3 W: D2 q3 R" ]3 c, F8 T, V" t! s                        partstable[3,lines]:=sprint("parts");
' j7 |0 K6 S) ]- S                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
  \& f1 r9 Z1 l                end;
% s6 T$ ]6 T7 U$ n9 i        next;
        machinename:=sprint("M",rows);
0 u. N/ p- P$ a2 l        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]);
; r. S8 c$ a: U8 \: P  f+ F        machine.name:=machinename;标识符未知
. U" P2 j8 A! ?! _+ s$ `        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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]);
' ^5 r, ^' C' [        buf.name:=bufname;
2 [7 N1 ~7 v- V        buf.capacity:=5000;
3 v- C3 n+ T' B6 ~4 q% v0 \3 r        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
( o$ q/ K5 ^& p; Q( H' [% j        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;
$ L" |5 o- c; R5 ecurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
) o4 F% S2 B+ T  \# T! Anext;
end;
# l" g0 N" @3 c$ R7 V( t