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

zooey

is
        mark:boolean;
* g% ^! o% c0 P' @+ o        dx,dy,ct:real;
    i,j,rows,lines:integer;
5 z6 N7 f% F) o- k$ O& Z+ p    machinename,bufname:string;
  k" r4 u  i  m% m+ K6 R    machine,buf:object;
) _, ]5 P4 F! B( q: udo
        current.eraselayer(1);
0 c  V* {! p5 t. h; L       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
8 ?. U  o! v* {% }. P4 R                when 16 then
                        print"yes";
( y& a( t* }/ d0 Y                when 32 then
                        print"no";
                else
                        print"cancel";
) w; ~5 q) J% ?4 N3 H; J+ e% H                end;
                eventcontroller.stop;
  l& ^$ R' ?% Y) B" I        end;
/ e" O# F; F5 q( s       
* D8 j8 e" E! Y7 g4 K        for i:=1 to number_of_machine loop
) l5 Z1 o8 @6 h        machinename:=sprint("M",i);
        if existsobject(machinename) then
( v8 M* K( T9 M                machine:=str_to_obj(machinename);
                machine.deleteobject;
- Q$ s# m2 d$ @8 X3 h' c+ o        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
! K& [9 W7 E( z8 f4 _. E                buf:=str_to_obj(bufname);
: T; b8 o% L1 k$ h9 f. R                buf.deleteobject;
        end;
        next;
2 i  E; r. l2 ^7 P  x; W$ [       
% O* f! A3 ^4 V" z        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
7 \2 f# m+ |7 k6 ~5 _2 ~* I: z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
. T, e0 A# t. {                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
; W0 W+ N8 {( N2 O1 _8 P* X. d3 N                then
3 N/ U+ }$ F, Q7 S- K                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
2 R. y% _4 p% Z5 g( z4 I                        print activityspace[1,rows],",",activityspace[2,rows];
+ W9 {$ g& ?4 e9 b# t5 Q2 N                        ct:=activityspace[2,rows];
: ^( G( |1 }7 a2 W, q8 Z* r4 b                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
: ~3 O/ Z7 _' V( z7 X0 n7 l' U/ R6 `                        mark:=true;
+ v7 t( M9 l( g* ?$ \/ G                        else*/
                        y_max:=y_max+dy;
6 Y( o5 o9 b4 \/ b3 M  t" W/ l                        dx:=0;
                dy:=0;
' F) m9 L! H3 n+ V  d4 E, [4 F9 V                        --end;
- Q; [6 C+ d# e( c5 O( b2 p% g                end;
$ r4 w3 N# q' Y                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;
3 d4 r8 M+ u! r/ A; R            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
3 i8 B* j1 R. k2 W1 h) Q5 }* o                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. i! v' m, F8 p% L6 b  ?" s6 R6 {9 [                        activityspace[1,rows]:=ct;
                        end;*/
        next;
6 |& I: w, C/ C        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;
; T- g- u$ W# }( }0 L5 E1 Y        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
7 e" p/ {1 s5 h- K                                d_from_to_chart[j,i]:=0;
                        else
) u" w) ]" q3 l. }; K+ x                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
& U' q, M& {$ M4 h2 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;
4 T3 J  W6 f* o, F- @! V        next;
       
        lines:=0;
; x6 ^: X6 e; g: F; S2 y$ X  A        partstable.delete;
       
0 O7 v% {0 T) ^; @        for i:=1 to number_of_machine loop
  F& ^3 @/ _" \+ Z4 F# M! [  ~* Q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 w2 ]( [: u- G                machinesequence[2,i]:=rows;
5 p4 |/ b2 q- V! x                for j:=1 to number_of_machine loop
1 U0 L% ^+ b7 o1 Q" t/ M# U                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
* K/ O. I0 N! |  R7 ^                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: ]. C: _* {+ s! u" o( g4 E                        partstable[2,lines]:=w_from_to_chart[j,rows];
- T0 E# @# {4 ]$ C) e% e+ W1 m0 }                        partstable[3,lines]:=sprint("parts");
1 N+ n0 \) g; I8 l7 k& g                        partstable[5,lines]:=rows;
+ Y6 n6 ~6 a' I+ U  p0 e                        partstable[6,lines]:=j;
                end;
        next;
2 o& j3 Q1 j" m* M        machinename:=sprint("M",rows);
        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
% Q5 e  B; i7 Q       
2 {6 w# p/ [$ B0 u        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]);
% b; F: i4 j0 [' B        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
, S$ F" y$ \  Z9 {        .materialflow.connector.connect(buf,machine);
" e% m. n- Y6 n3 y" ]       
# m( l! f3 m  e- x! f7 A        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);
& U1 Z3 h" |, z" i9 Dnext;
end;
; r; O7 T% o  |3 v. H  C. ^# z