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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
9 v" @! f2 ^* a. n        current.eraselayer(1);
% U* F& ~8 G% t; H1 i6 E       
- A/ C) J6 Z- [; Q6 v) ^        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) @7 v5 f$ }! G! g* r6 c                inspect messagebox("设施数目不对！请核查...,",50,13)
( P% ~# }1 v* ]7 z4 a6 R+ V3 F$ H/ A                when 16 then
1 ?/ Z" w& t4 T' L                        print"yes";
                when 32 then
- Q% [9 e# o( v! E+ n8 V$ X, s                        print"no";
                else
# c4 E3 S9 [3 |) o  V1 ]% |- ^3 O                        print"cancel";
                end;
3 z4 q7 y) f. R/ p$ p) P                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
) R. G: N( ]2 E! X) x        machinename:=sprint("M",i);
% u: q  r! _! ]; P" {* J1 _* w        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
& \) C) X8 W# H5 i        dx:=0;
; _3 w0 Q2 I5 J7 r: w2 R        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 G1 ]4 l7 W4 k- }! l+ ^3 a. e8 T* F  i4 z                --mark:=false;
$ t: M! q5 R& E/ @, D2 }3 b# y                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
6 h" Y* p6 x8 f$ b" i* X, x3 G8 G                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
/ J. X9 k9 h- |1 f4 G, B* S                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
8 N5 o1 R4 |7 G, t# Z; K                        else*/
                        y_max:=y_max+dy;
5 w. G$ U6 o, C                        dx:=0;
4 G* f0 s, A3 G6 r9 l( @                dy:=0;
9 Z( y$ y3 u5 _1 U4 _' e/ r% O                        --end;
                end;
                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;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
8 Q1 U0 u7 g; H+ M# b! M5 D- R                ct:=activityspace[2,rows];
& m  u" x/ a! e; I* ?8 C1 |                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
! V% P4 g, d1 P8 Q$ ?. Z                        end;*/
        next;
! F+ D% x" I  }6 f+ C' h$ G        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);
! o5 B" O& Y6 U0 o) E       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
  T2 Y4 e- L, V  R% z/ s' |' b                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
. }+ j# J& D( G; \! x                        else
                                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];
. a  g  N; Q* }5 g: ^                                d_from_to_chart[j,i]:=abs(dx-dy);
$ V: [* [5 _5 D! [4 W& {3 u" {' d6 b                        end;
                next;
3 ]* m9 E# Y4 M1 A        next;
  S! a. @8 B6 [& l" A) d0 B' B       
        lines:=0;
        partstable.delete;
% n# b( _7 M% f& f7 W' X- k       
+ H+ {* n8 W/ {        for i:=1 to number_of_machine loop
. n  k: \. z# O: ~0 W# ]                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
9 V3 Y2 d- r+ a: j& D- g                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
3 ~/ r4 _' E5 \/ X+ U. D                        lines:=lines+1;
5 z% F% `3 m3 S$ h% G/ C                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
! U5 G1 T/ N# G& Z- x0 x( [1 |                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
1 F+ o* o8 {6 _2 E# ^  K- I                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
0 a2 t8 y" }* [        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
/ h' C/ f. v$ e3 H  n# J. k6 Y        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
; p$ }0 I& |4 Q  `, E, p& O       
        bufname:=sprint("BF",rows);
" W- `. C6 m* f3 `3 @. q7 h        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;
* l* O" a, r; I        buf.capacity:=5000;
: i* q5 p' p) _4 E+ ?        buf.proctime:=0;
; ^0 X6 L" a4 G        .materialflow.connector.connect(buf,machine);
       
2 {5 C5 E, a; o. Q7 K        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 w; P& h* {$ P' ?6 fdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
+ r  O  M; {% \& @; |8 zcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;