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

zooey

is
        mark:boolean;
* R1 ?8 s- v2 r) P$ Y0 P        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
  m( P7 X0 ]% \  J/ ?5 T        current.eraselayer(1);
       
3 g: u( S) N. A( ?' q4 p8 ]: a        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
) s/ f1 V& H  f: J( Z) V, U                when 16 then
8 W) ^/ x- ]* L                        print"yes";
2 _" m" P# ~6 n9 n9 @6 @) F6 Z                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
3 Y: F+ C3 |- Q$ Y# K9 @) N                eventcontroller.stop;
        end;
. M+ M: T5 J! ]$ r       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
1 w) @5 c0 h& Z$ M        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
$ N3 D+ I4 ~! v( x8 ?4 o1 J1 f2 C                buf:=str_to_obj(bufname);
; _; K# S/ K( Y0 u- H                buf.deleteobject;
        end;
        next;
. z6 d; [! s& O6 E3 K0 ^% m# [; B; X       
, k8 W+ L& K" T( P        dx:=0;
3 D1 d: S! _- h) q3 l/ V        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  \* e6 e- M: i' v                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 b; u  p2 _" [# G/ x& X0 C                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
2 M. }. A! E/ F7 s5 N& z/ {: j2 g- h$ [                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
$ s$ j( f' k6 O/ H& ?3 q# `; t1 Q                        activityspace[2,rows]:=activityspace[1,rows];
5 N. G- Q: l" R# ~6 w. I0 D                        activityspace[1,rows]:=ct;
                        mark:=true;
5 Q' z8 y! s/ H% G                        else*/
8 e: f0 H3 l8 G4 v4 z/ J                        y_max:=y_max+dy;
( @% a6 H. y9 d9 P2 a5 h                        dx:=0;
                dy:=0;
                        --end;
                end;
, `1 h' u* u9 J/ }# 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;
                dx:=dx+activityspace[1,rows];
2 Y- ?9 y) Q  n5 H' i6 V7 `                /*if mark=true then
                ct:=activityspace[2,rows];
  f: K- F' N2 m, k                        activityspace[2,rows]:=activityspace[1,rows];
8 t1 S+ ]! H- P; r$ d                        activityspace[1,rows]:=ct;
                        end;*/
0 ]) T- G- e' v        next;
3 C: Q* a- a6 p* m2 D* j        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);
( r$ _9 L: L" P% [1 }        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);
8 L/ }- j2 \! J* r0 u) b1 M       
        rows:=0;
, T6 B: L/ b' n1 O; C' w7 ^5 i        lines:=0;
" f* [$ x) B6 o7 \( F" Q        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
+ {+ Z2 T, X; d                        if j=i then
                                d_from_to_chart[j,i]:=0;
. N% M- F. H. d. X                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 U# ]6 b  Q( ^: ]1 G; a: T                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
, g7 s: H2 J- J" f" d9 X: T' g$ q                                d_from_to_chart[j,i]:=abs(dx-dy);
/ `1 v8 A. R8 D: \1 q) W; n                        end;
                next;
7 _( \5 H  y# u! D        next;
: R: g- d. K- h       
4 X8 `, H; x* Z: Q4 V( j        lines:=0;
* [/ h, b1 ~( @: Z        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 ^% ^5 e( ?+ B+ R0 i% w5 Q                machinesequence[2,i]:=rows;
6 ]2 F0 T7 j- A' |1 L# X* S                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
# d1 U; y, W$ ^1 d                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
% T$ f0 A: Y1 B. a                        partstable[2,lines]:=w_from_to_chart[j,rows];
% H' U8 a  o& M0 m& r, S3 ^' c                        partstable[3,lines]:=sprint("parts");
# k; E% j/ Z: g                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
- L9 g" u" X! L( g# y# a                end;
        next;
& ^7 d$ F; ^% \$ p        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;标识符未知
        machine.proctime:=5;
5 e" e$ k% ~: t7 L: J4 T, I# S9 O        machine.label:=activityspace[0,rows];
3 s0 s: Q4 f3 ]8 ?7 Q        machine.exitctrl:=ref(leave);
3 B, j. Q6 S4 O9 z7 p  ^       
        bufname:=sprint("BF",rows);
5 N4 }/ D' D2 Q3 c" D. }        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]);
. U2 @- h  N7 S1 J; I' [" n) l        buf.name:=bufname;
        buf.capacity:=5000;
" F2 A. k5 s3 Z$ O! h* J) X' Y        buf.proctime:=0;
$ m7 Y' X' I9 M% }; \3 t$ q        .materialflow.connector.connect(buf,machine);
- J' V' r1 {! R9 \9 z0 O$ b       
3 Y8 g5 b1 I, o6 g$ U9 u, l        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;
( N- N  A! e$ m$ x! z7 ?$ kcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
1 ?2 m: Z; n; O* z$ pend;
+ D2 @; ?2 d' ?" r& [