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

zooey

is
        mark:boolean;
0 J* Z$ ~+ y% R- E        dx,dy,ct:real;
    i,j,rows,lines:integer;
! S0 K7 A4 }& P, K" ~0 c4 l    machinename,bufname:string;
    machine,buf:object;
: b1 e, @" v, h% ^- K3 r% pdo
7 d$ }, |6 b! {( w+ G        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
% R# T7 K5 M6 _  ]8 h2 S& Z                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
0 o0 k) f2 z6 E- l" ~  j                        print"yes";
0 O' u+ `  J8 c6 O" U                when 32 then
) Y) G0 \, C1 A" `, H                        print"no";
) F6 j% _6 ?$ `2 ^" a                else
- e0 S: [! u: T& v) N  v                        print"cancel";
/ K4 o# l4 w6 q; |                end;
                eventcontroller.stop;
! |) q" @/ q- V6 o* Q; U" H, G" i        end;
. ~& }6 U9 c/ x       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
4 W" o% }: L& ]' q  b- n0 l( w                machine:=str_to_obj(machinename);
                machine.deleteobject;
# l; Y* I& @0 |! f        end;
3 G$ L, K+ ?- W6 j9 O0 n5 u# _/ R        bufname:=sprint("BF",i);
        if existsobject(bufname) then
; t( ~/ f# M- T& O                buf:=str_to_obj(bufname);
# i7 p9 E6 O7 Z" r$ R2 D                buf.deleteobject;
        end;
        next;
       
; r' \. Z2 F5 ]* F9 s8 t        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 R3 D& k# N6 h0 Y6 G4 {: q                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
& c  Y  }9 S# w, O( Q                        ct:=activityspace[2,rows];
. R1 u4 S2 _2 w4 l9 J                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
! c3 P9 r3 M+ y2 h                        mark:=true;
/ q: t; T2 C3 h7 h                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
3 ~0 k; X0 \! g4 P$ |+ W                        --end;
                end;
$ t2 p" K, Y: p0 i9 r+ L; |8 v5 K                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;
) P) k% |8 f1 k) @7 |+ P            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
$ D6 n' a' K3 t- n8 t7 k& n0 c                /*if mark=true then
6 I5 A# y( ^- e5 B                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
6 }6 V( [% K  b+ X0 F                        activityspace[1,rows]:=ct;
1 l* P" j% l- |3 N9 z                        end;*/
. j) L) V! E2 s: O% F( N8 N        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);
- W8 {: w1 d) W' `( L: z       
        rows:=0;
8 T+ Q! {2 g! x( @5 l$ c% u# P        lines:=0;
% }- A* N% Y6 |! H8 j! A; k        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                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];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
1 W# C% I6 O- C7 T2 D% C                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
        lines:=0;
  T& a+ G8 c+ g( Z: v5 z        partstable.delete;
       
5 F6 z. F0 u/ C2 E        for i:=1 to number_of_machine loop
( {. Z' ]1 M* ^! \5 y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
7 g9 b1 p) g' _" Z  J; ?3 F                        if w_from_to_chart[j,rows]>0 then
# x9 D/ y7 _# n: D7 e. ~% |                        lines:=lines+1;
8 R7 g8 t. Z" S1 p* I                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
2 p- l' `9 [: ^2 B' A                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
4 o! V3 D% \- X9 A        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;标识符未知
! W: a& ], C7 ^        machine.proctime:=5;
1 g5 U  h) r" K) r. H) V        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
+ {6 `; U2 ^* F        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;
# A0 u/ S9 ?# s+ L$ f- C5 I        buf.capacity:=5000;
0 K9 x. v8 D8 Y: _        buf.proctime:=0;
) T& j0 c8 @9 x4 n" C9 y( R        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
" n/ p" s+ l4 T$ ?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);
next;
2 F3 `* Y' n3 d$ oend;