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

zooey

is
. K+ f& F" _3 q. J: J6 h        mark:boolean;
4 ?( s( [4 q3 _* Y( A0 o+ c        dx,dy,ct:real;
4 @! ]) M  A. E2 Y    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
9 S( s: c9 T0 \! E4 Z2 [do
, C$ W) F8 H3 B( f7 {2 ^" M- R+ i        current.eraselayer(1);
9 [7 D4 ~5 ]- V; i$ U" |       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ c. T' H7 i" F. z5 }- P/ M                inspect messagebox("设施数目不对！请核查...,",50,13)
% v: C+ Y: r3 G$ V: A! W                when 16 then
# d3 y5 G. P8 Y( ~" @                        print"yes";
* O; z- r. _5 w                when 32 then
                        print"no";
0 ^  ~) ?2 y' T6 m' G                else
                        print"cancel";
                end;
- z" y8 X2 V- h) R                eventcontroller.stop;
7 S+ q6 X4 a, C1 n2 l9 u        end;
       
/ ^6 h' }) [' L) H        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
4 h8 u1 p7 `. k% O( t" r        if existsobject(machinename) then
, }+ \' J8 k( }" ]% H9 Q                machine:=str_to_obj(machinename);
7 B- i, N  }0 ^, i4 ]' b; A. R                machine.deleteobject;
& G, s& H, ~+ J5 L5 O        end;
1 I$ j7 q$ b8 `( ?        bufname:=sprint("BF",i);
& L; Y! A8 y2 C4 K) V8 M5 P        if existsobject(bufname) then
6 p) i% |4 v/ q2 ^, M0 |1 s+ W. y                buf:=str_to_obj(bufname);
+ k2 D# s9 ~' H8 a5 C( U# {( {( H                buf.deleteobject;
& y/ f# Q" U+ \        end;
6 ^0 o+ L  p+ G: C$ ]- K5 G. p        next;
       
0 q: n! D- T# t- O        dx:=0;
        dy:=0;
. C2 q9 t" v; n        for i:=1 to number_of_machine loop
  j/ Q8 s$ T6 u* S3 b- r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& ~8 G9 B" p9 j% B! j% }) Q                then
1 p% }4 u) z6 @- O                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! z) v5 q5 s4 \% S                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
5 K- w5 v9 ]' e; A! X" x                        ct:=activityspace[2,rows];
' r3 i9 }! \' [$ p) H                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- r  V2 V7 H! j$ w4 e* u                        mark:=true;
- |: C% D, f' X                        else*/
6 E5 k; T5 |; `9 u  F- v                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
8 l5 H* t" d& \# w* W7 a' s                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
& `9 \) s# G8 x1 _- D                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
7 V4 P6 t. N( t( f            if activityspace[2,rows]>dy then
4 h, [$ r, b$ Q1 |2 L4 M7 I                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
0 P: O  I% W/ x) J( \& C. H                /*if mark=true then
                ct:=activityspace[2,rows];
- P* Y) Q: ~5 z: J" A6 r                        activityspace[2,rows]:=activityspace[1,rows];
8 k- E; f$ g; E% a! W                        activityspace[1,rows]:=ct;
3 q3 X  s+ {1 l$ m$ U  E% X, J                        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);
        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);
# H* {/ d) d1 v' I) C  E       
        rows:=0;
: M; {) r' c' C+ j: P7 `        lines:=0;
% w6 p# z  v6 E7 k7 L8 {' c        for i:=1 to number_of_machine loop
- P, b  R) @1 X! \                for j:=1 to number_of_machine loop
                        if j=i then
8 e4 J% c- @: O4 p( q" t- B                                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];
/ ^# G  ~+ m& j/ V5 y; g                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
: n- p% Z6 S( x6 |- m                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
8 k( X, w; W9 C, ]% e- `        next;
       
) v' A+ k5 [0 L; z* p! I        lines:=0;
8 L  u! @$ J1 p2 p        partstable.delete;
1 l" M: U" W4 s0 l       
) n4 l6 ~1 D, G" o* m        for i:=1 to number_of_machine loop
0 U# E3 A6 }  \- i* G; v                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
! \& Q: m+ O0 L* {( _: v                        if w_from_to_chart[j,rows]>0 then
( @5 `- D1 f$ B9 `. I; \                        lines:=lines+1;
, L7 E9 V0 }) O7 c$ _8 c                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 B- x0 T$ h  D1 \! i$ V# F" \- W                        partstable[2,lines]:=w_from_to_chart[j,rows];
% u- R& D# V3 j3 Z                        partstable[3,lines]:=sprint("parts");
2 M2 g( J) V: k* d7 t                        partstable[5,lines]:=rows;
/ I8 r" z  k3 W; \                        partstable[6,lines]:=j;
                end;
5 I: s; {" t! Q5 b! m2 d9 ?3 C        next;
7 H$ W- t! B8 T7 W4 x$ D        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]);
        machine.name:=machinename;标识符未知
" P& X$ G1 r! ]0 R& g" S        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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]);
3 ^3 \/ |5 m- l& r( e0 B        buf.name:=bufname;
        buf.capacity:=5000;
# A( M; _" E  n$ B& x3 k        buf.proctime:=0;
; \1 g; d% f" B" E2 {6 i        .materialflow.connector.connect(buf,machine);
       
. A( \- O2 J4 O$ E  U# @; d        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
  G" {- A8 q$ b$ B( ?+ l1 mdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
. l$ L1 W" b4 N' v& B' Rcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
7 l# c5 G! \5 knext;
end;