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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
; d% T0 ~$ D4 Z) t0 N    machinename,bufname:string;
: |7 U3 X- q; _2 H    machine,buf:object;
( Y3 `8 R6 |  r% t9 T+ ~* g2 gdo
% _) A; u/ O/ d        current.eraselayer(1);
& [4 B+ J9 _1 o9 D1 E       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
2 j7 n  O( r' P6 E( z. j2 y                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
; ^* |. H0 _% s! N% A                eventcontroller.stop;
, M' g$ @$ H( Y( y* t5 @5 I        end;
       
6 _  {  U/ f% O        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
+ `- o6 O! R" E  @2 Z1 ]2 `                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
  G8 F) o( ?9 N- Q8 c- i! f        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
0 ]# i/ Q* Q: \5 b) ]                buf.deleteobject;
        end;
        next;
       
4 V9 }* Q3 I6 i9 r        dx:=0;
" ~9 f4 K: q/ v; S, e* G        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 H: Z% Q8 H: n& {                --mark:=false;
) v* \* S& L% z+ {8 g                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 b* T: B/ w2 d. F                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! c. X5 ~" ]( o- R* z9 |/ L9 ]                        and activityspace[1,rows]<(1.05*y_max) then
  S( v' {6 R( W+ @                        print activityspace[1,rows],",",activityspace[2,rows];
" t4 @+ c( P3 ]! a7 i4 q) {! L                        ct:=activityspace[2,rows];
) X6 M) _! `$ L& E! s* J                        activityspace[2,rows]:=activityspace[1,rows];
6 Q& t. Q8 w2 S. A/ b                        activityspace[1,rows]:=ct;
                        mark:=true;
* s7 T; a  U/ U2 Y$ c* T                        else*/
' E) O* c2 e; l8 c                        y_max:=y_max+dy;
                        dx:=0;
2 a$ P% z6 @7 f0 z2 ^! L                dy:=0;
                        --end;
                end;
                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 Z: X* f5 K- h9 B            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
3 [  C0 n8 o% [- I+ k                end;
+ s4 K( S; k9 i- j                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        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);
' t; `, d/ Y+ U9 L1 V$ B0 I- c       
& B0 @% U, U# e5 v8 }9 w0 u        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
/ s; v$ z7 A0 \' L. ]                for j:=1 to number_of_machine loop
                        if j=i then
& T2 n* J+ `& ~( g  D                                d_from_to_chart[j,i]:=0;
# z- K( n6 E% F                        else
+ T1 \0 b) ^+ B& e! j" y                                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);
' Z2 _: X8 y  J8 A2 \3 m' ~                        end;
: ?; l0 M4 t1 x+ t. ~                next;
        next;
6 z9 u- z4 j  G. |1 @/ N       
' g6 Y# T3 \: O4 @        lines:=0;
* G; ?; K: x1 v$ H        partstable.delete;
! m; D" Q9 q! d) o8 f       
: C! W6 f1 U" H! y: W) A; y        for i:=1 to number_of_machine loop
7 ?# n" W9 m5 u! U9 Y1 w" |4 \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
/ a9 i6 t7 L: D0 }9 x                for j:=1 to number_of_machine loop
" \1 c# @  A7 d! ?. |4 i- ?                        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];
' r- ^# T5 H2 X# V5 V2 c2 L( J                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
' `  A: r2 n5 O) f7 M; V                        partstable[6,lines]:=j;
/ W( Y6 u! G4 ~" D* {* u                end;
        next;
9 ]3 s: U# g$ W$ i        machinename:=sprint("M",rows);
" P. v* Q" t6 d        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]);
) G2 i$ i9 R9 B' C        machine.name:=machinename;标识符未知
        machine.proctime:=5;
3 d. O8 L% m1 [  ^9 i$ E6 j        machine.label:=activityspace[0,rows];
/ M5 X' A8 O2 m3 H" r' F        machine.exitctrl:=ref(leave);
. K/ Y  R! v3 ^* s0 E       
        bufname:=sprint("BF",rows);
7 l$ D; s% E3 U# L2 Z% W9 Z        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;
8 A! C0 ^7 _" m' z0 L0 |        buf.capacity:=5000;
8 r' Y% ~7 R3 ~" w- W+ X4 E        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
0 @1 O% L# o5 z& ~6 n& d8 H       
( h4 T) h2 ?3 D8 F6 V% j        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);
5 d7 l. B( A: Q5 b& D8 Dnext;
end;