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

zooey

is
$ C  |. K- n+ `- {- a9 V        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
" d, v: W, a% k% t: ]5 Z' j* F0 P    machinename,bufname:string;
" u# o, Q5 L' Q. W    machine,buf:object;
6 ~! U1 m) o* e" ?+ cdo
        current.eraselayer(1);
' h5 u$ L1 P% [8 _/ g       
" c% K- R& W4 f" `6 ~9 e; K        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
2 L2 g1 \$ O$ s: L7 l9 i                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
7 [! x& y: P+ }" l4 c- f  ^( J' z        end;
" A' x# V  B" o8 Y2 j- F       
        for i:=1 to number_of_machine loop
2 S1 N7 o5 C7 M# N% H& S4 f* \& W        machinename:=sprint("M",i);
        if existsobject(machinename) then
4 M4 x# I6 u: M& L( d8 t                machine:=str_to_obj(machinename);
                machine.deleteobject;
& Y% \6 I- h% _4 H9 q' a4 v        end;
        bufname:=sprint("BF",i);
; S' q; t, ^/ ]0 ~, R9 g        if existsobject(bufname) then
$ k1 u0 f, [% e( I                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
+ L# `0 K. E; l  _        next;
       
        dx:=0;
- n$ Q' x' t/ W; y, ?        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: x! g$ y  A/ n- J! Z  n4 c1 `                --mark:=false;
6 K5 I* r$ F$ J5 G  M  c                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
$ T2 ]' P9 O% L                then
5 i5 i5 z/ Y" Q7 }: s                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 ~1 D) r" T9 A1 \                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
9 Y/ }& c2 u* Z9 y, A; a& `/ }                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( ]$ c) Z3 A2 d                        activityspace[1,rows]:=ct;
6 |9 `( s* w% G0 a                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
0 V. Y! A0 e* U* q  p. [' C                        dx:=0;
0 J% r& x. \1 x/ s& |                dy:=0;
                        --end;
                end;
  B' x1 R% @; A* w! u                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
2 I& q2 ]2 T& _                        dy:=activityspace[2,rows];
                end;
- q2 S2 F0 w% h& i                dx:=dx+activityspace[1,rows];
                /*if mark=true then
$ w9 g4 E$ Q0 _3 S                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
: |4 H5 n: E* v, o$ E" Y0 A                        activityspace[1,rows]:=ct;
' i3 p2 {5 O/ P5 m! a- T/ R                        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);
6 f& |& b3 r3 i3 x2 h4 h        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;
5 e+ G2 z8 [1 R' P2 o        lines:=0;
" L7 q. a, M; ]6 n- I% Q0 C  ^" Q        for i:=1 to number_of_machine loop
9 X  Z' X& H% q) H                for j:=1 to number_of_machine loop
$ A4 |0 K: i  U: F1 b5 i3 z# H                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
1 C, u8 B4 Y6 |+ q                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                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;
                next;
        next;
       
% L6 X1 m$ M* T3 V+ u& w        lines:=0;
        partstable.delete;
       
/ R; m  h2 N/ n* ~; L        for i:=1 to number_of_machine loop
/ }6 H; j* D( I& ~$ b: ~6 i4 \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
# U  `" L7 ~/ f6 X& [                for j:=1 to number_of_machine loop
; H4 y) s+ ]8 y' S. h4 O                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
) T) @) W- i# T                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ n/ `  Y: i) j( s8 S$ f                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
$ r! x5 y" w  e8 P: Z6 h0 l( a: l                        partstable[6,lines]:=j;
                end;
        next;
        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]);
' J: w0 g9 W' j: A& q% `- s        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
  o5 W; Z' P. O; a        machine.exitctrl:=ref(leave);
       
/ j8 P! |! a3 E4 }1 W        bufname:=sprint("BF",rows);
+ |) H: o" S/ e: @. e; b        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]);
  Z/ D7 Q( e" d5 J        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
  R" I4 t+ W' @8 u& w* |5 D' N1 i        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
0 x5 M3 _- S7 ^* u) a0 A+ \- G1 Rdy:=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);
; O6 A9 f  c* y, n" V' d# J' X! d; Fnext;
) _) Y" v3 T3 a6 N3 _* p; w2 y* d! R* jend;