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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
6 }8 A# U' L4 z- c# k    i,j,rows,lines:integer;
    machinename,bufname:string;
" X% z$ c, {& K6 A7 t# m7 z    machine,buf:object;
; g5 k: A8 f6 ]% h! ^* _do
* [0 |, x7 D" t        current.eraselayer(1);
6 H8 E% n9 Z% G) D7 R       
8 E& a2 L+ Y! `7 U2 G5 \2 n        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
                        print"yes";
" u$ s# a( }5 {. K9 R8 C                when 32 then
  `2 Y7 n4 a! S0 v2 j                        print"no";
                else
                        print"cancel";
                end;
+ E: D# J8 c& @. \: C                eventcontroller.stop;
        end;
! W% o: q$ q. Q- u' P       
        for i:=1 to number_of_machine loop
8 R$ F( [" @& y0 {        machinename:=sprint("M",i);
9 L- ?6 {- [5 @8 w, w' f        if existsobject(machinename) then
2 s( g2 y( S5 M8 l9 d, ^  V2 X- x( Y                machine:=str_to_obj(machinename);
$ w" A; ?. K* Y+ T' I8 \                machine.deleteobject;
        end;
2 N* o/ m" w8 w) x* [        bufname:=sprint("BF",i);
        if existsobject(bufname) then
  z4 }6 W: W  ?9 ~1 e6 [                buf:=str_to_obj(bufname);
                buf.deleteobject;
- g/ y( F( V/ L9 [. E        end;
0 Z/ f& R, ~: A        next;
: G! m4 s9 R; g3 l& B! p! c       
* J7 @" v' B  G        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
3 R# ]  a$ r$ o# z  [) w7 u2 p                        /*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];
2 z. p  q) P* E3 d. G) l. |                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) f, O1 t  b/ \4 x3 k" z: g# X                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
; d  t, j+ l/ r' {4 L                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
6 e0 a8 B3 F6 b1 t/ [& M: t% w' H- }                        --end;
                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;
# K: V! ]/ ?+ C. S* d& W8 v            if activityspace[2,rows]>dy then
; `) g$ H# N4 A. I* i; z1 R                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
2 G, v' `6 V1 T" e6 W8 y                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
/ J) O# f' U. V+ I2 ^4 z0 c7 c# T        next;
        y_max:=y_max+dy;
0 X7 }( L7 \. i' d5 g        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);
* E3 k1 H7 k, G+ |8 g1 G+ |1 q4 z7 l# f        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);
8 O: Z5 }' ?, m# b7 W; g% Q       
5 @6 l4 h! J6 @) P+ d( B5 O        rows:=0;
$ u# U0 O9 j& A: g        lines:=0;
6 C" |2 v' t1 p; a5 l: F* Z        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
* x; F7 C1 \2 t2 ]1 y0 q* }                                d_from_to_chart[j,i]:=0;
% E8 x8 r+ d# L) Z                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
& e, `- u! ~; B                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
7 p$ x! s; |- |; Z) Y                                d_from_to_chart[j,i]:=abs(dx-dy);
3 l% {0 @' w4 k/ I, q3 e% J                        end;
3 _/ ~8 r! R0 p: Q                next;
        next;
/ q5 X0 I% l# n* @0 i/ s. e( R: T) ^$ ]! J       
        lines:=0;
        partstable.delete;
       
; U- r, O% c3 r9 V; C        for i:=1 to number_of_machine loop
0 Y( k7 V* X4 G' V$ j4 G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
2 K# A5 H" `+ x" _& c                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
2 Z6 _5 ]7 O( m6 U) L                        lines:=lines+1;
1 y, z3 m; p  ^                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' i9 B) e' \. k; k/ c; k                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
- m' a7 V* S0 A2 b, o! A  _                        partstable[5,lines]:=rows;
) Z- G7 i0 ]+ U( D/ e( V! X                        partstable[6,lines]:=j;
4 Z6 ^" q" R, x7 c7 `+ g1 a& r                end;
        next;
        machinename:=sprint("M",rows);
' F0 R0 a6 P1 y+ m* Q        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]);
( V8 J, c% W8 z2 @- e        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
$ m0 v, Y9 C% {& n       
        bufname:=sprint("BF",rows);
4 a9 D* G/ D8 P6 p$ y        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]);
! A) y, u4 I% O" n% t8 z2 R" N% V        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 k$ T. j1 ?' B; Y3 q6 Xdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
8 p4 w. n$ k% m3 {9 V! ?) Lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
; C: I; v  z3 `6 V