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

zooey

is
! I! E  B7 n5 l/ X* \: D        mark:boolean;
( [4 P+ N' K, F  n8 g/ G" W5 v. Y        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
  d: l; b1 }: M$ {8 K    machine,buf:object;
8 u. t& ~, M4 Rdo
! y' D9 i7 o9 ^9 M- T! G        current.eraselayer(1);
3 T1 n3 F+ ?: C+ r       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
2 ?( V- F" Y- E8 ]. F                when 16 then
3 Y# x0 E7 f' m$ \0 b" {' E                        print"yes";
                when 32 then
" W+ ?) s. c; K. |) ^                        print"no";
, i9 J- q5 J6 v) j* u. h* G+ O                else
/ Y$ w5 B) y. U$ q8 h' u                        print"cancel";
* E# ]+ y' |- {$ y                end;
( _4 W7 F  t- o+ S! B                eventcontroller.stop;
% N9 N7 f( T& J        end;
& h9 t! h- d" g( _8 R0 k! O% E       
9 B# b5 e4 j- l: A        for i:=1 to number_of_machine loop
5 p1 m+ l2 ^- A$ g        machinename:=sprint("M",i);
# ^1 G# G/ N4 [  c& C' [: ]        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
* H  P+ S# q/ t  v& k# r: g                machine.deleteobject;
        end;
0 V, t: x0 q) p$ G        bufname:=sprint("BF",i);
        if existsobject(bufname) then
/ w. w8 G4 o0 u- W                buf:=str_to_obj(bufname);
( k, r1 [* l7 V" k# \# S( L1 }                buf.deleteobject;
* K- X1 a# z$ ]; m        end;
3 r7 ~) e5 Y, G2 E2 @  x( S        next;
       
0 b" u7 E$ z; l0 C        dx:=0;
$ }3 Z+ v0 W' `& W" Z( |        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ g+ V. M+ ?% E' ?& Y9 [                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
: W6 J) e$ f2 V  R' I                then
9 U- P: N$ w( u: V" Z0 F                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 P( T! T  |6 s" @& ?& `; f3 V                        and activityspace[1,rows]<(1.05*y_max) then
8 |- o, q3 Z$ \5 L0 I                        print activityspace[1,rows],",",activityspace[2,rows];
7 O$ k$ L, A- R. K, {$ W8 i                        ct:=activityspace[2,rows];
" `+ `9 g8 K5 A2 J/ I! q                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
9 r$ d- G, M" p                        y_max:=y_max+dy;
                        dx:=0;
* m% ~! v1 O$ ~6 w, h% r$ F                dy:=0;
+ K: a1 k1 S, z5 C                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
. `! Q/ X, H% a! y% 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];
( `$ c1 t( B( U6 s                end;
                dx:=dx+activityspace[1,rows];
0 u7 d, W0 O  p& D, X) A/ V& {5 P5 s; _                /*if mark=true then
; K) L( y  t5 v% i5 t3 M. I/ M                ct:=activityspace[2,rows];
& _$ m4 P7 ^- \( I, r$ c                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
, [: [" N: N6 C" W3 O; r        y_max:=y_max+dy;
8 d/ \+ b8 w4 E        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);
7 m4 t2 O  A7 Y8 w( J+ W; D$ b  `2 N        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);
5 U/ S. `6 M  q2 W# }  b6 A- _       
. W. t. A7 ?- z        rows:=0;
/ V$ b' }0 G" `9 e4 J        lines:=0;
4 R; P  P  B, ^        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
! x' [+ `8 g& }: R                        if j=i then
                                d_from_to_chart[j,i]:=0;
$ w0 q/ n0 I2 D; u                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
5 A) Q- [0 m; w) J; x0 `* B) P. H                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
+ C# Y8 f' a# c# J' w4 d/ ^" w                                d_from_to_chart[j,i]:=abs(dx-dy);
! @& F( ?% K, C0 }  ^- I                        end;
# _3 `  u0 j0 ~; J) ]                next;
        next;
! w. X+ z6 X; L! f. U       
0 U6 S& v$ X' ~3 K" L* H/ `1 u        lines:=0;
! I, d: T7 E4 L. f, M! K+ q% O) f        partstable.delete;
" j$ a0 g8 G* n* T5 m2 w: w/ a3 g       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 L& @9 @+ R; o! p$ M                machinesequence[2,i]:=rows;
  X+ X$ O6 [5 [; A8 @3 S                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
) @$ i1 l1 t$ H  l9 W* r  ]( T                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 H4 |+ i' a1 j3 B                        partstable[3,lines]:=sprint("parts");
+ y8 [) r6 R0 s8 A# N% O8 J                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
( f/ `9 ^4 C, J) ~* A) n/ {. f        next;
* q( a! {  }+ H. }- U9 F        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]);
+ M! d+ ^# }5 I3 c$ s5 w        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
# Y7 O2 j& C" \2 A' z8 M' 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]);
) ~% ~7 b( ]% d2 o. s8 ?0 }4 ?# C        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
. W7 N1 e2 [8 U) [* q        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);
next;
end;
% y4 i4 Q  R1 J7 k! Q6 J6 D