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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
0 r4 p( C0 X4 O% D: V; t$ g    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
' T0 e2 t4 j9 x0 M* M- r  _# B                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
  f1 n7 F% C  j& K3 v                when 32 then
                        print"no";
                else
0 w5 L- B4 u/ e9 D  U& i! v$ `                        print"cancel";
                end;
- V* i# F% `) k3 p6 U# e* e9 p( g                eventcontroller.stop;
        end;
       
0 _! h9 R4 b. X        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
7 }5 m0 v/ B8 S+ b        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
9 s8 G1 X' v) V7 h- b0 @4 ?/ S                machine.deleteobject;
1 |, V, N  [% e9 N" n$ `3 X6 r        end;
6 p( W8 ]2 G+ j, C: P& A        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
* @: F0 o, O+ j7 r0 A4 O        end;
        next;
       
        dx:=0;
* |" O( S% c0 d1 E1 q6 Z. \' z        dy:=0;
        for i:=1 to number_of_machine loop
9 t& B+ m9 o# R1 R                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
6 p3 o# E' d0 X$ m9 N                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* g: n! T6 [) j( o4 s8 k5 `: Y5 h                then
: S1 [. N6 P& h" ^                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! g% y% M3 N2 O                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
+ j0 G# S) n/ E* _9 s                        activityspace[2,rows]:=activityspace[1,rows];
! m3 x1 |0 j3 ]* N                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
5 c, s0 n. \7 Q% D- {  {                        dx:=0;
                dy:=0;
7 U$ j+ O! D' ]" C  e* ?                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' r+ X* t, ]5 T( u1 a0 \7 z% t" N                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
, x( n  g9 `7 \+ e+ |4 h/ X! q            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
; I7 X" x5 B% g4 V% e, G                end;
4 u9 `# ~! R1 w& J9 [9 j4 B                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ ]6 y  V5 s+ D: {' G1 ^                        activityspace[1,rows]:=ct;
  F/ i- a) P# Y) `: x5 B: {( V9 O                        end;*/
        next;
8 p' V, i: ?7 r4 j# S) J$ X% A        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);
9 y) i6 P! U! X# r& p        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);
       
7 \" H! M; o# g7 Z        rows:=0;
5 I. Q( r# b8 m) d1 F) [0 ~8 S        lines:=0;
+ D6 p& y9 W# P0 H2 l: W0 u5 ]        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        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];
+ y* k. _1 f) p0 z8 L                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
9 f3 A% L6 |% h                next;
        next;
, [6 F/ g' L8 A       
        lines:=0;
9 V$ ?1 _' n( n* ]. F+ D- V        partstable.delete;
* d6 T8 q3 l9 \) ^6 z& n       
9 {, K0 ?- n) i$ h1 X! m) U        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 d9 {( H7 k1 H7 Q) i7 r                machinesequence[2,i]:=rows;
3 e# `6 E! F6 F% M                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
1 T6 }! R- F) p9 g+ w, d6 {8 E                        lines:=lines+1;
7 J9 H; q7 F1 \! x                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
- Z+ a- t1 X7 c7 k# s" Z                        partstable[2,lines]:=w_from_to_chart[j,rows];
# l9 ?& x8 H0 P+ @                        partstable[3,lines]:=sprint("parts");
- d  I9 C; C( B; S( x3 n                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
# l* o, ?0 @' M- J* y# ]                end;
5 r) z& R8 G' c/ [5 V5 a  I$ z5 M( ^( \0 o        next;
, w1 U. X) i/ F7 ^, w$ _        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]);
7 W) J! y# N8 t" M" w* J# B" s        machine.name:=machinename;标识符未知
5 i# E9 i2 T( v        machine.proctime:=5;
0 l  j2 U  \& \5 i        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
% B$ z1 c! j8 e1 p       
        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]);
7 D/ {' `. F+ d: S8 P        buf.name:=bufname;
        buf.capacity:=5000;
# O2 a& J5 `/ C2 [        buf.proctime:=0;
2 u9 M: J/ v% W" Z- G  h; _        .materialflow.connector.connect(buf,machine);
       
( t; E" p$ G9 @: z% ^9 q        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);
, {; r, s( s: [8 V' |* rnext;
end;