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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
0 s/ f: o6 X6 i0 udo
% @: I# D% i/ n# F        current.eraselayer(1);
' \# [  M( |  x% ~6 K+ R+ B       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
) m0 Y! M! q/ e' Q; B/ }8 b  e                when 16 then
                        print"yes";
. X4 \4 M. G. V. c" N. q; \                when 32 then
                        print"no";
# z# L4 r1 J, P; b1 N                else
8 p4 t, Z; }0 b* D' c6 x9 C; ^* H                        print"cancel";
2 Q/ h) r9 J5 t( ^, H                end;
* S( g- ^2 F$ W                eventcontroller.stop;
        end;
' h' F$ u+ F7 t) N- f! G3 m       
6 ^2 _, f2 ]/ n% S  D/ q        for i:=1 to number_of_machine loop
% O7 ]/ ]0 c" T        machinename:=sprint("M",i);
$ ^4 ]  @1 A9 v; P5 S        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
2 `0 L9 P6 N# x1 a                machine.deleteobject;
        end;
2 l! E- X% {& y) ~        bufname:=sprint("BF",i);
        if existsobject(bufname) then
2 Z. d& K  z: n& Y; A. C' [                buf:=str_to_obj(bufname);
                buf.deleteobject;
7 R6 y7 ~7 c& ^# w4 z7 W        end;
        next;
1 @1 \( C4 y$ @. e1 U       
' }+ @8 A+ C, r# Y: N% N* J, u6 \        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  P' B( b" [) o' Q% v$ w                --mark:=false;
: ^, I1 r1 d8 q0 `/ g# t, A- _- z                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 O( g1 ]- i4 s2 }                then
  Q/ ~* ?7 I* ?0 }( o$ }                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
4 i3 v: {6 Z2 m; e7 S                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
4 U0 N* O0 f) y" @4 k                        ct:=activityspace[2,rows];
5 w) A) [2 ?& j# s+ `) K                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 V' H9 m! z! {* N% `7 k2 L                        mark:=true;
* i# u: ]8 n; r5 N" E% E                        else*/
4 ?9 i' ?" w. S9 ~- g- T9 M4 U) U4 g                        y_max:=y_max+dy;
                        dx:=0;
9 @3 ]8 T8 _6 _4 L1 N: k                dy:=0;
/ B( l# ?+ o" h* S+ z' N! P                        --end;
                end;
  n" ^5 a6 P/ `1 j9 _- c) z/ J: _                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;
            if activityspace[2,rows]>dy then
2 }+ T4 K, W; L                        dy:=activityspace[2,rows];
0 }, h$ g- y0 K7 w/ I                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
4 u. Y' M7 R4 S2 O" S                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# D* U+ E5 t! }1 g3 T8 n                        end;*/
6 e9 K( U" U1 u" v+ @- E- s+ _        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);
        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);
" k  @5 |% W5 R3 A1 g& \3 l       
        rows:=0;
) p5 n" B: M; @" H        lines:=0;
/ M  H  P: Y+ V" h/ X; x        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
' b( ]  m3 x# L6 \                        if j=i then
" j, ]1 |/ b' x7 B( H                                d_from_to_chart[j,i]:=0;
% ?* I! p' P2 Z( C& C                        else
" D% V% @! H7 Z" w                                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;
" A2 U  H3 s; p) ^- p0 A( i                next;
        next;
       
        lines:=0;
        partstable.delete;
       
: j: e# x* a3 _# [: p        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
                        if w_from_to_chart[j,rows]>0 then
. ]+ I% K; O5 a. ?% C4 s6 E! M                        lines:=lines+1;
% j3 [4 H* ]! u! o1 X8 L$ b                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
. c6 Q, j; j- y/ l3 E( Y/ g                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
: \, B$ g% T5 U$ Q' B                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
  v; p# `. H1 |' u; [        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]);
0 H8 ~2 X+ {, J# }+ o; L        machine.name:=machinename;标识符未知
        machine.proctime:=5;
5 g1 J% F9 @2 h4 H% i7 i        machine.label:=activityspace[0,rows];
! C, R- N$ k  k# i1 d+ k( R        machine.exitctrl:=ref(leave);
       
        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]);
# u* u/ {( k" [; g) [9 t5 v        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
3 ?4 {4 Z, F( d/ @        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* X3 W2 }; G& A& F" g% Wdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
3 [( ~) A5 g1 N) V# S. h3 U! }  o0 Pcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
* Y1 [  h1 |9 w3 L- ]next;
end;