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

zooey

is
        mark:boolean;
0 n! E2 C" f% {1 S4 B        dx,dy,ct:real;
    i,j,rows,lines:integer;
- P+ I. F" `' D* ]1 P    machinename,bufname:string;
% o+ x/ |+ Y; ?: \" k    machine,buf:object;
; s  W- R3 p, w3 j3 O' _do
        current.eraselayer(1);
& Z; ~" J) D/ k6 d7 L, h       
; U9 l# y8 B0 Q2 T* s        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. s7 g; `0 d  U                inspect messagebox("设施数目不对！请核查...,",50,13)
. s% [- `0 U( `( Z5 \% ?  i                when 16 then
                        print"yes";
& C- k0 ]6 ?  `- |+ u                when 32 then
3 {* @: V. K7 [: M% r# H                        print"no";
7 L/ v4 m2 c# M& y$ D8 |3 j- u/ W( o                else
5 C/ G6 X, ?: @6 Z- u8 O6 Q& F0 E                        print"cancel";
- y% `. j3 d" z" s                end;
                eventcontroller.stop;
5 V. Q8 j4 i. d1 Z6 \. x- k% U        end;
       
! W6 x, ]5 v8 Y2 r1 G        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
- a0 g# |  C4 d) m        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
2 {0 e# ]7 g. l                machine.deleteobject;
- J+ \2 J9 M& z        end;
        bufname:=sprint("BF",i);
6 S% d" _6 c3 T  X) @( t        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
, E/ [( c2 a7 ~5 N7 J7 N        end;
        next;
/ j' m- `3 b6 u- y  k       
        dx:=0;
        dy:=0;
5 d2 O! [3 r* P( U8 m" ~& c# `  _        for i:=1 to number_of_machine loop
/ t. h0 V0 \5 l# R+ p& b: r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: W$ ~7 e* A! N& n3 D2 J                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
; k3 w+ H, e; S+ T& U  x                        /*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];
                        ct:=activityspace[2,rows];
' F" B! p: K% `! g3 ~                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
6 g& C6 F+ M9 s7 {                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
1 d5 q2 ~; [; g; ^9 H; d                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 Q5 d: ?4 ]7 f( k* f+ L9 H% ^                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
2 ?  U: x  \* c! g                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
) L; f+ R, J; O) |+ D                        activityspace[2,rows]:=activityspace[1,rows];
+ l* T1 i7 H* {4 S6 l( D; I                        activityspace[1,rows]:=ct;
                        end;*/
. h- I1 ~! h# q0 a; \) @; g        next;
% t- b9 P# u# x. }        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);
        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);
1 ?* d) Y2 K- [1 o, N% m6 T, v       
        rows:=0;
        lines:=0;
: q# J. z* [+ `5 a( `        for i:=1 to number_of_machine loop
4 M3 G3 [4 G- }2 u" ^- T: y+ |                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];
8 F! q% U0 z9 B4 J4 G3 j                                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);
/ l& k$ g; F: i& x( F) {4 b* d                        end;
: U" _5 E, ^/ u( ]" P6 I: t% J5 k                next;
' g' L* l9 ?: Q        next;
       
8 @& Y/ T" P$ U8 q1 m* d        lines:=0;
- w  {3 W' C( W        partstable.delete;
. y( z# G; t  X# z" I5 ~9 J; }       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 N. u/ p* r( P$ p" Z                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
7 |$ k0 s3 B9 O2 X; o; u( Q                        lines:=lines+1;
7 W# r+ p, N, C9 `                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
( w" V0 L; Z$ z. ^! A: Q  F                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
) d+ Q# I/ C6 W% L3 N/ d$ t! |$ m8 w* R                end;
8 s% ]: q" ?/ t        next;
7 u: O: J& o6 G' j6 h        machinename:=sprint("M",rows);
- [7 q: p; n5 N        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]);
+ l  Q- @$ d: Z/ V' {$ g3 @+ h        machine.name:=machinename;标识符未知
        machine.proctime:=5;
+ [5 ]. _9 K/ H4 h4 a( w: J$ Z        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
  W( Q5 E. j$ K        bufname:=sprint("BF",rows);
" _+ g8 S5 j9 Y& P. V  D4 r* f        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]);
9 D+ Q4 `2 I" t        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
' w+ a6 M" \; B; `1 @+ C0 U       
        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;
4 e' T5 M6 I% i) Scurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
4 k) j5 b7 h! lnext;
end;