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

zooey

is
        mark:boolean;
. x+ s- J2 p7 _$ Y  D/ k- F        dx,dy,ct:real;
    i,j,rows,lines:integer;
1 h' u. k8 G" p6 |    machinename,bufname:string;
    machine,buf:object;
8 P% H5 a$ |* E% ]do
) g" E& u4 [  ]# E7 o4 e        current.eraselayer(1);
       
% z3 w* ]- N7 u  V3 b. ]% j        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
8 ~! g, @$ n. V+ o                inspect messagebox("设施数目不对！请核查...,",50,13)
. |  ^" A8 V: t7 p                when 16 then
                        print"yes";
4 k4 Q  F$ u* ^3 K% c+ e- V                when 32 then
  W/ F' X9 p4 X1 N  W$ ?                        print"no";
                else
6 l( w. h3 d- F                        print"cancel";
) g+ p: O* x. A, `% I( k0 t. |/ v) H0 L/ z                end;
                eventcontroller.stop;
6 T+ h% |7 V6 E0 O) G. T# y# O        end;
9 t* d- J7 k( X; j1 L" P       
5 Q/ o4 a8 M2 H, b) A' G        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
- d! C5 Q: u# \0 [                machine:=str_to_obj(machinename);
8 H5 [6 n% @6 M- S3 s% _                machine.deleteobject;
0 R! p" ~9 z3 q! e        end;
! Y6 g! b$ L  ~. A% ]; A( c        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
( T% M0 g  H9 E" e; H                buf.deleteobject;
* `# x- M4 a- C! ~9 k% b        end;
$ W- c5 ^; O+ |: s6 l        next;
       
2 M* ]; n% Y) K6 k7 Z2 ^3 _        dx:=0;
! a7 l! h& C  |0 A( S        dy:=0;
        for i:=1 to number_of_machine loop
$ ~; C# W' c, A2 K  }" u9 Y+ k# |                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& G) [. v+ h' C6 E) `3 v* D                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
' k: f* F1 n' i( G2 g- @! Q                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
/ z% y: t' Q' l) [) `                        and activityspace[1,rows]<(1.05*y_max) then
1 p  k" d! `$ F2 q                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
% Z, b) U+ l5 m0 _5 m' q                        activityspace[2,rows]:=activityspace[1,rows];
1 S: o) E1 Y# Q4 S                        activityspace[1,rows]:=ct;
+ `, E% ?% n9 S+ b1 r5 v                        mark:=true;
                        else*/
( \0 U3 ]( P) J9 W0 v6 F                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
                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];
8 k- c7 i. K- u' P; G1 M$ @                end;
3 O' b2 K$ |4 |. f( q                dx:=dx+activityspace[1,rows];
3 L* D4 d2 I5 R; j( e5 h7 t5 a                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
* Q9 g9 Q$ Q* Y9 g3 z8 w- z                        end;*/
! `2 w, n6 k7 t$ k        next;
1 U8 ?6 E; o0 T% s" D/ S; j1 e        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);
) O2 F, a  g  X/ I4 [        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);
       
' A$ G( }. t6 @0 m0 [5 U6 m        rows:=0;
* {; u" D7 C, Q9 Z4 l+ M        lines:=0;
( \- j  V6 q1 H. a) Z$ j9 w        for i:=1 to number_of_machine loop
/ r) J- o: S$ T7 x% O4 ]- X* P                for j:=1 to number_of_machine loop
9 F& G# q9 A/ m! G- c                        if j=i then
                                d_from_to_chart[j,i]:=0;
; R3 K. ]- O1 o* ^! K- i( g                        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];
; T+ b% ]+ n5 J! k" X  u7 W; H; G                                d_from_to_chart[j,i]:=abs(dx-dy);
6 L5 B% E; C8 W2 l5 P9 \9 L' X, P) c7 t                        end;
0 h1 j! u4 d2 U, F                next;
$ o3 J! T, g4 H% U+ t( g        next;
       
        lines:=0;
, j" {: A& v1 L7 p  @, R        partstable.delete;
8 G4 A0 U2 j% c' U" z' ^8 b       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 \* M# Z  J7 b& L, m                machinesequence[2,i]:=rows;
/ V: @- I8 Z& I( O- I# C                for j:=1 to number_of_machine loop
. h% g' j  R6 b8 [$ l$ H7 P                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
8 _0 Y2 f: _  _9 t' p0 B8 q5 R                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
" }; S1 E" ]1 [$ a7 N                        partstable[5,lines]:=rows;
- h8 K& @/ D  Z) p                        partstable[6,lines]:=j;
3 _  k& O) D& G8 e! J( q                end;
; ^1 |' v0 c) r- W5 K: w7 Z        next;
        machinename:=sprint("M",rows);
3 e% ~+ V6 }9 ^& k+ Q0 q5 M8 W1 s        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]);
) K4 E% Q* L! u- {7 ?. d        machine.name:=machinename;标识符未知
        machine.proctime:=5;
+ Q( \6 |7 x( O  v        machine.label:=activityspace[0,rows];
( T* O+ }% h) D( r8 I9 V  x        machine.exitctrl:=ref(leave);
2 J& {% W& w9 x; X       
8 n0 ]" g# o) Y* D5 X, B2 V        bufname:=sprint("BF",rows);
& J7 ]9 h* [7 s3 T, m( V( D% M: r        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;
2 [4 A/ F+ T4 q$ A) N" x: g* P        buf.capacity:=5000;
        buf.proctime:=0;
! K1 W( I4 X9 c0 W        .materialflow.connector.connect(buf,machine);
       
' _! [/ F' D: i5 V  h, L        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;
; D( T/ |' ?- `, _& }9 K8 `8 \- mcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
+ M/ A  O( i! U) i$ l+ M% ^