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

zooey

is
        mark:boolean;
# @6 n% |) z7 z: K; y        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
& h; b% ?+ d/ o9 V( `) x% x    machine,buf:object;
: Q0 x5 L  T' udo
% l. n1 \  v  X& P        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 g- q! \2 `5 C1 B/ U8 w                inspect messagebox("设施数目不对！请核查...,",50,13)
) ]5 S3 B, S& R- U1 h                when 16 then
: l. `7 n& P& W$ K# j                        print"yes";
9 l+ d; w9 [) W9 R                when 32 then
- c6 Z: w. d6 H+ X                        print"no";
' q. O$ R1 }$ {% F6 ]4 ~2 M* _7 A                else
7 I( n5 k& N  N4 e+ o                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
; d8 h7 X. {6 p/ F" Q5 x* G0 h        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
  Z; S" Q0 x3 B                buf:=str_to_obj(bufname);
                buf.deleteobject;
/ E4 i  q! a/ f% \  w. M- s        end;
' ^3 }0 d, x: z- A+ ~' {        next;
' w( h9 c5 K$ U3 D8 H1 d       
0 j% [1 E$ a  D3 s/ G( a4 }; n: M        dx:=0;
, ?# A3 Z; `. ?4 l% ?2 S        dy:=0;
        for i:=1 to number_of_machine loop
: Y2 D' a3 j7 [8 r- {* H) K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
+ s. |; c- j  }6 Z- A, e                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
+ S3 S" e! u6 |6 i5 V% J( Q2 e                then
( E; e1 o+ c" v$ p/ V+ V4 O                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
6 c7 S: _; H  Q; O                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
& g+ r5 ~) E3 c3 t                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
4 J( g, [+ A% K( C- B  ]. p                dy:=0;
                        --end;
0 Z0 g: a% C5 T( V0 n3 a" \                end;
                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;
' B  g: K- s1 X7 g# `7 i            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
+ [+ A6 d4 _3 _                end;
. L/ q; ~; R; c$ W! r% [                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
/ i& [/ k: V2 j. @. ~                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
/ [' X# ?) k  T5 R1 C8 n; `        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);
        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);
' s9 f# }+ |: N5 b7 s+ _8 B       
- {1 Y0 N- f: }" e% d4 O        rows:=0;
+ t3 [- ^0 h: ?/ P% p, j* e& O        lines:=0;
! ?4 t" G7 P5 g  l5 j  e        for i:=1 to number_of_machine loop
: v6 f2 v) f! y6 C                for j:=1 to number_of_machine loop
4 _6 ^. g! G: D* _1 w% B6 I* }2 y                        if j=i then
+ z$ y/ e; a) ~5 L; e6 J                                d_from_to_chart[j,i]:=0;
! U9 I; s: I! @0 b) f                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: m# X1 M3 k5 I7 _. y0 D! y* S% Q                                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);
0 L- Z, ^3 t) R& t0 I$ C2 y                        end;
! r, k2 V- Z0 n( \                next;
( f  p( _# [8 S: y- E9 u& w3 \        next;
       
        lines:=0;
        partstable.delete;
) h* z, [- A# Y- [# J7 Z       
* h. B$ Y! x4 R) ]7 M        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
7 `( j1 j" [  o0 A                for j:=1 to number_of_machine loop
% S2 x& x' Y1 U' h                        if w_from_to_chart[j,rows]>0 then
: W9 J4 ~5 N  i5 R7 E, P5 A$ ]                        lines:=lines+1;
$ ?; s" |' Y* ^$ a$ i1 q                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
3 v  m: t8 C9 U7 g8 U& t                        partstable[3,lines]:=sprint("parts");
2 X5 I9 @3 i( o- z1 g, |' H! G                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
+ P8 o* }% N2 d/ H& M! t, |; l                end;
/ ?- ]2 i8 ~7 O2 q: l5 d. b1 x        next;
. F5 R, q7 |& a& u- C8 g# {; v8 Q        machinename:=sprint("M",rows);
  q2 j, ?7 n( G8 a2 m        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]);
6 j0 Y: @) E* n. k2 l. y( I        machine.name:=machinename;标识符未知
! ?( K, p7 L( T1 R* f        machine.proctime:=5;
9 x, `: k# \7 s% y6 s9 V0 {        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
9 \/ q- _$ W2 J% p* o( o       
$ w, j, B7 X# |* {        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;
        buf.capacity:=5000;
        buf.proctime:=0;
- X. U8 I4 d6 A) O        .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;
# s0 M5 N: u: F2 h! c, ccurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
8 b: g- j3 \2 m, p* d7 ?next;
. O! Q' n; w. uend;