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

zooey

is
        mark:boolean;
9 t3 l8 z3 F6 [4 H$ F        dx,dy,ct:real;
$ u1 |" I) E- s) B2 G    i,j,rows,lines:integer;
    machinename,bufname:string;
; v" O3 m; R0 D) I    machine,buf:object;
do
' [4 S& H: i; Q" ~! J        current.eraselayer(1);
       
) Z) G% v$ U1 `2 b        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
& b6 S) b7 ]8 N                inspect messagebox("设施数目不对！请核查...,",50,13)
' K: o0 j  v/ J4 O" v                when 16 then
7 X" E2 C* ?. v0 @& c                        print"yes";
% P* C! y& R) {0 @) }0 q                when 32 then
                        print"no";
                else
; C' ?9 B0 B. c4 r                        print"cancel";
8 O! J2 O' B0 ^6 s) G                end;
- y6 h0 n3 F0 T1 j2 G                eventcontroller.stop;
        end;
6 D: `4 z' z) d0 [: _' P( k. c       
' C# l' J% r4 @3 _* J# f        for i:=1 to number_of_machine loop
9 G' ]! q+ l% F7 J        machinename:=sprint("M",i);
% H8 M6 Y+ ], W% x        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
8 W' O9 R4 S8 V5 D                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
; N5 t/ `6 i& ~. q; C       
- r+ Y+ l8 o# s; l2 \7 [        dx:=0;
1 G9 j$ ^8 ^9 e" h1 a        dy:=0;
        for i:=1 to number_of_machine loop
7 \) v3 c! x, @5 ]6 {& z5 R                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
1 S" W9 i3 u, S; [                then
- X- s7 y! n& f! b- r+ F                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
7 U0 V. |4 N0 W( T3 O+ H                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
, o. v7 p3 {: d- D7 z) S6 E  P                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
" l2 R; H, ?7 a. T# M                        else*/
7 w5 X* V2 J- o                        y_max:=y_max+dy;
                        dx:=0;
5 r) B8 W  C4 y5 C4 T+ E                dy:=0;
                        --end;
                end;
; G2 a7 I' s3 ^$ \7 M# X. [                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
8 l7 P) Q' t/ H, ?% |. z$ H7 E: x                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
) C% b5 ]7 ]5 l8 s                        activityspace[2,rows]:=activityspace[1,rows];
& K- P; ?) x6 t3 Z/ i                        activityspace[1,rows]:=ct;
                        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);
9 U! V! E0 b2 J, e7 f        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;
( _& G9 b6 x7 D        lines:=0;
* `9 j" W- }* L8 H+ c0 z        for i:=1 to number_of_machine loop
' |0 U, h( T. ^, l0 S: k" Z% Q8 W                for j:=1 to number_of_machine loop
                        if j=i then
) O1 d- k- s; d9 e: d                                d_from_to_chart[j,i]:=0;
( o! K+ X  Y2 s5 h: q                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
, w1 |  Z- ?( s$ `, H% q+ f                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
- p; J# w1 x1 v: |: C                                d_from_to_chart[j,i]:=abs(dx-dy);
& P5 ~, X$ w8 s& D+ z# e/ W* d                        end;
                next;
/ f& f& k, a3 d' x9 a# t+ r7 G        next;
       
' c; Z! d) T" O3 j+ B- A/ {        lines:=0;
1 e8 ^: y' j- ?+ H( u; |        partstable.delete;
       
        for i:=1 to number_of_machine loop
/ z6 G/ p0 o5 p* t: k2 f8 c                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 b1 F8 G" Z) S2 y, L                machinesequence[2,i]:=rows;
: i. E: C3 |2 [( D                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
' I  r; ^4 A8 E* o# a% T8 v* K; j. W                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
" Q2 c3 G5 O1 U# P                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
  M5 y, q2 _* i6 Q6 {                end;
6 `1 z1 R) i2 U/ J        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]);
7 l- ]# g: N" _8 m5 K( y8 O& ?2 \        machine.name:=machinename;标识符未知
; }7 S- X" ~, r' ~: T* H" O& |/ p        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
& \: m9 s- N; D7 F! n7 T3 F" J) Z0 {       
6 o5 P# C# y4 p        bufname:=sprint("BF",rows);
' S( D, i) |+ g0 f! J9 [$ Q        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]);
' o4 ^0 \. L# g% y& i- x; R        buf.name:=bufname;
* W# [. R- h/ E+ Z9 _  K        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
$ ~8 v' J+ l, w' T9 [# Q% V+ s       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 P6 ^: [" j5 k& x* `* Hdy:=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);
) P+ z0 Z5 j" r1 D5 \; Tnext;
end;
1 X" p: B  E$ O( f+ j4 N, \