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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
8 n% s1 i, G  v/ C- }    i,j,rows,lines:integer;
$ h/ G  x2 j: w' n* O" G; d    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
                inspect messagebox("设施数目不对！请核查...,",50,13)
6 T( G  ?, Y/ x& B                when 16 then
                        print"yes";
# P1 I" ]6 G( W# |( o7 V                when 32 then
                        print"no";
                else
) o8 y1 [5 w2 K% K  Z$ G# S                        print"cancel";
                end;
6 l. Z- v+ b0 l. l5 n- [! |                eventcontroller.stop;
! F* m8 D, w( t! K0 \& ~        end;
       
# J9 r& I1 @7 w& }        for i:=1 to number_of_machine loop
: I1 l# R0 |( G9 N5 @        machinename:=sprint("M",i);
, R, z; ^2 h, x% @  R# @0 ?        if existsobject(machinename) then
) g8 H  S2 U) A9 G! u                machine:=str_to_obj(machinename);
8 Q0 f8 {$ B: Y4 j- k# \. D( q                machine.deleteobject;
+ @# U% J3 k! r' k+ M- S, ?/ E        end;
        bufname:=sprint("BF",i);
7 O$ l1 o6 K2 @. K8 W+ W        if existsobject(bufname) then
3 B" z+ r% m5 T                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
( C2 R7 u: O. b. f- e% t        next;
       
        dx:=0;
- V5 |, T$ C9 `& W; I8 f        dy:=0;
        for i:=1 to number_of_machine loop
: u# v3 t# ?+ f+ _2 m2 C                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& r! j* x0 |+ A8 h. d; p+ C4 Z                --mark:=false;
/ h" u9 T  ?4 {                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- e2 ]' X. t, T/ r1 y                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  U1 V2 E( z! g% P8 M" \, _8 J                        and activityspace[1,rows]<(1.05*y_max) then
2 @/ e  J2 F  x                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 K# P( `: V1 ~9 }' F/ A, v4 ]                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
0 D/ X& P% x/ h  y/ |                        --end;
                end;
) u0 k. v! N3 |                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;
; `' c# \; Q7 _& t7 T            if activityspace[2,rows]>dy then
6 y5 ]" G2 T5 M) l- P                        dy:=activityspace[2,rows];
6 b/ a% T( [7 D  L/ N8 p                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
5 a2 ?+ y% S1 N; h% A/ E                        activityspace[2,rows]:=activityspace[1,rows];
/ j' L9 H5 H$ \8 m$ k( e. p* V; I                        activityspace[1,rows]:=ct;
                        end;*/
) j( |! w2 \0 q5 e' D+ Z  y" v6 e        next;
% o/ ]8 U5 E# f" g/ Z2 j        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);
1 V9 I! j! K' `& ~: I" T       
        rows:=0;
, o" ]5 R7 K( r        lines:=0;
: I0 o  e! V* w' x* G1 E6 O3 ?        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
# |5 r9 F% |5 R1 D. f) S                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
. y) t9 Q* j1 q$ w# n, O; r                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
4 w0 ?6 Q' Q- `9 ~  W5 b8 v                                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);
                        end;
                next;
5 D0 ]" Y; H) j+ R- Z% b; z* V        next;
! V! }2 y, q7 l: r       
' h" I5 p' I/ x9 K( v: P        lines:=0;
        partstable.delete;
       
" [: b. l& k+ o9 o) b& D- m: T# X        for i:=1 to number_of_machine loop
% @; ~, d: n% m4 P/ i                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
6 C6 W) c  C) @+ |/ S4 z                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
  _3 \& @! S8 e' m: n! u9 [2 @                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
4 {* j. S0 J" @  X% q                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
4 ?9 G5 f! q' o) p                        partstable[5,lines]:=rows;
/ ^$ B* q5 b2 u                        partstable[6,lines]:=j;
                end;
        next;
9 C3 c; L* A) A& S/ b2 l9 _& _        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;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
) a- F; c6 N7 Q2 Q) V/ k        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]);
- F! ~( c7 f! j% a6 O  F5 R        buf.name:=bufname;
3 U* u4 l% k' k. E6 U        buf.capacity:=5000;
+ ?" n3 o7 _. [, s9 S$ K( u0 l' n        buf.proctime:=0;
4 m& t' T# U8 n7 a' x$ v        .materialflow.connector.connect(buf,machine);
/ Y! X9 q' w0 W3 D       
        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);
+ \% s4 F/ J5 A9 L' b* v  ?  Tnext;
end;