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

zooey

is
        mark:boolean;
; w* w, f* ^9 _! c- B        dx,dy,ct:real;
' t! t7 _5 h+ s1 k8 y$ J/ G# n    i,j,rows,lines:integer;
- v$ N9 E- @4 E5 t8 \    machinename,bufname:string;
3 u$ y7 O8 k9 Z$ d    machine,buf:object;
do
        current.eraselayer(1);
" Y7 s0 g$ B6 Q- T       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
' {  e) J! Z1 [% O& p" P                when 16 then
                        print"yes";
8 ?7 ^0 [0 T2 @9 W3 }                when 32 then
                        print"no";
2 @7 p& E8 Z  f% y( A3 X                else
                        print"cancel";
                end;
# ]9 L$ Y7 O9 l2 ]/ L( X                eventcontroller.stop;
        end;
3 h4 p- K" x+ w$ N% j       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
8 Y! @4 B$ M* ?2 m8 j        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
5 q6 u$ e" Y# t                machine.deleteobject;
0 [/ J7 E$ K/ ~4 \3 _, T; A& T# q        end;
9 I9 G; f) H5 m0 p        bufname:=sprint("BF",i);
! I* y$ t  K" l- u+ X% d- X: G        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
6 Q  n/ \. @$ L* h$ x8 d7 n                buf.deleteobject;
        end;
        next;
       
+ q$ m- M, k% S0 J6 P/ i- b        dx:=0;
' P. @) g* v# k# K& C; k' D* \$ X7 {        dy:=0;
        for i:=1 to number_of_machine loop
' ~/ L( P6 H5 c7 z$ ?                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
  r; {; e+ e0 T7 c                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
+ E4 F, U6 p+ y: L, u! M0 V1 f                then
! y% J6 ~# X; [7 ]7 G/ N! x+ M" r! L                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
5 o9 A1 t$ n7 I0 V5 K                        ct:=activityspace[2,rows];
4 g! Q; \  k  ^: i5 C+ I4 d6 Y+ _                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
% R% n& D1 n) z9 k, ^% P4 v4 B                dy:=0;
  C* \& S. n! m1 S                        --end;
                end;
4 b# Q6 C) t- l7 s$ E9 e                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
, K. O4 {9 k: X                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
6 x% _7 N  {3 P+ s! b& {" u            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
- l" G4 t$ A% F8 C* X                end;
                dx:=dx+activityspace[1,rows];
9 ?0 L; I( q/ Z5 q2 T: q                /*if mark=true then
  G8 {* {- h- S9 ^                ct:=activityspace[2,rows];
$ M1 Z' F1 O- B: p2 ]$ I                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
" ]( t( \& c4 B- Q) q- @1 N7 B                        end;*/
        next;
; }! J) z2 B* Q0 w6 ]        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);
. U7 w- r# A0 W( L) u: n$ L) M9 z        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);
       
        rows:=0;
% z2 E0 h6 _8 Q. D. G* N        lines:=0;
$ ^8 T: p6 S) B. l/ K8 ]5 m) q; o  s        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
6 u, v0 M; z* c5 `                        if j=i then
+ |( J$ W+ M  Q9 z) d2 [* z                                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];
3 F8 a) X) y; _% Y; d                                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;
3 Y3 a3 _& c4 M7 R' _7 B                next;
1 `1 W. W2 ~- N4 f/ X/ Z3 M        next;
       
1 h. L) s% w' c- i2 H3 \, t* y& Y        lines:=0;
        partstable.delete;
" o# i$ h3 P4 d8 d. `9 j+ N       
* S' C% M5 K. F! G5 R. V: X        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- v  ?8 g% k& O: E( `, v                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
7 u* o6 E% e5 ^                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
& b6 ^( y0 h1 W, Q3 k8 Z: Z! m                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
: q  }0 a- t) e7 t/ q9 B+ n                end;
* i& ^4 I9 F( n0 S  o        next;
1 D# r) N6 F1 j, n) L1 m        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;标识符未知
3 [7 y/ t- M2 u        machine.proctime:=5;
1 r) g+ J' j/ {9 {        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
% o3 B! e: v- f8 {! R# \# H/ x) F       
        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]);
6 K2 X- M% w0 b: x8 F; V1 w3 i        buf.name:=bufname;
. k9 b# n6 a) H' v& O: y, u        buf.capacity:=5000;
) l% O7 C: M2 T/ O( P" a        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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;
( |! I" S+ O" A% D/ A# F2 h+ V! I; `& @end;