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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
; {8 L" a8 z' i; i  S2 o0 c    i,j,rows,lines:integer;
    machinename,bufname:string;
* x2 ^0 N8 n; }    machine,buf:object;
do
1 h: T8 l2 Q' m% s# ^2 @# G1 y        current.eraselayer(1);
" A9 k: s7 o( d3 U: M# L       
0 s1 W# _: p& a+ u# X# _8 L        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
# ~. _/ r$ H: x                        print"yes";
5 q3 n. f: F$ }6 g                when 32 then
                        print"no";
# s( H( E  {* h2 L                else
3 m% p7 }* \3 [6 H                        print"cancel";
) j- T  o6 Z1 J+ ~' W                end;
                eventcontroller.stop;
5 s: y7 P+ b/ _' a, w        end;
  y$ Y, l- O, X) e       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
: `; n/ {* G  a                machine.deleteobject;
) D* ^8 r4 A1 g* O. h1 x! H        end;
9 C1 K' T& |9 B- O; u7 p        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
  [9 P! z* ]* w# ?( Q- C% Y; x                buf.deleteobject;
        end;
9 G! J5 k: S. e7 G4 l+ D! N$ B        next;
3 c8 \& l# w/ {1 t- P  t       
: z( C' p  G' Y2 U8 U) d! p        dx:=0;
        dy:=0;
3 y! A4 s" @% E9 _  Q        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ P9 `/ ?+ _; A! D* q                --mark:=false;
! w% u4 @# x2 _2 L) j. A                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
" Q. I# {8 i9 m* [$ c. Q7 ~                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! _6 f2 B- a3 j6 A$ U                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
$ Z8 A2 c8 R$ Y  I/ X                        ct:=activityspace[2,rows];
. U! b! y: d) m8 _# v( v                        activityspace[2,rows]:=activityspace[1,rows];
4 O1 }0 `$ x" x: B* s" W& R6 |6 [' v                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
  O2 Y% V1 x1 O; E2 S7 u  }                        y_max:=y_max+dy;
6 u% Q, y; k. m! {5 _2 U' B                        dx:=0;
                dy:=0;
                        --end;
6 F  {- ^  U" _7 j  r* E& T* T                end;
                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];
! X) @) M! C. J# w2 h: a                end;
( G* E7 G2 g8 v% p) W1 Z                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
' w/ T% v/ f( S3 h4 o- g# m                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
0 L! Z1 h7 w+ x4 T3 g' [        next;
        y_max:=y_max+dy;
4 G* x4 D( G( U1 ?5 v8 F& }( I        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);
# U  i9 Q6 K' R/ b& G: ~        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 w# m1 |1 v4 L$ W7 G5 |       
4 [  x" ]# _( l, A2 ~  ]. ^        rows:=0;
        lines:=0;
5 g1 c8 W: E8 ]! V0 A! J# ~/ z+ K        for i:=1 to number_of_machine loop
; z& I; A" }$ m- `9 l                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
9 I+ o0 o' b! [" A9 ~                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 e. `4 Z& e3 c4 w  T                                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);
! v! ^$ D7 c2 F- i5 @4 C$ E5 d                        end;
1 U+ ^2 k  a1 r4 ?3 H                next;
1 i0 m+ q. i8 L        next;
" `+ l7 f; H# q8 B8 A3 i/ ?       
! o* @  c$ P- y; p3 K        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
  L5 f5 S" b" K1 D6 v                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, \+ B. t7 ~8 r5 |/ b: a9 b                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
; r( n. S7 e$ A5 q& I                        if w_from_to_chart[j,rows]>0 then
- Y7 S- N- y% |                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
7 T  X, V: M, [$ x% b% Q+ K                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
1 `0 o2 W6 C) [: K' |        next;
        machinename:=sprint("M",rows);
; Y/ l4 }- ]3 y  I) ]6 ^        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]);
% I& o# P) R$ P3 F; T/ u8 C& q        machine.name:=machinename;标识符未知
3 p/ I0 T$ E$ C6 x        machine.proctime:=5;
* K3 v$ {. X6 H6 y        machine.label:=activityspace[0,rows];
9 B! L& g" E# B0 b& b. D        machine.exitctrl:=ref(leave);
; P' `4 c) c2 S4 C6 ]: n       
1 u2 Y! p+ m0 C) `8 h; A  O0 v        bufname:=sprint("BF",rows);
1 a: L! r7 K% V$ z1 z, J/ l# H        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]);
! d) j  Q3 N% G$ W0 F" N        buf.name:=bufname;
% s4 G; `3 Z! k0 K, Y+ N        buf.capacity:=5000;
& x6 R* a5 G% ~  c  q* r! c        buf.proctime:=0;
4 U! S$ Q" D+ g6 j! d7 j        .materialflow.connector.connect(buf,machine);
0 c1 a- v! ~) P- D7 `- h, G       
# ~( E  E8 I4 G( o1 }; e        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
8 A. ]. K9 ]4 V( o& xdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
8 A  s0 G' J2 Z; {current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
2 L/ L$ F6 z5 Y& l% C* w# bnext;
/ q) _3 ^0 G; n" ^end;
, A$ l( x$ e8 q4 B* b* i. x: {