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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
3 _( O1 }" w; p3 h7 @' W/ v    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
2 J, n8 \9 P1 W0 C' z6 I: `- L       
( Q; a0 j3 C3 H; w        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
1 q. r1 ^+ p$ h0 |+ C) T  C0 D* U                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
; A* Z) a( F* x0 {5 D                        print"cancel";
                end;
                eventcontroller.stop;
! a7 m7 j: J+ v9 L9 }0 x        end;
       
        for i:=1 to number_of_machine loop
% w; o+ f5 ~) m1 L0 ^( g        machinename:=sprint("M",i);
  E( l7 O/ I1 c9 Y5 {: w/ `: D        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
- c6 o/ ?3 K% q) w0 _: w' H* o1 x        end;
        next;
       
" n8 }3 j( t/ q7 ^9 [5 q: |        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
. L9 U; F1 t) b! u  w/ [                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' B- S; z- f, W- S( S                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
# d, B: z& q# |* {                        print activityspace[1,rows],",",activityspace[2,rows];
* C- F  l' {( e# U2 H                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
! n8 |: b: W/ _/ s- O                        activityspace[1,rows]:=ct;
9 l  k  G+ Z  e* U3 ^                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
1 y' S$ g# ^. I+ X5 E                        dx:=0;
9 x, S9 H. g% |0 m                dy:=0;
                        --end;
9 n8 J" B4 H1 y* O/ e                end;
: `- {, ?) U$ t. o  H' `4 z  t' U, W                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
# f7 n( O) o- d- b3 G4 e) p                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
) ^6 Y" j$ g8 s2 N3 ]9 F                        dy:=activityspace[2,rows];
! H* y' R6 ^2 E4 V. Z5 b                end;
2 Q, K$ |: D5 S+ G/ I& u  o                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
- e7 ^, |5 d/ Y6 K4 \  y0 J- |! `        next;
$ H3 t, n! D+ J$ g# P4 Q! n4 j        y_max:=y_max+dy;
8 X5 n/ w1 {+ t4 o. k0 j        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);
" |  w. B0 R! a1 F0 I" p       
9 R( O1 ?$ M4 p# q( L$ U        rows:=0;
        lines:=0;
' s7 r& u% A1 V0 t# E$ s9 J        for i:=1 to number_of_machine loop
3 D/ Y7 M+ t% B! K7 \/ {; S1 \                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
/ F- s9 W9 i& q  g( x7 X1 R" H8 Q                        else
6 O( z' w/ e/ b. g' Q                                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;
& @  b$ w! U- C' Z                next;
$ q, _5 j; ~2 N        next;
       
1 l$ a& W7 I+ P) `5 P1 W        lines:=0;
        partstable.delete;
$ M7 s& h$ p, j' c9 ?       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" F8 g9 n! n1 p  U+ T  ]* o                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
* g" k* x7 _5 ^" y* M* e                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
) m0 c# C  U% I) {+ ]                        partstable[3,lines]:=sprint("parts");
, K7 Q1 X3 S' \) |6 g$ z4 ^+ }8 i0 m                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
! I$ |7 v6 `3 p6 a        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;标识符未知
) [- E2 F, n) n        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
( {0 M; U, X$ o* v. C, I- q/ o% P. W; T        bufname:=sprint("BF",rows);
" F3 p# \" x) o$ f3 [* {        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]);
, \' L& d  e5 m9 D' |3 X3 F        buf.name:=bufname;
' X4 H) M; u1 y' e# H5 t9 b' Z        buf.capacity:=5000;
: j! j# J1 J9 j/ f6 H        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
! h. E6 ?* Y) n; m; [8 v  S        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;
3 D# v6 e# H$ o0 c) w2 {; c6 |8 Vcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
) J# \4 E% Z% e" p1 o- G3 b0 B8 Wend;