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

zooey

is
        mark:boolean;
+ j7 B4 _" l7 v( L  J& [        dx,dy,ct:real;
; C" B# N  f2 ]" C+ l' R    i,j,rows,lines:integer;
' e4 \2 w3 w' `$ k, ^3 p. ~    machinename,bufname:string;
/ x! W3 V" T' t5 V! ]+ s    machine,buf:object;
do
) c' y9 ?! _. a# b8 d: v        current.eraselayer(1);
* M) x1 ~6 u& x4 ]) |" \) u5 V       
% r- L3 f$ A% L6 \5 G' I        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) L0 E# y9 W4 ]! I1 H5 a& W" J% D                inspect messagebox("设施数目不对！请核查...,",50,13)
2 y0 Y3 |# L# y5 C* Q                when 16 then
                        print"yes";
                when 32 then
4 _$ {% h; F) Q1 }7 x/ I) b                        print"no";
, E4 }0 B% g$ S# q9 W                else
3 C+ S) v  _( m. y' S$ T8 P7 I5 z2 h                        print"cancel";
                end;
, r# L) f" J9 K' }/ n" [) a/ D                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
. B0 m  Z" V" D4 }        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
4 {4 k; t6 {# h: `: o                machine.deleteobject;
/ C$ R, \. y  l, A; r        end;
6 \8 u! c8 U9 n$ k( K        bufname:=sprint("BF",i);
0 I" d2 k1 U8 }% N: T3 }8 v) R        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
" a3 G) s: m7 c6 i1 F/ I                buf.deleteobject;
        end;
& p: _, J1 n8 n9 g4 s- C        next;
% @* V, S' u: m* }% U2 X! \       
  K8 \$ i" q( G        dx:=0;
5 s: O5 N# a$ d, s- h% Q* k        dy:=0;
, u! d3 n  ~! W5 C        for i:=1 to number_of_machine loop
; x- x7 t, k! E, S. p& o                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
1 A) w) c1 H1 {1 a( S( e1 L                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
6 F0 r& c1 {5 S( P' L  ^                        /*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];
0 X6 z' m& \) E  @( Q  o                        activityspace[2,rows]:=activityspace[1,rows];
3 }2 ^  p- s3 v; L                        activityspace[1,rows]:=ct;
) ]! q! ^- R1 ]9 r$ D5 B* K                        mark:=true;
+ u( S' K  m: \9 u                        else*/
                        y_max:=y_max+dy;
( b3 ^/ H! E; F" U  B                        dx:=0;
                dy:=0;
, F$ E$ z8 J# [' ?% @4 F                        --end;
                end;
. k$ A; Y( t! I0 R, }2 A                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
0 O) M( Q) N" o( t                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 P: I4 W, h. T4 Y                        activityspace[1,rows]:=ct;
( R' L& P2 o. ^6 l. \                        end;*/
        next;
$ D$ t8 b: q/ G# d+ m$ h: ^$ M1 f        y_max:=y_max+dy;
: ^0 }9 u- r+ e        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( ?" n5 k, o3 z1 `- ?        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);
0 ]- H6 K% k) t! i) Z       
% a! {2 m" N" r& G) J9 G        rows:=0;
" X: j, v$ h% F) I% i+ w        lines:=0;
9 h5 W: e6 V1 }1 {- m0 j4 N        for i:=1 to number_of_machine loop
, @' x% F( p- Y6 r* D3 t                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
! O8 N$ t! D( m                        else
  z, a# `  O# x                                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);
" ~7 _1 S2 \6 ]3 U6 X                        end;
                next;
        next;
3 |. {. o% O! f; V) G/ X4 K) N8 N       
        lines:=0;
4 B* L. m+ p$ d5 @9 D5 W        partstable.delete;
1 M8 C  i' J. x5 ~' X       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
( Q# l* l2 ^- E; l* A& B                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
: L% L$ J& @$ w# w9 l. K+ d1 s- d6 m                        lines:=lines+1;
' ], B  q, g; s. w                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
* P6 C6 x4 C: d8 d$ ~                        partstable[3,lines]:=sprint("parts");
2 y' t) ^9 k, z: e                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        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;
% g; e* E7 }& @; n$ o        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
  j: n9 E' F2 ^, x! I6 j; |       
        bufname:=sprint("BF",rows);
; v. e+ E/ u' _% a        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]);
; e/ Z  ?3 D8 g9 Y1 k; S) l        buf.name:=bufname;
        buf.capacity:=5000;
" R. y, J4 p, a- l! f% k8 D$ P        buf.proctime:=0;
$ m4 r3 w3 x- }' t7 h% G        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
# o7 X! A: a2 z0 C9 D# Ydy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
' `4 D2 Y3 b1 R/ @current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
0 A+ l1 X+ N2 d! fend;
3 p. J9 p- J+ }+ c