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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
5 N- B  h1 z3 n$ K    i,j,rows,lines:integer;
* L5 h( E# v; v3 ?6 G3 h! \3 M7 a    machinename,bufname:string;
# ]6 i; r( ]4 h7 v2 o4 d    machine,buf:object;
do
        current.eraselayer(1);
       
1 u0 L$ z0 u- a+ G; u: M! e        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
  b+ q, P6 D( @' V                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
/ }, |" I3 _/ x, T                when 32 then
                        print"no";
5 B" |. n9 F' J5 |& ~' }- t$ A0 r2 ]                else
& Q  B. ?- C, N6 `$ t3 K" }! h                        print"cancel";
+ F5 E4 B/ J- d# R. P4 u1 k                end;
                eventcontroller.stop;
0 M! o7 c3 n( T+ f0 t6 e( ~        end;
       
2 w7 d# Y3 i# J        for i:=1 to number_of_machine loop
; n% H3 n, o, h8 G' U. q" a        machinename:=sprint("M",i);
        if existsobject(machinename) then
  y8 ^) D- T5 C" o                machine:=str_to_obj(machinename);
0 `  S  g# v- t- H                machine.deleteobject;
# @" l' @0 e4 l7 B3 {; X        end;
( p9 X$ g7 W2 @8 x$ C& R        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
' S8 i! F8 X- ]0 f7 A. |1 C        dy:=0;
        for i:=1 to number_of_machine loop
" Y% ~$ }$ O# [) @7 l, v7 Z) b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
' L4 T) f# j: `, l1 s% s! L                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
) _4 C9 S8 y! E6 W                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
8 e% W% ?5 y' z) ?. D                        else*/
6 n) O1 W# b: _* q% N, u+ s                        y_max:=y_max+dy;
$ F. Y) Y9 q3 c$ q7 J) m# q( ]* W8 Y                        dx:=0;
- A1 U, z0 @% }4 |( E7 }# \7 ~& Y) i                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
" q: U) |+ W9 q# `3 G                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;
3 q9 H( ~+ w7 P                dx:=dx+activityspace[1,rows];
                /*if mark=true then
( r; s! e- Y9 ~& T! i7 o) u$ h                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
: Y2 |) G6 h' c+ y9 O                        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);
        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);
, H  W5 i7 E8 F5 w. s       
        rows:=0;
) [  o% C5 S- ^0 q        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
7 |( H' @: Z8 l) I) d7 z3 `                                d_from_to_chart[j,i]:=0;
                        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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
* G+ ?. Z' S* c6 G' g                next;
        next;
* j  E7 g; c9 l1 l/ X       
$ ~- |2 r+ E: D! F0 A- Y. C        lines:=0;
! y+ N- B) i# {$ q# @$ C        partstable.delete;
       
: F6 I: t! C& X2 d& @1 Z4 V; s        for i:=1 to number_of_machine loop
8 N. G3 ?2 C- D* t* h& Z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# f2 c5 e# O/ D# n9 Y8 m% H                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
5 S# P$ l; N' k/ V0 i& G9 B; h                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
4 G( F, @5 x+ B% N, u- F; n                        partstable[5,lines]:=rows;
' P1 V& |+ g( ~! r                        partstable[6,lines]:=j;
                end;
/ m* L% w, b# _1 F        next;
        machinename:=sprint("M",rows);
* \: g; d. ^( N: ~; v        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;
" K( s/ X( J& z        machine.label:=activityspace[0,rows];
$ i) h+ G: Q* f# W% Y1 t* e        machine.exitctrl:=ref(leave);
. y/ x4 K' n' {: u7 e; E       
$ @* Q' `. N" T  B5 U        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;
; q7 ?: C1 s- Y+ R% H; W- z- b/ Y        buf.capacity:=5000;
        buf.proctime:=0;
) K1 p* N) f5 S% V/ }$ y5 o        .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;
$ p+ O3 T2 w, w7 k3 _current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
$ L5 Q; j1 G# \# B) x4 uend;