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

zooey

is
+ `6 X5 D- \# Y% f1 x3 @        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
, I' a) k) w) {' c3 e5 X    machinename,bufname:string;
    machine,buf:object;
do
2 j: Y6 B/ K. }) S; L: Z' u& H        current.eraselayer(1);
# E7 _, u7 }; y       
9 X, p* ]4 P) A: T        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
6 o4 u1 x$ q9 |! q( b  F                        print"yes";
                when 32 then
  Y, z5 W. p# d# \$ H                        print"no";
                else
8 n8 S7 R9 I& ^; g5 j                        print"cancel";
8 B/ c6 e0 y& I" J, u3 j# v. ~. A* D                end;
                eventcontroller.stop;
% ]! d  L& h. B' d        end;
       
        for i:=1 to number_of_machine loop
( z, t7 M$ B1 H7 E2 Y7 ]        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
6 r- n4 G2 \9 t: G* a/ D& H# S        end;
" M2 `! `9 l8 g0 ~( t8 ~8 C        bufname:=sprint("BF",i);
8 b  ?2 d4 @7 @; F! z) h        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
8 R. C, [3 X8 K; {( J* l0 M: E% ~        dx:=0;
        dy:=0;
/ q8 [/ g& x4 q4 w        for i:=1 to number_of_machine loop
6 u) G' C* T. I+ Y& v                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 C, ?+ d1 ]  h& n* g                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
3 a' ^/ k/ a% W9 ]9 ~4 ^8 L1 m1 L                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
- C9 G; o; N% w$ y' d! ^# T                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
& \  u+ t9 f3 {) a                        mark:=true;
                        else*/
0 L/ ^" j6 P8 F( x  M8 K                        y_max:=y_max+dy;
: Z; i4 r  {; b7 }6 D+ N                        dx:=0;
                dy:=0;
& p% j& W  x! A. J. a( C                        --end;
                end;
* W9 @5 s8 H6 j, m. h- e/ k5 ~                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;
, w. Q5 P9 b3 f: L1 g& A7 Q            if activityspace[2,rows]>dy then
" ]1 |/ |& V6 w                        dy:=activityspace[2,rows];
                end;
7 r+ J$ ?' ?1 ~* z8 R                dx:=dx+activityspace[1,rows];
% m  j; O4 e% `3 t2 H- x% e" _5 x2 f                /*if mark=true then
* W0 S# @' X! j. Y  E& B                ct:=activityspace[2,rows];
3 P% L; q* w1 b6 x9 c& i) F                        activityspace[2,rows]:=activityspace[1,rows];
9 p6 q& r# v1 b( J                        activityspace[1,rows]:=ct;
, }  {0 ]) }% T8 h% J                        end;*/
$ p; F( X, ?6 K0 @" X8 F  T        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);
! J* E/ W. ~6 c" N% s9 J        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 l. c: ], l( z, p' }3 F1 z. t       
& f' Q( g# K# J/ C4 f        rows:=0;
        lines:=0;
4 h) L! w8 C6 t$ K* d6 k2 W2 t        for i:=1 to number_of_machine loop
6 _% [8 z* A7 X2 U) o" W. }                for j:=1 to number_of_machine loop
$ J5 Q. ~+ T$ b; _( o                        if j=i then
! N8 [  P4 T; p, D. \2 g8 w                                d_from_to_chart[j,i]:=0;
% ~6 W7 \# y' w3 s5 i                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
& P6 v7 t6 @1 _                                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);
2 T0 B3 U- R' |  {. E                        end;
0 i& B6 @! O  Z2 @6 P                next;
        next;
       
& ]( q. N6 U+ r8 l. n9 H  J        lines:=0;
$ ^7 O0 x! E0 X. P4 q        partstable.delete;
  V0 w1 b# p4 |. Q6 c       
        for i:=1 to number_of_machine loop
+ W# O2 S; u5 c' z" T' G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
3 k+ s0 M# Q  `9 m9 }% M                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
- A) ~4 f5 G0 L' ^% N) l: ]                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
3 V6 G. g/ H! r9 p* i                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
! j3 n: k: y& q9 M4 B                end;
        next;
        machinename:=sprint("M",rows);
* s- N5 Z$ V0 j        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]);
( R" U, u9 ]. @2 {0 t        machine.name:=machinename;标识符未知
1 O2 q# n' |/ l1 s5 \        machine.proctime:=5;
$ B" v# v. K6 u) ]! Q- u! [$ P5 m& i        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
( B2 g! b8 H+ f1 A       
) f9 P# z9 @9 r  x* A        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
9 g. y6 k. }+ y7 G9 Q+ R        .materialflow.connector.connect(buf,machine);
& e; F9 o1 ~; h/ g9 t       
        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);
next;
5 X1 s' h, j! \3 S# Zend;
$ U: `0 @9 k+ E7 Y& ^1 P