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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
5 u  @! ~* t( e( i- m    machine,buf:object;
. N6 K9 p' y# udo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
( |+ _0 _: D4 o& o                inspect messagebox("设施数目不对！请核查...,",50,13)
; q! S; X( q$ \& o" s8 D9 E                when 16 then
! g! {6 H3 d8 v- \- M" c) ~                        print"yes";
                when 32 then
8 P% p# _5 ?7 ^# s2 j+ }7 x                        print"no";
- j# Q" x/ E' i( p+ t  N" K                else
* X, H+ H4 k5 {, b. d: C$ C% x                        print"cancel";
                end;
                eventcontroller.stop;
. e" q9 J6 y" M3 e        end;
- h2 t! `6 }5 _2 {) l: `( }       
  K  s( {# P+ f/ k. F  |0 n        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
9 @3 R# Z/ x& T( g        if existsobject(machinename) then
) ^0 y* B; N6 A$ r                machine:=str_to_obj(machinename);
7 g7 k" Y) Y: N  T2 N- [3 n7 ~+ A0 X0 @                machine.deleteobject;
- K3 n' c5 g" r% L7 r$ ?& y$ p        end;
        bufname:=sprint("BF",i);
5 n$ p9 e7 o1 m        if existsobject(bufname) then
+ b  N6 J, i0 E                buf:=str_to_obj(bufname);
                buf.deleteobject;
$ }5 |) y; ?' Y3 |9 z" i  F        end;
" x% U+ P$ O  `) n7 S        next;
/ C4 I/ I) e, g% I# O       
        dx:=0;
* A% w3 i- K2 O- U/ a        dy:=0;
( n" H9 h$ ]) B' k        for i:=1 to number_of_machine loop
- o( }% q/ V4 q: T9 n* x5 ~% Z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 E1 f. W; b+ ~3 L0 ?7 ^                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];
1 H+ p5 J8 `* N, U( d: \( C! G' c                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ O2 \1 l* p% |, x: q. g& q8 d                        activityspace[1,rows]:=ct;
1 [( H% E9 H) _) k                        mark:=true;
" V0 e* }* L" t2 j                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% R! g  ?7 ]. c) T1 b8 m                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
- t" P8 ?$ ?# V+ d0 b: y. d8 V% k                        dy:=activityspace[2,rows];
4 C; V2 P1 N  m  e                end;
$ ]# O) H% P9 w7 F3 Z- }                dx:=dx+activityspace[1,rows];
8 \+ H! s6 v& A- m4 C, ?                /*if mark=true then
- M; _# _3 {$ j3 W                ct:=activityspace[2,rows];
: Q1 N- n  K3 x$ l, z; @                        activityspace[2,rows]:=activityspace[1,rows];
% J/ W5 n$ j8 Q) Z                        activityspace[1,rows]:=ct;
                        end;*/
% t. D7 J& C. ~- n( ^5 a        next;
+ [3 W; o" T  n5 R- R8 E        y_max:=y_max+dy;
7 J/ v2 F7 R. K+ p' ^' q6 n* F# a        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);
4 [1 M5 R6 T% ^9 n7 K: q1 h       
. p& E+ A5 I. g& u3 [. j, K# ~' o1 _3 ?        rows:=0;
4 c& @! o) m3 }0 Y        lines:=0;
) W4 p2 p0 s8 k/ j0 s        for i:=1 to number_of_machine loop
3 V, x( @- }* M4 A3 A                for j:=1 to number_of_machine loop
$ N7 c) B$ U3 z) o( J/ N                        if j=i then
                                d_from_to_chart[j,i]:=0;
# `4 r5 p9 ~9 A9 f9 I5 ~. m; T# t/ G                        else
5 d1 ~3 K, r' S- g7 c. X( j                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
! o/ [4 |3 M5 u; k$ d                                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);
8 F% I' a' s- f; Y* X) R- d& M                        end;
) Q0 _% A8 R8 s, D* W" N9 C3 E                next;
        next;
3 |  g) y( }* ]( E, r) k5 M8 k       
        lines:=0;
# f4 e: S" K$ Y; @' x% n        partstable.delete;
       
: j0 S+ d4 @2 z( M        for i:=1 to number_of_machine loop
0 q7 L6 U  u  z. d3 P% C6 V5 {                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 J2 x  \" h3 |" D* i4 d4 j1 a                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
6 B" n" n0 P4 T                        if w_from_to_chart[j,rows]>0 then
+ n8 i& J" g" @8 y+ b                        lines:=lines+1;
; @; R) m: `& m: L                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
. A) ^3 {! a( O                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
! A3 ]+ D4 F8 ]. t1 i                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
6 r& C  H# C6 z* K, s' ^( b1 M6 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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
% o% v0 z7 W( Y2 o6 \8 a        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;
        buf.capacity:=5000;
5 ~& Q2 y6 u. _$ M        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
/ i8 u# c# T, D- a: A3 B% s1 w6 r        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ g5 n' i2 }+ A, Ady:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
; P8 Q2 S5 O9 d) {( Hcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
: K4 ^* R" s, }% |end;