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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
1 i3 n8 y; V" Z  x; F, i6 L8 m0 {do
( l: `! H2 C  l& w  T6 I6 i        current.eraselayer(1);
6 {( ?8 n0 p" a# l6 _       
/ e3 X4 L0 ?+ t+ A        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
! o" C4 L7 L0 q; y                when 16 then
' E# X2 q4 M$ O8 v& I                        print"yes";
                when 32 then
9 p/ V  o, p% c4 o                        print"no";
                else
                        print"cancel";
. H! ?8 K# |' c" w                end;
, [% w, E( t6 w; i' m4 ?                eventcontroller.stop;
; f4 `$ b/ I( Z2 w5 g# n% V        end;
  h& {7 O  T' A) q2 q" |" U       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
5 f/ X, |) F, V  o* u$ i$ k. T' M        if existsobject(machinename) then
( O( g6 x2 N, M3 \1 s3 }1 z( c                machine:=str_to_obj(machinename);
                machine.deleteobject;
% j( t2 d2 r3 Y0 M( R1 c        end;
0 t! L! j7 x) S+ a/ [        bufname:=sprint("BF",i);
        if existsobject(bufname) then
; Z& n! `* _( _$ I                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
# x' ^. ?/ n) X2 Z( q: l+ d* s        next;
       
/ E7 e7 g6 P$ b0 g# q        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
7 \3 w- r  K7 u- }1 @                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
7 `* M" q' U3 ]5 Y# E                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
  }3 H5 D- z6 K! m0 L. ]% v- D3 N                        print activityspace[1,rows],",",activityspace[2,rows];
7 o/ j1 s- i$ P% V5 G0 G                        ct:=activityspace[2,rows];
, k$ E6 f% K8 i' b                        activityspace[2,rows]:=activityspace[1,rows];
0 n! E; C0 I" s, D2 d+ r+ T+ E                        activityspace[1,rows]:=ct;
  }5 u( m# D  }! a4 ?                        mark:=true;
0 t+ M# T+ x1 i# C$ G                        else*/
                        y_max:=y_max+dy;
4 w& w1 I% a) m- y                        dx:=0;
                dy:=0;
                        --end;
, Q9 q* T4 G. J2 n. l; 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;
  b1 M+ u9 `1 W% q0 }& w            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
" v1 t3 }, c( e/ z* I* X0 M0 W" ]                ct:=activityspace[2,rows];
/ k+ }' w: F5 ^8 G, \8 b                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
4 N5 n- i( O) X% a! X2 y; P9 f        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
6 o' P- k1 n- \' L                for j:=1 to number_of_machine loop
1 i- h6 d8 o" B/ R                        if j=i then
$ c6 J- O2 {7 R                                d_from_to_chart[j,i]:=0;
0 ?+ Q  N: s7 i( G0 m: m. ?                        else
                                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];
% O# S/ V% p2 d( d& V                                d_from_to_chart[j,i]:=abs(dx-dy);
' q) a8 }  j' T                        end;
                next;
        next;
+ ]! t- H& c" h7 @" F7 g! z       
* Y8 s' [; J. A; J( k8 |% w7 U* y        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
$ g2 G& b5 D0 f- W0 t( d+ ?) W# {                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, S( d6 o4 L7 z$ L: F/ Z4 R                machinesequence[2,i]:=rows;
3 \) k/ |- L" @, Q: o( A7 O" i                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# G0 Q0 u, i) r( L- T* U* R, {                        partstable[2,lines]:=w_from_to_chart[j,rows];
$ ^# t. J+ Z1 X$ |& D                        partstable[3,lines]:=sprint("parts");
( ^- Z3 l$ b) d                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
4 V' t* r) W5 r( v: w: P3 a/ `        next;
  |! @$ j0 |) I        machinename:=sprint("M",rows);
; `, t: t4 L; m" E, v$ J$ J        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;标识符未知
; B; I- z5 ~8 }9 r        machine.proctime:=5;
+ T# A# Y$ d2 U1 q9 N$ }- ], ~, Y4 [2 R        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
2 t0 U, H' s) L  |        bufname:=sprint("BF",rows);
0 q1 U) C0 ~/ [, z  q3 Y: k        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]);
8 C& o9 ^; G9 y4 U        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;
3 S5 z  f7 b/ e; K/ S0 Z. v/ ?current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
- A  `0 `8 f( o; Q6 S: |next;
2 h! `5 A: q7 |3 _0 Gend;
% \9 }! D8 e- r4 p; S