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

zooey

is
- R+ N4 ?: u9 B9 d# f        mark:boolean;
) l" k' q2 i3 M! O% s+ f2 G        dx,dy,ct:real;
    i,j,rows,lines:integer;
2 H* V; ]7 V; |: ?+ V    machinename,bufname:string;
    machine,buf:object;
5 C4 O6 H6 J% ^8 Q: D) pdo
        current.eraselayer(1);
5 c+ E3 ?- X7 W6 h0 G) N       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
$ v3 p' B3 l1 s( B9 b                        print"yes";
7 z  m/ l6 M) e' w' u! h                when 32 then
; {+ b& N( z1 W                        print"no";
                else
                        print"cancel";
/ o/ g3 A3 l, `5 B9 _1 _7 W                end;
                eventcontroller.stop;
        end;
2 {9 g7 s0 P* K% {( _2 u. `% q( m7 _       
' S, U% J& J$ i# I        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
4 b: z$ Z7 q8 b: ^6 q                machine:=str_to_obj(machinename);
                machine.deleteobject;
" R$ K1 l$ K4 N6 F  B        end;
' Y. M! V" ^- _        bufname:=sprint("BF",i);
        if existsobject(bufname) then
  O/ f( s- ]8 S' a2 t" \                buf:=str_to_obj(bufname);
                buf.deleteobject;
) J5 b2 c* |% Y/ Z1 U        end;
        next;
+ w8 s& h$ J( D8 b. q2 C       
        dx:=0;
- [$ i& ~% l9 S! ]        dy:=0;
) O$ ~1 Z* e* t9 e' C; ~' b        for i:=1 to number_of_machine loop
+ Q2 q; U% S9 v$ t0 n1 y2 v8 Z& H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 y  e$ b' a. `4 _# P                then
! P( ^9 e, ]$ h) d3 P/ _& _. ~                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: Y3 v! ?, y" H- z/ {0 i! L" s: }9 g                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
$ p+ T5 f1 `3 `# _2 t# N7 U                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
% x( A! c& W2 P4 ~. i( _                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
. e0 c; h6 C( g' k8 o1 Q                        dx:=0;
/ v1 V$ V- R! E; J- I1 X                dy:=0;
                        --end;
                end;
9 G  k5 @' s+ Q                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
+ F5 Z, Q0 G6 ]$ C5 u7 }1 C                        dy:=activityspace[2,rows];
3 K  Y7 D! n2 c: D                end;
                dx:=dx+activityspace[1,rows];
9 X( E8 V3 }! i                /*if mark=true then
0 u, G* p% B; J5 k' U7 p; e* ]                ct:=activityspace[2,rows];
* D3 L+ E- }0 r1 U2 V2 s                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 {3 K0 |+ C# [1 n$ O, C                        end;*/
        next;
# ~* ~  `2 B9 d8 U  f! t" K: {) 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);
7 Q5 ?8 b: ^9 P$ ]! ~/ 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);
! k5 c; w. ~. U  _# ~& F       
) ~; c$ o# c+ ?' n+ V* I2 L6 W  [        rows:=0;
* A6 S$ A# a1 F* |0 k) N, k) c        lines:=0;
        for i:=1 to number_of_machine loop
0 ]; j0 n( ^" Z  U" s; G$ Q7 _0 i" Q; C                for j:=1 to number_of_machine loop
- n. y3 B# G- f                        if j=i then
3 E" k' B6 C& P: j8 \( y                                d_from_to_chart[j,i]:=0;
2 R+ b' m" P, P) \                        else
! W+ r" N; _' s6 B% L# i                                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];
: C" c/ C- c, U8 E( W+ T" ?- y5 f                                d_from_to_chart[j,i]:=abs(dx-dy);
6 d& l. Z5 P' A8 Z8 n  s                        end;
& l8 S. f7 H" m9 ?                next;
        next;
4 x# F  a+ V: ?- _( l6 Y, t       
1 ~7 S$ v) L; i" y( V        lines:=0;
) i, [9 G: H- ~7 c  `        partstable.delete;
       
        for i:=1 to number_of_machine loop
' l2 |0 P. i& E1 P4 O5 g# w; F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
' i5 V" O/ i3 j- w4 u                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
' K' |. B: c' x" i7 s) j) F7 h( [                        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;
& E* W- S4 Y  _' f3 u6 i7 N, h                end;
        next;
        machinename:=sprint("M",rows);
3 {' N4 w$ K- q) e8 B/ \/ 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]);
        machine.name:=machinename;标识符未知
/ x: A0 N! F, o+ S- C        machine.proctime:=5;
" r. _7 }# t5 h; P2 R( G        machine.label:=activityspace[0,rows];
+ m$ P: J* g% o0 j: W( W' r+ M3 h( z        machine.exitctrl:=ref(leave);
0 b3 G4 M; F! S0 e8 ~% R       
( N* v3 J% h9 v- Z: E( l8 `# t! |        bufname:=sprint("BF",rows);
( D0 H/ H2 w+ o" r& `        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]);
/ |2 {9 R! L# y. S        buf.name:=bufname;
        buf.capacity:=5000;
$ c1 M. t5 a2 u8 I/ N9 t3 K        buf.proctime:=0;
' H/ ~7 R. K6 F( i4 K0 i        .materialflow.connector.connect(buf,machine);
/ H2 _( \) z$ u  F8 _7 N% ]/ ~9 t/ 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);
next;
: t. u- n8 R8 Hend;
$ z9 ?, ~& w* I