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

zooey

is
        mark:boolean;
# c" X" H% ^% r! D        dx,dy,ct:real;
+ s% R; a! O; Q8 M0 A! a    i,j,rows,lines:integer;
9 E  F$ i0 q, m8 ?    machinename,bufname:string;
+ [" f7 B2 U* b. q    machine,buf:object;
$ l/ F! m( X8 o+ [9 q8 m6 \$ E6 b5 ydo
+ D2 _! w) ?* A. |. T5 w* K        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ @2 l$ w. M' i- d6 l                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
! w. D* L1 P% b: A9 d" ^1 M0 F                        print"yes";
                when 32 then
3 W' P" O% _3 D- j" ]                        print"no";
+ E. a9 M% m: c/ B* o& c/ ^. g                else
- r- L, Y  W7 H                        print"cancel";
) ?( y4 R% e& Q" U3 \0 x                end;
0 G, v/ }0 r% w1 _! K                eventcontroller.stop;
2 x5 E% }% e8 i" F+ k% Z/ w( ]        end;
- ^" [8 @( R: \) W       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
5 l6 D5 {6 v4 d        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
0 R, }; A/ x; d& S: t5 g! Z                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
2 k# ?' b* P. V/ J9 j! e- U                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
( i) R% R$ _" L7 {8 s2 A        next;
+ g) F/ M- p3 n) [3 z       
        dx:=0;
        dy:=0;
$ t2 V/ A  J! l2 j7 j# j        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( f+ y7 R0 q7 V2 ~& b* m- `  B$ Z: W                --mark:=false;
) Z  i  v5 b5 b% ^                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 m  x$ Z' I0 i; }                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 R9 Y8 G& B/ L                        and activityspace[1,rows]<(1.05*y_max) then
7 }! ~0 h# o1 X  g                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
- L! B2 y- N! y. E- }$ X                        activityspace[2,rows]:=activityspace[1,rows];
- V$ \# T( _/ K  U' f                        activityspace[1,rows]:=ct;
6 E) G% E. F+ t2 l0 [8 L                        mark:=true;
* M5 @7 J; B/ b/ B. p# `                        else*/
5 |; r' q  N1 w/ e                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
) y! G* y1 m. o5 P1 Q                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
+ Y5 Q' F3 A. v6 L5 t0 N9 K! n                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
3 p) ^6 G5 O: A5 f  b            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
8 e/ r" o2 I! Y* ?; e- ^: \- V- C                end;
; h+ q# H9 g6 Z+ T9 m) W                dx:=dx+activityspace[1,rows];
' ~- e# U! \8 r5 }1 H" a                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
$ V! ]; d' p+ o2 C) V        y_max:=y_max+dy;
$ m4 e) \" N0 D3 N& Y# ~4 ~" R        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);
- v2 D" h3 O9 t) j5 E9 [' `        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;
% d$ ^" q1 w, P4 p" d        lines:=0;
        for i:=1 to number_of_machine loop
8 [, n% F6 N$ G! ?1 F                for j:=1 to number_of_machine loop
* \# h. {, l$ p/ l- p* j9 Q  p2 K$ s                        if j=i then
                                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];
' S  M$ _( `  n# ~3 Y0 D2 `                                d_from_to_chart[j,i]:=abs(dx-dy);
+ g' Z) h* C) L6 L0 z                        end;
/ b/ H( Y- a( R9 X" g                next;
        next;
       
1 j; t5 v2 J6 D1 i        lines:=0;
        partstable.delete;
       
: M  o, ?0 l4 Y        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: F1 w) V: G( @  E# p' H                machinesequence[2,i]:=rows;
7 M3 ?$ a, P3 ^# i                for j:=1 to number_of_machine loop
7 b) s, f" {+ ]7 E9 \8 f7 Z                        if w_from_to_chart[j,rows]>0 then
- B+ [2 U0 ^6 @9 g# T5 ?                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
. E5 d- v: N$ `+ i% k; ~- \                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
( z8 V* n9 T' R6 ?" V$ }. \                        partstable[6,lines]:=j;
                end;
+ l) ?0 N% `& R+ c+ a        next;
+ y8 Y! q$ R6 u- s        machinename:=sprint("M",rows);
# u# ]4 k, H2 R6 r        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];
        machine.exitctrl:=ref(leave);
0 C7 Z" l4 J) P# ]; `8 J8 z       
1 M% p4 b3 J1 \0 G5 E7 j+ O! _        bufname:=sprint("BF",rows);
) t" n# e7 m; g6 p1 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]);
+ q' ~2 b/ T$ F! u# e; |! P' D        buf.name:=bufname;
+ [' y# C+ m& e+ e& a5 Z        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
' w# Y7 B4 A' |* v! Y       
        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);
0 u# W# }. ?" Wnext;
6 U3 m2 k& O# k8 m- z5 [; {end;
4 B: Y1 `8 k# O; m. B1 t