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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
$ t( R2 G- C- i4 v( G7 w) l7 g# Z    machine,buf:object;
do
        current.eraselayer(1);
- O9 d: Z: W% W3 b( f       
8 }% @2 ^, r/ Y) [        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
- P1 z/ \! a& g, u, W                        print"yes";
                when 32 then
; x. z, o& @3 H* b                        print"no";
                else
                        print"cancel";
: t7 J2 a2 x- C) M# {                end;
4 k$ T+ T: x- b+ J                eventcontroller.stop;
! u4 m( |6 w9 x# Q- u& L        end;
       
+ z$ ?. T- v) |( j" \2 C        for i:=1 to number_of_machine loop
! i6 u6 h3 F" u; g        machinename:=sprint("M",i);
        if existsobject(machinename) then
6 }: K' ~. x- z! n6 R/ }0 q                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
" g* x: w! x& \* {2 m        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
" b7 Q% ~+ E6 k! D  }2 g" y        end;
( g+ k( M( Q/ ^/ A+ ]. n        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
- g9 k  r: w; F5 @/ I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
5 Y1 C3 J2 O5 r0 g# [                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
) b4 {+ I9 l- S0 b8 ~( j                then
  N0 @5 q1 S0 s* G" J                        /*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];
1 ^6 m) I) `& B. ^! L/ r/ Q/ z                        ct:=activityspace[2,rows];
) p9 k$ Y. {9 p; J% d7 F                        activityspace[2,rows]:=activityspace[1,rows];
3 O1 c; `8 m# Y# Z                        activityspace[1,rows]:=ct;
                        mark:=true;
! `4 A6 ^! t* q. [+ t  J                        else*/
) q" @$ k/ {! _* f' l+ B( q$ l                        y_max:=y_max+dy;
                        dx:=0;
7 {/ E  ]) r- d4 _* [% o                dy:=0;
7 L, K& n! }: Y* e                        --end;
* {5 s! t2 `2 z- Z( j                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- J" j7 L3 X9 W6 R                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
6 F4 i1 M/ l- I  z9 w  ]& d            if activityspace[2,rows]>dy then
: S9 p1 C0 A0 k+ I. Y                        dy:=activityspace[2,rows];
                end;
# U- M0 ^: h8 n4 _                dx:=dx+activityspace[1,rows];
                /*if mark=true then
$ A  `3 V4 `" E9 m                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
8 R1 W! C& K" h9 m7 K        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);
5 y7 v) [' E7 `$ _* E        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);
       
. M* \2 g, M2 C' C. J        rows:=0;
( U# P! T8 G+ J% `3 j. p4 D        lines:=0;
* @$ O: I6 }4 Y! ^$ u% W# N  y        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
* w6 n- F: h" E$ M) |                                d_from_to_chart[j,i]:=0;
' a/ S3 q' `6 m, q( [7 F3 _! N" @                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
! O$ @- n& V# w! Y/ Q* ^, a3 @+ B7 ?                                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;
. w9 Y- V9 M6 W, `: v. [$ T4 x* V- e                next;
6 o& C# p2 o" M# i# u, Z5 ]        next;
       
: k. v# @3 E& N9 t4 E. S8 H        lines:=0;
        partstable.delete;
! R/ c7 L% [" k/ [3 A; n; W- V2 e  I       
        for i:=1 to number_of_machine loop
                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;
6 z0 K2 J+ B% z# U. J                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
" y" N9 d6 `% j9 e8 Y' b; d: ^                        partstable[2,lines]:=w_from_to_chart[j,rows];
- ~, C4 [& T" R$ L                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
$ j- ^. f; f9 N1 f0 O( B2 W/ M        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]);
/ f0 j1 }, ]: @        machine.name:=machinename;标识符未知
# X! j% F1 A& a; s1 y: ^        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
% X' W! v- Y  d: A0 _        machine.exitctrl:=ref(leave);
; j8 D6 W/ l5 }5 E0 |       
        bufname:=sprint("BF",rows);
* _0 i! b$ w1 v' O( r        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]);
  Q5 }( A) U( D. E& Y        buf.name:=bufname;
7 B- c1 k  L4 S7 Y& Z8 w        buf.capacity:=5000;
7 z% U) j: `! R8 c( l; N2 T, u) H        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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;
. ~  ?- H7 ~0 ?6 f, S- S0 ycurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
" ]! B; C5 f) r% Y9 E$ Tnext;
end;
: v1 z+ }5 S2 Y1 }* ]5 ]3 \# X7 l