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

zooey

is
        mark:boolean;
% I% ^+ G, K" J5 E$ d% \+ u! S1 t6 D        dx,dy,ct:real;
3 k2 a2 y: h5 h3 W    i,j,rows,lines:integer;
' Z! A2 `6 v9 @0 @( Y( u! l    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
/ c* j1 B3 l$ L' v4 s        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
, h3 W& \  ]6 q& F0 Y, n                        print"yes";
2 b7 `1 d) t, X; k                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
# G+ I* i3 w4 I. O) p                eventcontroller.stop;
3 H. d9 d  T2 ?7 _9 P0 V        end;
       
6 t  s4 X/ V1 n: R        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
5 y* c6 j; x1 c- p3 X/ D6 U* @                machine:=str_to_obj(machinename);
% ^, A9 o" q; M                machine.deleteobject;
        end;
& u( D! q7 ]/ d* b' P        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
+ a# |% N) Y0 H) t                buf.deleteobject;
        end;
        next;
1 _) P, ^, ^( ^- D9 c       
- U. u& s- R& @* I* Y1 r; b" ]6 L        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% C/ n% p2 b+ q& `% X                --mark:=false;
# X5 L( [& P4 i4 q                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
; O, O- p" l* X; S                then
8 V  Y; G4 l9 z: j                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
7 f) Z# N) w( k6 l3 b0 }, a                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
3 v1 f8 U# l9 s( \# {                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
2 B! i2 y+ v+ x8 n" R# I9 g                        y_max:=y_max+dy;
0 ?% O+ d! \$ P* v& c) |) R                        dx:=0;
                dy:=0;
- u) U4 n: k3 K; K; M$ a. Q) G                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
. p, V* ~' B. j0 `                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
- v1 C1 B3 L% d: l/ d5 m                        dy:=activityspace[2,rows];
' B: s' F: l  V7 [, o                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
4 y( H- K' {# N. b5 Y) i" A        next;
        y_max:=y_max+dy;
        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);
       
9 Q$ M4 `% |- b) m+ _- F! D        rows:=0;
        lines:=0;
, K3 m  O5 O( y; @: i' w: |        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
5 X- m$ L) ^7 G$ Y8 |, Q$ L" c                        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];
5 w3 [: ^* s, u8 q& C) w" 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;
                next;
( d+ }; q: M# D. N2 y# u- G2 _        next;
9 a! _, d3 G# q+ G. p% R, @- H' c       
5 E2 \; k) ?% C% y1 D4 _8 ^- b        lines:=0;
! |% i7 z+ L1 o: m        partstable.delete;
7 \: X& b$ z2 Q! V) H       
! s+ K0 c+ v- v0 u        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
! ?) W8 `: S7 m6 z  Z* R0 D                for j:=1 to number_of_machine loop
2 y1 J8 p7 P& H' Z, c4 _$ U                        if w_from_to_chart[j,rows]>0 then
. T2 J" P' K4 d9 z# ~8 F4 X8 y                        lines:=lines+1;
; J) O$ }% A) F! X: |                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
2 T( X% K- ~) v( m2 a2 ?0 l                        partstable[5,lines]:=rows;
7 s! }8 g  p& V                        partstable[6,lines]:=j;
                end;
, y* V+ v3 ~4 M  J+ |        next;
        machinename:=sprint("M",rows);
  p7 o  `! T+ Z$ h: z        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;
8 Q2 N" v' x/ K/ Y: n1 x" y1 v        machine.label:=activityspace[0,rows];
* ^' }  W, h5 E" S        machine.exitctrl:=ref(leave);
' Z+ t$ d$ q3 e0 U1 a* i* T) i       
8 ?3 f2 m7 P) Z6 P7 H$ m        bufname:=sprint("BF",rows);
. c9 b1 C, ~. P2 Z6 e        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;
" i4 |2 O1 [: d5 r        buf.capacity:=5000;
* v, G5 p7 }) t        buf.proctime:=0;
0 |2 b) B. y% N3 Z5 X% K        .materialflow.connector.connect(buf,machine);
% J, i- @* X3 X3 F3 F! p" ]       
- j8 Q6 I) Q% l# Z" R6 e) I        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);
7 m* Y5 I5 `/ J( I0 o5 F: I( r) O: enext;
+ }9 {, a* |" |7 H6 N: Zend;