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

zooey

is
4 V8 H3 m# J/ {3 u8 b5 v        mark:boolean;
" G8 u; @& O3 j        dx,dy,ct:real;
; h5 y+ d) Q& I" G2 t2 }, X: I    i,j,rows,lines:integer;
& A) ~2 V& |! e% i" [# \    machinename,bufname:string;
    machine,buf:object;
# D, ^$ G( a. Zdo
5 K. F7 V4 x1 |  i5 N/ x- L' _        current.eraselayer(1);
) X  h' X, J' B7 X( Z       
" {) X$ T) X( g) S% V( N        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' ?' t. |' `* _                inspect messagebox("设施数目不对！请核查...,",50,13)
+ {) k! N  T2 l                when 16 then
                        print"yes";
! l& F% x) x, o" M- a" D                when 32 then
* ^, s) N) I0 o* h                        print"no";
                else
! k& c4 p0 `0 O6 F                        print"cancel";
                end;
( a$ D: i. N# t& N                eventcontroller.stop;
4 _7 s4 ~0 b9 J7 F$ e5 {, t        end;
       
) e- f& v6 \/ h! K7 g' a' g        for i:=1 to number_of_machine loop
8 `8 Y9 C1 d. d5 _# k, B2 u# [, m        machinename:=sprint("M",i);
' g; h: u% Y. r8 q: J        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
& L( m6 I- E- z: s                machine.deleteobject;
$ }# d" Z3 g7 p: u        end;
5 Q$ q+ {! W3 x( Y+ o( {        bufname:=sprint("BF",i);
        if existsobject(bufname) then
: F2 d0 {' Z' x) [; l+ b* ?1 ?) ]5 X                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
) ]  B" C# {: \2 |* Y! J. W        dx:=0;
        dy:=0;
) T- N5 [& ~) I/ L0 [: ^; X        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* `; c7 c" }* m1 }2 }1 x                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
% h% n1 S# `# [7 L0 ?                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
4 L: }9 e, n- Z                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
% W4 S4 g! X& z* e+ `                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
9 r1 U6 B* T  v8 I) r                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
* ]  j: z6 V) [- e5 U: w                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
/ D4 a/ b9 j# ]5 {8 V            if activityspace[2,rows]>dy then
+ p4 n! T* E/ t, e' q                        dy:=activityspace[2,rows];
+ F7 ^7 r1 k8 z2 _: e9 G                end;
                dx:=dx+activityspace[1,rows];
" C6 j3 b3 S6 [* Z2 b: x" ^                /*if mark=true then
7 J% ~9 g( x0 w2 [# |, R                ct:=activityspace[2,rows];
- |; O6 l* z' b. |                        activityspace[2,rows]:=activityspace[1,rows];
; h- c7 q" Y. A# I3 E- E' S" Z  ]                        activityspace[1,rows]:=ct;
! G! R9 v! |  N% `- t( s                        end;*/
* G6 d/ y7 D% p  m, P  x        next;
- ?6 b3 I0 `9 k( {        y_max:=y_max+dy;
* j9 T% A% V9 k( Q        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);
1 C& F1 K8 y: V       
        rows:=0;
! ^4 O3 B$ p- A# f8 ]2 v        lines:=0;
1 `2 m- [- A& q* x2 X        for i:=1 to number_of_machine loop
, N! S& z2 J& g$ Y9 j. }2 C" [                for j:=1 to number_of_machine loop
                        if j=i then
2 d3 m9 G5 H/ p9 [4 _6 a$ D                                d_from_to_chart[j,i]:=0;
$ m$ s( ]/ p+ N3 A4 Z: v3 d                        else
" z, B* _& t+ h$ F. w- ?8 z                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
( B1 m9 F8 c* t: S1 C                                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);
8 ]/ g: `: ?* m' F0 M% O                        end;
                next;
, m' f2 ~, P: }! y, ~        next;
       
; J: h+ g7 i+ y% L: A. [# z        lines:=0;
        partstable.delete;
       
  O6 q( M$ [$ c6 }- S        for i:=1 to number_of_machine loop
, w; R* V( _/ s& a2 T                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 m4 Q% t& m8 a                machinesequence[2,i]:=rows;
) m; ^, I, P3 j! R                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
* Y+ Z+ B. N/ ]                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
7 m. \6 T% N! J" B4 U6 B                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        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;
! P3 ]3 C+ i+ n. G3 v1 M+ Y+ m' }        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
3 [4 u( C' |( q: Y1 U9 K$ H/ g9 z' s        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]);
& D* o. {" s+ B. D7 M, s# m        buf.name:=bufname;
' W* ?% i5 V% J9 l        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
. Y( D2 u" W+ `4 Z       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
! F5 n. `7 v3 ?0 }% L2 zdy:=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);
next;
end;