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

zooey

is
$ z6 T9 y9 x, {        mark:boolean;
        dx,dy,ct:real;
2 ?  i5 x; X$ Y4 \- x3 ]    i,j,rows,lines:integer;
" J1 g  M8 z* H. x    machinename,bufname:string;
    machine,buf:object;
$ h. I2 O9 k) d+ xdo
        current.eraselayer(1);
( H- K9 I2 |5 e) e  J- r2 Y& [+ z2 o       
        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
2 \$ M2 B" O, @" e                        print"yes";
                when 32 then
1 O! J4 g- W. v1 G( j# N4 M                        print"no";
                else
                        print"cancel";
" {' J7 I1 r& J6 v+ J                end;
8 V% L7 H; g& C7 A' D$ g+ u                eventcontroller.stop;
        end;
       
* g7 j  u8 z% N5 G* p. Y; x8 v        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
# d8 P, N+ R/ V4 u- [        bufname:=sprint("BF",i);
8 Q3 r: q  O+ ?1 x. k+ y/ }        if existsobject(bufname) then
7 C, ^, t  \0 f0 E                buf:=str_to_obj(bufname);
" W- E4 W! a- W$ g                buf.deleteobject;
        end;
8 G# f9 Z+ w6 O! C        next;
       
2 r7 o" T  R2 `- e7 {" Z6 y1 u        dx:=0;
* ~2 }) H, o. j- n" U        dy:=0;
        for i:=1 to number_of_machine loop
" v8 J, z9 t9 R% W5 r0 C; z& t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 E' E1 N8 t$ T3 h" w1 q                --mark:=false;
( O$ V) _9 ]& |5 H3 d2 d                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
% S9 J" F. I  N0 F                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) [: k8 n) t, u+ \                        and activityspace[1,rows]<(1.05*y_max) then
( @0 F# {: J8 W                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
! O5 ~% V8 J; |+ U# }8 L+ C                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
' `8 ^+ m, `- K$ s, d                        else*/
3 ^6 r4 ~8 k2 @/ w, m                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
$ _/ E: T- t  F8 }! h! F8 G" A6 w                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
# B1 q6 a! s: N, h! b                end;
                dx:=dx+activityspace[1,rows];
+ ]  O3 p) z+ J2 e3 _5 g4 w                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- D6 M7 ]( p) ^# X0 v                        end;*/
" D/ o- S0 k- E/ D* m        next;
        y_max:=y_max+dy;
4 Q5 [/ V0 }7 z+ U) 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);
3 B. }5 ~7 \) O( c; }        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);
% B& K2 \' D, l       
        rows:=0;
! X# P9 Z* G3 Q5 ~6 `        lines:=0;
        for i:=1 to number_of_machine loop
) n  O' }$ F- {# a$ Y: \5 r                for j:=1 to number_of_machine loop
* t" p1 W3 a8 w) t% _1 s                        if j=i then
                                d_from_to_chart[j,i]:=0;
' |5 v* D# g; `* m0 s( D# @* \& ~                        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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
/ l' A; e  H, [& k  h                next;
        next;
       
1 t4 }8 V7 O  l& ?4 ?        lines:=0;
5 S# `( ^, q1 m) D. F0 k        partstable.delete;
" D, S/ C6 l8 y! z       
+ `* T$ j+ h& ^- ^        for i:=1 to number_of_machine loop
6 r8 @4 `* D& H  G                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
9 D/ E# \7 W  r  _5 I0 E" q                        lines:=lines+1;
3 d, A2 h4 H  J) H, v                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
+ y0 F& o0 i0 Z: f7 g+ s1 e        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
4 \9 K; J' Q' q        bufname:=sprint("BF",rows);
5 H& Y- z* _  d5 K        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;
1 z, K) \8 Y8 z4 Z9 z' x; Z        buf.capacity:=5000;
        buf.proctime:=0;
8 F$ B# D- X, v% M. T        .materialflow.connector.connect(buf,machine);
       
        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);
% V8 A2 r8 X9 D6 g  tnext;
) s/ B, f7 X4 Z) Aend;