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

zooey

is
        mark:boolean;
6 @  Y; C* l1 a0 r7 M        dx,dy,ct:real;
    i,j,rows,lines:integer;
# k! F7 g" {& M% Y  R    machinename,bufname:string;
8 }! O; r. b, F0 b8 U& [    machine,buf:object;
  f( {" C( e! f- y. U0 R( a, Qdo
9 i' U3 j, x" d) v        current.eraselayer(1);
" s) d! y- f' P$ I       
6 b* H4 c$ n0 @2 C1 d- D, b        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
2 g" m. |4 H& [/ q! P, r. \# d  Y                when 16 then
                        print"yes";
, ?* Y' H  L: b+ Z( Q                when 32 then
                        print"no";
                else
7 P- |% M3 V8 K) t; a/ S2 K* v                        print"cancel";
                end;
5 m8 Q3 y  G" B6 @4 n* U                eventcontroller.stop;
) R1 y7 W0 a- [  o: d        end;
' {4 u" ?$ Q7 V+ X! @       
1 T& K& `/ H5 ~* D8 x6 a& E        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
7 D. N3 B& v" ]        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
/ ]: J: o9 @4 \                machine.deleteobject;
8 }- Z( n8 Z% ]1 Y* W# r        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
1 j+ C2 P8 W. j: n& ?       
        dx:=0;
  {6 B3 P) A1 @: J- d, X        dy:=0;
, J" D9 F( |9 E+ c        for i:=1 to number_of_machine loop
3 F7 l& B4 L8 E( p5 E                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
) ]7 x' t) `, s( @                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) ]/ ]+ P, k2 l                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
; v8 M' F5 z" |$ s# w5 @: d  q$ e5 F                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 |5 G* v7 L% S- L: Z+ |0 Z                        activityspace[1,rows]:=ct;
                        mark:=true;
; W3 z" ?; l0 A                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
/ V. t: Y- {& W( ]5 ]                dy:=0;
2 ]: |- |% H( e# ~3 X' H6 s6 T                        --end;
8 r; G8 ?' G# C4 w                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- G/ s& N  K: d                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
8 ^  ^; p* z# x+ C+ ?/ `2 A            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
; l8 B/ [" ?/ r+ V# v                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
4 \; n, ]% ?( S% V6 h                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( x0 U4 b+ h2 {; s+ q                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
; M4 S5 R" N# G        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);
; M& H, e$ i/ |/ G+ ^: Q       
0 ~- C9 b) m1 Y        rows:=0;
, M1 q- g/ x% d) S3 H        lines:=0;
        for i:=1 to number_of_machine loop
4 g5 D: o+ q: u( |3 X9 N" i                for j:=1 to number_of_machine loop
  \. m! q. y8 t/ |# F                        if j=i then
( D1 s% N8 F4 d) t                                d_from_to_chart[j,i]:=0;
. C) j: V2 l0 N2 r% L                        else
1 [1 [5 A" q: W2 U                                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];
' \' S3 q: T+ n' X9 E4 Z                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
, P1 T$ H5 P/ V                next;
! a6 H% }. i4 g" o# _        next;
2 K* ~3 h/ y4 ?2 d* C$ r; G0 i0 e4 z       
0 m- \% G) c" O/ H' g        lines:=0;
# i5 o* h/ ?1 J7 I# L        partstable.delete;
       
        for i:=1 to number_of_machine loop
; q$ P" x) {: ], ~9 n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
" r: q, C( V3 |                for j:=1 to number_of_machine loop
! T1 g: ]6 `$ J: |0 z" V                        if w_from_to_chart[j,rows]>0 then
6 f7 H( R3 C- z1 P% @' G/ `                        lines:=lines+1;
! K% F# U2 [' [3 B4 g8 H                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
8 o: ?; H, M& M2 K                        partstable[2,lines]:=w_from_to_chart[j,rows];
3 t+ G0 k. ?0 v7 ]3 {' q                        partstable[3,lines]:=sprint("parts");
* B# i4 I5 ^& j- z( `  c                        partstable[5,lines]:=rows;
1 S7 S' p8 ?: A7 ^& z5 V9 z$ }5 y4 V9 r                        partstable[6,lines]:=j;
7 a5 @6 _/ A% ]3 c                end;
0 i9 n/ Q* [6 I3 [) t        next;
        machinename:=sprint("M",rows);
" O9 [: q3 A! x; f" e' H* g        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]);
+ Y$ D4 ?, _. r        machine.name:=machinename;标识符未知
0 w- g$ Z- C) a3 Q        machine.proctime:=5;
: ^8 w5 ?& D) y0 A4 h+ s0 D        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
: H# O# P1 X' ]2 |. m) J- `       
        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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 h6 [# m$ f+ }3 q- Jnext;
* ?) L8 x# R5 t5 b% B7 h/ `end;