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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
# ]. C: @, Y+ Y) edo
        current.eraselayer(1);
. h5 h1 T: @/ h) \  F/ y- k# r7 Z( T       
* t& d% J% W: b2 X) B5 S: W1 o8 `        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
' [; r" k6 j9 H7 B" Y0 @                when 16 then
  c! q7 H! F% G. i1 x                        print"yes";
                when 32 then
8 |2 K/ g' P1 @; J! z1 h                        print"no";
; ^0 V7 U+ V2 w9 ^) X8 r; B% i( i                else
" }4 N$ m9 l0 p) J4 C  S                        print"cancel";
$ J. @( P6 J: T6 Y                end;
; ^* M( q/ u1 v6 z$ H, X5 w                eventcontroller.stop;
        end;
       
8 L( ?. ~* j& ?        for i:=1 to number_of_machine loop
" d: O& y, }. \) R, g0 S: U  k% M1 m9 S        machinename:=sprint("M",i);
        if existsobject(machinename) then
8 E2 F' @7 p8 j                machine:=str_to_obj(machinename);
5 Z' w. e" ]. p& E- d3 c3 N& L                machine.deleteobject;
5 ?" O+ R6 ?# n5 L        end;
( I# d' l. {4 F8 J& V5 Z' ~) O3 |        bufname:=sprint("BF",i);
. w3 @4 F" k1 B( Q1 N        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
- ]: S+ Q/ C6 w2 l# B+ v        end;
8 x; l9 d, ?/ L! W. B; {        next;
       
        dx:=0;
        dy:=0;
% R; ?2 h9 V  u, T& _        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
0 ]) {6 R% i. S  r                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
& m$ g! b! R) A0 w, Q. V                        print activityspace[1,rows],",",activityspace[2,rows];
  h$ o+ S- ^  u( [                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
6 V5 }" ~; L) U, D) \                        y_max:=y_max+dy;
8 k' j6 i) y; N0 H2 _# W                        dx:=0;
( L- V# Q- ~9 _$ }9 J5 a                dy:=0;
                        --end;
  J6 X: f! C+ l6 L2 f* c                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
! o' H; R" ?5 J# H- }                        dy:=activityspace[2,rows];
, }+ N: n- `4 |0 s5 I                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
/ r! W4 ]* S) ]+ [0 l6 J                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
5 n+ J% s5 f. K, E' ~        y_max:=y_max+dy;
2 u# s6 ^+ s+ \8 i+ M8 j& d$ D        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);
& n& U% \0 C- l' r8 B0 j+ B        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);
; V) t) A, W% a       
$ x+ E. i7 ]0 f% l        rows:=0;
        lines:=0;
' I5 s) }8 ^& X& Q; {$ _  t        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        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];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
* s2 [4 V6 F4 f  b                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
  {6 X2 X: C8 I/ T; v0 p  C                next;
7 z6 t  L1 ]9 r. d: N; H( c2 z2 Y        next;
       
) z" a. X  v, \9 Y* _* e9 K" L        lines:=0;
2 W! z# U5 [; ~) K# c& x( W        partstable.delete;
; v$ r3 I; p1 u& g9 v+ D2 z       
        for i:=1 to number_of_machine loop
                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
, m# Q0 K  D, ^4 S9 x6 R7 G# h                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
. f2 B# [* t' K& d                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
6 B) x6 r' Q3 M                end;
, _  `6 B8 L5 F( F0 N. Y4 u* A        next;
! Q$ F% S; L& b+ N5 H; G7 F        machinename:=sprint("M",rows);
' v& n  r8 w# E* x% T# |        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;
% P: Y7 f/ _+ c        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
( [( I. ], f, I2 s! ^3 ]       
. t" a+ W8 y4 A6 |) A* H* [        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;
        buf.capacity:=5000;
% h( h( ^4 h& \1 ?8 f        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
; y) A' n% M' b& G. I: g       
        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;
2 o3 P+ T! N3 uend;