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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
  X! Z$ }! g) V, c8 o/ x    machinename,bufname:string;
5 Y, o6 d% Z0 `5 O# t# y( I    machine,buf:object;
, N9 l$ [7 `2 g& T. ?$ {do
        current.eraselayer(1);
       
) m4 E. c7 M& Y% m) x4 [. y. K# R/ E6 }        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 ]+ R& u  l8 A: s; i& j                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
- r% F: ]' G0 n  D! t* g0 H& k                        print"yes";
; [3 l( V9 ^, y! s" t2 T, z: q5 \9 M                when 32 then
1 d% A5 J0 ?) ?" _' D) w0 ~                        print"no";
                else
2 ?% A: M+ y  Z                        print"cancel";
                end;
                eventcontroller.stop;
        end;
8 s% i5 Z1 _# [! k       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
' s! t3 P4 V" {                machine:=str_to_obj(machinename);
                machine.deleteobject;
+ i9 T$ m3 ~& w1 r4 U! X+ e        end;
9 {) D4 t2 b. d5 Y5 u        bufname:=sprint("BF",i);
        if existsobject(bufname) then
# g' ]3 K: J; C/ ?7 U" Z% i. ?3 `* M4 `                buf:=str_to_obj(bufname);
                buf.deleteobject;
* u! V7 B' A7 V' x5 a* P: c/ F        end;
0 O$ q0 N* J) Y& L, v5 r        next;
6 M! }) q, y: x+ f       
& V6 Q8 ^! n; c' S        dx:=0;
        dy:=0;
% Z  w, m1 a# c5 l        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 }" p4 s% j% H, {. j                --mark:=false;
5 G2 q, c" x" {                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
. C& p* |$ q( K- l                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
# o3 j+ i; T) [8 Y( o                        print activityspace[1,rows],",",activityspace[2,rows];
& O  j: Y- F8 W( o                        ct:=activityspace[2,rows];
* s) m: ^/ v6 X4 h" P8 T                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
. l# i+ i! d# |3 ~                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 Z3 K, V' S& U! A2 h: b1 |& ?                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];
- o! \4 Y  k* Z4 G+ Y; |                end;
7 F/ c% O7 E2 Z; c' A0 K                dx:=dx+activityspace[1,rows];
% Y6 o/ o# C5 v. h" y$ W                /*if mark=true then
! H( x2 N& V% d+ \4 f- F, m6 `, H                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# _, Y' u' O4 V9 t% y; G0 x9 d                        activityspace[1,rows]:=ct;
                        end;*/
& n+ v1 L6 C3 e1 P4 K8 `        next;
  H- j/ }9 \1 u' W; w        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);
3 W% d' H. s% O- I+ Q: E+ E       
        rows:=0;
8 H: l5 Z: k5 Q% ^$ W        lines:=0;
5 I' F. [0 L: P0 f! C        for i:=1 to number_of_machine loop
3 a7 f" O% E' Y' g* [5 L                for j:=1 to number_of_machine loop
* `5 _0 k2 p" J' a* w) E                        if j=i then
                                d_from_to_chart[j,i]:=0;
! t: Q7 p( v1 o* V- P6 L' u" D2 ]+ ?                        else
& p  m! K3 s' e5 X6 c# q                                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];
; T# w5 h1 ~, A$ |. E4 V3 }                                d_from_to_chart[j,i]:=abs(dx-dy);
8 e$ A( i. e. s: o! F                        end;
                next;
- k+ R( ~" I0 f9 ]- r* q        next;
* }, o/ I+ w0 ]5 ?( _  n4 }9 M       
( j, U/ d+ j! A4 C8 ^" |        lines:=0;
$ n) |8 E* e3 b6 J        partstable.delete;
       
        for i:=1 to number_of_machine loop
& P- \7 |! v) M* A+ d) f                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 D& Y+ z; D! g+ M$ B- p! \                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
4 q% i7 C3 \1 h* V3 g2 C& C8 w                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
% q; H+ E0 i3 t3 I; z                        partstable[2,lines]:=w_from_to_chart[j,rows];
0 _3 d: Q5 m6 D9 \                        partstable[3,lines]:=sprint("parts");
* A. {( ^/ O# U" Z' d% \$ b                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
        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]);
1 P' f0 I: M1 S% J/ a- b8 `        machine.name:=machinename;标识符未知
7 ]7 G7 S9 B1 q; Y) E: g! Y        machine.proctime:=5;
0 W& f: G0 W, S! D        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
) v5 V- k% P/ V# Y& S       
! d$ E  M) i' f1 K( O        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;
) O3 K% h1 K8 I- E$ j! ecurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
- X* I7 i8 R! h/ _. E0 C% bend;