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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
( q0 B: W5 d" s- x' k  d0 b: Q0 C0 g    machinename,bufname:string;
7 C8 V; p- y4 y6 G5 f3 ~2 R    machine,buf:object;
do
        current.eraselayer(1);
1 a2 ^* E: A- ^, n: a1 w' K) H9 A       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
  h2 Y0 d8 g" `7 `$ p                when 16 then
                        print"yes";
                when 32 then
                        print"no";
$ K7 c  R. s) T$ @4 Q, P; C# g9 g                else
$ Y6 ^  M7 j. w! Y                        print"cancel";
  {- a! m( w) w1 V- C                end;
                eventcontroller.stop;
- ]# o) V% f& n( g3 ~! M, V        end;
       
4 _; T( H3 _, l  Z+ i        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
6 f  Y1 {$ Z3 n0 _" p2 |# M7 [        if existsobject(machinename) then
9 Y: r+ T# y( K  Z) ~% D. y: _                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
$ Q: _# M. F8 n3 m2 [0 S+ m6 ^                buf.deleteobject;
        end;
7 S4 L- C& u! c+ W        next;
       
        dx:=0;
        dy:=0;
2 `" e, j7 r8 b# T" _8 O+ K& j        for i:=1 to number_of_machine loop
, u6 A& k; z9 Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
" x9 c' A4 V* K$ F7 V" J# I                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
3 h" E) \- t1 o0 x; r" L7 d                        print activityspace[1,rows],",",activityspace[2,rows];
8 N* s; P4 I& R) y0 T                        ct:=activityspace[2,rows];
  Z$ b0 f! r1 }5 Z/ ?+ c                        activityspace[2,rows]:=activityspace[1,rows];
: M: ~' x, y+ N* D! F9 V2 n                        activityspace[1,rows]:=ct;
                        mark:=true;
: A, t0 s* ^9 @                        else*/
# ?2 @0 A+ s2 R/ z8 o& Q                        y_max:=y_max+dy;
( {) S  e8 t# ], N* w% V- C- D) \3 u                        dx:=0;
                dy:=0;
                        --end;
, O- \( B5 Z2 Q& C                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% j8 n3 t1 s% Q; e                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
8 _; c- s# c4 q2 E$ L  m. U8 C            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
% v7 h/ ~) _* D5 g                end;
0 [4 v! N6 x+ r% T3 k6 k" k                dx:=dx+activityspace[1,rows];
8 x9 h, c* W6 X0 T8 H                /*if mark=true then
! D% s/ O! W' s                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" {. Q( M1 L6 f                        activityspace[1,rows]:=ct;
0 g% k% _- ~/ c# E2 J; y% i                        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);
6 R- [0 p7 M3 }        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);
       
$ P1 W3 M6 |* E$ \- N5 p5 a        rows:=0;
        lines:=0;
/ @- y7 B* O5 @& h0 s        for i:=1 to number_of_machine loop
9 C9 T. A3 A9 a4 k' d8 j- y                for j:=1 to number_of_machine loop
/ e+ B  L+ o; z, w6 `# p' Y                        if j=i then
                                d_from_to_chart[j,i]:=0;
6 n# `, Q3 A6 _                        else
9 }9 ?4 H+ G" }" N' Z& {- W                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
2 R8 i. `' _2 b1 d( n( z7 P' S                next;
- n6 L9 z' r( t) h        next;
       
        lines:=0;
3 P. i7 K) T, @# F/ Z" C% E        partstable.delete;
7 E/ f! u" Q( X% O       
  h" F6 m' F) |2 b6 ]  d5 Y8 H        for i:=1 to number_of_machine loop
  q* C: j2 [  Z, J                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ A6 i) d* \+ C- o' T                machinesequence[2,i]:=rows;
* b' h# C7 Z7 A  P  B1 R& o                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];
                        partstable[3,lines]:=sprint("parts");
" @. E0 I/ f1 U                        partstable[5,lines]:=rows;
. w9 n5 x+ f2 W/ t* M                        partstable[6,lines]:=j;
8 q( E# o1 G4 Z: V1 [' F- L                end;
        next;
  ^6 O+ A) L- b& b8 {        machinename:=sprint("M",rows);
% W& l4 s' v0 n( q) K9 O        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;标识符未知
  B  ]; w) P- ^' I8 i  E& O' m        machine.proctime:=5;
4 D4 O- D; X0 Z2 ?- m        machine.label:=activityspace[0,rows];
  n3 o, C8 o8 C# J2 s        machine.exitctrl:=ref(leave);
  Y1 b9 O& z( {+ \6 j& I       
1 X( e( ^2 U6 ]- B        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]);
" V2 }  l8 Z7 T0 y7 a: ^4 G, S2 E        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
% N. a' l# f  P' r        .materialflow.connector.connect(buf,machine);
' {8 C/ m" i; L* ]       
        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);
next;
end;