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

zooey

is
        mark:boolean;
2 y4 Q! A$ \5 S; y& o. o: C        dx,dy,ct:real;
    i,j,rows,lines:integer;
7 }# \4 r( K* q$ K& g3 Z    machinename,bufname:string;
7 O  u  r4 m" S    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
! A6 K8 `% O( c) X' e                inspect messagebox("设施数目不对！请核查...,",50,13)
# v) |$ q" y9 a$ h                when 16 then
                        print"yes";
7 a! b8 ?8 l4 r% p- [: s                when 32 then
) t6 B& \# k( e5 A                        print"no";
                else
                        print"cancel";
                end;
! I$ j6 |6 d% Z% O7 T+ N                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
2 c( \2 k. m$ a3 g3 E        machinename:=sprint("M",i);
2 ~7 J! D# }# E( Q$ s1 n9 H        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
2 O/ Q4 j# y% M- Z. z) F* g8 q                machine.deleteobject;
3 t& D9 P$ M1 s2 N        end;
        bufname:=sprint("BF",i);
% C0 |  p) @: F' y3 y        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
% x6 l0 K! N: E) s* ]6 N. c                buf.deleteobject;
        end;
  A7 N) D- ^5 T: g        next;
       
% ^" O/ I6 T( K. h% ]2 ?        dx:=0;
; l, s( L5 o% N% K7 s) _( l! s        dy:=0;
$ c+ L- |! H) U" y' W4 `        for i:=1 to number_of_machine loop
3 e2 T* A- C0 _                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ W/ `9 g0 a/ V. g                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
0 U% @( }' D6 P* s  L0 I  k                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 i; }. ?" w+ K8 [$ u/ @                        and activityspace[1,rows]<(1.05*y_max) then
% \/ J8 O, U+ [4 a2 W9 z: p                        print activityspace[1,rows],",",activityspace[2,rows];
+ q2 Y( I# Q- x# p                        ct:=activityspace[2,rows];
: {7 I+ }7 n' i0 M( _. F. X0 x                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
6 X8 g  M* M  I8 q$ c# H+ g                        mark:=true;
0 Q' ?& {! f( h" ?                        else*/
                        y_max:=y_max+dy;
, b' c  J+ r* G                        dx:=0;
                dy:=0;
                        --end;
                end;
" I2 D# k" E1 I) F5 _. F! k' h                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 I, }5 O$ O- N  B1 ?: ~* E                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
8 A2 G. M6 k5 O- \, `0 Q                        dy:=activityspace[2,rows];
                end;
# q9 Y+ j2 ?+ v                dx:=dx+activityspace[1,rows];
                /*if mark=true then
1 _) a6 \* P5 s( g# H" M: l                ct:=activityspace[2,rows];
: Y+ z! ]0 q- E                        activityspace[2,rows]:=activityspace[1,rows];
9 E& ~6 \% f! M6 Z9 v. z                        activityspace[1,rows]:=ct;
5 a2 g) [4 z  ?                        end;*/
1 Z7 l8 s, _- s        next;
        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);
, n" _+ S. t; a4 h6 `5 M- w        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);
' D. ]3 z) ?& c8 L% o       
3 H# H* }( o5 _3 Z2 R4 z        rows:=0;
2 o& t7 g# n6 o        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
+ f4 [: @2 A  i                        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);
+ p& \( D6 c2 q# }7 S9 P- i                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
+ r; D$ A( c) `+ F       
& X+ k4 [7 ~/ G6 w' c        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ Q( Y" N/ h. l) r; l6 Q. u$ g+ k# ~' \                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
8 ?) T' a+ k8 p2 Y" l' z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
! y& A( w: p# @3 J; t                        partstable[3,lines]:=sprint("parts");
5 g5 ^3 O. ~  n4 D) d* f                        partstable[5,lines]:=rows;
, q1 U' R2 V' P                        partstable[6,lines]:=j;
) O' ~! \/ s$ b  s! J+ p; F                end;
        next;
3 r+ T3 J: D1 R" L  O        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
0 N3 u& u. J% c- ]# a2 J& r0 R        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
! Y/ z" N. ^2 J$ }        bufname:=sprint("BF",rows);
7 ^# z" L: o1 E: U- _        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]);
4 X  v7 d' \+ r: v3 H7 ^9 d! A* X: a        buf.name:=bufname;
        buf.capacity:=5000;
+ R$ q/ f) [, S5 o& }        buf.proctime:=0;
( j7 A5 v; L  T' F- V$ @/ A" v        .materialflow.connector.connect(buf,machine);
" D! X' A) `/ G( ~# C: F, L1 w       
4 L$ v: A2 O% s5 w        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);
) B; y+ I+ J2 F) s8 gnext;
end;
3 c0 k' R4 j; ]- s