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

zooey

is
5 q3 k8 ~( \$ i. g        mark:boolean;
' T( I- t  e% ?: a        dx,dy,ct:real;
" z* }& j8 }+ a) l! |3 @9 s    i,j,rows,lines:integer;
    machinename,bufname:string;
( D" H! @! M! I) }$ y+ j; x9 n  F    machine,buf:object;
) \6 `+ Z' U* s; J! e: ^- B2 ~do
        current.eraselayer(1);
       
; ^7 h8 L; Q. D' D/ f$ p        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
$ e2 b) \1 E) H' J6 A3 ~" b5 e# q                when 16 then
                        print"yes";
                when 32 then
                        print"no";
* K0 W8 p/ q+ v4 i3 l                else
* i; P2 t/ F. e: j                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
" C) c$ \9 i9 _9 s                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
7 I6 p. }' ^; d/ U        bufname:=sprint("BF",i);
, f1 q: ?; s: y* F- G) y        if existsobject(bufname) then
4 h' j$ H/ E- h( l! c' Y( s$ a) l                buf:=str_to_obj(bufname);
" y- G  B9 O! N& B                buf.deleteobject;
        end;
2 v% H$ m+ u& C+ g8 d        next;
       
! l, |. @1 D2 S! q" C        dx:=0;
$ }) e$ V4 a- v3 _3 w( _        dy:=0;
        for i:=1 to number_of_machine loop
1 F9 T. ^& ^4 ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 d# N# \1 _, ?; o                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
( r4 x. [0 w) Y+ O2 h                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
$ N; E& {% A( {$ ~4 L! z5 c9 g                        print activityspace[1,rows],",",activityspace[2,rows];
3 i& d, m9 f+ ]$ X; b+ l                        ct:=activityspace[2,rows];
  L: F$ D1 K8 G                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
! q. ~1 p& g5 ^. t* X. I+ R; r  X5 h                        mark:=true;
) J1 n. w. _7 n' g7 c                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
+ i! w9 J% ?5 P# u1 M                dy:=0;
# Q2 I1 v2 _& J/ D                        --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
' \5 U+ G- x; V' r7 t0 t/ Y7 N9 w                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
2 ~1 A" `' u! D' N' z4 t4 ]  c                /*if mark=true then
+ n; s# ]. D" n$ u2 L" L& |4 @, L                ct:=activityspace[2,rows];
" u( z! g0 R# }                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
+ I6 h/ S% h0 F2 w4 O' ^        next;
2 \; |1 x, b- t& c9 A9 B        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);
. b6 p+ L9 e0 r% s% C& \/ N/ x        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);
       
0 O1 w  c4 y8 w. c7 R( m        rows:=0;
8 Z6 ~# {( U% M        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        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];
) v+ l9 Y; t( V8 z                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
& b7 t' r" u6 u6 |+ y; d       
        lines:=0;
        partstable.delete;
: M+ q$ w2 n9 i( ]       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" n* r" \; g: M9 F                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' Q* D( X6 ]) w0 h5 I* M4 t; V                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
( ^; |& X: B2 g( r; \5 D0 }                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
2 H; a$ r: a8 r& T                end;
        next;
# G0 K. ^) |% V* A% m6 T8 p5 ^        machinename:=sprint("M",rows);
3 k2 T4 u1 r& Y& s+ R( g/ D        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]);
/ k+ b+ m7 ?6 Q8 V: t        machine.name:=machinename;标识符未知
) D9 j4 F1 ^$ ?        machine.proctime:=5;
4 Y& n2 p% W9 V7 @+ Q        machine.label:=activityspace[0,rows];
7 R( [& _( F+ p) a5 u        machine.exitctrl:=ref(leave);
       
/ U4 a) f1 o' R" e2 B) b6 @        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]);
1 T- T$ j% F* r: E        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .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;
9 |- s$ V% B' L3 s3 H7 H& Qend;
4 v$ H- T. c3 |; A* s1 H$ T+ j