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

zooey

is
% f; e$ G. {5 U/ y5 Y1 O# r" E        mark:boolean;
        dx,dy,ct:real;
4 B# \* t$ A& Q; D* ?    i,j,rows,lines:integer;
" A* N- R9 V& e: D    machinename,bufname:string;
' W3 s$ ^7 O: X: Y( `    machine,buf:object;
do
3 R+ Z+ C0 B6 q! _; x6 l        current.eraselayer(1);
" D$ w' o! v1 ]       
        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";
                when 32 then
                        print"no";
                else
$ W2 Y/ j6 q1 ~1 Q* G                        print"cancel";
- z3 k9 K5 n0 ?                end;
" t  b, k$ H- P; Y                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
& q0 X* i" W! m1 W& X, V" k        machinename:=sprint("M",i);
) z& Z! u+ t+ b! G2 t6 O8 R" ~        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
2 ~' ^* W: X: K- q% ?; T5 g8 F                machine.deleteobject;
$ a1 ~( N9 y* R9 n4 y! ]        end;
        bufname:=sprint("BF",i);
) _4 W, H7 X4 S# l: r        if existsobject(bufname) then
. Y: n8 i& y4 K: ]3 N+ a$ D                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
' G* ^3 ?- u9 c        dx:=0;
" \3 F6 `: I/ D' }        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
9 m' l4 P4 |/ p+ N$ |                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
% |( _! J2 i% Z' t! T/ h/ `& Z' t                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 [# V' i+ G) I! o8 K: y                        and activityspace[1,rows]<(1.05*y_max) then
: h7 r+ ^1 d8 k% b8 P$ U+ h0 L                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
% ^/ S: z3 u+ F0 @6 m* F, q0 Y                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
' s1 G" u$ j9 N( e7 Q- q$ l                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
9 Z7 |% S: Q' L" V                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 D/ ~3 Y& B/ t% E& K- p- B' R                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
' O5 K* i& i7 ~! V                        dy:=activityspace[2,rows];
                end;
3 y) i5 x! D8 Q. a" a                dx:=dx+activityspace[1,rows];
                /*if mark=true then
. a- h9 x6 ]3 J( j                ct:=activityspace[2,rows];
  O+ Y" k' Q( r8 w1 V* W2 b/ ]$ x                        activityspace[2,rows]:=activityspace[1,rows];
6 z3 E: D- y5 `                        activityspace[1,rows]:=ct;
+ T; h2 ~' x3 V9 s                        end;*/
        next;
$ b" z1 C. F. f! k: q        y_max:=y_max+dy;
8 N5 M: X5 ]! r- P+ 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);
7 p7 h% j% x& @  r2 }        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);
       
        rows:=0;
, H& e/ {  s" v+ R& y        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
. l, g8 @4 n) `. o' F3 P                                d_from_to_chart[j,i]:=0;
                        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];
/ u" j! X) ~$ W5 q                                d_from_to_chart[j,i]:=abs(dx-dy);
& }0 T# d# m- m# y                        end;
9 P) f0 x1 |1 M& |$ V                next;
        next;
       
! {4 z# P" f- R3 g5 V4 e# h1 s        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
7 i* d. P2 g( M3 }& |, I; R$ n                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
. \9 g0 l7 q( N5 s1 y5 z                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 ^, S9 }5 P4 Y: E" T$ S& q0 I* j+ E                        partstable[2,lines]:=w_from_to_chart[j,rows];
: ~" N, f% J. D: v7 E; |2 m+ L                        partstable[3,lines]:=sprint("parts");
6 N& \, H9 H3 o4 R& V" [                        partstable[5,lines]:=rows;
# p" V9 J7 L& L                        partstable[6,lines]:=j;
2 c4 A9 o- s# r; q                end;
, w3 n3 X( M( B) Z+ w- d        next;
        machinename:=sprint("M",rows);
" G1 s: j, P. }/ X        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]);
* v/ U- l& w8 R/ x        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
- N; H) Y6 g7 @        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
8 ^+ _2 f" H# Y2 g. P5 q/ M        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;
* d" i& \4 \- }8 _/ k5 p6 j" l        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;
, S  x- q& ]5 V- n8 Zdy:=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);
2 Z  p& i1 M$ p. T/ v0 Znext;
  F; A: ~/ G( ]! G) L. @- pend;