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

zooey

is
% O3 x' k0 o: C4 L7 V* G2 Y5 z6 b        mark:boolean;
0 {9 B- K" F6 V* L8 f7 r        dx,dy,ct:real;
    i,j,rows,lines:integer;
. X  R6 A% S8 z7 i  I6 d2 P- p6 j    machinename,bufname:string;
  V8 w6 V3 J1 _8 k; |7 K, Y    machine,buf:object;
: }! G5 P& [+ K2 L5 D, H! w# Pdo
7 i; i' d" Q; j3 _        current.eraselayer(1);
       
9 q( G) _7 q6 e6 k8 x        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
, P0 _+ q% P1 c! d7 r                inspect messagebox("设施数目不对！请核查...,",50,13)
; i5 t7 k' u7 Z5 _2 o* T( W6 O                when 16 then
                        print"yes";
                when 32 then
- O: m. [8 v* D9 \" ~& j                        print"no";
                else
9 D- k5 A% @! V, e                        print"cancel";
4 W+ z5 A! `) ^/ P( S                end;
% Q! R) e9 O+ v9 e  P                eventcontroller.stop;
        end;
# d! g4 J* C9 ?( \: k, x% E       
  n2 |& R  E& c; _2 Q5 i2 f        for i:=1 to number_of_machine loop
7 k8 [! P& v' t6 h- I/ G$ k! K* Q        machinename:=sprint("M",i);
) j/ q4 H+ S! Y+ m' C: A        if existsobject(machinename) then
0 f" b. G" L, q9 C8 _                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
- L. y% A- }$ s+ T- X; Y        next;
; W( N) R. P+ d9 y/ Y% {  B       
        dx:=0;
: a5 L( t6 u* \- |        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 N) v* `# t9 r) W. i! N                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' T2 A3 h$ R8 V% q2 l1 N. j* `; X9 P                then
) K( X- [, Y" n/ w                        /*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];
+ O5 K3 ]+ \) ~, ~- ]( w5 C                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' \$ V; [4 B( g- w% d9 E                        activityspace[1,rows]:=ct;
( n5 |1 {& M  x4 |' s1 X: ?                        mark:=true;
/ C* e8 Y2 l2 F- }  q+ J: |                        else*/
$ \" j. C# m/ S) A8 C, e/ @                        y_max:=y_max+dy;
$ r7 v. a* z  t" G( W& B6 [1 W6 h' u7 S                        dx:=0;
7 E" T; l9 |; {9 k+ ?4 A                dy:=0;
/ j+ i- o$ W; B9 `+ N                        --end;
- t% N* B+ ~% j! _$ I4 R8 t" `                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
, P, y+ V* h2 t8 [, d8 L                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];
! _) t6 v( j! X8 M* g                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
7 F& C2 o; g. l# q& G: M( n                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, O, B! q# a7 ]# I4 e                        activityspace[1,rows]:=ct;
* W  B6 `( A7 V* C1 Q  |* N                        end;*/
9 R% S' q  h! Q& s* p) ]        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);
+ h' b: g& L8 a( ~& A' s) H        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);
( \8 q, P9 |* W4 F- H       
6 `& L7 S0 r7 U        rows:=0;
        lines:=0;
: Z" U$ p1 \; `3 g; N        for i:=1 to number_of_machine loop
% c3 ]: K. [- I. b/ g                for j:=1 to number_of_machine loop
" w8 E( P4 P6 j0 O% k                        if j=i then
" P/ u5 r/ B% W5 ~  n                                d_from_to_chart[j,i]:=0;
                        else
& ?9 s5 S. S2 l  K  k                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ N1 q7 Q; U6 o5 U" q" H5 C5 S                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
  e# Z0 G0 S% p. Q1 j                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
: M4 q$ \2 O" ~, J, D       
  b" I( P' a8 h5 {, \6 E6 O0 ]        lines:=0;
) j3 t" m. b6 t6 s! h( v' L        partstable.delete;
       
' [1 ]: p" E+ Q$ v/ d+ h        for i:=1 to number_of_machine loop
+ q1 P# O. v, |. g4 u- S5 C7 C8 `9 R                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
) _4 r, D7 V5 A( d% |7 m                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
! y# S5 h! w% f                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
' k& d& k* Q! k* g                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
' f/ w* _" J/ p        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]);
9 J8 F' P2 ~$ N3 L8 X* l        machine.name:=machinename;标识符未知
        machine.proctime:=5;
+ Z; ~8 Z- S# [: I        machine.label:=activityspace[0,rows];
( M4 e8 D2 q* Z* {9 C& @( L0 |        machine.exitctrl:=ref(leave);
: b: i7 y" Q; X! }+ C       
: b1 \/ b+ z4 c        bufname:=sprint("BF",rows);
& a- }9 d1 l, U. i        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]);
  K2 u5 M' e6 Y5 S( M7 }# e" i( y+ z        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
  c0 o' S; b# a+ W) y' a1 y- }( \8 `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);
/ R! H  X/ _, F$ [+ f, d' l3 s8 ^next;
" G- P2 n' M: c) D, @5 e5 }4 r1 x: vend;