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

zooey

is
$ C) S9 u9 ]8 _- E/ d( L        mark:boolean;
8 f  U0 ]( |& }6 f        dx,dy,ct:real;
% @1 y4 t- w+ A8 o  {    i,j,rows,lines:integer;
, ~+ @9 d3 b$ G5 N6 O$ S    machinename,bufname:string;
  z# r+ O5 L  i; B% K' B    machine,buf:object;
% d/ ^6 O$ S6 f8 Tdo
8 v; g/ ^7 [7 d- p. V7 W        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) B+ l0 N' B* r                inspect messagebox("设施数目不对！请核查...,",50,13)
) D4 \; Q# U1 _( C& k. F                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
8 E! ^0 g, |  p9 n$ Z2 N! ^                eventcontroller.stop;
7 z  i7 }7 R( ]* l; @& y        end;
       
8 H; w  n) |; X2 C        for i:=1 to number_of_machine loop
9 C, k# x! W# g1 c: ^7 a1 T+ f        machinename:=sprint("M",i);
        if existsobject(machinename) then
: O4 ?4 U' T7 _& k                machine:=str_to_obj(machinename);
9 e& D4 k; l  I$ O( X2 V0 c                machine.deleteobject;
- i- V1 u0 r7 \2 S        end;
        bufname:=sprint("BF",i);
. D# Y% m4 s2 K4 U' C4 h4 r        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
  ^' @+ ~, g5 O% K& f+ f' k" F: c        end;
1 j/ i% v$ o1 Z" ~9 @        next;
       
8 [- v1 t/ d7 C% k- }- m8 Y        dx:=0;
: H5 \9 M$ x2 N4 [( Q3 _5 R        dy:=0;
2 f+ H$ g) R; v; P        for i:=1 to number_of_machine loop
  X4 c. {' w! i5 T( k                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
  u7 @. L" S7 ~! g" ~                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
5 s% G/ S/ n/ M, Z                        /*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];
; [/ |2 B. M9 d) _3 [: D                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 p1 q* x+ q% N$ D& W                        activityspace[1,rows]:=ct;
4 c, ]) ^1 [% Y; z& I) i4 L9 S% F: d                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
5 S. D2 g( `+ Q5 W7 }" i. y  D                        --end;
  C8 Y4 I& _1 D1 z0 j                end;
) `& Z5 n" g$ [- h  E" K                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 F$ l) Z  o: n4 u% ]                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
; d! i& Y# {' S  l                end;
" u1 p+ C4 s/ o9 L8 t                dx:=dx+activityspace[1,rows];
' h8 F2 ?1 {; v" {% B- e                /*if mark=true then
                ct:=activityspace[2,rows];
6 o% X" B$ Y$ ]; `1 Y  Q                        activityspace[2,rows]:=activityspace[1,rows];
/ H; K5 z4 A/ R2 f; Y; S5 _' z                        activityspace[1,rows]:=ct;
  F1 @" A5 S4 g# t* G0 t                        end;*/
        next;
- s/ I% U" c( ~+ v        y_max:=y_max+dy;
2 l5 [+ s0 j; k; V: ]9 f        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);
       
        rows:=0;
" {2 t- _' V! Z- A7 L" ^) C: \, [        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
( {- z! B4 p3 Y7 @/ A: g                        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];
5 M8 d. f: V4 ?* k6 N. {2 G8 {# c' p                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
7 a; M  a! J8 L2 u                                d_from_to_chart[j,i]:=abs(dx-dy);
/ p+ ]8 K! Q8 C/ ]                        end;
9 z! F7 ]/ o' ^% P6 q                next;
9 C0 D4 N! g# A8 S& G- ~        next;
       
' [& m) v4 t" y- m2 F6 G3 X        lines:=0;
1 e7 }; ~5 v0 e. ]; `5 @/ e! R        partstable.delete;
       
6 E9 ]& B0 ~$ y* L        for i:=1 to number_of_machine loop
- T) M* D- q; n# ^8 _' R' M                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
/ H/ @% v$ E* z/ o, _% p                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
% ]& y! V. i: X) }                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
* a' [0 m* E% v9 W$ R, [. ?                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
; M* C1 }9 N3 @% R        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]);
; S. j# W" J% u+ f* E        machine.name:=machinename;标识符未知
0 d4 [2 W" t( _) |        machine.proctime:=5;
  }# U2 z" [' u8 ~        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
* W. X+ _2 |0 {        bufname:=sprint("BF",rows);
) n1 w# S# M7 P& P3 d' _, f8 M        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;
) s2 }1 ~' n" I# _        buf.capacity:=5000;
        buf.proctime:=0;
! E6 ?( s- W& m( b! `        .materialflow.connector.connect(buf,machine);
: l+ V; s( l0 q3 p3 u# ~+ |( h       
        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;
/ h9 D; g8 o: {1 b, u- t" U6 k# Nend;
: q$ `7 c. K2 `6 ?8 ^  x