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

zooey

is
        mark:boolean;
2 m! c; ?0 r. F$ m9 @  \        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
, n/ n$ H" Z7 Q0 ~- J/ @, o0 vdo
/ T; l3 ^4 b4 T& G  }2 H1 B        current.eraselayer(1);
, i2 {  Y8 ~7 _% y       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: c+ o0 n7 I! E/ y                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
; ~" q9 X7 M1 ^                when 32 then
" ?% u3 v8 C  V/ t5 n4 [                        print"no";
6 o! q) e% ^+ R& w5 ~                else
; [( u5 s, g: w  j                        print"cancel";
; W0 U- a. h$ f% |" \2 q2 J                end;
/ C+ u: I' L1 x3 }4 p& i                eventcontroller.stop;
        end;
+ h/ k6 M5 [: H8 O$ j       
- Q; f% R( _" a8 K. s% l4 \        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
& n: o3 V- n  W1 _+ X                machine:=str_to_obj(machinename);
; k1 W* j9 p/ S. a" E                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
0 p! j6 M  H6 t( H        if existsobject(bufname) then
' t9 H- f* Z- N$ X% g1 t1 _                buf:=str_to_obj(bufname);
' Q8 N; y) p8 U% M                buf.deleteobject;
        end;
. y5 x- `/ P6 h2 H& L        next;
# Y. c& Y4 I, y- c0 R3 T; O+ l       
        dx:=0;
. l' j) m# @+ R        dy:=0;
        for i:=1 to number_of_machine loop
  B* g6 t' {8 S# g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 ^1 S# [& W, j  |  H' S0 F                --mark:=false;
6 s8 t0 i# I2 Y; F2 f* V                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
% Z8 Q7 K- {& `6 g' Q5 u4 N) i                then
8 X$ K, |+ B: ^  ^1 ^                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
! O4 z2 d9 S5 u# I2 G; z                        print activityspace[1,rows],",",activityspace[2,rows];
$ K( o' y+ @( T, B; w2 W                        ct:=activityspace[2,rows];
" n) R% I% p2 R                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- c. P4 e+ t) `0 _% r! r5 ?                        mark:=true;
2 I, C! Z$ ?+ i$ n/ {: i/ u" i$ L7 L                        else*/
                        y_max:=y_max+dy;
' e; N" p6 V0 w) W+ U  ^) A" o$ o1 n                        dx:=0;
  G6 I! ~. B% f- `% f5 k5 f+ X                dy:=0;
: K5 ?$ D" ?; h9 e  b6 I                        --end;
4 u/ l% p2 K! z6 u1 k( t% w/ y                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
9 X- |  H. |% ]$ ~# Z                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
. ^5 _5 v- o: E) v            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
" B$ }1 [" Y9 J4 [. M                /*if mark=true then
2 |7 {) Y' u8 C- L                ct:=activityspace[2,rows];
% N3 Y: x8 B, B$ {# u+ h                        activityspace[2,rows]:=activityspace[1,rows];
8 c# A" L; q. }                        activityspace[1,rows]:=ct;
                        end;*/
6 n, \* g. o2 \7 @        next;
        y_max:=y_max+dy;
& B0 _4 f6 ]; m# m  D4 t        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);
       
; R: a% U+ a+ W        rows:=0;
- h! K) {6 R' d+ |6 i2 e/ f; Q        lines:=0;
" P7 A/ V, B' Y% Y6 A        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
/ |8 B7 @3 d' S) t: X% Y6 l6 N* e                                d_from_to_chart[j,i]:=0;
                        else
8 }; M7 i5 {9 @6 C) b& g3 |                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 L2 B3 u+ G7 T: K4 `- l2 S8 F                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
2 O, P: w( J- }0 q8 Z( h6 p                                d_from_to_chart[j,i]:=abs(dx-dy);
: g1 w& j0 }1 q' P* O                        end;
( x0 }3 ?/ L: c) ?9 U! ~5 t                next;
        next;
       
        lines:=0;
        partstable.delete;
5 r, D7 t) W$ k2 Z" n" ?" |, ~; Q       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
6 k9 A/ r4 v$ m/ \4 G2 ?$ {6 p                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
! |* P9 w  p, u# I                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
* a7 ?; M7 m* f* O% f, d5 P# ^                        partstable[5,lines]:=rows;
/ E# [# c% Q+ E% X# T1 @0 U! B  \                        partstable[6,lines]:=j;
# g5 _  W5 k' R2 n, q                end;
. f  B. G# M: M4 C, G, J        next;
( j, |  O5 K. K# b7 G. |        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;
# R/ k2 m' A  o) R! c: }* m        machine.label:=activityspace[0,rows];
) K& k9 F2 A& _& B/ u1 P. q# w        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]);
* G8 C% ^- U; _' l3 h, M% \        buf.name:=bufname;
        buf.capacity:=5000;
* j8 m" `3 }0 W4 d$ L3 r. n3 b        buf.proctime:=0;
3 V. C4 e8 M1 M1 W* t, z! t        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* j* b; Z8 y1 g! C( I/ i; d" Q, jdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
- @2 r0 B, _4 X6 ]. }6 Ucurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
$ ?* a1 ~! ?# s% y  [0 ]end;
5 [; r: ?) k; o+ n