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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
. ~9 a3 W2 {# f6 p6 O    i,j,rows,lines:integer;
    machinename,bufname:string;
6 u" o) \+ o: H/ @$ G    machine,buf:object;
4 w! q1 J  P& M& d' edo
: I& T* P' d" }$ {9 F        current.eraselayer(1);
2 e- ?8 h1 e9 t6 z/ t4 H. F       
        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
: t( l$ ~$ s: i! a3 H                        print"yes";
                when 32 then
! a7 W) Z  C/ b# f                        print"no";
5 O1 R+ D) c' m' M& p# D                else
5 b! q# m# j& B( {; [                        print"cancel";
6 v/ N* J: L3 F7 @8 [/ N                end;
: B& n7 D$ D( [1 F                eventcontroller.stop;
        end;
       
/ c" E# I5 `/ S0 J        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
. N4 P& i2 |5 }8 L$ x        if existsobject(machinename) then
% Y& f5 \. L+ D2 V$ D$ |                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
0 ]# x8 [$ N: O9 L0 c                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
/ K$ b/ b( X. z# `8 o: k& z        for i:=1 to number_of_machine loop
4 j4 Z' Q- j. k9 d2 S, h                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
# X' x& Y/ y( `; W                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' f' G% X' u3 A. V                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  e8 c) n# s9 I. P& I. f                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
7 c0 N1 P0 Q; }3 D8 Y) H: T5 N  i) A                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
6 E9 S$ K- C) F                        activityspace[1,rows]:=ct;
2 `3 E% ^9 p( }  t/ v# I                        mark:=true;
) E6 J1 I$ |- D                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
9 p; S, f% V" ^# w' B                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; r* T9 ^) k8 O* A                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
4 C4 {; M% g( P, S2 F4 u            if activityspace[2,rows]>dy then
1 ]8 x3 Z0 ?5 G/ y                        dy:=activityspace[2,rows];
( Y9 ^0 C2 J! B9 E                end;
                dx:=dx+activityspace[1,rows];
) {: x2 J8 p2 W                /*if mark=true then
                ct:=activityspace[2,rows];
/ s% Q* E# ?6 v1 U. _" n                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
* j6 C8 Z3 R0 _                        end;*/
        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);
        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;
+ q- H3 R8 [- y% U# k1 G        lines:=0;
0 b5 h- Y7 S! O: I$ o: q; ^        for i:=1 to number_of_machine loop
7 z$ F6 M* g* `, ^( a                for j:=1 to number_of_machine loop
9 ~8 x: c* o0 ?% L; `' j% c* V                        if j=i then
9 A7 E( ~6 `+ E+ m9 o                                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];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
! D  R8 t+ H' n5 c8 X3 S% X9 y- O                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
, F! `) ?9 x0 J! \' M, y( X$ K       
) r, S) O0 C3 L( A3 p3 U5 u) `3 J        lines:=0;
        partstable.delete;
: ^9 f: c% o4 t; u+ E: L" u       
8 g  o( I9 a- {+ `1 ^( u& F" {        for i:=1 to number_of_machine loop
7 y- M2 g, O6 b6 g. p6 q5 k                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& _+ g7 |- X# L; F1 |6 w                machinesequence[2,i]:=rows;
# y; M+ O5 x7 l" H. f- {5 b                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
( ?! U8 d9 K& k                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
5 q: [+ V7 `# C# w# Q                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
6 D% ?5 \5 ]" Z' i* q0 Y                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
. j# Z# \" W/ @5 a" Z9 Y/ c& R                end;
        next;
        machinename:=sprint("M",rows);
9 n9 i: s5 `" ?! m! [1 h$ E9 Q+ H" c        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;
4 j; e. y  [% V: i6 u5 B        machine.label:=activityspace[0,rows];
4 w) c/ i% x. ]+ O4 r7 h" T9 ]        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]);
7 a# J. Z( W, j# w: |8 c& l        buf.name:=bufname;
        buf.capacity:=5000;
* z' u% X- c, ?8 P  t, w( z        buf.proctime:=0;
0 \- h! q* n) f( a  S4 H! o        .materialflow.connector.connect(buf,machine);
7 D; f6 t* ?$ z7 L  d/ X6 w       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 F) A+ d! n, H1 {  r7 Q/ idy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
7 y6 I* `2 P4 l; D. D# t2 B4 gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;