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

zooey

is
% n3 R) f+ l( j9 W9 n        mark:boolean;
        dx,dy,ct:real;
$ p  I: G0 ^) l4 k6 L5 Y    i,j,rows,lines:integer;
) s( {2 x# h/ D    machinename,bufname:string;
    machine,buf:object;
4 C' q; Z7 W/ r% ~" l7 Gdo
* Z3 c: v" c4 g8 i        current.eraselayer(1);
       
5 e" m. p6 t" y/ v* \7 U0 `6 g        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
4 u" m, G2 @* K5 k  I6 C# N                when 16 then
8 @0 h; A4 m& Y: l/ K                        print"yes";
) a0 e0 e! f/ Y/ N. a- w                when 32 then
6 K: X$ _" V4 h" o# A  r                        print"no";
- n: j" X6 |; n! T& T! _                else
                        print"cancel";
                end;
( b5 h; ?* d3 [' M% R7 X- Y                eventcontroller.stop;
, N1 O8 _  s( c$ v/ J        end;
       
0 s0 Z% r5 M1 ?# ?' b        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
7 [$ s8 m( \1 j1 y- Q- s9 d                machine:=str_to_obj(machinename);
                machine.deleteobject;
' ^' V0 q8 p+ H3 m5 e' H; l        end;
        bufname:=sprint("BF",i);
+ q! S6 N+ O* L1 N  N        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
0 `* `* S. Q5 O2 B) U  D1 a$ P                buf.deleteobject;
        end;
  ~* ]# h' z, Y) H) G8 w5 e        next;
$ u4 v7 s2 K8 k4 W  ~2 e/ a       
1 K" `; @2 j4 _) h5 Y/ C        dx:=0;
& b7 E# T3 w' P3 f& l5 ^/ |. W        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
0 l, C- [5 C- T. G                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* |1 E6 V1 G8 R9 E3 X' h                then
! i4 H8 g$ W& E- Y. r                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
7 c8 P, d" ]7 }) \) [* L                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, H( h" a0 a" T* O, C8 F4 q                        activityspace[1,rows]:=ct;
                        mark:=true;
! s2 G- ?6 a1 w' \0 `                        else*/
                        y_max:=y_max+dy;
  ?% X( T- r9 B6 i4 x/ G, D                        dx:=0;
8 f+ p: G8 b; i6 w8 i                dy:=0;
9 d4 a  L5 S) f                        --end;
                end;
& e: q2 _" W% G& K4 ^; f                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
; k2 I/ e: N6 O6 _6 Y                        dy:=activityspace[2,rows];
) o9 e8 t( \* ?9 n9 B                end;
5 t7 e: F  n7 i8 |4 m9 d  G; m3 |2 G                dx:=dx+activityspace[1,rows];
1 v8 n; @2 B$ ?% B& @2 B4 ~9 \: Y                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
3 {: X! S  X& ?- c                        activityspace[1,rows]:=ct;
                        end;*/
' t# a3 O% R  F, i5 P        next;
        y_max:=y_max+dy;
0 g; @3 {( @! C: N* @& C5 M        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);
. A& b' o1 M* `3 c9 C       
" [# Y" l/ a% G% _* O9 u        rows:=0;
        lines:=0;
4 z- q' x' s: S  X; R" Q        for i:=1 to number_of_machine loop
, T- n; i# j& ?# T# X                for j:=1 to number_of_machine loop
  u6 m; Y( }! [1 h5 U                        if j=i then
7 _+ M  l1 ^* X3 R- R) V                                d_from_to_chart[j,i]:=0;
: F0 H. S9 |  V8 D. `1 K; p                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 ~" \  p1 Y7 [                                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);
( L! x! V1 `; r1 C  U! d9 y4 ~                        end;
                next;
% p" f! w9 S5 |- c! B. d        next;
5 u2 h$ E& ~  a( `       
        lines:=0;
        partstable.delete;
       
& ]2 u% W$ ^6 R! H9 P4 v" \% M2 u( E        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
5 f: `' k0 V; g4 j1 k                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
" U  V  N" @: P  d  n' X- q& C                        partstable[2,lines]:=w_from_to_chart[j,rows];
& K' X3 N% v' z' d% |. n                        partstable[3,lines]:=sprint("parts");
+ y, z( @  x; P4 s: ~                        partstable[5,lines]:=rows;
5 Q- s1 b9 ^1 I, S7 K9 d+ n  a' b1 l3 E                        partstable[6,lines]:=j;
7 Q& Y5 V* [# _5 F) l  J                end;
        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
5 b* [0 i+ U( m5 Q' g1 d; w        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
% E& G* }* M/ e- h  {        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]);
. `1 S) X5 i5 q5 F7 U        buf.name:=bufname;
  O9 q# f1 ?+ j. p; a        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
. q1 s$ a4 J+ U2 Z2 R+ [        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ L5 z& n: @. F" K5 Y1 ddy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
9 g6 k2 [" `; E1 X/ f! ccurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
' B  J$ R) P7 O0 b$ R# Z9 [6 Pend;