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

zooey

is
        mark:boolean;
& c8 O" H4 N) ], y; l, l        dx,dy,ct:real;
    i,j,rows,lines:integer;
6 W' \! ^& P  J+ ^. H& Z    machinename,bufname:string;
$ x$ S: L% D. U. s* ]* R8 C, j% R    machine,buf:object;
/ w3 w* @* v5 E3 Y" B  `0 r4 ddo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
7 A' F9 p: L9 x# u                when 16 then
7 r9 Z4 J. }& t. Z8 R                        print"yes";
                when 32 then
& j: Z& Y9 X' Y& @- U                        print"no";
                else
                        print"cancel";
                end;
6 T( h$ v1 l  `7 L                eventcontroller.stop;
. }2 a3 E6 w( B' ?' U0 g1 u        end;
       
        for i:=1 to number_of_machine loop
$ ?  I' c4 Y6 T5 w) ]        machinename:=sprint("M",i);
        if existsobject(machinename) then
2 Z  U5 ?2 g9 X: i                machine:=str_to_obj(machinename);
9 r( z' B, C4 I" H                machine.deleteobject;
        end;
  G  S9 U* G% B' ~( `! |        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
* l$ _" z6 o: R! |! R& P5 i        end;
        next;
2 c5 j) Q6 Z" j       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
6 D0 R$ T0 b. c- w4 ^                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; y6 |+ q$ \" J# G; n; F! a# l                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! `* ?8 _! b& U; o" L" P6 o- N# n% r' m                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 Z- F3 V. P3 L" l3 S# H: R8 t/ G                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
1 |: G6 B- q% _$ {! a0 L3 Y0 y                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) Q& {- w0 t1 S- _% V9 j) N3 P! `% n                        activityspace[1,rows]:=ct;
                        mark:=true;
) S: b, W; \4 D, T  D5 `6 k                        else*/
+ G/ S* K2 c9 T) q% t& T                        y_max:=y_max+dy;
                        dx:=0;
+ O! F2 o. P/ ]2 J# S                dy:=0;
                        --end;
) ^; c" J  p( L4 ~; {4 {. f- ^                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
9 s: [- T* g* f$ @5 O9 R                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
/ M6 Z! F( g7 Q            if activityspace[2,rows]>dy then
/ p% ]# L- z/ p3 C/ G                        dy:=activityspace[2,rows];
                end;
+ T7 v. U0 p+ r# T9 X. w                dx:=dx+activityspace[1,rows];
! P8 P) s7 f" f3 E' U6 \1 d* j6 b, M9 J                /*if mark=true then
                ct:=activityspace[2,rows];
1 u5 l8 j) J% R5 K8 K( z8 [, Q                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
0 ~" G: |6 M, _                        end;*/
( q  @0 z$ A8 u4 {/ }6 Z0 U  m        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);
" H- J8 L; a2 K9 l! Q        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);
       
! w/ Y. p+ b; ~( ^        rows:=0;
6 m/ r- ?- o4 S: B        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
7 X: P" P! Y3 X" F3 T5 r; K# ?                                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];
% \+ c. X# V; w% N- w                                d_from_to_chart[j,i]:=abs(dx-dy);
$ [/ `9 [/ g4 k% A- e! [* e                        end;
                next;
        next;
: |4 P( j6 S( b4 |5 _- K. {       
        lines:=0;
3 {5 r0 D; ~1 Y( e# T8 z% @        partstable.delete;
+ P# j0 W3 J, d6 O! [: k$ p  }- F       
( [: N' e* F4 j$ o& u        for i:=1 to number_of_machine loop
' X/ L8 d# A- W9 _# g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  ]+ q. s8 u$ w) {! |" o: _+ B3 Z2 \                machinesequence[2,i]:=rows;
5 {( o: J1 i4 q- w' F2 X; t$ `                for j:=1 to number_of_machine loop
5 X3 `5 T2 G0 c! @. |                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
1 s" F& f3 M4 ?2 v* R                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
) V4 M4 O  e" L# v! r                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
/ y# x% u, F0 {& c/ z9 D; c                        partstable[6,lines]:=j;
+ ~! J2 v; o9 J: H, B4 i                end;
        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;标识符未知
3 S  b/ g: K, m% d/ l+ b        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
2 |$ ]! p6 p/ _; E9 i/ {% R        machine.exitctrl:=ref(leave);
       
$ y- T1 Z' w' D        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;
, G+ [) C5 Z5 U$ r        buf.capacity:=5000;
2 d/ s& W  F6 g: S) M$ f        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
, n: _( B; q- _       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ g) V: w4 U$ \+ @dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
* K1 x  L. d# \+ t7 N- lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
4 P8 u3 o7 i$ ]9 o! \- X! Z4 jend;
" @% p) U  H: l- U. J