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

zooey

is
        mark:boolean;
7 ]# }: X/ s- m0 n3 J        dx,dy,ct:real;
    i,j,rows,lines:integer;
/ W8 Z  _; b2 H9 ~% q    machinename,bufname:string;
/ T& ^6 Z- c2 }  h7 y0 I. d9 Q    machine,buf:object;
do
        current.eraselayer(1);
" @8 O( ^5 A: G. l# m. B7 \       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
+ b9 H* O' B3 \                when 16 then
4 F& e$ K9 Q  L" W' v; y  g                        print"yes";
' Z/ j: S8 t9 ^8 Z+ |                when 32 then
0 M8 U: X7 I2 T5 V% W! O; _% ~                        print"no";
                else
' k0 r7 C- @/ i9 K9 U1 O                        print"cancel";
% \2 x, k4 u9 A7 a2 R1 `                end;
( v4 ?+ m- h+ O8 S                eventcontroller.stop;
7 Q$ Z) u4 T! J( m1 M! R# K7 ?' `: ~        end;
3 R' p! m0 I4 e# @% w- C6 F+ Y       
        for i:=1 to number_of_machine loop
# _$ O2 \* y* D& j/ V! |        machinename:=sprint("M",i);
        if existsobject(machinename) then
2 F. d) l  Z% N  D, V+ i1 d                machine:=str_to_obj(machinename);
                machine.deleteobject;
* J) H+ ^: W  s, `& K# ^- t        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
% o0 ^- t% M5 l* E                buf:=str_to_obj(bufname);
                buf.deleteobject;
. o7 Y6 @* B" [- [. B4 P        end;
        next;
: o: X; i6 G8 H- m" H       
8 J& l* |7 J& a4 c6 Q6 B- j. Z        dx:=0;
        dy:=0;
2 D/ c" f" B1 S+ c        for i:=1 to number_of_machine loop
" G$ x/ q5 h- b" j# b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 I& a: G& i8 P, O                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. h) }: D4 ~& Y0 N                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
6 \( i4 _/ m8 ?5 d                        print activityspace[1,rows],",",activityspace[2,rows];
1 P" j& I- {, p  m: F3 O& q( h0 i, S                        ct:=activityspace[2,rows];
, c( o- S3 p: p8 {4 D/ B                        activityspace[2,rows]:=activityspace[1,rows];
9 S& ~% g: z% V* U' H6 X/ z                        activityspace[1,rows]:=ct;
$ B4 n6 a2 x3 f4 f0 \' G! b) P' l                        mark:=true;
# ^* h9 t; C  g) c+ L                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
& d9 O/ g# |+ o- x3 q                dy:=0;
                        --end;
                end;
8 @2 n! Z! h0 n( ?4 [                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;
9 k" \: J/ D& X+ S. N            if activityspace[2,rows]>dy then
' |4 ~( c* W  R                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
  u- \; g6 Z0 W3 e- _+ Y                /*if mark=true then
7 O7 |5 N/ y, X( B                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, H+ h2 l- ]2 r3 Y9 j" W2 G3 Y7 L; u                        activityspace[1,rows]:=ct;
                        end;*/
        next;
2 b& Z# m5 r. t: b  u: \+ S1 A        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);
2 w$ g( B# o2 @7 [, ?       
1 D7 v; N% k+ u        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
+ _/ o, ~! Q$ y+ E4 R# H  q                        if j=i then
                                d_from_to_chart[j,i]:=0;
& u0 |( _+ @3 l2 p! c                        else
3 C: p* H5 \7 E  c' S                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
. c6 P* m  |" h, N6 ~                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
) L2 t8 p* x, @$ O                                d_from_to_chart[j,i]:=abs(dx-dy);
. N9 [- O( {0 Z- u                        end;
                next;
3 A$ Y) U$ N; j        next;
       
        lines:=0;
5 E1 o9 K) o0 C        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 i7 n9 F- H/ s+ C5 u6 F                machinesequence[2,i]:=rows;
3 ?' d5 f1 N; w% G$ c8 y- i- q                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 g2 Z. C  _4 M4 ^                        partstable[3,lines]:=sprint("parts");
9 @% J: k8 k: k; |6 B& U# I                        partstable[5,lines]:=rows;
* b" g$ |' H" U5 {+ p! m' g                        partstable[6,lines]:=j;
- D2 A; W' |! I9 c' R7 s                end;
" y/ S3 L* r" B$ U        next;
        machinename:=sprint("M",rows);
& @) W- J. {8 w" R        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];
8 E; f: S4 d6 V9 C  ^+ o& x' M6 L7 U        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
) o$ |* o  L, k( a* N, Q# s        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]);
# G' b5 S/ G7 |4 c* l        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
8 R4 r( q3 m$ O        .materialflow.connector.connect(buf,machine);
  |" D" f: \. u       
! k8 G7 [. l- I" \3 Q# |+ @8 u        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);
' a8 h  A, f8 @: C3 f* [9 c) Vnext;
7 t0 f1 j7 k, D& Kend;