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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
, b' {, p, j& z( a- R# `0 z    i,j,rows,lines:integer;
+ W+ O* S' R# ]) W$ A& K    machinename,bufname:string;
: S$ ]5 a2 z6 I3 @2 v0 D9 a* ^    machine,buf:object;
0 m) C+ l+ X3 ], [) Q$ mdo
/ f4 g# n. A4 w5 z* G* |        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
( U1 l* P+ M8 M, y) G, c                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
- u  C3 e: k0 _0 q: X                        print"yes";
                when 32 then
# A8 N. a! [& s' Y                        print"no";
                else
3 o/ M4 Q8 ^$ I# Y                        print"cancel";
                end;
3 c* F( `3 s8 ^7 C4 J                eventcontroller.stop;
* X+ k* F9 a$ N* B: M( v        end;
/ R& l5 f; d$ e5 Z6 }       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
5 S7 s) L8 ^. L& |/ ?4 [                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
0 |+ {* V( Q. B0 G1 c8 w2 l        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
5 Z/ h' d7 g- w% w) T& `5 |2 r        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
/ Q  |2 S, K2 R. I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ E& ~  y1 K% `1 R                --mark:=false;
. C/ k" S' F8 _                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 N" p# @/ m+ W2 z, |  |' b                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- {. n* L% z0 k; A, ^$ g9 s4 z                        and activityspace[1,rows]<(1.05*y_max) then
0 q! h0 N6 N$ o$ F+ Y                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
8 _/ B2 I$ e# k) ~, Z! h                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
. q. M7 o- a- X% g" N                        y_max:=y_max+dy;
7 K$ u+ _8 t1 e2 {  y, y                        dx:=0;
& B/ f& A7 I+ P- f: a. a                dy:=0;
                        --end;
0 n( |  V: D, Q& b1 @4 T. _                end;
5 X1 L) U7 x5 e1 ^                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;
- r; B  _& D) m6 ~$ O            if activityspace[2,rows]>dy then
: N$ W, s9 T  F! m& X0 R                        dy:=activityspace[2,rows];
! ]* L' V+ a, [+ ?                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
9 h- C9 O1 I/ ]8 R; {2 k- K                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
- p% }% C  s6 F3 |! [  V. N% L                        activityspace[1,rows]:=ct;
9 ]% ]5 n7 w8 n1 B7 u                        end;*/
        next;
        y_max:=y_max+dy;
% h6 a0 U1 v, Z$ O$ r0 v- Z, I8 _: a        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);
       
4 e5 Z/ g: o! x! s6 y4 p) Z( Q1 ?        rows:=0;
, x0 e. ?2 ?; U" n4 |: Q# D5 W1 ?- e        lines:=0;
8 U4 n% v/ }7 L- M: X0 {5 a        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
( i8 S# f( ]3 w# f                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
3 ]$ X4 v* v4 O) 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);
0 o# r/ [$ F2 Z3 h2 S& s$ \3 v+ n                        end;
( v4 n5 T6 T2 h, l" H3 x                next;
        next;
       
2 _7 Y, |9 a$ e3 Y7 M  W$ }, G        lines:=0;
        partstable.delete;
% R# R* b: J9 l; d6 o       
% x4 B5 e* H1 S/ ]        for i:=1 to number_of_machine loop
. n* s- m0 k  n, y% s. G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
+ a2 ]. C& P: k0 \& [                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
# R) Y) d, L+ s- D) p+ m5 U$ {# v                        lines:=lines+1;
- G2 S8 ~2 V! K6 W; U; {                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
7 E2 z; G% f9 ^+ e* }                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
$ E/ J4 l" M3 ~. {( u                end;
1 e- T# R3 S6 z3 d8 c& }. }        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]);
        machine.name:=machinename;标识符未知
9 \! O! l1 T1 s7 i" `, d% ]        machine.proctime:=5;
9 `3 `) L* y8 ]7 B9 l) A        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
( ?! j; \0 e5 Y$ x        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]);
' D* ^2 h- t2 O9 P; R$ l/ A- ]        buf.name:=bufname;
( q9 [; I3 {# C        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
. R6 {. x0 y% [# S% Z' e       
' E' k  @0 V/ ?1 q0 L7 V8 ^5 K        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& e$ z, _. o* ]& Y3 a( Y' V4 a4 Pdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
. U. ?" `- u/ x) G; d9 ?( y) Icurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
; F  j& S" U' e3 Onext;
end;