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

zooey

is
        mark:boolean;
. k$ T, o+ Q; }, D5 Z        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
: n0 y/ z; ~3 H/ M. l. @    machine,buf:object;
do
        current.eraselayer(1);
/ v+ i. L! z" l4 ?# B       
; _2 l7 d1 z4 l7 I# i4 \1 h' T        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 b4 P$ M% i& A  @$ k  ^$ g                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
2 T: X, M/ n! }1 m4 k                        print"yes";
1 E! J, V8 X# a; q+ D$ r$ J                when 32 then
                        print"no";
2 g0 e* k7 E+ w. O                else
5 Z5 g1 w9 x/ X7 a5 Q5 C- z! x                        print"cancel";
$ q' W* d7 i5 R- o' ?                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
7 P9 D0 N" S. P' Z, |3 s2 L1 M        machinename:=sprint("M",i);
" C" |$ Y* Z0 ]        if existsobject(machinename) then
, P  ^' M0 |% A" l- I- `7 @                machine:=str_to_obj(machinename);
                machine.deleteobject;
; g+ E: O' M: K' s  w. {. a        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
4 X1 B2 x2 }3 `/ I5 @+ K+ C                buf.deleteobject;
        end;
        next;
# ?/ c4 y+ V0 z8 S1 I# F; ~7 p       
        dx:=0;
" F6 J) O+ y  g4 B; d0 g) p+ a        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- J4 |# j2 K% i: k! Y                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
" @' l, ~. F+ _: E$ W# _9 X$ O- o                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 [$ _* d" Z( I! p1 E- J                        and activityspace[1,rows]<(1.05*y_max) then
$ M% C7 n7 n1 W# i8 i: v3 N                        print activityspace[1,rows],",",activityspace[2,rows];
! ^  x7 l' j, \' X4 z( I                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
7 A* p  Z9 k$ c/ Q6 i9 i                        activityspace[1,rows]:=ct;
2 L$ n: B$ v' v- q  _# q4 F                        mark:=true;
                        else*/
9 ]7 F6 N; f& X" p' z, y* t                        y_max:=y_max+dy;
2 ]" U% ?7 d: n2 B: r- W                        dx:=0;
8 x' _( X0 [+ W9 R  y0 ~                dy:=0;
                        --end;
5 B# |5 ~. v, Z                end;
$ r1 p! Y; ~. w( K                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
                        dy:=activityspace[2,rows];
                end;
# o  V, o/ @5 l8 s6 h5 U8 i9 _4 K2 R                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
& Z( X0 J; X- a6 _                        activityspace[2,rows]:=activityspace[1,rows];
+ H# x! j5 o4 S% l5 s                        activityspace[1,rows]:=ct;
, F! o3 y( p) w( [0 r/ @! C% X                        end;*/
% r7 H4 E6 T$ J; S. F; W        next;
        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);
+ H# n( O! K9 g6 M+ u: ~6 ]        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);
( u( Z" P' w5 y; C. X       
% o! r5 J/ d3 X        rows:=0;
        lines:=0;
" T' _4 G  v* Z9 _- r: W        for i:=1 to number_of_machine loop
4 h8 K$ ]3 R$ `: h3 [                for j:=1 to number_of_machine loop
2 H) r' T/ m: ?& c, c$ E                        if j=i then
                                d_from_to_chart[j,i]:=0;
) f2 y) Y" {+ z  ?* f4 h                        else
( u/ O2 V* }8 @+ ]% {- y                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
3 A8 O9 K) l6 c                                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);
; ^+ q! O% D7 E: a8 k                        end;
# k# N5 C9 }* H% m$ n  U. q" _                next;
# ]3 t. @3 @4 x( S1 \' k8 k        next;
4 E. q4 d2 q! @$ w* `* Q, F       
3 ~6 e# }/ v/ L9 u  f$ B" @  _. ^+ e        lines:=0;
; A" _3 @+ V' Y/ V3 i, g        partstable.delete;
       
        for i:=1 to number_of_machine loop
8 h' G& C9 u+ P# N2 _                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ T. U9 W1 h- a3 l4 Q                machinesequence[2,i]:=rows;
5 b- h* e% u% l* G2 y6 x                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"));
9 j6 j% j5 h: _  x: k                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
5 i: ~1 A- D7 Z% u& |* C                        partstable[5,lines]:=rows;
+ v4 y# |& D$ B- V' A. d4 e. E/ t                        partstable[6,lines]:=j;
" D' I( F; z* U; Z& n                end;
+ Q  ?& U8 Y8 @) _% d        next;
: l+ X' q6 ]' y# b; i& \7 o; `) ~        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]);
' U$ Q6 l9 @7 U1 m        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
" F' _9 L+ M6 Q: D8 d6 ]        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]);
! B- J4 _' l; M7 c        buf.name:=bufname;
( Z4 ]3 W  ?0 w& f4 O        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);
7 \) W; q; u# Znext;
- x, D) N0 M, g$ K  Y" Wend;