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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
% y# {* H' S/ y( e( B        current.eraselayer(1);
  n+ d! g* o3 x$ A5 t% w, C       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
, y. W* P5 a" j2 x* e# T                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
) h- h9 G/ O& b/ d2 A* I- p: A" ~                        print"yes";
                when 32 then
  r) S0 b/ V7 D4 ]% R                        print"no";
, ?/ {- \8 f7 s                else
/ C+ W3 g6 C1 @' ^: p                        print"cancel";
                end;
' `1 ^& q' g' l4 ~0 E1 L5 r" ]" n                eventcontroller.stop;
        end;
; E( g6 i& p' A7 c; I       
        for i:=1 to number_of_machine loop
, C+ _" x! ?6 e. Q' x6 }5 c- j        machinename:=sprint("M",i);
/ O, j1 D+ s6 Z; R* X        if existsobject(machinename) then
9 N6 Z9 h0 E( T                machine:=str_to_obj(machinename);
                machine.deleteobject;
; q+ |8 v9 j/ F; _, s( m        end;
$ t2 r' G+ H5 V, A* ]! ]' t        bufname:=sprint("BF",i);
0 Y6 a5 h4 B0 d4 p; I        if existsobject(bufname) then
. Z+ H& {& h7 V1 q$ R5 \                buf:=str_to_obj(bufname);
( o: d* z4 N* ?2 R: R! x                buf.deleteobject;
3 A1 z8 u$ ?  T# P4 F( {3 F        end;
        next;
       
        dx:=0;
0 |8 w* H  E7 X( ^$ C* w  S        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- Y( S8 P8 p5 A8 p4 @( n                then
3 m# O/ J+ V* X1 o* M1 f                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
3 [& a/ A8 z- L, z9 k6 A) u6 G2 n3 b+ h                        ct:=activityspace[2,rows];
, @3 q3 `8 o+ d- z                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
1 r- x( K4 n+ E                        else*/
1 U9 w' @. g' }6 e: b# j& N$ m                        y_max:=y_max+dy;
: _; a. Q% a7 l2 E+ `                        dx:=0;
                dy:=0;
+ w4 \, X+ O* b. L  X4 C) k) S                        --end;
                end;
1 ~8 X6 ]  F' g) }# i                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;
2 Y- L# ~1 v. v6 C  b            if activityspace[2,rows]>dy then
0 G- n0 z( p# C! q  F, u                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
% @/ B; m% j7 T0 B# E# c                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
4 v0 L2 T- `5 ^, H# k  f                        activityspace[1,rows]:=ct;
' p4 y% J4 k  v/ O. n$ c                        end;*/
        next;
        y_max:=y_max+dy;
) d9 Z2 F3 J! s2 |; l. e        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);
9 H  ~* g) Q. A  q- Y" k, N& X        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;
+ P: e/ D( {! ^; c1 o        lines:=0;
        for i:=1 to number_of_machine loop
/ v9 C  n" A3 a+ `% R: s4 C                for j:=1 to number_of_machine loop
- k4 O. l, W6 Y* E" @2 F! _                        if j=i then
& n2 o. i" z' ?                                d_from_to_chart[j,i]:=0;
# G3 q( I7 R0 O                        else
" G( {8 B+ \7 K' }* A                                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];
% _! @! W$ @7 H+ x                                d_from_to_chart[j,i]:=abs(dx-dy);
6 u6 T: W% n: e4 N7 b- V- ]6 W                        end;
5 U8 c& a- h  `, m! a2 A2 U                next;
        next;
) b% K# P2 u: u4 r" h       
! S  e& p9 T* h8 X5 ^        lines:=0;
5 }- [- i* t0 N        partstable.delete;
       
        for i:=1 to number_of_machine loop
. {6 R' {. n9 X                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
- c3 n/ v3 t$ ?7 r1 l/ @8 F( }                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
& ?" u8 t: v- ^6 s# K0 X                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 Z2 c8 A3 ]: g! F. s' o( {                        partstable[3,lines]:=sprint("parts");
) i& B5 h/ ?( ~& O' p                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
. e9 A3 R: w$ f        next;
        machinename:=sprint("M",rows);
) f1 r! E; H* k. a' g% _5 U        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]);
8 D1 Z" o. E! Z- }        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
2 {5 G. _9 p1 }0 n( ?$ E! j        machine.exitctrl:=ref(leave);
1 i. C5 m) {. ~       
+ f$ Z9 t5 o; s+ k, D        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]);
  o; D9 M  B0 ?/ t$ J- j4 J* L        buf.name:=bufname;
" q: c: @' a8 C1 S7 I& G        buf.capacity:=5000;
+ ~% N. o" Q2 c+ y3 j: d! A        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
( b' [. x: N& S9 ~4 V- X* |        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);
2 x  q% r( @. c, i7 n9 Fnext;
end;
$ b* c* W+ g. Q& a