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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
0 ~! }8 ~: Y  Q7 _7 ^    i,j,rows,lines:integer;
, g, j4 O& ?2 Q; C* d/ f    machinename,bufname:string;
5 P+ W1 }1 P- m8 I9 s/ X    machine,buf:object;
1 F* u2 u. o  T6 [do
; p/ n0 G6 |. E9 B% S% D        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 }8 t( ^9 G3 o8 U                inspect messagebox("设施数目不对！请核查...,",50,13)
, u+ P4 Y- i/ W, D3 N                when 16 then
                        print"yes";
5 |+ N5 d: C0 i. k                when 32 then
                        print"no";
! |* D/ x+ U, ^! W  N; A                else
- m7 L  @1 f; w7 ~; X                        print"cancel";
4 W; D  p: d% Z: S7 m( o" G                end;
1 K: u: F% F; p                eventcontroller.stop;
        end;
8 g; H9 V! W1 w1 z9 ]1 [2 Q       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
2 }$ O4 r2 f: m. a        end;
: A0 V6 D& W5 x/ S& Q0 G0 q' w        bufname:=sprint("BF",i);
* o. p/ t( i0 o% h9 O, [        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
3 {. x; _% @- \6 o0 v  S        next;
       
9 O7 T+ B: L: T( y% [$ M        dx:=0;
# n  V* P& S1 D8 {* ?        dy:=0;
3 _( A: X) h& R        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 ]* a/ P0 ~& }+ d$ u                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 y) A0 _. S) r, M* {                then
                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( f- I1 Y% X4 D/ q& {/ J                        activityspace[1,rows]:=ct;
                        mark:=true;
% h1 k/ W" r  F8 l' f9 q" w! C8 m                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
( ]5 }5 e  k; V  i* H% ^                dy:=0;
                        --end;
0 @" M6 z8 m, {                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;
  b. e6 i1 x9 G. ~, [- q+ z            if activityspace[2,rows]>dy then
' g. @" |0 J8 {$ o. O( j! H                        dy:=activityspace[2,rows];
" _" D. A% A# ~" X% I                end;
$ r0 Q7 ~' c  k8 V' k- Q                dx:=dx+activityspace[1,rows];
( ^' j+ J) E0 M% [" U! r  L                /*if mark=true then
6 i* x! x7 n$ a' z& D% ]                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
! A# p2 V6 z& o- W                        activityspace[1,rows]:=ct;
                        end;*/
0 g3 S2 u* B  ?        next;
        y_max:=y_max+dy;
# m" }. _% P! u* s1 N        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);
' d: G+ K0 H7 y8 `5 ]. ]/ i       
        rows:=0;
; ?" ?* P4 \: ^        lines:=0;
+ I- u% @1 `: f3 n2 \) f        for i:=1 to number_of_machine loop
2 H9 k" i8 o3 f+ P3 `# T" O                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
; @* t3 ]0 L# E: T                next;
; z, |+ Y) u+ y) t! T# j4 M        next;
% }, v! X2 F! A4 |* g( ~8 A) n1 \6 k       
        lines:=0;
" T: F0 f$ P* w: k+ s        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, r# p4 s# C1 @: Y                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
2 r! {$ E) K3 L- T                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
  g' w3 H7 @. j5 g8 H9 Y+ Y2 B                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
! m" e. b9 G5 s/ o: C                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
; \3 `# D5 U0 f2 N) o                end;
        next;
5 [/ j; t' s1 `$ P        machinename:=sprint("M",rows);
' a  g+ _* ~' t  O: H        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;标识符未知
% i* W6 I% ?4 d0 Z+ X: v        machine.proctime:=5;
# q1 k+ P- X- x- a$ r  v: N        machine.label:=activityspace[0,rows];
. I) k' ]- J% t  w. o/ e  D  d        machine.exitctrl:=ref(leave);
       
( J& \; J# |+ D8 w1 o( k        bufname:=sprint("BF",rows);
3 @9 |6 x; z/ i) i! V# ?  F        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]);
6 Y  o8 V' P+ }5 y, L        buf.name:=bufname;
        buf.capacity:=5000;
- Z# b2 o# |: g- J: |) X        buf.proctime:=0;
7 [9 K- W8 M- L/ a! ^; b        .materialflow.connector.connect(buf,machine);
       
1 Q! Q4 Z/ ^2 o7 K& |        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;
" p4 q3 f$ E$ Q1 o5 R- E6 N' g* q$ B- ncurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
6 P" p! F' N" ^7 I, Ynext;
9 D, \6 X. q2 `6 mend;