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

zooey

is
        mark:boolean;
- c. o' w; h+ o1 U3 S9 X# m  r3 K        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
2 O# O2 k# G0 ~! U' D    machine,buf:object;
do
        current.eraselayer(1);
  m9 `$ Y/ u! i       
        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
8 J. H3 d; O4 e  K) k" Q# }- `                        print"yes";
1 H& S" _0 p5 {0 x                when 32 then
! O0 j1 j% g+ d6 s! j, @                        print"no";
3 H4 Y% o* H7 Z. ?1 O9 u1 _                else
* r$ M0 T. v) q$ \8 C) `; l                        print"cancel";
' ~% m7 f7 \! l; ]! C                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
# P( F) E0 t. Q+ ~# ^+ X/ k0 u        if existsobject(machinename) then
, ~* w% N; m) i. R7 W% d. n3 z                machine:=str_to_obj(machinename);
" ^3 S" W/ d; T. u' e                machine.deleteobject;
5 s% j9 U" E) i; @# a1 S6 n0 k6 \5 F2 b        end;
- m( v. X3 u+ {7 t, v" }        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
5 ?9 o3 N/ `# [0 ^8 A$ D" ]        end;
3 K/ m+ j/ [, R/ J+ c        next;
: c& E' r: B; m* H* g& z       
        dx:=0;
: k; N' B0 i: B4 |! n0 C- y6 ?        dy:=0;
        for i:=1 to number_of_machine loop
3 S' X" ^( C0 C; T# B0 i5 M                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
7 ^2 R) s) s' Q' s                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
) j6 D6 p. l, [5 P) }2 H4 y% H0 J                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 G% c6 y$ ^, D2 C                        and activityspace[1,rows]<(1.05*y_max) then
0 v2 x' l/ f0 W9 s. H                        print activityspace[1,rows],",",activityspace[2,rows];
9 p, i/ Z& b  D3 U' n                        ct:=activityspace[2,rows];
; |9 b* C+ I, a6 b                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
4 Z; P5 Q6 M' k                        mark:=true;
; T. `* U5 d2 w                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
0 `' Z! t/ x8 i* l- I# v                dy:=0;
                        --end;
* _" O, k+ T0 m# S+ Y                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
" g1 u: K: [( Z) Y6 G* W                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
; A, D6 E3 G8 P                        dy:=activityspace[2,rows];
$ z6 k* A; y# L1 n- `                end;
0 ^1 c, @, R- L! _                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- x* H! T8 v, a6 ~0 t                        end;*/
        next;
        y_max:=y_max+dy;
; p: y2 `2 K- J& @5 T        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);
1 X3 Q) b4 U0 g4 `        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);
: e/ m) Q5 ^( d9 E       
7 V4 u  e3 ^0 A2 h, o! v        rows:=0;
; y( i- k# E- X4 ]; @        lines:=0;
% u' E* E) q7 n2 C8 W- T4 t        for i:=1 to number_of_machine loop
! i6 G( A& D9 `7 @% i& o  H& g" t) q                for j:=1 to number_of_machine loop
                        if j=i then
+ }. l' Q# b: U+ g: L; d                                d_from_to_chart[j,i]:=0;
& N4 s) ~- Q- E4 f                        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];
+ t4 H0 b1 K1 K; L% l6 D$ ^                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
9 n5 Z* F- s9 Z) y* H! w       
        lines:=0;
3 }2 d7 V9 {" u$ I9 r* `' `- W        partstable.delete;
/ Y+ m; Z: @$ v       
        for i:=1 to number_of_machine loop
/ r# F' D1 N8 P& }6 y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; K& \; v* _  y. R& ^                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
8 H4 U" d4 W* @4 _7 L0 a                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
3 M2 f# p; A- B1 S* Z' M  y                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
$ q2 H4 q" M: O( s4 l' j7 _! E, p; u7 w" R                        partstable[2,lines]:=w_from_to_chart[j,rows];
! n% m( j& w+ x                        partstable[3,lines]:=sprint("parts");
6 p/ E) k' K' Z) X/ Z' z                        partstable[5,lines]:=rows;
( G5 F* ~) o9 F; a                        partstable[6,lines]:=j;
                end;
        next;
3 _. u" Z, N" a        machinename:=sprint("M",rows);
/ U$ E3 w* O1 v4 i4 L8 T        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;标识符未知
        machine.proctime:=5;
  ?2 v+ `5 ]6 Y8 O+ Q) p        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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]);
# `8 |+ B) R  a- n        buf.name:=bufname;
        buf.capacity:=5000;
9 F6 l  W% o2 c- L8 g7 g        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
: D/ T: p. ?, s- Z8 ~8 v2 A       
1 I4 R$ k- L0 T9 M# ~1 Y$ O/ i0 x( ^        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;
. \8 q4 p. J/ Y5 }/ q: ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
7 J7 k' `  @0 c( u) ?next;
+ U: A2 d* v% T/ Pend;