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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
3 Y! v' q6 ~* r! d    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
( L( c) M, f; m4 r0 L$ o/ A                inspect messagebox("设施数目不对！请核查...,",50,13)
! A' ]1 T: l9 [: D; @: @. T                when 16 then
8 g! n7 ?) ]8 _3 ]- D; K$ O                        print"yes";
! K3 l$ u! w3 T5 ~& C                when 32 then
                        print"no";
                else
$ R$ x1 a; m$ t5 O* R                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
7 p- R. R4 ^6 S) w+ X8 x        for i:=1 to number_of_machine loop
2 C" j  ^; }: }2 X% s" X8 [7 ?/ y: r        machinename:=sprint("M",i);
: i, m1 V, ]8 _$ g        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
# @1 a. i# a) S4 X                machine.deleteobject;
        end;
4 `! @; _7 G+ @" _* x        bufname:=sprint("BF",i);
6 m6 a1 i3 s" s4 C% R# \        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
/ A& ^6 O  S% {        end;
        next;
7 [, y6 ^: O- Y1 I* a- ~       
        dx:=0;
        dy:=0;
3 f; [7 }+ ^" k6 w/ P4 z; e4 L        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
; n$ C% P9 R, d                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
6 J6 v& V) K" y( L7 K                        ct:=activityspace[2,rows];
6 J9 O3 f, `  Q8 k# p                        activityspace[2,rows]:=activityspace[1,rows];
; `) J# e. a2 ]                        activityspace[1,rows]:=ct;
& m8 v$ c1 ~! G1 Q; T9 i5 T                        mark:=true;
                        else*/
" u+ r  k# b6 k! X. X% S; w                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
! M- f8 y) q  K5 ^. _& q3 u                        --end;
& a4 T% i8 `2 z6 ], L                end;
4 C9 A4 N) R5 w. n- i                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
4 d* U. k# V) L' H3 j' |                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
6 X, R0 u$ C5 R1 p                        activityspace[2,rows]:=activityspace[1,rows];
3 V, u$ L0 E8 T3 Y1 s) L/ `+ f- B7 U                        activityspace[1,rows]:=ct;
                        end;*/
        next;
8 m1 G. x$ K( G9 u        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);
8 E( `; ]4 M+ L: 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);
       
        rows:=0;
        lines:=0;
' s' v6 k! }8 K0 v* T        for i:=1 to number_of_machine loop
( J; g' P/ |! W+ F4 b7 O                for j:=1 to number_of_machine loop
; S$ S$ c" C: W4 k6 ]$ P$ \/ v( x; l                        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];
% @/ v8 @+ m: F7 K* F4 Q2 {$ ?                                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;
3 v1 M% y; n0 r6 `                next;
$ V' S# k4 z* R" }- @* n        next;
7 k& @( @' g2 Y* \2 g- w       
        lines:=0;
        partstable.delete;
" K% X; P1 u4 m       
        for i:=1 to number_of_machine loop
- a' v) C, l& O                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 @) h6 @+ @" O. f% Y( ~1 c2 p                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
: n$ f8 ]2 }, P% L3 j  c6 ]                        if w_from_to_chart[j,rows]>0 then
7 y3 s0 ~6 }& z7 A                        lines:=lines+1;
% y3 Y0 {: L) o                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ c' A( ?3 v8 T! G3 o                        partstable[2,lines]:=w_from_to_chart[j,rows];
4 X* H7 F1 `; W2 m                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
  d; i6 C) r) x) t/ P                        partstable[6,lines]:=j;
, K9 K" f  i) |9 C, ]                end;
! ]% `/ v# t4 h( h+ m8 j6 r        next;
* @' a" V$ ?+ L7 g  n        machinename:=sprint("M",rows);
8 z3 r+ c  K1 n1 J/ h        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
& g; J( s4 ?: X: e0 @% e# C% [       
        bufname:=sprint("BF",rows);
' D7 r2 W) F1 L        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]);
& f: X6 o& A, D' u  E        buf.name:=bufname;
) M, M; Q$ p4 `6 Y& K        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;
: Q+ t7 Z5 j! h+ g8 C) Scurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
0 I1 s/ |- {- ]end;