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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
. k! I( ~9 V$ d9 f9 F: t* Q0 _0 B    machinename,bufname:string;
9 a* B( p$ E2 \) k. }) U- T+ }# m9 Y    machine,buf:object;
& N$ c- {/ ]; M$ a! P- N4 Ido
        current.eraselayer(1);
       
9 P  w/ A$ H) V/ H        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 c& K; R0 d8 s" L                inspect messagebox("设施数目不对！请核查...,",50,13)
" B% `  A  z# m5 f( }( X  _                when 16 then
                        print"yes";
) T4 Q, I- l1 n2 J" j                when 32 then
& ~, L! ]2 D7 f' f$ n) d- V                        print"no";
# W. n1 S) s) _# ]" A2 F) G                else
( q9 s6 U$ A% E4 j                        print"cancel";
" _7 s3 K0 s- X1 ]                end;
. l8 f4 f7 l3 k$ S  [/ d1 Y                eventcontroller.stop;
        end;
' q, `) w3 u4 X( {       
3 ?" `1 B) i6 m- Z        for i:=1 to number_of_machine loop
5 k; u1 N: z7 v( i$ I7 G- z        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
; X. B4 I/ j: r7 N) i. r                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
& U5 W* Y, l; ^/ I7 r                buf:=str_to_obj(bufname);
                buf.deleteobject;
, A  R6 h) Z1 I2 U; R; s  q' e( W        end;
9 c- t. q- u6 B. [+ t& O        next;
7 A' V) F' ~6 J8 d# Y3 b( ~       
$ z( G& j; L7 a' A( i        dx:=0;
- {8 o) w9 P$ N; g6 g" u* _, I        dy:=0;
        for i:=1 to number_of_machine loop
0 ?" y1 G, v2 R1 |& T                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
0 R% b7 B& O! o4 O3 c3 f, x                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
: X1 q# h# R; t$ e5 g0 A* w$ G                then
. D; T0 C7 q' C8 H( c2 o                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ ~& ?7 q: i# R" V                        activityspace[1,rows]:=ct;
8 X: Z0 U+ N: Q- ]- R                        mark:=true;
+ M- Y9 T) \! `4 I                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
5 m9 ]# y) M! d                dy:=0;
                        --end;
                end;
+ p, h! E* P& z$ t  ~3 s4 [8 `0 Z6 e0 `                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( G4 T& a% o- _5 K5 G2 N                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
1 \0 w5 ~; t8 w" u8 B  N( i                        dy:=activityspace[2,rows];
                end;
# `$ }+ B4 k, ?; k# o% G$ y                dx:=dx+activityspace[1,rows];
( V7 h4 z0 w2 B% W/ ^                /*if mark=true then
9 M, C' g, c! t9 [0 ^$ [                ct:=activityspace[2,rows];
& p# @2 j# C( i/ M. o0 C+ Z                        activityspace[2,rows]:=activityspace[1,rows];
( S0 G% v1 t( N' S' D) v                        activityspace[1,rows]:=ct;
                        end;*/
        next;
; `8 y% R# Y4 |        y_max:=y_max+dy;
) M6 t# R; z/ m0 S. E" ]        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);
) i2 z* |* |: s8 u8 v        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
) L6 @7 l; {2 o+ ]: V+ f% D                        if j=i then
                                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];
3 u: m" Y( ?6 V! G; w                                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;
* j6 x1 ~: a5 ~$ H       
        lines:=0;
        partstable.delete;
       
$ l- }; `! z! P        for i:=1 to number_of_machine loop
* K6 I0 {  \# g2 U/ q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
! f$ R: s/ m) [3 N                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
% n4 n* T4 t5 Q/ |$ Z                end;
        next;
, Q8 L/ ^& v4 @- \        machinename:=sprint("M",rows);
' K+ @0 x/ m9 [/ _, A$ w7 ?        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;标识符未知
" C3 f$ Z1 M. G) {) Q1 k        machine.proctime:=5;
5 ]6 p* ?- Q9 h& I        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]);
        buf.name:=bufname;
7 M: r4 v+ C- e* H' X6 c        buf.capacity:=5000;
( m/ u" I4 k, d0 m  i        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;
3 p' |5 b; r3 ^current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
7 t) X" W+ [! x+ Q: k4 R! H) e4 N  enext;
2 B0 m$ C$ u* j. j" u5 R! l0 _2 wend;
; f) I0 W, Z0 |+ h& u% T& X) P