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

zooey

is
        mark:boolean;
- A5 x: F0 K! p8 r  V/ Z$ q. v        dx,dy,ct:real;
$ b2 R- t: Z: D7 Z- [    i,j,rows,lines:integer;
, s1 y1 l8 L) i    machinename,bufname:string;
    machine,buf:object;
% \  p$ x! Z/ s# n+ z) M" N! k: jdo
' r8 ?: d9 S4 t% k/ R' R        current.eraselayer(1);
% g/ B$ ^7 d+ P       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
8 V& ~& e3 E4 P+ t                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
9 Z2 E+ X0 H/ D, |) v        for i:=1 to number_of_machine loop
+ d: {6 F# [5 i5 {        machinename:=sprint("M",i);
        if existsobject(machinename) then
  [8 e0 V2 k% U                machine:=str_to_obj(machinename);
9 c6 K/ q+ B/ v                machine.deleteobject;
        end;
: J3 B# v$ D+ }# }% I        bufname:=sprint("BF",i);
# d- n1 L+ W! p' O2 _+ e! {        if existsobject(bufname) then
0 {: a9 M) a$ }1 i  G3 M                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
9 S: F9 N( e5 `8 K1 a& h        next;
! S/ E% c) }0 e8 e" q0 T       
( B5 r9 I" x5 A9 @        dx:=0;
" W" O. }; M. g: }' o# S        dy:=0;
        for i:=1 to number_of_machine loop
* v* s2 H# P8 b6 ^0 R7 {$ r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ W# f6 R) \1 m% v                --mark:=false;
$ c/ {: h' E; B* Y                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. C6 V! k  l1 C8 A8 T3 e                then
7 Y3 u# Y) O0 K& O5 Z8 A! y                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
0 s9 q- m+ I. S0 A; S+ @. `* s& ^                        print activityspace[1,rows],",",activityspace[2,rows];
& n) c: X+ S+ k3 ~- `0 s                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 s- X; _$ t2 _7 b: w* U* U                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
" k# t. {% i0 P- @( u$ e                dy:=0;
8 R8 e& E0 O! U; s5 i                        --end;
; P4 J! }% z- p8 D8 `& s                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( z2 l- s8 ]7 z: [* E) ?+ E% E                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
# w: J8 |5 R5 ]; Z6 E            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
- Y3 w9 O$ L6 |$ N, G                end;
                dx:=dx+activityspace[1,rows];
7 j, i+ H) E5 m( ~, M                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
; s! M( U! e$ k                        end;*/
: f6 E0 J7 m& f        next;
; a4 O; Y. @/ Q2 x        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);
) D2 d6 v* |- q& F; N3 b4 [, g        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);
       
/ {) [! ?: t9 Q$ B2 i        rows:=0;
* }- a- s0 c' u        lines:=0;
        for i:=1 to number_of_machine loop
  u8 w6 E' z' Q1 P                for j:=1 to number_of_machine loop
                        if j=i then
9 {+ \% N, s1 s3 w                                d_from_to_chart[j,i]:=0;
                        else
5 L5 Q' G, a8 O" {  r+ i; m                                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_from_to_chart[j,i]:=abs(dx-dy);
8 n" s' \( @, w# f                        end;
                next;
        next;
: z# f. \) V. `       
' g; B  J/ d' b5 \        lines:=0;
' ]+ D2 e) J* b, V2 o( v        partstable.delete;
  ^! c) G* I# x) V5 C: G) B1 ]       
        for i:=1 to number_of_machine loop
) h; z* @  i0 L+ U- W                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 L% c0 `7 R  `$ Q* t. O4 }8 d                machinesequence[2,i]:=rows;
, ]7 H# A; a* ?                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
/ f9 V0 c' ^8 C: l% B                        partstable[3,lines]:=sprint("parts");
0 q3 s0 X: o$ s/ P                        partstable[5,lines]:=rows;
) P+ `" |: B, T                        partstable[6,lines]:=j;
                end;
# K* K1 r2 u0 e1 W5 `        next;
        machinename:=sprint("M",rows);
( n) _* ^: k  s% Q9 H        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]);
* f! d0 m2 x# V" C1 C        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
  C4 S* W. Z% b, |% F% i  P        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
4 [- M. B" X) z        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 B: p- N4 B$ M' }" T+ _" z        buf.name:=bufname;
" R. d8 L6 A6 Q- Z, ]        buf.capacity:=5000;
        buf.proctime:=0;
( M8 h; ^3 s& ~        .materialflow.connector.connect(buf,machine);
" g% m' x' Q: O4 S  M       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
% P$ e) _0 j' u8 @3 d  r! @4 {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;
end;
( b8 W  F; k! l7 V( i6 V2 m7 ]