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

zooey

is
        mark:boolean;
% W0 Z7 G1 P* h6 |7 L' S1 e; U. _        dx,dy,ct:real;
6 T; }3 F- V$ B. p. U; E0 q2 n% W    i,j,rows,lines:integer;
    machinename,bufname:string;
) Y1 _: @; k4 H8 d) _    machine,buf:object;
do
        current.eraselayer(1);
7 Z; h7 o% q" O" l' K* S       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
1 t6 c1 G$ E1 E: H1 K/ N                when 16 then
: s3 \  O  H% k: u) C& C9 K3 v                        print"yes";
3 F5 t2 s( N7 q  W, c1 u                when 32 then
                        print"no";
                else
/ A6 y+ Z' ^+ Q+ _                        print"cancel";
* y% ^8 E, M& i# F' X" t                end;
                eventcontroller.stop;
- E) S8 r( g7 I% N. a# C- V- a        end;
+ U* r+ F+ S2 |: B& C7 v, `       
8 e" O3 S& W2 a, H        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
: [5 f' w7 _0 D) z                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
# U1 c# `: x/ j/ C        if existsobject(bufname) then
3 X7 n! |5 w9 W$ K8 e3 v6 O: T                buf:=str_to_obj(bufname);
                buf.deleteobject;
+ I- ~7 h9 K, I4 u        end;
  K. w3 e4 v8 r9 @        next;
       
, L. K/ ]7 }7 L7 |3 t        dx:=0;
        dy:=0;
7 @" Q% g+ T; e7 G* s        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: w# W- @: y8 [- ~1 `% z% R                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. \0 ^  A0 [' C  t: {6 O3 f                then
. j2 }, P8 M. M7 D9 x; h! `3 a% s                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& Y! _' t' k' r  V) K4 B2 u' K                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
  v' _8 p3 l; M. q. K                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 u8 H) s2 j: n( X2 w                        activityspace[1,rows]:=ct;
                        mark:=true;
+ R! T; M" I9 @  r                        else*/
                        y_max:=y_max+dy;
, i, `. ]* W3 S0 j# F* ^$ U3 b                        dx:=0;
                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
( X( e3 l' L0 j                end;
* s: ?/ [8 E: a# Q! D* u0 @: @                dx:=dx+activityspace[1,rows];
                /*if mark=true then
( M1 Q3 o& A- k# x+ t9 w5 w                ct:=activityspace[2,rows];
5 L! j; Q( ~6 [# x/ ~3 s                        activityspace[2,rows]:=activityspace[1,rows];
8 l% ?! p4 E9 f! M                        activityspace[1,rows]:=ct;
" ]! a8 v2 F& {' [% y+ b2 p                        end;*/
        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);
1 L* _  N) m; g$ I" `# P        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);
# W- m( _, [3 Y( G       
! n( o; b3 o5 ^( q        rows:=0;
        lines:=0;
1 M6 C( N: h+ z8 Y6 \3 b        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
, X( t: {8 @: m  E                        if j=i then
9 s9 p; m* O+ ]3 u                                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];
% B+ e6 [$ t7 Z! T7 v& G" X                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
! c5 z+ U( V) V9 q! V( I0 {                                d_from_to_chart[j,i]:=abs(dx-dy);
  X, a! c" ?. B  y2 `# c1 i( ^                        end;
7 l3 S+ J- @1 c" k, l! N& |                next;
+ t3 p% x$ V2 I/ k0 c- q8 m        next;
! G6 d% w  W& I6 C       
        lines:=0;
. a, p+ r0 Y% g* M, w  N& S# I4 W        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% c; j" K% t1 p: b( P  r8 t                machinesequence[2,i]:=rows;
/ G) K& ^0 r+ Q) q6 Y                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"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
( z! Z) q" d0 y: y                        partstable[5,lines]:=rows;
% k% ^& V. W* x# C" W) T                        partstable[6,lines]:=j;
0 Y( |* p% Y% T; c/ h                end;
5 F0 J: M% f; Q9 T* [1 b& B% y/ b        next;
+ K0 }, a2 G6 X+ {' ?. J        machinename:=sprint("M",rows);
0 `! |3 ?/ ], L5 A. {. 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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
$ U$ v; a# }; n" O7 E0 N% I0 }3 P       
* v- R- b2 W$ e0 J6 t( `        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]);
5 m! y+ k" B( |, v) h        buf.name:=bufname;
        buf.capacity:=5000;
4 }% b4 G4 l& C$ i" G        buf.proctime:=0;
  ^) ~0 S3 s* z" {6 W' U5 w; i        .materialflow.connector.connect(buf,machine);
7 @, b, ^: B' z5 _& n! a       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 H7 P5 H5 I" \; ?! w8 ~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);
8 Q7 I  s! F8 `0 _next;
end;