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

zooey

is
        mark:boolean;
( g  {( l; e& ^" a8 C        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
( i$ o1 v7 v+ [4 p$ C: b2 T- i8 \                inspect messagebox("设施数目不对！请核查...,",50,13)
/ |! c$ p2 J3 S: C/ J                when 16 then
% P% W1 K4 M1 U3 G7 N                        print"yes";
& @) Y2 ~, J9 x                when 32 then
4 z- W1 \& _( B! @& M0 o                        print"no";
2 F1 N9 Z, A& m5 w& A  [                else
                        print"cancel";
* n# a" |) Y9 `  S                end;
                eventcontroller.stop;
+ c9 q% R, \! {- l4 b5 q/ `        end;
       
        for i:=1 to number_of_machine loop
- L9 Q6 \' O; O5 w+ C        machinename:=sprint("M",i);
9 F! t8 u- ^4 d        if existsobject(machinename) then
, {  x2 [, j& Q' p8 P2 u" _2 ~% n                machine:=str_to_obj(machinename);
( W. Z7 g: ?: F6 {+ |$ ^6 A                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
. k$ W' Y' C1 @* K1 @% k        if existsobject(bufname) then
" X7 ]3 m1 a, M$ ^$ Q                buf:=str_to_obj(bufname);
; |. }# i: C  S: L8 Y                buf.deleteobject;
5 e$ Z/ h3 g, k        end;
        next;
& X' n5 T+ ~- X; {: O' H) K+ d; O       
        dx:=0;
        dy:=0;
0 O. e; }) V- }) F        for i:=1 to number_of_machine loop
* r7 ^8 o1 z) L: Q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
& L' `. g' @& L# M                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) ~8 _- ^8 r* N' y' _/ w$ g                        and activityspace[1,rows]<(1.05*y_max) then
& }" Z( \& r3 h9 R( h: {1 q" d, t                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
9 N2 W8 c0 @9 \                        activityspace[2,rows]:=activityspace[1,rows];
* Y4 s& m4 p  O: u; f7 u4 P                        activityspace[1,rows]:=ct;
3 g, [4 z' I& B# G9 [                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
' Z8 I8 Y* C) f* {                        dx:=0;
: w% L, k! t* E( u5 x" S                dy:=0;
                        --end;
, ]6 }  y. {% W7 {! i: X0 v. g                end;
; _: H3 v! k* j+ h2 p                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 }( n1 Y* K9 |$ g3 E6 t% w8 _8 b                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
- v- B3 k5 M& Y9 d/ G                        dy:=activityspace[2,rows];
9 D* K( _+ ^" T* o2 G                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
0 V4 k; S1 e# u2 m5 p# i                        activityspace[2,rows]:=activityspace[1,rows];
4 e5 F1 k! r: o$ X' h! _+ ]                        activityspace[1,rows]:=ct;
$ _) j- R' `- _8 A7 N' \1 |                        end;*/
1 t( P4 N( n3 t) [# b        next;
        y_max:=y_max+dy;
. C5 P* R7 P  r; d4 r7 ^        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);
       
        rows:=0;
        lines:=0;
( U) z! Y9 i  I        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
/ b( |: S! u: ]  B2 R6 d* k                                d_from_to_chart[j,i]:=0;
9 J! |: e' D$ j! I6 J, N0 I; C1 b                        else
# X, N, ^( K2 a) {# u3 R                                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];
+ @5 @) h  ^2 b# C* r                                d_from_to_chart[j,i]:=abs(dx-dy);
8 O; w8 D  m7 P7 N" e* j3 |6 Z/ ~                        end;
                next;
% ?# V% V( j2 M  ]  O        next;
       
1 a% H) u; Q' L0 m" T        lines:=0;
        partstable.delete;
6 U: y( k0 \$ {! v* U2 l$ P; T       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
+ V' B8 H1 \/ V. _8 `3 p! ~' a                for j:=1 to number_of_machine loop
2 [: r3 ?, u+ p/ W7 u8 g                        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];
                        partstable[3,lines]:=sprint("parts");
0 t% W- ^, r& x" O6 h0 |( Y% s. k' {8 m                        partstable[5,lines]:=rows;
& N2 V1 R1 W% k" A" |2 j/ s' `2 U                        partstable[6,lines]:=j;
2 z' G( @$ B/ o+ X/ e                end;
8 X' b1 U& d9 ^) r1 [3 q' D        next;
/ R, `! U% _- i  A9 X% d; j        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;
3 ^) }4 g  _, ^        machine.label:=activityspace[0,rows];
4 z) r% |6 c6 ~6 q* A. J/ Y        machine.exitctrl:=ref(leave);
       
, ?/ i$ U  s: P, X, g        bufname:=sprint("BF",rows);
+ A+ M, W7 Z$ {0 Q. s0 I$ `        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;
) Z0 J% H+ v) C9 s9 N. H9 K9 G4 y        buf.proctime:=0;
# `9 a" D' Q. T& G( |        .materialflow.connector.connect(buf,machine);
8 i9 P9 k3 y9 P  ], y       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
1 I/ f' F+ u* b! z7 ady:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
7 P  c2 M  ]+ Mcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
" g8 j, P) W4 ^( ?3 W2 ?end;