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

zooey

is
        mark:boolean;
, o* C/ V  ~* C# H! j        dx,dy,ct:real;
    i,j,rows,lines:integer;
, B* Y, M$ C  j. a) Q, {3 |    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
7 S1 {" y+ w; ?! m; S" X        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ c; c9 i' j' e9 E9 `5 A: z; p, X( g: _                inspect messagebox("设施数目不对！请核查...,",50,13)
" c1 p7 l4 g/ A9 E. g5 l$ T                when 16 then
                        print"yes";
9 F1 j5 r' b4 B. g. `                when 32 then
2 t8 |+ V, @. Y$ P# H                        print"no";
* E7 q8 X; f" b+ n5 E                else
                        print"cancel";
: f  O5 h1 T# B+ U: _) p                end;
                eventcontroller.stop;
% C' {" G- @$ z% t        end;
       
$ K7 v0 L" s# B2 p        for i:=1 to number_of_machine loop
/ B3 U: Z* P0 ?) Y, z        machinename:=sprint("M",i);
' y" Z* J6 ~' \& M        if existsobject(machinename) then
- B0 |5 z8 C1 O; C  c, [                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
3 i% A) f4 t4 D, V) ?; w- f                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
% D4 T- ^& t  ?5 ]# `+ C8 A        for i:=1 to number_of_machine loop
: {. u! Y7 }7 K# N' C                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 r! e7 F  x  K6 Z9 C& x                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  v4 C* ?5 V8 ]2 f                then
# v+ p* t7 |* j) L& ]- L                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
" n3 @+ u5 i' q2 k! e                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
3 f+ s- E/ \, G/ U! `                dy:=0;
8 g2 j  i+ n0 \. b* `2 |                        --end;
. G0 _3 U) P5 y: h) i2 h/ u                end;
3 S9 X: S6 a% J! Q                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;
5 O  J9 w6 t0 M% F+ f+ c; W            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
( b) r1 b; W/ K' \& c) X& y                dx:=dx+activityspace[1,rows];
                /*if mark=true then
# q$ |! ^9 P* d* G# z# M5 E2 a                ct:=activityspace[2,rows];
/ A) {0 f2 C* f7 P# O8 a: Y                        activityspace[2,rows]:=activityspace[1,rows];
7 d% u, ?: M  z. V+ O                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
$ l. |0 q; w5 D# V  I8 i        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;
        lines:=0;
1 ?/ P% `$ t3 c+ ~        for i:=1 to number_of_machine loop
7 F- Q1 ?! b; |                for j:=1 to number_of_machine loop
/ |, f; [1 ~- @3 a0 n% s                        if j=i then
" T2 O+ @8 r, n                                d_from_to_chart[j,i]:=0;
& C! e, ~/ c- _                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
" `' C* v+ f3 p2 k+ x                                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;
/ A  M) B1 _5 P! c( @5 a+ s6 M        next;
       
" v1 r: U  x- Z) Z        lines:=0;
/ \! ?% b- }4 A+ E  i/ C8 B! x9 X        partstable.delete;
- M( J/ {+ q% H4 n       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 m5 V9 B/ {1 t, b8 T. I2 F0 k, R0 W" \                machinesequence[2,i]:=rows;
' ]& h7 s! ?( i7 U+ G                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
0 o% z) P) t# W: X+ I2 r                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
( ^, y* ~7 \4 V6 O                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
7 A8 f4 F/ l4 w                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
4 q# B: b( |2 K( c% f                end;
. k' q) S* y& g        next;
# w, g2 Z/ u+ ?/ K! _        machinename:=sprint("M",rows);
9 ?. O/ K  o' l& w/ k5 @1 G        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]);
/ M- A$ m" ?: Q7 x$ @8 ?  P* q        machine.name:=machinename;标识符未知
; R3 {1 p5 U+ I& Z        machine.proctime:=5;
4 z( U! T: w% \. n9 b) W        machine.label:=activityspace[0,rows];
# m. z! Q+ H4 b' Z' u        machine.exitctrl:=ref(leave);
- P2 [! p% V' V( q" @       
& F6 r" w, D% i# v; ~9 L        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;
/ @; B% r7 M$ ^        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
0 {$ A, W* i" w       
$ w1 g$ a4 G6 N' e+ s% e        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;
8 }) e- s# s; z8 i, c% e, ?end;