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

zooey

is
        mark:boolean;
$ R+ Q. t/ H0 r6 q        dx,dy,ct:real;
    i,j,rows,lines:integer;
1 u" k6 F: z6 Y0 U$ t! A    machinename,bufname:string;
8 M+ J- G+ B" A* V* T1 F. p    machine,buf:object;
do
6 A, x3 B% H9 a4 V: a9 W9 j        current.eraselayer(1);
2 c2 K5 q& T4 Q, k( i3 U+ F$ U       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
" @' ^7 R# P. I& I: Y                when 16 then
                        print"yes";
                when 32 then
, {( z, q- F4 I3 R                        print"no";
$ f6 [- z9 p, k0 Q: s                else
                        print"cancel";
                end;
                eventcontroller.stop;
& K8 ?; O$ T8 z* |        end;
: k! n9 v( g( ^% [8 g       
5 q- W- N9 i8 M% \: }        for i:=1 to number_of_machine loop
! c7 g( h9 C+ t. |# q7 O$ J3 y4 N        machinename:=sprint("M",i);
% o- Z2 l% j$ Y  S' s9 B4 R        if existsobject(machinename) then
8 U5 @$ O) e* _( e9 S( h                machine:=str_to_obj(machinename);
/ {* p' P+ B2 g  z  \0 Z                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
: }9 |/ D' ^7 ~; f                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
  l& U* X' ~6 z        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]
' q3 i" B3 ]" |( ]5 X! o8 ~0 B                        and activityspace[1,rows]<(1.05*y_max) then
( D# `: l8 b9 m9 w) h$ {                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
& r; m- w- I4 H# }                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
. U  R4 T/ H1 s$ P4 t( W* _* }                        mark:=true;
6 j) I7 R# p9 L6 J, w' S                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
; e9 {7 o- G- G8 ?9 l8 w# ?* H" J                dy:=0;
( M& l1 k& l9 H' u                        --end;
7 ]4 z3 N5 y* q0 {; a                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
" v6 l* j* m0 l                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
6 X* k" T  U9 d                end;
3 R4 l; d* n; S5 [: g( l                dx:=dx+activityspace[1,rows];
8 i7 Q( f) n, U. y: W, b                /*if mark=true then
( k* e2 g9 S  @6 t6 Z                ct:=activityspace[2,rows];
9 C3 x3 v. Y5 t* ^1 h, r# e; s- M                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ U" D. M3 ?- Q9 T0 w                        end;*/
        next;
! d1 C8 E% b- M" S* t6 |3 G        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);
       
8 a" [( {, y- w; V1 g& u. g9 ?        rows:=0;
        lines:=0;
* u0 _" @  x- `        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
: N, f4 U0 S' r+ c. T6 x+ O( |                        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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
2 R; [, S+ n( ~                        end;
                next;
! I  |0 V) J9 \" }9 r6 D" T        next;
       
' h4 g8 A* `8 I, w; \! i        lines:=0;
! ~2 O7 s8 v: m        partstable.delete;
       
' K1 k, p, Y1 S* ^! \# _5 A        for i:=1 to number_of_machine loop
, U8 N0 C$ O+ B: s0 N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
5 I; \: t! @5 ~* |9 T                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 @# a8 L: v$ j- F5 }. T                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ x6 g$ H8 H0 @, U. k% L' c9 @                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
) {' D  j# L2 k6 y- u( Z" M* b                        partstable[6,lines]:=j;
+ k; c; B; b& R7 {                end;
$ }" w  g+ J* C( F        next;
" T, B- P1 m/ s& d" e        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;
6 Z( q+ d5 ^& E2 z+ N        machine.label:=activityspace[0,rows];
8 ?7 [9 {: {6 Z" \, v: w: o4 p        machine.exitctrl:=ref(leave);
7 o* }# b+ u4 E1 ?  u* R       
        bufname:=sprint("BF",rows);
6 o$ K( e+ N& k& @4 h0 f) O+ B        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]);
2 B3 a+ j1 \% Y. g3 @3 e# T! c        buf.name:=bufname;
        buf.capacity:=5000;
# i8 l2 d$ w; `) M& y; t0 w        buf.proctime:=0;
: y+ M& P, D) ?4 g2 U        .materialflow.connector.connect(buf,machine);
       
        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);
next;
end;
5 z; X- X& W6 y9 O9 R% X