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

zooey

is
        mark:boolean;
' N& y9 m9 x9 F! v0 Q$ h# d$ T        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
& x6 I" F% |( x) k1 j    machine,buf:object;
) \3 S/ F" [. F6 M9 h8 tdo
% g& h8 F0 ^* O# i# ]        current.eraselayer(1);
$ l9 u- x' T5 e       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
5 d, X/ H+ Q2 F' R                when 16 then
+ m* S+ p/ ]1 L$ G% g% A# h1 `                        print"yes";
                when 32 then
* K+ w6 K5 v: K3 O! [                        print"no";
% U( F+ u( N* A+ o& Y: P                else
                        print"cancel";
                end;
5 b& m# H4 S) `3 n4 W" p                eventcontroller.stop;
        end;
3 Q+ W0 ]- c4 A) y" |" E8 [       
) D$ c& T6 g: k1 [+ p7 t        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
* K5 z, i2 ]& V1 G, g        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
$ ]& G( ]& x# M: i; A& r5 U# |' G3 E        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
! d$ a) A1 b* B3 a( f, r                buf:=str_to_obj(bufname);
' ]9 n& c! g- V# G) G0 K                buf.deleteobject;
        end;
        next;
       
        dx:=0;
- h7 G# O: l# j/ r% b) j        dy:=0;
# ^1 M! V% _/ R4 Q8 D8 z: G7 g        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' {; r1 R/ N' V* R                --mark:=false;
' l# ~! F. \8 v5 l                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                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];
2 x3 P5 S$ }  o                        ct:=activityspace[2,rows];
) [9 o( V; S& h" X) D                        activityspace[2,rows]:=activityspace[1,rows];
, p( I- v! y7 k  o2 \5 X) L                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
) Z! B1 ?  J- e6 c3 F* z' N  |                        y_max:=y_max+dy;
8 [7 `) ^% {! X' A0 I+ H+ G( A- T                        dx:=0;
                dy:=0;
                        --end;
                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
! r* O' X7 O" ~1 Q& ?( k  F6 H7 U                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
1 K# @/ S' k* e# J' a1 C                        activityspace[1,rows]:=ct;
4 ~7 v# g5 C6 S4 l: t- ^                        end;*/
        next;
3 h  Z: |" l* H/ G( B- T        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);
, ^: p7 c# S0 D' w; I  S       
        rows:=0;
& i0 K% U& _3 d" K9 R$ S1 f7 D        lines:=0;
0 R! ]7 I) ]" F" a( q. y# Y        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
8 B/ x5 S0 G1 o                        if j=i then
+ W' m; Q6 _' a( T                                d_from_to_chart[j,i]:=0;
                        else
" `+ B& e. K9 M  E. t; d$ D                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
3 B: x& ~# u  I$ N' b- X6 t, a* D1 Q9 U                                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);
) e7 h5 i5 E3 I& H% L7 A0 p6 h                        end;
7 d4 c+ g" T. {7 q2 H                next;
        next;
       
        lines:=0;
; q$ n! |  d9 e0 i; l/ N; p        partstable.delete;
0 Q) _' }' v+ E, b# R       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 N. v$ }5 D# A* g, j4 D3 h! g                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
1 R# l5 W0 M5 S# U6 F                        if w_from_to_chart[j,rows]>0 then
4 Q8 Z0 C7 q( p  ~! T                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 W, [7 k3 Q1 S; v8 s% X1 p                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
- f# e; N; h9 \# t. h' `% F" y! E                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
* S" x/ Q: [3 Y6 p4 |7 z3 m1 L        next;
        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;
        machine.label:=activityspace[0,rows];
. B0 y6 O& R+ f        machine.exitctrl:=ref(leave);
       
6 R( N% s( C- O" ]* p2 B        bufname:=sprint("BF",rows);
+ x8 Q& S  X9 p! I* P1 t        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]);
! L' X- r  p8 G5 i) v1 j7 d$ y        buf.name:=bufname;
; t% k% J3 ]3 `  u& D# n        buf.capacity:=5000;
( L, Q# a2 j* ?        buf.proctime:=0;
5 T7 G4 S4 F! ^, o" Z& |' ^6 D        .materialflow.connector.connect(buf,machine);
       
; u3 U" u  H3 E. V% c        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;
6 {- Q% U! ]+ kend;
) b+ ^, h6 v- i% X, R! v6 R