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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
" A4 U$ P; G3 q5 g/ g' u6 D    machinename,bufname:string;
. U, q; t; s4 E( q! f    machine,buf:object;
- W* w5 c5 Q3 c3 U3 c5 ]# zdo
3 q: d, V; t; W' T( D" z        current.eraselayer(1);
       
) Y) _4 d: h' @2 Z. ~( L        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ q* ~1 h$ k+ D' I6 z5 }5 Z                inspect messagebox("设施数目不对！请核查...,",50,13)
- r1 X+ k+ i. ~9 K# A                when 16 then
( H- }% c& R0 i3 y  l8 t; ^                        print"yes";
                when 32 then
                        print"no";
- ]5 {" y5 V! h! F. f                else
- m; b# e+ y" J( M: q: ~  B                        print"cancel";
4 }/ c4 h. U/ I; |8 i1 N                end;
                eventcontroller.stop;
- d- {1 F( X  `3 P( i" Z1 p        end;
       
8 l* }6 G& q, r        for i:=1 to number_of_machine loop
2 Q1 f9 {8 R" j, D* B+ f        machinename:=sprint("M",i);
4 g' P, d" X& N" F2 m3 r+ g$ |0 n+ q        if existsobject(machinename) then
, T5 I" V) Z$ R6 Y$ j+ i3 \                machine:=str_to_obj(machinename);
% v; v0 O; F* k0 B5 b                machine.deleteobject;
1 i9 ?) m- R  G7 i  V+ M        end;
7 i3 n1 F1 ^2 d5 C7 Y- R% d* f        bufname:=sprint("BF",i);
, T, U" l$ R  K) z* {4 e/ y        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
* O  U2 L! c/ U. A/ x8 r$ ?! x                buf.deleteobject;
        end;
, G" M# R7 X8 d( _0 H        next;
  c! A' y" H" _3 c' Q% R1 E       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( W- Q, p' D' g5 Q2 e7 ~4 }0 v* m. u                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! q9 W% y/ z( e0 }5 O" s                then
                        /*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];
6 I- V, Q! E- T5 W7 E                        ct:=activityspace[2,rows];
; K! p* o- Z% }$ e$ i; r                        activityspace[2,rows]:=activityspace[1,rows];
9 y6 p7 x8 L5 r3 ^1 |, p                        activityspace[1,rows]:=ct;
. |1 y1 }/ ?% m                        mark:=true;
                        else*/
4 u% V0 \0 G. i$ U: K6 ]                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
! O8 v) w) Q- `                        --end;
                end;
& o, r# U$ s3 _% r4 m                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
# ?  O* `5 z3 z. z                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
) I' y! `( [5 ?( f* R) ]& v- A            if activityspace[2,rows]>dy then
0 n. b& F0 o' e& v5 t                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
/ [9 p  q2 |# m. X# L# u                /*if mark=true then
* _; @, ^9 H& s  d2 ?# G) X                ct:=activityspace[2,rows];
3 M9 p* o! L7 w+ _3 B- w  c( @                        activityspace[2,rows]:=activityspace[1,rows];
' n* e9 W) u% z2 q8 Z8 O                        activityspace[1,rows]:=ct;
                        end;*/
7 D9 S$ {" s" M) d- n8 b- @        next;
( E# E. v# L0 l9 ?6 B) s2 D1 d        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);
! P. v7 E0 p6 |# B) L0 }        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);
" I) C( f8 c" s: G" Z! k/ e: C       
        rows:=0;
5 @8 k- I( C) A! T0 u) G; u        lines:=0;
        for i:=1 to number_of_machine loop
* X1 L& d6 K2 v5 i( n                for j:=1 to number_of_machine loop
                        if j=i then
6 o$ E2 D% e1 s                                d_from_to_chart[j,i]:=0;
                        else
7 z1 ^/ g+ A0 @- q9 m# ]5 ?                                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];
8 a7 W8 F+ Q5 E                                d_from_to_chart[j,i]:=abs(dx-dy);
! ]! j9 H( O1 w+ `$ |1 b9 [                        end;
8 O7 L5 \8 j8 e: s; j                next;
) @  N1 u: E$ `, D5 ?        next;
0 c7 [; e2 J. {       
        lines:=0;
* d3 ?# k8 b7 l5 Q        partstable.delete;
+ {, K. i! q) L/ `. W; P% y6 Y       
! U6 t5 ?7 V" y3 l. u        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" N/ J% x) h$ C8 H( R                machinesequence[2,i]:=rows;
& B; p  W6 n+ ^* F- A) a) d                for j:=1 to number_of_machine loop
( P/ ]  \0 n. c- n5 L) G; }                        if w_from_to_chart[j,rows]>0 then
; T' F' j& f4 \( s' z( Z                        lines:=lines+1;
2 d* p$ v# C9 z) ~                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
7 e7 U3 F, K+ ?* y. Y* ]                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
9 v% x9 |0 f9 u' q! c' \- ]9 p        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;标识符未知
        machine.proctime:=5;
9 k# r/ ~. u& H        machine.label:=activityspace[0,rows];
5 y0 O0 I9 T5 v' \# V        machine.exitctrl:=ref(leave);
! n- n" u# T2 P6 c       
$ e( H4 ]. w3 w- _        bufname:=sprint("BF",rows);
2 o7 K1 Q8 h  \* w% v2 B$ w% x" K        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]);
' _  [& a6 W: t# U: A) y& G        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
0 n8 p7 I" g& O  Z7 e       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
( ~* }6 I9 S, ~2 vdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
+ Z* E5 ^/ a7 h2 P" a1 y( Ccurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
# x1 m0 @) ^5 e0 k. D2 F3 R' U. u7 Pnext;
: i9 Z+ C  t( x, r& Z- m1 cend;