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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
+ y: ^3 u9 D0 O    machinename,bufname:string;
( J6 N0 i; s$ E5 p% R( o. o    machine,buf:object;
do
        current.eraselayer(1);
       
7 g4 j8 H! z9 l& w' c9 G        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
0 @2 o# W  t, P  I3 @9 D( D                        print"yes";
                when 32 then
9 B9 G9 M7 c6 f, N0 @( O4 }                        print"no";
) K; ^/ b6 p% }; J2 q8 T! n, E                else
                        print"cancel";
                end;
2 G& `, B/ P! Z0 A  ]/ F                eventcontroller.stop;
        end;
       
( M4 ]) N! j' Z! B9 i& a        for i:=1 to number_of_machine loop
& t# ^# a2 g7 N        machinename:=sprint("M",i);
        if existsobject(machinename) then
: k# ?8 R" p+ j3 Z! C- Q4 z7 x/ F                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
6 l" v' s( Y% I; w        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
7 _) K6 u! s5 Y        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 a/ _5 r$ A& N8 ~8 O4 l% x  T2 r                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
- K* O' Q9 r) s- i; k) o, h+ b                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
; t2 z( B: h) }: W3 Z: v                        print activityspace[1,rows],",",activityspace[2,rows];
; o  F; `6 [* D  o% w                        ct:=activityspace[2,rows];
6 t- ^6 a, A1 Y( E$ O' T                        activityspace[2,rows]:=activityspace[1,rows];
* d, J5 b. q9 I0 }4 X                        activityspace[1,rows]:=ct;
                        mark:=true;
4 k# ?, }* H" I& x! n+ C' |. V4 Y                        else*/
+ m3 J, u4 H+ y4 ^: r                        y_max:=y_max+dy;
/ ~# ?5 [/ H! [1 K) y                        dx:=0;
                dy:=0;
  b4 B+ M% p& X- L0 z: w                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
  I' K: O: g7 n: s                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
1 A( z! _: ^- ^- L3 s$ t4 A            if activityspace[2,rows]>dy then
; Y. t$ |4 Q+ a: |                        dy:=activityspace[2,rows];
5 G' m9 ]6 r' K! f1 V5 _) L7 M* {. k                end;
                dx:=dx+activityspace[1,rows];
6 G* C/ w# J/ Y                /*if mark=true then
( a! H* _4 N7 [. ~( T  B                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  ~9 V8 `! }/ n% f: A8 r7 h                        activityspace[1,rows]:=ct;
                        end;*/
        next;
# D6 W' s$ T. a2 K/ Z        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);
: \: w. U" a2 Y+ G5 A* o        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;
' C. J/ H$ U+ @: U- J) {        lines:=0;
; K. g2 m% U4 ]- I  L        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
6 t0 Y/ a, }+ ?: M; O% p                                d_from_to_chart[j,i]:=0;
                        else
( E! X  L: _/ W9 N                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
! T/ F! r) k! w  o' V       
* ~/ j4 X1 U- G- v5 Z) {: z+ \' u        lines:=0;
        partstable.delete;
9 @, w5 D9 n) a! g; s; {       
% [7 Y, A) v* N  C) Y3 t        for i:=1 to number_of_machine loop
  e- C3 c8 ~8 ]& o, Q' l                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 F. @; Y7 W) t5 O7 n0 g# p                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
. A- D0 `- p6 a. {7 ]& q                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# n9 _1 R+ s8 [/ X1 ]) e                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
2 d8 F% Z# i  b/ k; {1 v1 A! ~/ d                        partstable[5,lines]:=rows;
  }2 |7 P; r9 j( u                        partstable[6,lines]:=j;
  z& K) |3 Z" I0 ]3 r                end;
        next;
# Y7 N* J$ S* }, {8 O        machinename:=sprint("M",rows);
( v  A7 i% D. y* f! z        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]);
9 E7 M  a/ |5 e& o$ ?        machine.name:=machinename;标识符未知
        machine.proctime:=5;
$ k' l( g! K1 A        machine.label:=activityspace[0,rows];
' v& w2 U/ I  X& J$ o( Z        machine.exitctrl:=ref(leave);
       
- y2 H8 \& J4 x' |& ^        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;
0 }! i" x* y9 i% O9 J        buf.capacity:=5000;
/ R6 d1 B+ J# I8 W- E. Y        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;
% H7 _, \: C3 b1 g* ady:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
" Y" z$ h( G! N# C0 j8 t$ C( hcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
. l* b* W/ h5 m' F