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

zooey

is
0 ?' q" Y  t1 j. c) j# S& w! ?# w        mark:boolean;
        dx,dy,ct:real;
- S: a+ P! ^) X$ I! s    i,j,rows,lines:integer;
    machinename,bufname:string;
9 {5 n* F# G0 b  x, R    machine,buf:object;
do
        current.eraselayer(1);
       
- B' ^4 ^; M6 q3 p        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 J8 h+ E( q8 m& d5 x4 s5 L, X" v                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
! t& H3 L% v# C: s! q0 h. `                        print"yes";
                when 32 then
- |" F1 R; f8 |: q* F8 A! B                        print"no";
                else
8 }- Z3 T3 I$ R                        print"cancel";
- @. B6 s* @5 j6 x7 j                end;
                eventcontroller.stop;
+ W1 u3 X- L' _# `# A        end;
       
8 g9 }8 E' W( |4 O        for i:=1 to number_of_machine loop
) _4 k6 o- f$ b0 L# P" l4 i+ @        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
" X. N& P4 ~  m% T" i$ J; e        end;
2 l8 H* N3 q5 R9 a3 B        bufname:=sprint("BF",i);
$ v$ I9 B0 K* O  `/ ?        if existsobject(bufname) then
$ [# Z' \6 s; H+ F                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
; |: p$ y; Q' }- _$ E* d        next;
       
        dx:=0;
        dy:=0;
, b% m' d; J% i+ d8 a        for i:=1 to number_of_machine loop
1 j# K2 |+ D0 `  C                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
7 @4 b4 _# k) _9 j: Q; H                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
* i" @: x8 a0 D; R6 m3 j- q+ ?  E                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
$ r! b% g  p' R4 F                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
  \. v  O- X* }. F. o& V3 E6 U                        mark:=true;
8 l  Z' H! ?1 {0 c5 I8 a+ b                        else*/
- _, F. O7 K+ ?: y7 u& e                        y_max:=y_max+dy;
                        dx:=0;
' ^: s. i, t3 o+ w                dy:=0;
                        --end;
3 ~3 Q4 F" H( R) q                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;
            if activityspace[2,rows]>dy then
# d4 D; w+ d1 n/ f+ [                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
& }) j) R. c; j$ P                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
1 G. n. `8 Z1 s; ?        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);
9 T# c9 Z2 `& j6 H* G; L% p       
9 }: t* X! s* T- c) {0 E! u0 F% c        rows:=0;
        lines:=0;
        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;
* n. s+ o* e7 T6 T( X7 q" t0 V  Y                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
5 L) A2 B/ J% R5 e; {7 \- y                                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;
8 ^: ^8 @2 F, n$ B% g& g        next;
+ ?4 I; C' t" K# c& l       
5 J; r5 V3 g. D" G1 Z5 n$ z. E# I        lines:=0;
3 i& y9 u0 ]8 l+ G        partstable.delete;
       
9 x; `4 X. M  V) D& e        for i:=1 to number_of_machine loop
# A& P0 J4 ?. ~+ i# U                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 p! ^! B2 P, }& `                machinesequence[2,i]:=rows;
) k4 h6 F: ^! ~$ P) h, j! e                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
2 ]5 [. W7 C) z- t, q                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 _' v5 H, g: ^0 M. Q+ P6 d                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
! b- ~& [. C/ |7 ]8 z                        partstable[5,lines]:=rows;
  }; J! S- E2 j- P$ F5 w4 X                        partstable[6,lines]:=j;
8 p4 I% l4 M/ k: X1 v                end;
7 P9 o* ]/ z) {4 m; o        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]);
" q8 c7 m' W/ N# ^* |        machine.name:=machinename;标识符未知
' v, n7 g* ]  V        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
" J* r4 i4 {# O7 d+ t' v& q       
2 I% J% C) d1 T0 z. W( {        bufname:=sprint("BF",rows);
5 v  N4 ]$ @& a5 _) @( l9 E/ ]8 c        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]);
+ R1 z% z- G# w* T" J: X2 ~        buf.name:=bufname;
; M0 c3 ^" `% n! M4 w7 ~        buf.capacity:=5000;
) l& i3 o/ ^( e3 p5 [. i& E' ^        buf.proctime:=0;
/ e1 n* \6 A' G6 m$ g6 s6 D9 ?: m        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ K' ~; U7 W. J9 H5 kdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
  w7 @" t7 g  Ycurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
. s" ?) ^, G" o4 inext;
6 ]% ]4 Y* L4 ^  P0 fend;