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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
: ?; ^/ A6 W% h$ g& Q2 I    i,j,rows,lines:integer;
+ p% p3 W0 d5 n; m    machinename,bufname:string;
5 b" Q( M* i9 c2 ^+ F    machine,buf:object;
9 D; m' x3 Z  P: i6 v+ M* d, U: Edo
        current.eraselayer(1);
, N7 o- B3 h, X: K7 ^: D       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
3 A$ J8 ]8 R% ~! ?( e- ^8 d0 H                when 16 then
                        print"yes";
                when 32 then
8 {" g; l; a5 t. R) \* ?                        print"no";
* |& G; |* P1 t. \& \/ l: w                else
4 @5 \* }7 m8 l2 ?/ I/ }6 Y, K                        print"cancel";
                end;
                eventcontroller.stop;
3 |& l/ N* m$ G        end;
  y5 F: A. r0 M       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
% W7 R* {/ I5 d        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
  o1 Y( o9 O# E8 E0 w% R% W; b9 F                machine.deleteobject;
, w4 B7 ~! U" X, B: K        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
7 ?7 r! O. I4 H0 g, M                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
1 b# Y/ [7 C9 n0 Y6 S        next;
6 L: Y, f) N& C- I" X       
        dx:=0;
1 x) V/ c4 o' u" S        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
2 y! q0 S! e( q; D                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- @# T" @1 y/ G9 I/ f                        and activityspace[1,rows]<(1.05*y_max) then
4 ?, B0 k$ v/ E1 L: h                        print activityspace[1,rows],",",activityspace[2,rows];
7 H: L. d( x) U& h7 X                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
0 v/ {% b- q1 W1 S$ X                        else*/
                        y_max:=y_max+dy;
0 l% {- d1 a/ p' X9 U" z" A: C                        dx:=0;
6 T" R  l4 m+ ?' J! N* C                dy:=0;
" Z. p' z# l5 k  w& S                        --end;
7 t1 S' P8 [8 R! F+ W' R  M                end;
$ Q  p) k/ }1 {% Z& 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;
/ E: c2 }9 Z$ {- u, l+ A* e7 B            if activityspace[2,rows]>dy then
6 E' m" _/ ]2 K6 G4 A+ Q1 B                        dy:=activityspace[2,rows];
                end;
8 H8 T* H. v& H) R: _6 S% B                dx:=dx+activityspace[1,rows];
$ l9 e5 D1 `: r# k; m                /*if mark=true then
3 P* ?1 @5 B0 W; E6 V                ct:=activityspace[2,rows];
) H. H/ d& _1 {/ P& J% e0 _                        activityspace[2,rows]:=activityspace[1,rows];
2 v: O3 j, }. u                        activityspace[1,rows]:=ct;
% x9 O, `& m1 a* e/ V                        end;*/
        next;
) c  F6 O+ l% U& c+ \0 Y* H        y_max:=y_max+dy;
3 v# B* f4 a$ ^        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);
       
        rows:=0;
. b0 ^& `) O9 K4 g9 ^6 A7 j; L7 O        lines:=0;
        for i:=1 to number_of_machine loop
$ ?: f( [& _0 |1 ^: p- ^6 \) B                for j:=1 to number_of_machine loop
% _9 \6 q( k. h; k; T                        if j=i then
                                d_from_to_chart[j,i]:=0;
& b: f* u$ z. p( s5 q" `& I: K                        else
( u) O3 m- u2 r+ Q/ v                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
; J1 ]. u2 a# J6 L+ R                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
# D) z9 @5 r& S( c0 \                                d_from_to_chart[j,i]:=abs(dx-dy);
4 s$ k4 U4 w' w. g. E4 V3 \; @0 d                        end;
                next;
" g6 c. z' I- ?3 w        next;
       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
0 |1 I$ j) O$ \& h' a                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* t6 Q; X. g. y, S4 o& m                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
4 D4 D* ?# f( Y% c2 d% r) ^7 p                        if w_from_to_chart[j,rows]>0 then
7 d* l, G$ M. n7 p% f6 C                        lines:=lines+1;
, R2 _% l( V" U: \0 A4 X; b( t0 U3 X                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
% o3 K" ]- F/ i3 A; n& ?) W) M. d4 a                        partstable[2,lines]:=w_from_to_chart[j,rows];
( J; A' \6 p) t                        partstable[3,lines]:=sprint("parts");
$ Z2 B& m* z5 ^, X* M" n4 P                        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]);
  C" B3 f$ X/ i. X9 |' d9 x        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
4 T- N6 J) K2 R* v/ U* {        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]);
& `7 I" j- M" j; r6 R2 L- q        buf.name:=bufname;
; x* c, w; P" ^; l# h, f        buf.capacity:=5000;
5 Z& ^6 E3 Y3 K7 s        buf.proctime:=0;
6 s5 [9 l4 G. L8 c  {4 r) F        .materialflow.connector.connect(buf,machine);
       
        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);
next;
$ @" U# @! @- p8 yend;