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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
* m& Y( l7 T+ c% M8 Q( b    i,j,rows,lines:integer;
    machinename,bufname:string;
  a+ ^3 t: U% u    machine,buf:object;
do
        current.eraselayer(1);
       
        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
- i9 D; `& A; i0 t                        print"yes";
- q) W& B4 U, x: a: E% k6 o; m$ b  M                when 32 then
                        print"no";
) p& |5 i- f: ^4 r2 }  t2 X% B; r+ X                else
0 b' }: {# i$ m4 [* q) e                        print"cancel";
; V, A1 |& F3 u                end;
                eventcontroller.stop;
% q# f3 r6 z9 |! P# I        end;
       
        for i:=1 to number_of_machine loop
# v; ~4 r) X* ]! ]        machinename:=sprint("M",i);
        if existsobject(machinename) then
8 B0 T! p. C% t# R                machine:=str_to_obj(machinename);
. O# |/ `, l7 r. W  R                machine.deleteobject;
        end;
/ S/ w( P( r3 p* J        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
" V# D1 z9 t- C8 `$ C: d        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
1 @: d% F: e2 S8 `                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
$ B/ v- N* U. b, h; ^% C7 @5 Z2 ]                        and activityspace[1,rows]<(1.05*y_max) then
( w7 _) ~2 V6 K3 |/ y, P0 u                        print activityspace[1,rows],",",activityspace[2,rows];
0 }5 `4 Q5 v! ~% k: Z                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
$ ]/ F: z; @; L7 V' `                        activityspace[1,rows]:=ct;
                        mark:=true;
" [0 e! f) X9 g+ p2 j- R                        else*/
& ]# `4 Q! U- Z3 L                        y_max:=y_max+dy;
* G9 w. n8 L0 l                        dx:=0;
                dy:=0;
                        --end;
; w- p9 c' N3 z; Y! m- H( S# t                end;
* _0 v. u$ {! k; I. {                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
# B3 K. P  c/ \/ N" [. U2 ~3 \: D                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
2 s% o6 H- i0 j/ Z% j            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
3 {$ n$ I, L4 |  M0 `  ]# c                /*if mark=true then
                ct:=activityspace[2,rows];
- T: n# {+ ?1 ?- Z( N5 O                        activityspace[2,rows]:=activityspace[1,rows];
* ~1 j  E, C' g& O3 n                        activityspace[1,rows]:=ct;
7 X2 |7 n' l2 q0 o' t                        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);
1 O& K* b4 _+ l, N# Z        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;
        lines:=0;
7 |! F% [6 X9 {9 V+ K- ~        for i:=1 to number_of_machine loop
2 V. t$ D1 A+ _. E% _1 b+ @                for j:=1 to number_of_machine loop
$ D, M8 |6 ]- P6 |" x                        if j=i then
                                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];
' u+ m* U2 }" a1 u1 z                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
0 U# l5 q) U7 l0 H% f) r$ T- }        next;
       
$ p- G' m. K" K# F  ]7 c7 ?+ X5 d6 O        lines:=0;
        partstable.delete;
( g1 a+ I' v* I/ U  |# W       
        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
4 w& z( D# @4 I( O' v( W                        if w_from_to_chart[j,rows]>0 then
# M9 P) s: z0 h2 L                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
2 D0 l( E* ~" Y& m# d                        partstable[2,lines]:=w_from_to_chart[j,rows];
: e7 s+ q0 i3 |1 J                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
; o, y! A0 o; ^0 O" j) ?" I) A0 @! c                        partstable[6,lines]:=j;
4 y9 S+ g/ B; N* g                end;
        next;
        machinename:=sprint("M",rows);
( d7 L7 c: y, O: Z. q+ X        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]);
* C6 m4 |/ w' `* x& A% w+ x        machine.name:=machinename;标识符未知
* @2 n# L. o/ d4 @        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
9 f* B% ~! Q( L, W        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;
5 P1 n) I1 S5 g" g        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
' X3 p/ }1 c9 o' F       
        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
& i, B% `( \" B; R! n* ^end;
% m/ F' ^, l# B! d& N