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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
' ~7 M, O& B& p2 G4 y    i,j,rows,lines:integer;
+ h* i; b2 t8 d0 _& [" [: ^    machinename,bufname:string;
' C! m' Q( a" b: d1 v& p; u; W% z    machine,buf:object;
9 D; [: G8 e1 O) Ndo
        current.eraselayer(1);
8 t+ Y0 s- U$ U8 r! K" I, T/ L2 ?" X       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
) B+ i" X: T! `2 D/ j6 B4 ^8 V                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
$ i: T; C+ F' G7 U0 g                end;
1 ^% X* [9 b5 e& k4 Y; \                eventcontroller.stop;
        end;
  |6 u$ ?; @( @7 D       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
' F! y- [% s, w; |& e                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
6 m5 \, j/ g. A8 B& k% g        next;
       
        dx:=0;
8 |0 q1 z+ z5 M# A6 D/ L) k+ r        dy:=0;
3 j9 h& v* N& l6 I4 Z        for i:=1 to number_of_machine loop
7 M( V3 e- _2 H. y7 `                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 v% T9 |. \6 \, W: s4 X1 B3 o                --mark:=false;
# `' q3 N1 x- s9 @" H9 j                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
; g+ [  ?$ g/ x1 V                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
; H5 J7 z5 l4 u0 e                        and activityspace[1,rows]<(1.05*y_max) then
. N( a% q' M% G" w* J* n4 W                        print activityspace[1,rows],",",activityspace[2,rows];
# p! L# \: P1 q                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
4 I% v. [1 Y6 [) I) d$ D                        activityspace[1,rows]:=ct;
5 _6 S7 o/ e0 ]9 P2 o( l                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
+ }9 f) n+ U% `7 l4 R2 G& I5 @                        dx:=0;
" z) v) x) B3 E3 ^                dy:=0;
                        --end;
                end;
- r  g0 G  i! j& M7 y) Y3 G- M                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% w% W  X/ F# Y& s6 m1 g4 _                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
: e' b. W. w% g, j- d            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
0 U) B- h: L# A6 }                dx:=dx+activityspace[1,rows];
                /*if mark=true then
/ L) A) [+ H6 W/ ?) W8 _+ [                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, T7 F/ |; t. I. x  z% j2 X# w4 w" ~                        activityspace[1,rows]:=ct;
% {: Y( U. k) t, k. o- B7 f( T                        end;*/
: ~, h8 S7 v% q# _- D' p        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);
/ S& B4 C8 Y8 z: k: m! @        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);
       
8 `) v- J; E5 O, `- t        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
- t9 s" v, n! t: Y" x; u3 v                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
2 {8 m* X! O" m; N+ _                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
/ Y/ \- A6 K1 G3 ?- o6 S3 l9 F( z                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
/ {6 k/ k  t1 l                                d_from_to_chart[j,i]:=abs(dx-dy);
5 p# t: o- s$ N7 y4 u# |! }) I  n                        end;
                next;
3 M/ ]/ }8 l, D6 t        next;
0 J- ?7 ^$ ~+ k7 _2 f1 k/ ?       
        lines:=0;
; S$ v3 G/ Z2 G9 N. Y' D        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ Q1 ~$ f7 b! |/ g                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
$ ]' e9 a& O, y1 m# z$ j  E4 @                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
9 j! M" U3 ]! ]7 I0 P0 \  o/ A- a: ~                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
- w9 k9 Z3 X( g0 Z  J                        partstable[3,lines]:=sprint("parts");
' ~- L* O/ l. j8 u2 X2 l                        partstable[5,lines]:=rows;
8 d) w9 @$ h0 H, L" R4 B: }                        partstable[6,lines]:=j;
2 v0 [5 Z7 c3 `; s& Y$ s% n% V                end;
        next;
        machinename:=sprint("M",rows);
" Z( U! C1 W$ X3 b6 K        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* s; V7 f        machine.name:=machinename;标识符未知
        machine.proctime:=5;
' c) {% ]' _5 C: w" ]! |! y        machine.label:=activityspace[0,rows];
* _  j. d3 G9 {7 k        machine.exitctrl:=ref(leave);
; P' i' Q* c- ^; Y  m( |       
4 z9 G0 [, L* ~1 H0 m+ ]$ F        bufname:=sprint("BF",rows);
- S2 x: ]6 G' |5 V+ P        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]);
3 D+ b7 C; z& ^6 z& G2 L        buf.name:=bufname;
. K& H2 V$ g% c" _, t3 z2 r        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);
next;
- Z9 r, v! p5 V% @( p6 M$ @1 vend;
* K6 p/ i/ X; s- r