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

zooey

is
        mark:boolean;
1 e& C' }! k; v. x* n; h# ]        dx,dy,ct:real;
. t& J7 I$ e2 @    i,j,rows,lines:integer;
; S% s+ R( s  Y+ Q8 O    machinename,bufname:string;
+ ^+ |6 t# `& k: s# p7 U. M    machine,buf:object;
do
        current.eraselayer(1);
       
* l# i1 n6 j, ~% w+ t, A        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
3 ]+ J7 `* k1 |                when 16 then
$ f3 Z; t8 e- s: \; o5 X                        print"yes";
/ v# `$ I! M8 d  }6 h: s. R1 r4 d                when 32 then
                        print"no";
: N: J9 W% [: f$ e                else
1 Y1 R8 G! [# Q  G$ h" X; E                        print"cancel";
                end;
: O) I  N9 L' r* n" B+ S" |- Q: ^                eventcontroller.stop;
5 N) g2 F' W+ Y# e) @        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
! u: m7 s* I4 n8 G9 e4 j" S2 F, }        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
0 ^' \5 Q5 A) Z# ^" R        bufname:=sprint("BF",i);
( X/ L) s4 P/ Z( u! i        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
" {4 i* F8 \3 q        end;
        next;
       
        dx:=0;
5 ~9 [( e5 v9 s) E        dy:=0;
8 f3 H9 r2 P6 X% s1 U( p4 e        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 a' u% {5 S8 U* L! q% T8 v                --mark:=false;
5 B2 P* B) V7 y: v, B                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
: p$ a! H( B2 Z% s* X# R6 k. ~                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
" x, L" t! f: h$ \/ }. ~: j                        print activityspace[1,rows],",",activityspace[2,rows];
4 l5 h. I& k0 {+ N$ m                        ct:=activityspace[2,rows];
& t4 l" h" F# v7 S                        activityspace[2,rows]:=activityspace[1,rows];
* |2 N# @* F2 _/ A                        activityspace[1,rows]:=ct;
                        mark:=true;
9 ]' e/ }" X7 @# E) A                        else*/
                        y_max:=y_max+dy;
( q6 I- {, W% M6 Q3 p. c$ i                        dx:=0;
                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;
4 e1 \3 L+ R+ h- }2 ~% ]            if activityspace[2,rows]>dy then
0 W- V% Q3 z' ^) u2 h9 B0 ^                        dy:=activityspace[2,rows];
                end;
! j5 A* V# |, V( h                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
0 I/ A6 S. y+ P                        activityspace[2,rows]:=activityspace[1,rows];
. _" Y4 E' {3 T/ E5 d% z                        activityspace[1,rows]:=ct;
  Q7 {1 {5 {9 k7 V2 \/ X% Y$ s                        end;*/
( a# R0 R) N  J4 Y( w9 }' c        next;
! a) R) b- |' i+ F9 O- _2 [: h        y_max:=y_max+dy;
; s- Z# _4 K% p$ `        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);
: ^+ e/ z" A# Y7 p$ j# i7 @2 _        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# q/ _# G4 l9 \       
% t$ h7 ?5 K8 _  l" U, i: D        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
4 n! T" U7 S) Z+ s# @$ z                for j:=1 to number_of_machine loop
% h7 t  }8 i/ n2 [6 F! b                        if j=i then
                                d_from_to_chart[j,i]:=0;
9 {" ]# X% P  `' N( [7 q" a4 U                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
; E2 I  V) l- b  w; p6 m0 Q6 ^9 ?                                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);
# U$ O! O& F; V                        end;
                next;
- e8 I7 p" s# Z: l        next;
       
        lines:=0;
        partstable.delete;
7 X4 b% Z' n7 G, G4 \( |       
        for i:=1 to number_of_machine loop
6 R: ]* K( b6 I. N5 Q  q5 p. y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
( j! C& @; r" E4 P* h# d                        if w_from_to_chart[j,rows]>0 then
) c! J# N  ?2 @! d9 O" x3 n                        lines:=lines+1;
" n* Y6 l. \2 \( C" T  X, O5 Y                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
( Q0 q8 Z) Y9 O' E" t! A% {                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
3 H* Q& u+ `8 S" L; X                        partstable[6,lines]:=j;
                end;
; p  r3 B5 Y+ w+ d  a        next;
        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;标识符未知
( Y' |/ k+ f) {5 h        machine.proctime:=5;
( R8 K3 a- u7 h        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
2 T0 x; ~. X7 A; S+ z       
        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;
' o0 s. g# `# m: n! m) n: ~        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
1 t. k" N7 U8 |5 V8 d7 c, a        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
  O. T) H; c" s* y4 @8 f- Pdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
5 R3 {2 e7 V: Jcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;