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

zooey

is
        mark:boolean;
+ Q4 `  J+ A- q' B4 e; V$ n        dx,dy,ct:real;
2 |2 @' ?# h3 L2 K5 z; |    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
3 j, D# \* A* Y* P; H" A3 N        current.eraselayer(1);
4 Q& a8 X7 u4 M" h+ N7 g       
$ K- ~- T0 n. I5 z' z        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
$ O% t* }/ Y/ J                when 16 then
$ ?/ P+ q2 ^5 l: i, v9 p& y8 u                        print"yes";
; S  W2 v2 I7 W! d3 s" z/ K" ^                when 32 then
                        print"no";
8 {- K5 }$ k7 ~4 `/ J8 r+ t% v                else
                        print"cancel";
                end;
+ a+ Q. R6 b# h! _$ E$ ^$ \                eventcontroller.stop;
  J3 Z# ]. O, G* n0 p# |! ?1 k        end;
, n* l; S, E% O$ ]9 x       
3 I- N& m5 }5 W7 c        for i:=1 to number_of_machine loop
3 s$ e, @: P/ O. h; ~. T        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
+ \2 c0 n! |4 L& G; }3 }        end;
        bufname:=sprint("BF",i);
, d6 a. N# D7 o7 e        if existsobject(bufname) then
, }7 ~2 ^& C; J1 ]8 G0 g) i- a                buf:=str_to_obj(bufname);
                buf.deleteobject;
  n% L- p' ?" v: E1 Q& h        end;
        next;
       
7 ?% j- I4 H1 ?3 P$ d4 Y9 u# M$ j        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
* n) U8 ]3 e/ S7 [5 V7 c4 i& R+ h                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 U5 A" B; [( Z3 F                        and activityspace[1,rows]<(1.05*y_max) then
* O' W. O# {' a! l                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 s* J9 I( O; u2 s7 N0 Z/ }+ {/ ~                        activityspace[1,rows]:=ct;
( F& k  @$ v6 L                        mark:=true;
' z% O2 n/ Z- P+ o6 U5 M                        else*/
                        y_max:=y_max+dy;
2 s* Y' @- `) o                        dx:=0;
                dy:=0;
                        --end;
9 ^3 ]# M! u8 ?  u3 Q7 t: l: @( C                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
5 }# F3 L: A  q( z0 A) s, _                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
* n) K- A) ]& t# C  E2 u" k            if activityspace[2,rows]>dy then
  K, e* A+ c) F, }' E8 }                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
1 Q( M! F& k3 c                /*if mark=true then
" k9 ?: X0 E* I9 u! p$ q- Q' T! a                ct:=activityspace[2,rows];
. v: Y5 X) U) Q% d/ D                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
2 T/ z7 D; ^2 _. M. K        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
4 Z% S4 y8 [5 E& \" q                        if j=i then
                                d_from_to_chart[j,i]:=0;
% X$ p, k- f4 j                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 \2 m# t0 C! P( U% L6 c& Q# Q                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
# `6 h# [$ P& C7 a4 t                                d_from_to_chart[j,i]:=abs(dx-dy);
4 i5 C+ \" X; z! d# f                        end;
                next;
        next;
       
        lines:=0;
* B5 E5 K7 _5 f% o3 u5 b        partstable.delete;
9 {6 x( @/ A2 r  [- N) C       
) R: k' u. B- x; \5 ~: a8 v        for i:=1 to number_of_machine loop
% |3 n8 t+ e0 M( Q+ I6 l/ |                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 E, f0 Y7 u) n                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"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
0 P8 l) x) a/ n- A- b' v% K                        partstable[5,lines]:=rows;
6 F) M) N3 R: t% S' S                        partstable[6,lines]:=j;
                end;
* Z$ I/ v& A% F" Q# n2 F        next;
& V4 k# g1 y1 N1 g  j% a9 f$ I        machinename:=sprint("M",rows);
1 e5 m2 p8 {! ~        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]);
* P4 L  y1 S4 f& ?7 |1 t        machine.name:=machinename;标识符未知
% G! e# \( E  O# f6 {% C+ I: S" r        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
: G& ?9 |/ X" Q        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]);
        buf.name:=bufname;
2 I; N& t/ P1 ^) ]" f        buf.capacity:=5000;
3 |6 `% d$ {, q3 ~        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
2 O4 A! e0 ?9 o       
        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);
) D" i8 U; n1 U' W; Onext;
end;