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

zooey

is
        mark:boolean;
$ @, M+ Q7 d& t) G6 o% B. u        dx,dy,ct:real;
" x3 C  C2 o3 q    i,j,rows,lines:integer;
5 A* A; g6 h) `7 d1 d" y' Q0 N" i    machinename,bufname:string;
2 E% G: b; w; t; r0 b    machine,buf:object;
do
        current.eraselayer(1);
5 t# b) u; O4 t! z       
/ h5 b0 z) }' D9 x0 C  X        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
$ i, c  m! _7 Q4 q7 \9 k: t  `& W" {                        print"yes";
: T* O0 |1 v4 B) Y                when 32 then
                        print"no";
8 w! M3 ~$ W, W4 c' L, W7 ?  G( r( y                else
                        print"cancel";
/ ?5 O; f3 S6 R  L( {                end;
                eventcontroller.stop;
        end;
1 |: Y$ K$ Z  B% R       
2 C/ j/ ]+ f8 t7 F        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
! L* p& i* [8 i0 X) K        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
6 |2 m: V' a. G% U& N                machine.deleteobject;
        end;
0 C' t( a& [3 V4 F+ u2 A1 D7 P        bufname:=sprint("BF",i);
0 ~( k# A* d7 m2 K8 {+ x5 a        if existsobject(bufname) then
7 |8 S/ G; R2 ]9 M                buf:=str_to_obj(bufname);
) s% x) U. S% V1 `                buf.deleteobject;
        end;
* b" R' x  ]9 y) I  h' z- q        next;
       
  b* a$ w- l  T" L        dx:=0;
* g, ~8 v, t2 w6 F        dy:=0;
        for i:=1 to number_of_machine loop
5 z  `. ]8 i! A$ d# K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
6 L! p! B5 n: N5 l8 R& F/ `2 }                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
+ s: b9 R& W  k( S7 T2 C                then
) ]- }# g$ o" C: {5 y0 S* L                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
. r: X( m6 @- P5 O: e( G, _& ~/ k                        and activityspace[1,rows]<(1.05*y_max) then
) W+ }' n  v; l' j- ]& H                        print activityspace[1,rows],",",activityspace[2,rows];
- v' J8 b. j5 ^6 c( Z# l                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
6 l5 ?9 d1 \& h+ G" s! b' y                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
% S, c" r- t4 m! ]5 ]                        dx:=0;
                dy:=0;
# G  d) s$ T' b                        --end;
. r: L1 _" G3 |                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
. q# U* Q0 s/ A: }                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
+ ~! o$ E- D& G1 g. u1 u* {                        dy:=activityspace[2,rows];
                end;
' O* c9 V3 V; g/ E( [4 l5 u. K                dx:=dx+activityspace[1,rows];
3 u$ J" s1 |, \2 z' N9 p; s( b# C                /*if mark=true then
" z, d& c8 ~; }3 L, x4 Z: l                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" a+ o7 l; V$ D6 E                        activityspace[1,rows]:=ct;
                        end;*/
1 l9 M/ G2 o( V- O0 h4 q: S- Y        next;
+ v1 ^1 l& q: ^9 B9 R        y_max:=y_max+dy;
2 G: q1 {0 J) z0 D) K$ D        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);
/ \8 z, G- }. j( a; ~+ 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);
       
3 {# [4 U  X' |+ y* g& q        rows:=0;
        lines:=0;
6 L6 |$ ^; E. u( h        for i:=1 to number_of_machine loop
6 ?- ~  t# @' }                for j:=1 to number_of_machine loop
                        if j=i then
; {# `* Z' N) \                                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& O1 J2 q3 Z8 v' a                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
' Y1 l, m3 L! M" q" x" t0 q        next;
! E, |, r- S7 ]       
        lines:=0;
3 f+ H. C; `6 P2 S        partstable.delete;
. T% y/ b2 n6 X4 ^& G9 T       
        for i:=1 to number_of_machine loop
# S' u4 n& W( }8 a                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ e# N! @& L) q8 U                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
& N  v. n/ D# h) T! L1 e% P                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
$ f  X. V4 l5 J0 x* a                        partstable[5,lines]:=rows;
) Y8 a' _6 Y6 \; h                        partstable[6,lines]:=j;
' F+ g2 y3 R( E. Y" c/ A/ H                end;
. y/ z2 D2 e/ V7 t3 _' l+ i" {        next;
        machinename:=sprint("M",rows);
7 q* Q. Z* w$ N, L- p" t        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;
: Q" Q7 `4 C( R* I4 \8 ^        machine.label:=activityspace[0,rows];
8 Q9 _0 b1 h' Q- r* A) z2 N; {* f        machine.exitctrl:=ref(leave);
$ L# ^/ K# H' u9 {9 ~       
" C! A3 d" I0 e( Z! x: n        bufname:=sprint("BF",rows);
, M  P# o2 i& l% t        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]);
1 F# X0 a4 {" o& R( t$ K' K        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
8 O) m4 M) ], ^& Z% Y/ o        .materialflow.connector.connect(buf,machine);
$ |* Q. d( T0 V+ I. A       
# c$ p, r0 i, J. }. j: K        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ X. t/ Z( Y0 s% Ydy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
% A0 g: Z9 y- z/ |' wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
& {! \- C, j3 N2 ]