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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
9 @. m" ~% I' d5 p    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
4 n" ~9 H# }$ l2 P# |/ `4 B        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
                        print"no";
/ w" [% B: A1 C) ^9 g' D+ p                else
                        print"cancel";
; n; D6 n2 l2 l8 w- _                end;
1 _$ g% y5 E  ^5 e) l# f                eventcontroller.stop;
" T1 z' c9 [4 Z* V5 a' ]        end;
: N3 }$ I9 n) q: b1 Q       
* I% A' L. B) o% y: [; M        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
6 Z. E9 E! ?9 r. i" G! }                machine:=str_to_obj(machinename);
                machine.deleteobject;
% _+ w- A4 }$ f- H2 ]        end;
5 I( E" `& O  D- u, [& o1 v        bufname:=sprint("BF",i);
7 \5 v" a9 R: J5 \0 D0 g) ]2 K        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
2 O! }& F+ p4 Y+ H& R       
* D+ D8 }9 h8 U  T: i% n        dx:=0;
  m8 z& v: F+ n$ V, c- I  k0 O        dy:=0;
3 U2 Z' T. |, S        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 Z; `6 Z2 e' D, r' h4 w8 Y                --mark:=false;
! F0 T6 {% |" u6 y  T" B7 f                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
& Q% c& k7 p( e( D: m                        print activityspace[1,rows],",",activityspace[2,rows];
: T9 X3 i/ O, {9 c9 D                        ct:=activityspace[2,rows];
3 q; a0 B% B7 e. z. I1 s( ^                        activityspace[2,rows]:=activityspace[1,rows];
3 H5 B* o; n% v6 X                        activityspace[1,rows]:=ct;
                        mark:=true;
5 w) z, z0 g- }$ J6 Z0 y                        else*/
                        y_max:=y_max+dy;
/ z0 L/ e) r8 w  d, h                        dx:=0;
                dy:=0;
                        --end;
                end;
* `9 M0 G8 ^3 C# o, y- B  `0 F& [                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
$ f9 D7 l: D5 j7 ]+ A+ U                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
7 y5 B2 @& i$ Y+ B                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
; V! k: r) w% V( i8 [2 q, L                /*if mark=true then
$ q  r* e$ H4 C7 e, {                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
% X: x' {5 c) h/ Y+ P: f                        end;*/
        next;
( h8 w/ f& {3 {        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);
* e5 C. X# X" e2 a        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;
# |( N  f4 k, t* J! t        lines:=0;
        for i:=1 to number_of_machine loop
  D; C- G0 h, ?, z$ C# Q                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
# v- G0 K$ l% D! F0 R( R9 g+ d                        else
. g" h1 h. X8 x                                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];
% _; m, i5 p  F4 a                                d_from_to_chart[j,i]:=abs(dx-dy);
. d! t8 X* w2 A                        end;
. ^* B7 X& E6 d( U& H                next;
        next;
/ W0 V3 }% F8 a! i       
        lines:=0;
0 F" ]% H. L! K7 M        partstable.delete;
       
: `; m8 y* |+ I5 z; }! m) o/ |        for i:=1 to number_of_machine loop
8 M& A! ~; J% `- ~! P, N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
" I7 P5 `. d& n( U  z; E                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
  W: ~# I/ O1 h2 O( Q4 v# C1 K                        lines:=lines+1;
' l9 ]5 O+ y6 \2 T$ u5 m                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
& [4 m5 ?: T4 N1 Q) e- T3 b2 Y                end;
        next;
        machinename:=sprint("M",rows);
( M3 F/ r; b$ t9 e; O3 W        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]);
, v/ W# B% s: k  g0 f  d4 J" m1 O        machine.name:=machinename;标识符未知
! r" V1 [5 X. C; b        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
8 {* q; r) Z3 {0 H( T% B0 E6 `        machine.exitctrl:=ref(leave);
. m4 N, m* [: [7 J* G; I       
% d. u" q9 n) L        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]);
+ n" ]1 \3 ]- a" s        buf.name:=bufname;
1 Y7 [1 h! b. ]. T5 h# u0 {0 y7 [        buf.capacity:=5000;
$ B3 x' F/ ^+ P  A9 e4 B* o        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
+ s# d0 G7 w# ^; Q3 \        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: n5 I$ ]7 y2 H8 l" a( F, @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);
' S! h5 o2 r8 ~- t- A, t" l$ h9 mnext;
end;