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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
: \7 t) ^, d4 T  [+ O    machine,buf:object;
2 n# m/ S8 |, h7 }do
        current.eraselayer(1);
       
; F; q* u) Z8 e( a2 }& @        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
8 u% H# j; h1 }- @0 X4 Q3 u                when 16 then
                        print"yes";
% y. H& w% H% J4 s* C                when 32 then
                        print"no";
                else
  h$ g" f1 z; p1 f9 \                        print"cancel";
                end;
3 U2 Y. s, |3 ]) e                eventcontroller.stop;
. T7 [. U" d0 K7 A2 ?        end;
       
        for i:=1 to number_of_machine loop
, b" `' o. U5 W5 i9 v9 X' h, x  m# d        machinename:=sprint("M",i);
) ~/ [9 R3 O1 N        if existsobject(machinename) then
7 z5 [: A: K2 ?+ x, W                machine:=str_to_obj(machinename);
$ H8 v- Z# D/ H- |& d/ V+ n5 Z$ e2 B                machine.deleteobject;
' k  |1 R/ n- S4 K" [* m        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
: ], [, \, k7 M) |. b6 ~                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
  f0 o+ \  X0 s0 A9 G       
+ b7 s  {  d/ j4 `  e4 o# h, U. `        dx:=0;
  J. F5 r5 O' O        dy:=0;
        for i:=1 to number_of_machine loop
9 _) h; ~3 S& u' I. t8 G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 G+ M! U# Q, a1 X+ P" V                then
0 F, U+ x, ~& x9 v                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 z$ y$ ]) U# ^- n" b& b                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
7 [2 J8 Z/ T, e, a$ A, Z& @7 h' }                        activityspace[2,rows]:=activityspace[1,rows];
( a3 J3 ~( v5 X; S/ \" D                        activityspace[1,rows]:=ct;
! p( _- I( t" ]4 `0 L6 R7 Y/ i                        mark:=true;
                        else*/
- T2 o; l& K: o5 g, e                        y_max:=y_max+dy;
6 ]+ y! v1 Z# D8 U1 y4 L4 A3 H: b                        dx:=0;
4 f0 M2 k! b2 N# D. U6 A  \/ h, Q                dy:=0;
3 S, k# t" j3 ~                        --end;
7 Y2 D- W9 Q  M$ Q! n2 t( a: |                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! U8 b' A. U. }) C                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
$ @" w% |' C. s            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
; O3 K% G5 X5 R9 U: B                dx:=dx+activityspace[1,rows];
                /*if mark=true then
3 \$ S$ b2 F- o                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
6 R/ V% U' l  d. P) K                        activityspace[1,rows]:=ct;
2 u- z5 w4 t& P# R1 W9 `                        end;*/
, N" O( B9 Z# x" I        next;
2 g0 j% k2 I, l9 @0 X3 l. A        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);
8 O2 X! ^/ C1 o: q2 Y# n; a        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);
$ K* [5 s7 T/ ?) J( e1 U       
        rows:=0;
  L) c5 {2 U5 ?, d        lines:=0;
/ x3 a) r, c6 X0 ]        for i:=1 to number_of_machine loop
; y4 e% C" C! r                for j:=1 to number_of_machine loop
; @# A# ]" u( {6 @                        if j=i then
5 r3 J6 U3 e& w* F                                d_from_to_chart[j,i]:=0;
                        else
* j/ F  P$ L* N; M4 }                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
9 Y- I# D8 }9 T& k) V, I, a5 B3 A                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
: F) P# G- F1 q; v; k/ ]- k, ^3 Q2 }        next;
) x# @$ I$ z. F; r3 m       
        lines:=0;
8 i' N$ O1 t/ v5 y! d* j        partstable.delete;
- n# r* [" Z9 N: }5 V       
. ^9 g7 |) N9 K: e! o        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  ]* A* O  h3 l5 a/ ]; ?                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
3 n1 N2 H5 C' T) k# ?9 O                        if w_from_to_chart[j,rows]>0 then
) ^2 N$ d! Q, |2 t, T2 b6 ]7 B                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
" o" |1 A: i# X0 D- E* b                        partstable[2,lines]:=w_from_to_chart[j,rows];
; F0 T; z: \* j4 e3 T/ P7 X; u# M                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
3 m7 \# @& w2 g        next;
, {& K! l- W9 b# r" y0 n        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;标识符未知
; _1 A) j! C) g        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
  X* @: T4 U2 N% I0 k: [/ Q       
        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]);
4 e, O' w! }7 d/ ]- W% a. a- o2 C        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
: f# R3 G6 P7 B1 S/ X- f# Y        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) N% g( X3 ^- F9 ?2 Z% b7 `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;
" e! Y8 w: _; \5 `9 }3 A  Z4 m8 bend;
% L/ t5 K9 o- b4 x! F3 |