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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
) Z, p& S5 h% b2 N9 ]+ A8 c  |/ X    i,j,rows,lines:integer;
; [( m$ V+ V% T  m6 c4 @    machinename,bufname:string;
    machine,buf:object;
9 {6 B! M; S  ldo
' r# \+ S# Y- p& n; O        current.eraselayer(1);
. w5 y0 _2 h5 G0 O+ n2 g: I       
' f" L1 g9 z0 I1 n4 o        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
                        print"yes";
                when 32 then
5 \% t/ ]8 M7 E5 r9 {                        print"no";
                else
                        print"cancel";
( H$ S1 x# H0 P7 U2 {9 S1 @                end;
% j- t* n$ k  N( Z% l: x% W1 i                eventcontroller.stop;
0 |# g) A: u" c        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
% p- U. @" J% |                machine.deleteobject;
        end;
7 M0 r; ^4 o' z- d: [3 v- ]1 X        bufname:=sprint("BF",i);
        if existsobject(bufname) then
" y$ V- ^( H1 s                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
1 e9 |8 u) B! A) H# @4 ^! w        next;
% W. {/ `8 u7 w- ^; m       
/ R/ {9 `8 L0 n5 l: _        dx:=0;
  m) y/ V0 I9 V8 |( H# A2 Y/ B2 B# t! u        dy:=0;
        for i:=1 to number_of_machine loop
& `9 B3 Z# F$ E  A# L                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( z+ u2 L3 T) ~1 }2 Z( X2 l                --mark:=false;
& Q1 A0 V" F0 F4 X/ Q, V& @8 m& k# Y. T                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
+ ?- r* v! a5 J, W                then
2 C: ~) s) p* n$ K  M; n: I& J  ~                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: _" [, [4 M9 i8 \+ v7 M1 w* B                        and activityspace[1,rows]<(1.05*y_max) then
* [. e# d. p/ v6 v! a. A6 z                        print activityspace[1,rows],",",activityspace[2,rows];
8 W5 j7 t/ \7 f( o* ^% j0 u5 y                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 x1 t: X- l. U% U6 n  v7 }                        activityspace[1,rows]:=ct;
/ g8 N% Q( q8 S9 U7 H                        mark:=true;
                        else*/
2 Y& H0 L" T* B3 u* j9 a  i                        y_max:=y_max+dy;
                        dx:=0;
# S+ K8 s0 T) v* _8 t4 {! b                dy:=0;
                        --end;
8 X9 k; \$ F, U4 F8 C                end;
( X" w! {0 Z4 e& P                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
* q+ _( s9 b" [: J8 B                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
8 l% ~" \7 l& [  ]$ J            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
1 T- l$ {  W9 _9 K$ T                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
: h- e- D+ b; M                ct:=activityspace[2,rows];
9 x! y" j7 e, w* ^$ i$ k- V                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# {4 K9 [( g, `! m( O% t3 a* U5 Q                        end;*/
        next;
% P/ p9 \# [9 Y& e$ b( k        y_max:=y_max+dy;
: S& `3 r5 B# o% o5 l        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);
- P+ s2 C% I, P        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);
$ ^6 L, P7 I) ^% B. o       
, H7 D  a1 h9 O6 F4 i        rows:=0;
/ w, y) |6 u. }4 |9 A+ R        lines:=0;
, Q6 _  B" {5 J$ E) U$ L" v1 H        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
) s' `; D6 R0 D5 ]) }                        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];
" {4 N( }4 G  n3 V                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
! `. E. L8 S  p# Z$ E# V' `0 C2 D                next;
: g" t; o- s. t8 C5 f        next;
       
        lines:=0;
3 r. y9 D) a; \0 r! J& P+ w9 ]+ ?        partstable.delete;
       
" l% W  i# {8 i, H8 G1 L8 s        for i:=1 to number_of_machine loop
7 N; u2 V, O" P                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& A5 R: J- l  o9 P4 f) q                machinesequence[2,i]:=rows;
                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"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
2 {+ D0 R# ~& s0 l: o                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
1 Y' H, D8 ?4 Y- @; C9 p& N                        partstable[6,lines]:=j;
                end;
8 N. x. Y* s+ l9 t& `7 Q        next;
        machinename:=sprint("M",rows);
/ ?2 X8 B/ P& ^7 b6 p& _9 @        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;标识符未知
% Z  a9 p$ d$ P# k2 r( _" ~        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
# r% [5 ]' f8 O        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;
( n0 e; }; k8 w0 g        buf.capacity:=5000;
        buf.proctime:=0;
- x( p3 h( O8 t: m- D        .materialflow.connector.connect(buf,machine);
       
  r! Y* i6 [& {2 r- W1 g! L# r. Q        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);
: S" I& Z8 W/ d5 q" W4 L; V. cnext;
1 M& ]5 o# o; k7 F) |4 x7 }! cend;
; u1 l; r" `" w7 {" K. L