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

zooey

is
+ t& e7 \% E6 W1 ^, N8 u        mark:boolean;
5 |4 P" S, d% v, D        dx,dy,ct:real;
  d2 m8 i* ?( n" z7 p% @+ A- q    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
9 V% l. L% G# D# v. N3 X( h6 ~: R       
* _3 G6 a: M  c7 G6 l% Z. |        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
                        print"yes";
                when 32 then
( q6 g+ Q3 D) n7 c2 c0 @4 m2 f5 u                        print"no";
3 P  [3 D$ V# y0 z' |                else
                        print"cancel";
                end;
                eventcontroller.stop;
5 A3 s1 u$ @( _5 a% b! T- q        end;
+ ~; h& o. |( z( c0 K4 z% t       
' n& w& F* Q- T( G  x1 l: s$ C3 G" M' \        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
+ k" T1 _7 P3 K! N/ @7 I                machine:=str_to_obj(machinename);
# W& T! R, ^  a- l- j& y                machine.deleteobject;
        end;
; O* |5 |6 k5 I9 s! X: C2 H. ~        bufname:=sprint("BF",i);
) w7 e8 y9 I# h; W1 V9 }# I" z7 G- G. a        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
% r! T" L0 y  ?! e                buf.deleteobject;
        end;
        next;
1 N$ I8 k% N0 f4 J( |& P       
5 F. `2 U, w: \2 m3 S0 K        dx:=0;
        dy:=0;
3 Z& O' ^* `( k, A) Q; T% m        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ k# ^: W/ C. y% i2 P                --mark:=false;
* A4 ~7 S3 s3 J8 }0 P                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& m# @. t5 f( o# N                then
8 }1 n, A3 T) _, N" p8 e" m' v                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ f8 f  k3 T& K/ i0 \$ j                        and activityspace[1,rows]<(1.05*y_max) then
! H' P# U! k  ?3 e                        print activityspace[1,rows],",",activityspace[2,rows];
) W* n0 U; R" Q$ m                        ct:=activityspace[2,rows];
* q4 I* ?- m$ p                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 q" [7 w8 Y3 N0 b+ q- d                        mark:=true;
/ ], x1 J1 w' A: d+ M                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
1 k7 P% g$ |3 k, v/ K6 J- B                dy:=0;
0 y% U9 v* s- D- g/ O# |                        --end;
                end;
/ R$ S# K- y5 Y                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;
7 p8 _1 k; O+ D4 z  o            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
0 w, c* @5 V! k# G/ |: V                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
4 x- X# m5 k8 r& L/ C! o) @8 p                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ h+ u, h1 M+ C/ g1 f7 f% `$ O                        activityspace[1,rows]:=ct;
                        end;*/
) K9 H  H% z8 `: m        next;
# T. X$ W  y5 N* c        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);
/ a$ g2 u/ j, Z' U6 [; k        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;
        lines:=0;
& B1 z/ O4 m1 D* d        for i:=1 to number_of_machine loop
- y  q5 t* S" A                for j:=1 to number_of_machine loop
; b; F6 P5 P3 o( m! a1 ]# z                        if j=i then
                                d_from_to_chart[j,i]:=0;
: K) J2 m& t' D, K+ p                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
6 m. v1 I% W4 J. A& a( ]                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
4 T4 v/ ?1 y) D  ]                                d_from_to_chart[j,i]:=abs(dx-dy);
" E+ [: p  [7 u& ^0 h% U. ~/ x                        end;
5 e6 c4 Y- e% L' j$ J( f- w                next;
        next;
       
) q7 [5 X9 B7 o/ v        lines:=0;
        partstable.delete;
  H% n" p2 \/ O5 `/ P5 C       
        for i:=1 to number_of_machine loop
$ E: w) `& ?9 r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- ~0 [+ _/ ^. ]2 K2 P                machinesequence[2,i]:=rows;
4 _1 f! _* r( @" u8 R2 }- o% q                for j:=1 to number_of_machine loop
9 i! T* s! s4 \+ F' f5 w* S                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
% _4 O* Y! q. {% k9 n                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
( E, @; M7 f( T" M$ {                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
) u( S8 Y1 r" r6 e                end;
        next;
        machinename:=sprint("M",rows);
' ^4 e/ V- x! [; s" M        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;标识符未知
$ Z+ d* Z; v) L        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
) n* v$ M4 Z+ i/ p2 i( s' f- i       
/ a3 }* N# u) \0 i% f        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]);
/ }9 A+ M/ k. y. i        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
& C; d2 h9 m1 @* V4 h% n+ d       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 @: w4 `- p- K" E1 ody:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
/ W2 J$ \/ T, i: Mcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
2 r0 A( I, @. ~; ^8 ]0 ^