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

zooey

is
        mark:boolean;
: z& P  a' l- d2 N        dx,dy,ct:real;
' y/ m: }( x' o& O# [1 P9 B    i,j,rows,lines:integer;
    machinename,bufname:string;
/ S. q- E7 ^0 r9 v, m: ?    machine,buf:object;
$ X0 d% D8 z; O& w4 s5 F. q2 sdo
$ R" d+ h9 W3 x6 S        current.eraselayer(1);
       
5 t# Y! ]' z5 M        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
( W# N/ D" V3 [0 U$ T( E                when 16 then
5 B& S3 O! \# m                        print"yes";
) h. Q* T3 K, A% q$ @# f9 m                when 32 then
/ V7 W. i; g) I0 x  v                        print"no";
                else
- U$ S6 O, O2 U' m2 e* a                        print"cancel";
                end;
& @. O0 Z7 J/ `) z0 R7 ^% D                eventcontroller.stop;
; b" Q. D( [! w0 ]2 }# t, }1 P# L        end;
6 g4 M2 F- E- Y       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
* X5 X* ]2 p5 p        if existsobject(machinename) then
: |+ R" g0 g4 a7 D- [5 P% `8 m* ?                machine:=str_to_obj(machinename);
                machine.deleteobject;
! k; k9 V% a/ Q) J/ [        end;
        bufname:=sprint("BF",i);
% T0 H% n. e  I7 Q4 i% T7 b        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
/ A5 D: h1 o& u# w                buf.deleteobject;
5 N# h6 c- q& Y, D. o        end;
        next;
       
        dx:=0;
8 m: h3 n+ L* _8 Y) d4 ~        dy:=0;
        for i:=1 to number_of_machine loop
( |9 ?" l8 j0 h3 }& V. c. g/ h                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: g, f$ X; Y) @4 n, U8 Q                --mark:=false;
& _+ S) M6 ~3 {                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
; [$ L+ Z% N" L$ r7 V% |: [* |5 f' E                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
" K4 |$ `2 ^0 a+ [* a: K                        and activityspace[1,rows]<(1.05*y_max) then
* c8 C: y6 @2 Z+ ]3 k- ^( b                        print activityspace[1,rows],",",activityspace[2,rows];
4 J# j& W* q4 L- Z$ R* i' l( b0 L8 H                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) D: p- H, s5 o8 v                        activityspace[1,rows]:=ct;
                        mark:=true;
0 ?$ F  p9 m% Z1 _                        else*/
" L' \; P& N+ y( T5 Z8 h8 ^                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
3 R: g1 g0 o. {7 E; W8 m+ n0 V                end;
, ]  K; D+ B5 [  q/ ~                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
                        dy:=activityspace[2,rows];
                end;
4 W& ?7 S- J, y                dx:=dx+activityspace[1,rows];
                /*if mark=true then
6 _; a6 l+ ?0 m0 W                ct:=activityspace[2,rows];
0 r& u( c! O5 ]+ r5 G                        activityspace[2,rows]:=activityspace[1,rows];
7 ?1 J  W! e7 S6 X+ T( Y2 x) a                        activityspace[1,rows]:=ct;
& K" o" E/ B# e# n$ Y9 O                        end;*/
        next;
        y_max:=y_max+dy;
0 `! Y7 c4 f- l( W  V8 G% N- ]        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);
       
        rows:=0;
        lines:=0;
" W/ O, ~2 D) g0 ~$ b/ M5 ~6 K8 V        for i:=1 to number_of_machine loop
3 f4 b  v3 W4 u+ j7 h& P( c                for j:=1 to number_of_machine loop
                        if j=i then
% m8 ~/ u6 K- p- F                                d_from_to_chart[j,i]:=0;
) {! v7 M; L0 v- Q1 \$ s                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
9 D9 r3 p- q: y$ J- R6 i, S                                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);
                        end;
. d. i3 J" i; v                next;
" j( B  U( F) H3 r1 `7 Q        next;
       
, X- ~- D1 |9 K, i% T* l; I1 C        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
0 I0 k. L( S+ m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, q6 E* Q$ R0 G' c* D9 C/ B                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
# [! h1 i) g4 f. R! a7 F0 n1 \                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
& f" X1 C. W+ k7 {& ]5 s                        partstable[3,lines]:=sprint("parts");
0 r/ g* m  v1 l* U+ c5 l+ j                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
7 D0 Y% L: E& u6 \5 U7 e        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;标识符未知
8 |1 b! @" X3 S  ]3 a/ S: |        machine.proctime:=5;
5 T" Y6 e# ?% k        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
( b7 ?- J& ~: ^3 q6 |       
. \! Z* V( d  B. l. F; G        bufname:=sprint("BF",rows);
        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;
8 l  k. U$ E) C& G, Y9 [$ l( i        .materialflow.connector.connect(buf,machine);
6 s7 r8 ]5 Z, q0 A$ ?       
, j+ y1 G& ?0 M        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) H) N4 R5 t7 V0 w1 udy:=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);
next;
end;