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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
) p* X/ i) y7 O    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
! _' c' X  o" a0 O, E* z       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 c; z6 X- X% R1 K: h- d                inspect messagebox("设施数目不对！请核查...,",50,13)
4 S( s; m; m' g" F+ W7 I9 C                when 16 then
                        print"yes";
) Y7 L# i0 a! `9 w) C                when 32 then
0 c! }+ X' U: l) l% D/ w6 C; K                        print"no";
                else
                        print"cancel";
% f5 f1 o) Z/ m/ b, E2 I                end;
                eventcontroller.stop;
        end;
       
' P% }, W  G! O1 a2 S0 U" b        for i:=1 to number_of_machine loop
8 m3 S- h1 O7 S3 w. ]        machinename:=sprint("M",i);
        if existsobject(machinename) then
; g: w/ a! e; F% k/ ~                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
: M, F. a) n2 I3 K% H# B, K  c        if existsobject(bufname) then
$ U/ W+ o; i2 f8 s  t# v3 t5 m                buf:=str_to_obj(bufname);
, K3 |" @  a( o' k! R+ J- e4 \                buf.deleteobject;
( `; Y) B( l  D! P# {4 c& K# ]        end;
        next;
       
5 b' n2 i* O% F) V0 Q        dx:=0;
# m# C2 Z  R% I& _4 v' b! n        dy:=0;
% C3 |! v! J) t( [  z; u        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
% S# V/ Y- c, \* S                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
# H! E& y! d0 v0 x( m+ n                then
: V  M6 V5 L( N5 A/ ?# E                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 g! T( M7 `+ h+ y" M+ g  I1 ]6 a; g                        and activityspace[1,rows]<(1.05*y_max) then
& e+ {. |* H" n: a4 f& b* W                        print activityspace[1,rows],",",activityspace[2,rows];
9 `( Y/ i3 U) f0 L                        ct:=activityspace[2,rows];
/ w3 X3 D& g2 t  @                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
2 ~0 J1 n9 Y& J4 s  E& Z                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;
9 H; f. g1 U9 @# b( g" K8 T            if activityspace[2,rows]>dy then
9 @# f# e( C' ]) q                        dy:=activityspace[2,rows];
                end;
5 Y* j, Y3 e" G8 S# u0 W; O, \, d                dx:=dx+activityspace[1,rows];
                /*if mark=true then
5 q5 g- g, O! o3 z0 M" D9 \) A: U                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
" U% H' E( n' {1 v        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);
5 \! e8 @) C9 d6 O" m$ U* l        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);
! R- R$ \! L* w, x$ b5 ]8 q       
# s; w$ F2 d% \+ c. Z        rows:=0;
/ F4 R( T/ [0 N9 T        lines:=0;
7 E' [5 v- g5 v( w& C        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
/ K) D3 W4 }# G" `- u9 H                                d_from_to_chart[j,i]:=0;
6 [$ ?8 s$ {8 n* i                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
% x9 @; n0 Q7 p5 M9 m8 Q+ s                                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);
                        end;
                next;
        next;
       
        lines:=0;
" \* J/ H* }) B3 Y5 r        partstable.delete;
       
" y) }# |" _. \7 {1 D! X" ]        for i:=1 to number_of_machine loop
6 Z. _3 w) c! e8 c6 H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
; Z: S/ d& N& }2 s% f1 H& v" J                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
* L$ X. b7 [* U                        lines:=lines+1;
$ j8 ]  G( z3 u! \                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 p( o9 A8 ^; ]  o5 w' j: P                        partstable[2,lines]:=w_from_to_chart[j,rows];
; Q: m. |1 P$ f6 F9 _, x; B                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
9 h+ `/ ~# l; B/ S* s1 C                        partstable[6,lines]:=j;
                end;
" q1 C( T% V" c  K; A        next;
        machinename:=sprint("M",rows);
# B7 D3 b6 e3 l9 p! S' I* |+ |        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;标识符未知
, r9 @# S; c0 _) G# A        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
/ f* A; _* r" M$ _8 u$ I$ ?, o        machine.exitctrl:=ref(leave);
       
        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
; a4 V% u! s. |; m5 L/ z: I        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
! y5 U8 ^- R7 O6 q3 ~& L6 n0 ^! jdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
/ _" k% @$ T# W  c: v& X; r# scurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
! n$ ~4 B# _, l( t9 {3 @end;