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

zooey

is
        mark:boolean;
: f. O- t. y4 M! {3 S. g        dx,dy,ct:real;
3 b$ k/ ]7 x9 m( H" L+ N  |: d    i,j,rows,lines:integer;
    machinename,bufname:string;
1 A) v3 ~7 V# c, \    machine,buf:object;
do
4 D- ]  C; r7 C! h        current.eraselayer(1);
' `" T. S3 h0 b       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
7 _! v$ j. b0 p& r9 f7 T  B                when 16 then
                        print"yes";
' F: q# u# J3 F' {" V1 C& S                when 32 then
                        print"no";
                else
                        print"cancel";
) W6 @4 Z$ D; i+ p6 b' a                end;
                eventcontroller.stop;
& R; e3 {" H9 F- L        end;
3 p8 u% v3 s, a5 L       
        for i:=1 to number_of_machine loop
8 [/ L& \! x& m        machinename:=sprint("M",i);
        if existsobject(machinename) then
+ M: \1 Q2 |7 X                machine:=str_to_obj(machinename);
- ~; u! t7 N! O: ?% Y$ O! d0 h                machine.deleteobject;
) B/ |% @: E" H+ Q        end;
        bufname:=sprint("BF",i);
' ]% W$ p: @. a- `        if existsobject(bufname) then
" K4 L" r6 I  V' W1 [                buf:=str_to_obj(bufname);
                buf.deleteobject;
9 ~& F( L3 ^6 g; [; g6 q) i        end;
& M0 C, ]$ C, @  N& N( P: P; d5 L4 Z$ s        next;
       
3 Y+ w& y! y  x) r% G+ x. N. U        dx:=0;
        dy:=0;
* z% W  j5 u" l# k  s- U) v        for i:=1 to number_of_machine loop
. |7 A5 y% P; J                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ ]; ]3 v. r( P9 b; h9 e                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
7 G  t* D! T$ U2 ^: [                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
! y8 {1 d1 n1 t$ ]; P& S6 R                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
9 Q# X# v& f/ b: A& @& Q( k. d                        mark:=true;
6 m5 N( z# ~% r( y) t8 y                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
) A3 F" q% ^7 m# j2 L                dy:=0;
                        --end;
                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;
/ f  b+ ]: J2 Q) ~" e* S            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
9 ]0 d- v: ?( O$ Z                end;
7 A* v6 z0 Q3 |% Y5 }                dx:=dx+activityspace[1,rows];
& u8 L( A/ {7 h; H/ k! b( E                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 p0 {+ K% B& {2 q                        activityspace[1,rows]:=ct;
9 V2 L$ D: s  b                        end;*/
9 `, l! h  s5 Z# D+ {        next;
5 @. \3 Q1 H8 @# Y        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);
9 R+ j$ L5 p5 j* _( d       
, J- Q: a2 U9 E& A. d        rows:=0;
        lines:=0;
% Z, h/ z5 g5 Z6 _5 c; T' R( y, v: ^        for i:=1 to number_of_machine loop
3 M0 k7 z' k" L+ k                for j:=1 to number_of_machine loop
6 Z8 p0 C. C' y                        if j=i then
+ T' }0 s% X/ T                                d_from_to_chart[j,i]:=0;
                        else
- T  ~  I$ M- k- H! Q  e: l+ j9 b                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
( }' C8 o# l$ V" V+ X                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
+ p- z  V7 W6 s                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
* J2 T+ l+ f. ^6 |, e! n        next;
       
3 b9 s* {) [: u' d( ^8 }4 j4 r9 b        lines:=0;
+ G/ R# m+ t& T' f. k1 s( L7 X) t        partstable.delete;
* @/ P# q* ~- {! M; Y, l       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. A, L( [7 R2 |% _# r' c7 K                machinesequence[2,i]:=rows;
; L' r1 _1 q0 C7 Y# g                for j:=1 to number_of_machine loop
6 D8 x. F8 l7 U  I: `                        if w_from_to_chart[j,rows]>0 then
) F; K$ ]* r; v% v9 m" [% f0 K                        lines:=lines+1;
/ r3 |0 T2 R$ q8 N' i                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
5 w4 R8 W& b# ]  t                        partstable[3,lines]:=sprint("parts");
! N3 R1 B( X; g" n! ~                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
: Y. c- k' Y, t' E        next;
        machinename:=sprint("M",rows);
" m, `) v/ H. s        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;标识符未知
* w) @8 M; P& _/ J" v        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
* d7 t; l6 b0 f2 M) I) z        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]);
        buf.name:=bufname;
: ]8 ?3 f$ E$ @  l# V" m        buf.capacity:=5000;
        buf.proctime:=0;
9 f) n" n, b# M( t0 D3 L        .materialflow.connector.connect(buf,machine);
       
        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);
7 f0 x! A$ [1 I# Inext;
. t' Y+ V) o( r. k7 ~4 f. Send;