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

zooey

is
        mark:boolean;
4 e4 x1 x, O4 }/ `        dx,dy,ct:real;
! q/ o' ]/ O/ Q( m& K8 y    i,j,rows,lines:integer;
) V  t; d( M' ]; I2 v# M    machinename,bufname:string;
    machine,buf:object;
1 k" Q. b" v- n1 i- o; f6 e% qdo
. u, H, E- B1 I( S. D) G. ^        current.eraselayer(1);
8 ^; G% D' E4 S: A: [$ l       
2 h; x" b# x- w* j" y2 V! D8 H5 B0 J: Y        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
. K3 a" o$ _! x7 n) a                        print"yes";
                when 32 then
3 _+ \! w2 A8 o                        print"no";
                else
* e" n# h6 n, g4 P- i2 g/ ?2 Z2 m                        print"cancel";
+ B9 O5 m: k7 ?                end;
/ [+ [* @4 G8 B# ]# z, ^                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
% _( j, K6 m( R$ I$ K6 w        machinename:=sprint("M",i);
2 m, ]0 t0 D8 Z+ O# t0 _/ [        if existsobject(machinename) then
) Z& h. Z# Z# `/ T/ S  x/ J* g                machine:=str_to_obj(machinename);
- q' V8 P) y/ K  s' b+ f" D                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
7 T# g0 t" n6 `1 y2 w) x        for i:=1 to number_of_machine loop
* Q7 P4 ~  U) \- i! r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 T, n) V' w5 F  e  w                --mark:=false;
/ v. m2 `( D8 g, x  Y" O0 |                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. z# Q" B7 C' W+ ~$ m9 c                then
/ r5 f9 X' k/ a                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
' K. e6 \6 \& T2 r                        and activityspace[1,rows]<(1.05*y_max) then
# ^, Y+ D! ]% f8 u! \4 L                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
( G; a2 @5 R1 r: J9 I1 @                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
! D3 s) I3 b- \$ Z# }+ {                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
8 b# w' X' u) l# M8 ^# v/ T                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
. h  s& ~' J# O" B& r! D8 j8 {                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
' R* ?, y! V7 m, i  x+ n                        dy:=activityspace[2,rows];
5 D8 s% ?5 p: z- @                end;
7 t$ p8 ~5 ^1 ]                dx:=dx+activityspace[1,rows];
                /*if mark=true then
5 v# V, _8 {% c+ i" l                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
1 a8 I6 p- W6 W4 Z& L        y_max:=y_max+dy;
  E5 p" F/ q- }        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);
  ~- w" q0 J/ Q% N4 c        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);
       
9 w3 G6 n5 \/ M3 q+ d3 r7 s        rows:=0;
$ i/ M) x- |+ f0 C        lines:=0;
$ I8 F- s# l) o+ h$ R        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
  X/ q6 x, y# }/ W                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
0 N1 Q: e* p' j                next;
& z( h! J; {* b3 i        next;
: X8 T4 }; H9 A! ~       
, B' M; [2 |8 k# P1 A        lines:=0;
) G. y! i! ?" o) i/ I* v( k3 ]        partstable.delete;
       
: b2 h/ b3 n$ v' k, x" M) t        for i:=1 to number_of_machine loop
. I; s5 C* R! L& W5 b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 j' c3 b* W6 V( |% D( r% A' N, z2 |                machinesequence[2,i]:=rows;
/ c3 o& V3 M5 N# R0 ]- _0 j, }                for j:=1 to number_of_machine loop
" e+ [% W, f4 M9 [) X; x                        if w_from_to_chart[j,rows]>0 then
8 I: d! x4 g! w' F* D( X+ p                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
+ o+ [# g  S8 D: D5 i. T$ ?/ I                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
# J3 ^# }# m" p. j3 T) ?        next;
; ^1 m9 a' C2 i6 v% W" w6 M: J        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]);
7 m4 _7 P( p6 j* R' ~        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
% m3 @' h/ B: v/ z$ N        machine.exitctrl:=ref(leave);
( e8 F" ]( d" c0 A       
7 t. ]  E; ^/ T6 r4 F0 }        bufname:=sprint("BF",rows);
( Y9 p' d6 ~/ i. o. D) p+ U        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;
: L* a8 v- \8 ~% F        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
1 D, k: f1 _6 ~" ?" g! z  _7 [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);
next;
. |+ A3 d) h% bend;
0 ]' U% B% t6 a. ~# `* h( `