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

zooey

is
  [  B' f) h4 I. G, ]        mark:boolean;
        dx,dy,ct:real;
5 t" C- N- r  l) K+ s9 a    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
7 u, z$ q8 x5 f* v- ^7 J4 V       
- L& X# m: O+ O2 t        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
" V6 }* X* W  y! D  ?4 Y6 o                inspect messagebox("设施数目不对！请核查...,",50,13)
/ n5 `6 {5 M& U4 l0 x. w' C7 X                when 16 then
                        print"yes";
: r. G0 F' J. l                when 32 then
" t& {3 n  v$ L7 o) q5 @$ z# Q                        print"no";
                else
                        print"cancel";
                end;
7 z6 i! ?* x" U6 P2 v; j                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
" R9 q" e: a' W* g3 B5 r& M9 X                machine:=str_to_obj(machinename);
0 h+ J! e7 w! o9 Y1 K* m                machine.deleteobject;
        end;
  c8 a& G5 V  w3 H        bufname:=sprint("BF",i);
; D6 `' s  T5 H/ {( t; ?+ Q        if existsobject(bufname) then
+ F8 ^1 A* s* C3 K  \                buf:=str_to_obj(bufname);
* ~+ J# o5 p% s; P- t& p& _                buf.deleteobject;
; @! A1 k+ G0 ]/ d: P% [        end;
6 F* Q+ p' R8 p5 P0 k' l        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
! w' j% q" S! p- @$ z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( [& A) P/ J4 l; b% _) R  N9 |7 R- A                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
6 p6 m1 ]2 Y2 I: Z0 P                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
# J4 k) i5 a+ X                        print activityspace[1,rows],",",activityspace[2,rows];
" f1 |6 W) _2 Y0 ~+ Q* e                        ct:=activityspace[2,rows];
( H: ~8 g, X+ M                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
5 m; P; @# x6 r                        else*/
. U: L, c2 m, O# L& _5 L                        y_max:=y_max+dy;
8 U/ x! M0 y2 y$ K: n                        dx:=0;
$ i5 h3 j2 p7 a) O5 h, T+ g                dy:=0;
1 k; j" r8 y* U! N* ], H                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
5 z. m+ q# G" Y; U; U                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
+ @0 K5 B% v' F" r; k% ~8 \2 G            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
1 \1 E, w1 q7 D) {+ R" H0 ?1 K! G4 a                dx:=dx+activityspace[1,rows];
9 a) g3 }6 ]& e! P' D' h                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
* _  c( F; L* b$ i8 M4 S                        end;*/
- z$ o& `9 |( P$ x        next;
2 ?7 _) Z' }, c* n3 Z) p9 M        y_max:=y_max+dy;
: G+ z( s  Y7 v% b! V        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);
! W0 e4 n) N' W' C: m8 a2 ^6 ~2 B; T        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);
       
6 \0 @3 `4 b' U9 e6 c        rows:=0;
/ c4 m& S- L& e        lines:=0;
: o9 [' z7 c5 X5 p5 K        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
, Q& a% k; |7 @$ K  u4 |                        if j=i then
. |4 U; t9 ~" ~# Q& Y1 o3 L7 \- V                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
4 r9 h7 C9 T0 E- r        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
% _; s0 o8 n" R/ ?                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% V$ M0 ^; i9 e, Z5 I" ]                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
9 W" k) t" w3 a) X                        if w_from_to_chart[j,rows]>0 then
6 |* w' ]7 Y0 h$ P9 m' t                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
$ G! f/ E7 I  Q, W) k. }2 Z                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
2 P$ y# {- N: S) [+ j. l                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
6 a; v6 q4 R- w; F) x        next;
& K& ~: C7 f" ]$ H& D% l6 S: T5 T        machinename:=sprint("M",rows);
& p; O: _) ^! j' k5 A' [        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;标识符未知
! F6 d4 y- e4 w! u9 K        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
' a$ U, y) O6 m+ V1 u) S; [1 [       
+ t9 o/ Z) r7 X- R" {: t( z        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;
+ @5 K; K1 E" X1 i; K* \; r5 h9 d& U        buf.capacity:=5000;
/ P1 B: Y; H/ W# v- t9 i: u        buf.proctime:=0;
        .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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
& o1 B7 `0 z( p# e) Hend;