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

zooey

is
        mark:boolean;
8 L- I6 S- x2 N) B2 J# e& }        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
! J1 t1 u& ]- Q- i3 p. O7 O        current.eraselayer(1);
; l5 n; [' P. }, O* Y+ I% c7 f       
3 l$ B9 u) K1 D6 ^+ ^# v0 I) y        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";
- S$ P! l% A6 v. d  m                when 32 then
3 ]$ V" i0 a% W& s; Q2 j2 Q                        print"no";
9 Q, y7 ~8 {( H8 p% W                else
                        print"cancel";
                end;
% n2 E2 g) Q8 L  G' I  b) g                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
$ C+ ]' h. Z- G/ |" v- M) C9 b        bufname:=sprint("BF",i);
        if existsobject(bufname) then
9 C& h0 D; N* w- b                buf:=str_to_obj(bufname);
                buf.deleteobject;
$ x+ h" ~# T0 _+ L: v4 k$ T        end;
9 a( r) }2 e  l1 K        next;
( d) ?- I: _$ {% [9 `5 b. v       
' B+ G- C0 J8 E, v8 v+ x4 x) V        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
. M% R# R+ `9 L( T: j                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- b( z$ g/ r9 H- m4 u                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 |5 h8 U. V# Q! J4 l" y                        and activityspace[1,rows]<(1.05*y_max) then
4 }# u( D8 d. d) M6 r: H/ q                        print activityspace[1,rows],",",activityspace[2,rows];
) k$ j) p2 W+ e0 U% l# G0 Y                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
2 p' c# P: b8 {) y" D; ]- ^                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
3 w  A1 l* H3 @                dy:=0;
% i$ F+ y$ [* O% C                        --end;
+ h0 M! U( {3 i( |+ i                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% X+ \4 X3 E% I4 E# {                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
. m% d6 r- }, V9 y+ @1 A            if activityspace[2,rows]>dy then
( }2 A4 ^3 Q$ E8 X# s                        dy:=activityspace[2,rows];
3 e5 [. R# m% V' |4 O) I7 w. j                end;
                dx:=dx+activityspace[1,rows];
8 }2 s7 ^& s8 S& {3 c                /*if mark=true then
                ct:=activityspace[2,rows];
& b# |) [4 J! e& m' _0 X1 @                        activityspace[2,rows]:=activityspace[1,rows];
# p! N2 l1 t: \4 j                        activityspace[1,rows]:=ct;
                        end;*/
- p: G; L, p) B% @2 b1 F. ^( ]1 H+ h+ m8 H        next;
        y_max:=y_max+dy;
6 [3 h! T/ ^" F2 F( y6 l( 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);
+ ~, \- i4 _$ u0 ?       
+ {! `+ y# Q. f$ `7 L& N7 A( b        rows:=0;
9 o; }1 a) A$ S  O* S" e/ A        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
% @+ F/ P, f, [" h3 \0 R                                d_from_to_chart[j,i]:=0;
                        else
4 v5 u' I; B6 D8 n* }                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 u2 J3 G2 x2 l" L4 M0 d% z                                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 z2 E, Z3 P. t9 [1 s2 k' T                        end;
                next;
        next;
; Z+ x; O9 o, p       
        lines:=0;
        partstable.delete;
       
        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
                        lines:=lines+1;
* |6 p" R, i1 o7 G4 a) a                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
- P0 M: D6 x( b( u                        partstable[2,lines]:=w_from_to_chart[j,rows];
$ d# N+ l4 L  f! J% P: s                        partstable[3,lines]:=sprint("parts");
; \. h8 |% L* a% H* A: h9 F# d' v                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
3 U7 M+ {  M9 ^; X: S                end;
2 u+ I: o' n' Y$ A/ J        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]);
+ w( W* G" g# {, U* l' P3 ]4 t0 T        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        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]);
' L9 J& U, `) [! A' K        buf.name:=bufname;
* m0 D, @2 S0 `& M0 W7 `4 s        buf.capacity:=5000;
        buf.proctime:=0;
2 e. f8 W& \; ]0 j        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: D1 s, X( a9 pdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
5 ?: j6 C6 P1 U  m" {current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
2 u  r- H, o. f