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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
* W' O+ @% N5 W    i,j,rows,lines:integer;
9 V$ l5 f( l- S    machinename,bufname:string;
    machine,buf:object;
do
; O, l0 I! j  g" c: n        current.eraselayer(1);
5 c( w: m. e8 @9 f       
* m4 P3 S. L9 g" p" S1 Q2 h4 k" P        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. P! `8 b  S8 i                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
7 X) ?' c2 F" z1 _' w$ \                        print"yes";
/ A" l* _1 }" p2 t                when 32 then
                        print"no";
" G1 R; v0 m1 j4 E$ F% c8 _3 l  K                else
: V7 _/ t  w, ~9 w) W$ U+ H% J! D                        print"cancel";
                end;
; P: ?! d" F+ r4 t- \                eventcontroller.stop;
        end;
2 l  B! D) t7 z* `       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
5 h. ]9 }5 i( _        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
5 g$ V' a5 [- O- d0 m  T; H                machine.deleteobject;
        end;
2 z* ^+ u9 {9 g, r; B" @4 H        bufname:=sprint("BF",i);
        if existsobject(bufname) then
2 }" l, m, h2 {                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
( d% B, e3 a3 w) Y' b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 B4 j$ {1 y+ `4 }( F7 w                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 u3 ]& D( `. P/ w; D1 D                then
                        /*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];
+ z) u. i/ r( M! F! [( b% c                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
- X" {' y: e" p/ S9 M                dy:=0;
                        --end;
: f5 c* {1 H: p+ h+ E. t' M                end;
% L/ p% g  D2 L, L  t2 Q                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;
. ?: ~5 G  ?" N3 i: n0 n            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
7 _# C5 W' P$ ?: u! f                dx:=dx+activityspace[1,rows];
                /*if mark=true then
4 C2 ~+ a! }8 T: w) }                ct:=activityspace[2,rows];
6 C" @: ^. m8 t. [& {                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
+ Q. h7 A" I& N- {2 x# k$ q/ p$ N3 o        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);
$ o# Z4 O" I  N# G7 u* D  N5 I+ n        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;
        lines:=0;
6 x3 G& A2 G: N3 v9 A% _0 K& n) Q) C        for i:=1 to number_of_machine loop
  e6 ~8 A' e6 J0 H" z' y# y                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
  h; G0 y- P' B! l$ n& N! y4 I) b                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 C5 E6 g( B- H9 D/ Q2 q7 A                                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);
( O5 ~2 X1 c" O! H1 N; w# s' c                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
) u; Z0 F! g5 c9 j7 E                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" J# h: m' \) D* j1 F1 p& d3 f                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
# ]' v% Z2 w7 \# m, d9 H                        if w_from_to_chart[j,rows]>0 then
4 P4 ^9 g# E+ a. g                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
- ~" p, H, R0 ~                        partstable[3,lines]:=sprint("parts");
  m# j2 q$ h1 Y0 r/ j+ K, s                        partstable[5,lines]:=rows;
( r2 `  a) o2 P                        partstable[6,lines]:=j;
                end;
, h6 Y/ h4 b9 Q9 n        next;
        machinename:=sprint("M",rows);
/ K$ ?% a! T% @# P        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]);
9 m. u* q4 ^7 X        machine.name:=machinename;标识符未知
7 ]# v+ x5 I8 e        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
  f3 k! p: J! Q: N# K! F4 f) ?        bufname:=sprint("BF",rows);
, ?" @% _/ w3 j0 Z7 Q  s        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;
- T, K* e" ?' a1 t: s  W: c$ A% @( C. U        buf.proctime:=0;
( M( k3 y, Z# d/ \7 ]- j; g        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
( V5 {' y- w7 s* sdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
5 N2 T7 F0 Y( q. T, }current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;