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

zooey

is
        mark:boolean;
: p7 [2 U7 e8 J) X: b        dx,dy,ct:real;
, w* E# d2 i$ v% B$ ]    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
2 l3 ^! V' D2 M( `        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 }. p! Y' L: L, X6 K2 z* x                inspect messagebox("设施数目不对！请核查...,",50,13)
# L$ I. L7 t) i7 H2 e6 X                when 16 then
. X$ F  D& a' h, h; R4 F/ e                        print"yes";
3 K2 q% I; Q0 V) y+ g( ~                when 32 then
                        print"no";
                else
' Z2 \5 L+ m6 s9 Z                        print"cancel";
7 X: i+ n/ a1 ?                end;
                eventcontroller.stop;
" y7 G+ h5 I: l/ y8 p  m$ t. R        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
  ]3 j4 @. y0 `8 U8 M0 @        if existsobject(bufname) then
6 B. C: D% H$ X3 A: u3 ]* p& Z4 n; @                buf:=str_to_obj(bufname);
1 e6 ]+ L# o( B. H: r& C& o& T- T                buf.deleteobject;
        end;
        next;
       
        dx:=0;
4 C- Y1 ?" J$ W* i' `( u+ J        dy:=0;
) E$ a5 l, F# A( O9 i1 u        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
( r! {) ]8 t' Z# J! z( H                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
  Z! @+ h) ^/ H6 _) K6 B# F$ r                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
- w. ?9 T% r, y' A3 W                        print activityspace[1,rows],",",activityspace[2,rows];
' D1 x5 p- y  H- K3 j                        ct:=activityspace[2,rows];
" J* E" u5 R  O' B+ l  |3 \                        activityspace[2,rows]:=activityspace[1,rows];
% U/ i+ A* U8 {/ x                        activityspace[1,rows]:=ct;
$ `, \, \7 _; ]7 E, b+ z* E                        mark:=true;
' h5 l9 i( C8 T! w; M                        else*/
+ V9 o; c' i& f. {+ E1 {. i                        y_max:=y_max+dy;
- a5 q/ ]% _3 [9 j                        dx:=0;
' d! ~5 @: x2 N3 s( {5 `- o  f                dy:=0;
0 c2 J+ e0 m# C! N4 u' |                        --end;
, S# m" q6 b- \5 |+ f* f2 x7 w                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
7 L2 c" n! w6 b: d: H" T                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
' C1 f3 b6 _1 B( K2 y8 x1 S                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ f' u, u8 S' e4 ~( x. [( y7 |                        activityspace[1,rows]:=ct;
* C. H" A1 o) h0 u+ [                        end;*/
$ k6 f# y+ v; ~( i        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);
2 z- i$ _2 \- j) F$ ]& _        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);
( L# a6 F* U  R5 h       
        rows:=0;
8 W# \7 ^- g% s$ C: s        lines:=0;
& g: g8 L7 W- j. i$ B        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
) `/ ^; N& m" h+ j                        if j=i then
                                d_from_to_chart[j,i]:=0;
2 m6 m6 a. \6 M) {0 E2 j4 K# `7 y                        else
6 B/ E/ d- v( X# V5 ~0 t                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
) y) A1 U8 C  a2 ]) O                                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);
' v3 y7 Z/ T4 a+ y  d5 B1 _" `                        end;
                next;
6 b9 c8 ]1 ]* M; f/ a        next;
       
        lines:=0;
        partstable.delete;
9 W4 [  d& Z8 N' T3 _; L# V       
! r' b8 K" ?! C4 k7 R% A        for i:=1 to number_of_machine loop
+ m' _- _) j1 R% s# f7 M                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
7 S" P6 k; h0 H7 Q# g6 p                        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;
                end;
( J8 y+ K* Y( a( d+ s8 f0 m        next;
        machinename:=sprint("M",rows);
2 Z% i0 z. e9 `. F        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]);
5 j% |9 }: K4 w% x4 G        machine.name:=machinename;标识符未知
        machine.proctime:=5;
- f9 |6 T' q. @# v2 B; e/ O        machine.label:=activityspace[0,rows];
, b) a1 a+ }, ]3 i# @        machine.exitctrl:=ref(leave);
/ w  W& b7 }3 N, q       
: H6 K; d7 G9 Q6 {$ |! P- D# I( j        bufname:=sprint("BF",rows);
2 ~2 \' r% b( A2 ~7 n        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]);
7 {' |% O3 u8 ~        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
: V- M1 x) }) e( ?# C) I* E        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 o8 e4 d4 K; B9 R( ?9 c: ~$ U  Wdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
, r2 K& C9 [1 f7 O  Q  j4 ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
2 ?* w" [, ], _9 Q1 anext;
0 A+ H; G& s, G  q5 y. a6 j' Jend;
" ^4 \$ a0 b3 x# N: g$ @; E2 P7 a' N