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

zooey

is
        mark:boolean;
! M5 [& G* B/ J, m1 r. p/ y        dx,dy,ct:real;
, @4 Y$ Y5 w3 P3 D! ]( E4 ~    i,j,rows,lines:integer;
  d6 F4 z! X. D* M) a& `8 E  D    machinename,bufname:string;
$ B. ~. r; I' p- l& {    machine,buf:object;
do
        current.eraselayer(1);
; D8 `' y' g. C. \4 M: e. b       
        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
4 y5 R) @4 f0 j) U3 Z+ T- Q+ Z                        print"yes";
; m  o0 L9 @0 R) I; D                when 32 then
                        print"no";
                else
' A3 U. ^! [. U! t" B) ^& w                        print"cancel";
1 M% @7 @. a; Z6 h                end;
1 N& V. m- Y2 Z3 D, S+ g$ G                eventcontroller.stop;
        end;
       
( G% K8 V5 R9 C  b$ i4 K) o        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
$ g( K& L) |1 p+ |  j9 \; L        if existsobject(machinename) then
, _. d! b7 T+ x: A5 ^& F3 x+ F% j                machine:=str_to_obj(machinename);
0 ~- E$ u% c! A, D                machine.deleteobject;
( ]' x2 u  `9 ~        end;
+ f+ c, J! u) Q7 P& O5 k# E        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
2 i/ C& F: F+ a+ K) t                buf.deleteobject;
, S* g/ j$ Y5 W2 g7 _        end;
        next;
       
        dx:=0;
        dy:=0;
$ N$ V* u+ W' ?) l        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 W* _. ]$ {) ]* M* H                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' ]9 w) d: H9 g8 V" v                then
' w2 P0 K& m5 V( _! v, p                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
# }" Y: b+ P+ d. \                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
1 d: M8 h( S4 i& f                        ct:=activityspace[2,rows];
: C8 y, K8 ?! D! w( q                        activityspace[2,rows]:=activityspace[1,rows];
3 ?2 d9 Q' e& r# W$ R8 D                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
2 T1 B3 g) y" ?$ z  m1 @. V4 ^                        y_max:=y_max+dy;
                        dx:=0;
5 ^3 {) J' i# p- g# y4 }                dy:=0;
                        --end;
4 P; x: x7 M. Q" e; G                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;
( j# [& q2 ^  A- Q! H5 e% g4 l% x            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
8 P' w8 O. r3 T$ J' r                dx:=dx+activityspace[1,rows];
- K4 ?5 w% W% g                /*if mark=true then
5 D6 E* v. V( G* J                ct:=activityspace[2,rows];
0 M6 c& J! k+ Y                        activityspace[2,rows]:=activityspace[1,rows];
% k1 Q6 A" b2 _% s6 f1 P                        activityspace[1,rows]:=ct;
. }) k& l0 H' a. [6 n$ d  C                        end;*/
* ^+ L9 k7 z: U9 O/ q6 L/ T; F        next;
; B" F- ^) D% [! l3 n1 a        y_max:=y_max+dy;
, w3 h' a+ }4 P9 ?3 y; ?        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);
       
        rows:=0;
2 O) I2 T" a3 [8 U        lines:=0;
5 }) B0 {8 p8 H) [        for i:=1 to number_of_machine loop
- C& u! ^: \. c' T5 Z$ L                for j:=1 to number_of_machine loop
: n/ c8 n6 r0 x" c                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
% \- j" V; d+ O( t- L                                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;
                next;
        next;
       
1 c' H/ E' y0 H) b" {2 v; N; a        lines:=0;
6 _9 v/ k+ ]- ], f7 ~6 y$ u: u        partstable.delete;
# I/ R; ^* T" |: h' D4 a$ ?       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 J; s8 l8 ?( ^                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
4 l: s  x5 O% B1 Z: x                        if w_from_to_chart[j,rows]>0 then
: H/ B2 t& X: B% e' c2 g: a6 E                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
  E/ Y! ~6 M  H0 U2 }                        partstable[3,lines]:=sprint("parts");
1 v$ |2 C9 @. Y) a( b" h9 z                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
- e2 S: H8 ^; |# O# w9 X. `3 Y        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]);
5 K9 X* e: M' I) A- l5 l        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
6 N4 u! `- e6 ^; z        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
5 m8 `. e- ?5 A; i        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]);
4 Q/ N2 T4 y5 a' D, n$ W1 f        buf.name:=bufname;
2 I+ T+ g' }: N        buf.capacity:=5000;
% @; l. A/ c4 s% G        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
1 B) u# r/ O8 \1 B        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;
7 v  l" u' x- W: Kcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
+ O7 q1 B* C7 U