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

zooey

is
        mark:boolean;
% Q9 F' O1 W# P4 Y. b        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
& Z/ ~' J1 p9 r: |( M& }. o, H    machine,buf:object;
do
* v2 t# }4 }1 ]3 U, V  Q; ~/ F5 k9 q        current.eraselayer(1);
       
5 O* O5 n2 {- w7 ?- H        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
/ t3 m1 \# a/ U9 L1 F8 _( B% e                inspect messagebox("设施数目不对！请核查...,",50,13)
0 c% K7 x+ w1 z9 ^' O8 W                when 16 then
+ O- W; q% J" Z- x2 T" O                        print"yes";
3 b3 o% F& U) C4 E! W& u$ j' D6 g                when 32 then
" Z6 a- i$ z1 \# g0 N                        print"no";
                else
                        print"cancel";
" M( y2 G3 I( ]* Y/ u4 ]                end;
9 V6 i1 J) p2 A) V; ^                eventcontroller.stop;
$ ?7 S7 V/ v0 q        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
: v6 C% J- O. [: x        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
& y6 l0 p9 V  T  F4 m; A' ~$ @                machine.deleteobject;
        end;
- X2 w5 r+ W+ z  {" [1 E4 G        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
. ^0 F" n" P6 S: B                buf.deleteobject;
        end;
9 ]+ r: x- E) \! d" x  ^6 C        next;
0 D* _% u, E# t- h% q       
( V3 _. N! l1 B5 y/ ^" |" ~        dx:=0;
( c" Z* z" [9 v- N+ }) W        dy:=0;
        for i:=1 to number_of_machine loop
) |% V3 c; D4 M1 {                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: b. }7 p. ?: c                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
" ^1 l, }7 w) a8 `                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
# \8 {+ E; m: t% A/ A2 z) B) g                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
( T& @1 K* ^" |                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
1 |! s0 W  L- Y5 u# z                dy:=0;
4 k2 C% o0 s6 ^                        --end;
                end;
1 ]1 {6 S0 [" G3 p                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
  o% N4 ~) x& B3 g                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
7 t3 S2 v3 I. |/ f% k" q; s8 X. A: b            if activityspace[2,rows]>dy then
$ T% E/ Z; x  U7 A5 R+ |                        dy:=activityspace[2,rows];
) c+ w$ C6 _$ |                end;
1 S6 e4 ~' |! a. S5 F9 ~* K                dx:=dx+activityspace[1,rows];
                /*if mark=true then
% U. H4 ?* S* P" h) _2 q/ Y                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  h$ c* e8 Z: z) u' N5 ?                        activityspace[1,rows]:=ct;
; w" H$ {- b6 n                        end;*/
# K( m3 r. w- q1 H        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);
  X5 v; N; s# W        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);
       
# E  U, T  _- F$ ?! k. L        rows:=0;
9 @! M4 R- g1 C7 H' U, U        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
& H) B( [6 z/ p1 C* F                                d_from_to_chart[j,i]:=0;
0 |7 _4 L5 t) h; e& j0 ~8 [                        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);
9 v  ^8 F+ D7 |8 S% x6 N; S                        end;
4 g7 i% v: Q+ a( s                next;
7 m+ Z# d1 q1 ~# w. l+ M) A3 o        next;
9 X* d, f3 {" a: ~  J2 E       
& q4 g, E4 @, b3 _, Y, h        lines:=0;
        partstable.delete;
7 Y; d( h0 l- J0 e) j, K$ p. R# x       
        for i:=1 to number_of_machine loop
, F9 J7 c0 ^7 \5 w$ M* C, B8 i: K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" a( l0 B' D: `1 \* }                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
1 d) Z0 c/ r) U/ [7 h& d* f+ F& ^                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
8 r7 j9 R$ J6 f. J) `                        partstable[2,lines]:=w_from_to_chart[j,rows];
5 ~+ H+ ^* _) M. \" ~, \& h                        partstable[3,lines]:=sprint("parts");
$ `7 s; N+ A0 E6 \+ ~; C                        partstable[5,lines]:=rows;
0 B7 l9 q6 Z5 P* W6 B/ o3 L$ G8 L                        partstable[6,lines]:=j;
                end;
        next;
3 U% l; ]( N$ M# k3 d! [        machinename:=sprint("M",rows);
  l4 G; W" m' _4 h        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]);
+ r# S) p7 ]  }4 }/ X+ q. ]        machine.name:=machinename;标识符未知
        machine.proctime:=5;
$ [  L# T5 M( C6 F" N5 x, z3 _        machine.label:=activityspace[0,rows];
& e" U3 Q0 |1 c6 ^" e. y7 R        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
4 l9 h! P& u/ y+ a6 {7 v        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;
        buf.capacity:=5000;
        buf.proctime:=0;
7 h! @! v; \7 C! D" U& {        .materialflow.connector.connect(buf,machine);
1 [! R9 |3 }2 }7 o       
& t' E4 \* Y; P6 K        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
8 E2 `0 P  p5 T- }) ]$ Tdy:=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);
) U0 }" p1 P* E8 Snext;
; m" t* v% }$ p7 s9 rend;