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

zooey

is
        mark:boolean;
7 }6 ^1 O3 `: [        dx,dy,ct:real;
    i,j,rows,lines:integer;
  a) M4 t: P: G( D% p% ^. z    machinename,bufname:string;
    machine,buf:object;
3 }2 C3 o, G# }do
4 _# _5 ^! J3 w9 a, H$ c" X        current.eraselayer(1);
% w: g( _; r8 Y) \7 m. s       
/ \9 u5 v. P9 T* T; d' n        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
4 b0 e% q- F0 U* w" h                when 16 then
& r' B8 h2 v7 I3 d0 D# g. O                        print"yes";
- v/ ~/ q/ L# ^- p                when 32 then
7 U; m: w+ t, o                        print"no";
. S% ^, k! m5 Z                else
" {, G( U4 o2 O  a                        print"cancel";
9 h( g( B" }# `( ]1 O3 E0 K5 j                end;
. d) Q" F/ n1 W0 ^, }; H                eventcontroller.stop;
        end;
4 S  B) |2 ?# U       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
- b0 y, C5 o' [9 p' d        if existsobject(machinename) then
7 ~/ S9 c- U5 v9 Z3 i                machine:=str_to_obj(machinename);
, q% L- K% ~$ ?                machine.deleteobject;
7 P6 P2 C: k6 I+ S9 f+ P        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
1 i4 R$ z: ]/ C+ N3 o                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
0 f9 V4 s8 I% i; w" P5 M# m* }6 a. r9 h        next;
! m! K7 l; o' r4 ~1 d. @0 n: Y       
; L* T/ H9 b1 m5 A( @( L        dx:=0;
) s! F$ n. p7 V  O, l+ E        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) E. D: b- L* ]# z7 x  F" Y                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* ^1 }/ o+ M. g0 K# x$ K5 _                then
- o& `- ^# {, d% @+ D% G                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 Z* z4 c, i) }' d. I4 S# G                        and activityspace[1,rows]<(1.05*y_max) then
' ]  Z) W* C& O  }) L                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
. q) Z; P1 h8 ?* R% f* o$ [; ?                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
6 B* }. \8 ~6 `% x                        y_max:=y_max+dy;
- N# _1 Z% |& _# u. b6 |! p+ Y+ H  a                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
3 @) r- R$ @* J1 R                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];
                end;
4 f2 ~9 G' E4 l2 h7 z, |: |                dx:=dx+activityspace[1,rows];
                /*if mark=true then
2 \8 s" V3 |' l7 e! D% T' U9 }                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ |1 S" P( S1 p# K3 I                        activityspace[1,rows]:=ct;
                        end;*/
. Z; H! s5 t/ x, K7 m1 W8 I        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);
3 Q$ w6 F# S  o/ f7 J       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
9 \5 ?7 C. ~/ q! _                for j:=1 to number_of_machine loop
; B+ R9 N9 i7 d& a" l( U$ Q                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
7 e6 T& ]7 v  m                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
  T: z: M- d1 P, @                                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;
, i. t( N. i- b7 D, j: _! V. ~  F5 N                next;
- s% Z3 d+ ~; v        next;
       
. M4 T% e5 }0 W        lines:=0;
        partstable.delete;
       
7 X* t9 M& t. r- j        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
0 k; s' l5 _2 {) m& L0 P                for j:=1 to number_of_machine loop
& K, Q0 E5 X) Z6 X& [3 @& x0 K                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
9 z. k% X) R. h8 W                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
! |- I4 U$ u4 l6 U                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
7 T0 N8 O3 t0 a) ]3 G: w0 M                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
9 H6 G" `2 P% m                end;
+ w2 \1 L" V/ @0 D4 f        next;
        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;标识符未知
8 u3 s9 P: `$ ?        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
0 c+ @% B7 n8 P0 a% _4 a$ {/ X        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
        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]);
9 Q8 W9 t1 z% F- o! ?# R- B        buf.name:=bufname;
        buf.capacity:=5000;
9 s/ J* [! M! \) E4 \: ~6 w/ \        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
- @$ G' C. N0 e3 c- h1 g        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;
  Q' u6 B; K+ `3 b1 ?2 N/ b' Wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
2 u& R8 R+ Q% M6 gnext;
end;