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

zooey

is
        mark:boolean;
7 f1 t/ C! G( l: A  M9 F  m( Q        dx,dy,ct:real;
- X" ~' W8 G; `3 m' J    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
8 }. v' \4 J+ m; k& k7 p5 ?do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ R5 t" O2 u7 p+ i                inspect messagebox("设施数目不对！请核查...,",50,13)
  }; N& `& l+ y                when 16 then
                        print"yes";
9 s% D0 p- v8 t% R# c9 d9 m( ?                when 32 then
                        print"no";
+ W" s3 c  n! t' u                else
9 I3 R! Y! c4 O& a                        print"cancel";
                end;
                eventcontroller.stop;
$ P* E5 k4 @+ f# |7 ?; v# z9 C        end;
* i. Y5 S# K7 s. _" E9 `       
        for i:=1 to number_of_machine loop
9 a! U1 b2 H6 h0 Y/ Y2 ~        machinename:=sprint("M",i);
7 p: g' ]  g5 l+ U        if existsobject(machinename) then
; p9 n: c. V' x: Z                machine:=str_to_obj(machinename);
1 X+ V2 k/ r8 G1 c                machine.deleteobject;
- J! G' ?: X6 C7 x        end;
        bufname:=sprint("BF",i);
$ Y$ g" J/ K/ `! W9 w        if existsobject(bufname) then
0 p! n* m* ]- D* [- I2 ^$ J) N$ l                buf:=str_to_obj(bufname);
1 g/ r" {) X; f: N3 g                buf.deleteobject;
. M! ^8 [- C4 L. Z: x        end;
        next;
9 }7 F% h% l8 w) H& C- F: |       
+ A% W) m! Z. y1 D  E* c; [, Q% K        dx:=0;
5 K' V" ^) m1 u0 ?4 H4 I  x        dy:=0;
        for i:=1 to number_of_machine loop
; Y! z7 m/ v5 \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 `, E0 c- q6 i) J, k6 F                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, T# m& O5 _$ W' @                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
. `: b" h$ w  G                        and activityspace[1,rows]<(1.05*y_max) then
2 q3 Z( e; A3 O( i2 h& g$ R7 o5 t                        print activityspace[1,rows],",",activityspace[2,rows];
! ?' L( g& J4 j& p7 M0 L( d                        ct:=activityspace[2,rows];
2 S  c" q) H9 d1 F/ L                        activityspace[2,rows]:=activityspace[1,rows];
  Y1 D3 r7 q- L& B& }! E% t                        activityspace[1,rows]:=ct;
+ `3 B- G1 Y, ]" ~8 A                        mark:=true;
* I* }6 Z6 f6 z                        else*/
% N4 R) P  ~/ j' X2 ]$ r# ]8 k                        y_max:=y_max+dy;
5 s; M" `0 }: g                        dx:=0;
, R6 i) l7 s+ v                dy:=0;
                        --end;
                end;
( T, t8 q4 A# C  ^$ Y  V3 u9 P                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% m) W3 q: X. z% V- Y                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
& v) Y& H* d" Z4 _. N4 A            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
7 T- J0 |9 d  H8 F                end;
                dx:=dx+activityspace[1,rows];
: m8 i2 `+ Y! ^8 n2 h4 H                /*if mark=true then
                ct:=activityspace[2,rows];
  r+ p7 a  m3 c7 i6 e+ S- L                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 v+ W; X. F8 G% V1 ?' ^4 W                        end;*/
        next;
/ F  Z# s* Y3 M" }        y_max:=y_max+dy;
8 _  U, E* h: F; B" ]7 Y        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);
$ }- C. L8 U* U5 H0 [0 e; Z! @! [% y       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
& F, y5 a& k1 {" x- K                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
- V( w8 q8 Q( l4 {- P                        else
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
/ Z* {4 \5 V. o2 U2 E3 I/ h2 D                        end;
  ]+ Y, F2 I" E' Y# V$ e7 T                next;
        next;
       
* d- d, v! P" T, z( H0 l; F7 v0 R        lines:=0;
        partstable.delete;
( j6 ~  E9 O1 l; Q# k9 S6 L+ X) j       
9 ]) q' f7 T8 k8 B9 _5 L        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ j1 T. a" @' F0 J2 L                machinesequence[2,i]:=rows;
* L  ^8 b. W/ c" c& u; V                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
; D1 _2 R  M6 [4 H$ h" x) T                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
0 Z* U) ~% W6 D                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
  ^' [5 ]2 I& `- T0 X                        partstable[6,lines]:=j;
                end;
% I5 Y$ T8 ?  V% V, a        next;
        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]);
0 w1 V1 P" L* I* @7 Z2 F        machine.name:=machinename;标识符未知
' l' j: G7 Q) n) T' L        machine.proctime:=5;
  x  u$ h- Q, @) p+ M6 {        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
! `6 g2 Y9 w8 r' @8 [       
        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]);
        buf.name:=bufname;
: A' C6 V( ~( x: D' p( ]0 l        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
$ o6 E! f, Y2 F( d5 g        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
5 B+ L5 w  C: Z# L; P0 k7 `dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
% P5 R# S* [6 c8 ncurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
, G  X& z$ X' U' h- H$ h) k; ]next;
end;
- P+ h; i6 V% I5 X