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

zooey

is
        mark:boolean;
" S1 t* e* ]* g  v0 K        dx,dy,ct:real;
    i,j,rows,lines:integer;
; G+ f! w8 U2 C# b" R7 f    machinename,bufname:string;
+ C1 |, Z  n& z& e" m. X- q/ h    machine,buf:object;
do
* m! p+ J3 U, |$ ]6 h        current.eraselayer(1);
       
6 Z2 I- p7 n& _. J: K# \* e        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
4 M+ V' E- d5 ]" X* o4 p) j                when 16 then
                        print"yes";
2 L/ U6 w% i, P, f; e9 r; z                when 32 then
                        print"no";
                else
6 |" ?4 R% \1 P" ^0 c  W                        print"cancel";
                end;
# W9 S$ p' Y6 g                eventcontroller.stop;
        end;
1 v- c* f( z- `0 R5 j9 F2 l8 W       
( M, s  @% _8 H/ Q* f        for i:=1 to number_of_machine loop
; m& p; j0 H8 S9 R5 w        machinename:=sprint("M",i);
$ `  `* D# i; p  }        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
9 p7 ?, @6 Q# n0 c' C        end;
5 H1 k! R* U0 I6 j3 x& J        bufname:=sprint("BF",i);
- ~9 ~& ?, c; S/ O        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
" L5 j- \8 I6 }( ?% Z" ?  r+ Y+ {1 r                buf.deleteobject;
3 Y) I% ^+ o* b3 j        end;
# u  s& l6 X6 U5 p/ k. L        next;
5 B) g$ c) e  `' O       
  o! Z) P) l- |. j9 }( C) h        dx:=0;
$ W- N/ G7 ]. |        dy:=0;
        for i:=1 to number_of_machine loop
, U7 I2 n: g& m2 f5 `5 x" b0 Y  K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  J) x. G1 |9 V* e: S                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
5 R# B) w6 \; E- U- w# H' }                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 C" M, g3 P; O# J5 M1 ^7 a, C7 Q                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
9 C6 V+ B  M: p4 r( E3 ^7 }* c6 F                        ct:=activityspace[2,rows];
5 E: l1 x$ O5 }( d7 q9 ^                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
) D$ O! `- b- `# S) }0 U/ i5 D+ V) d                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
' F2 Y' n( g) M& B& `' T4 c! j                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
+ S- \, V% e$ c% m. d1 l3 q                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
- `0 U- o8 y1 X                end;
                dx:=dx+activityspace[1,rows];
0 D# k5 R( p( v# u                /*if mark=true then
                ct:=activityspace[2,rows];
  j/ d, `' w$ ~                        activityspace[2,rows]:=activityspace[1,rows];
. t2 f5 [! {) b' T* C% j9 }+ u( F                        activityspace[1,rows]:=ct;
, {) |* z$ }8 P" _  W2 k                        end;*/
        next;
        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);
/ d! z; N/ w0 i8 c2 R9 |        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);
       
        rows:=0;
        lines:=0;
: x6 j0 O9 y" q" c( D2 T- G; O        for i:=1 to number_of_machine loop
- I* z: H" k3 j# M% I. W$ I# z9 l                for j:=1 to number_of_machine loop
. T0 `8 w' E7 @                        if j=i then
                                d_from_to_chart[j,i]:=0;
! V5 D+ f# W4 z                        else
9 K* r+ F& T3 |; E# O2 ~, p  u                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
1 W! X1 \7 g5 F. F" }                                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;
# J$ l: m  h+ E: S                next;
! S5 q8 `! Y, E        next;
       
: z8 H: P9 Z; z" [( G        lines:=0;
  f8 }1 M* N0 Y6 R1 y0 D9 c- R        partstable.delete;
# W; q: f* v' _9 ]       
; v! a9 {- t. _        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
1 o( \: Q* i# C) C2 c                        if w_from_to_chart[j,rows]>0 then
" ~8 d3 ~. O- O# y7 l! R                        lines:=lines+1;
( k0 W4 x# e( I" h( S( j! `! D9 A! `                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
- U, a! g3 L# B                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 J3 f; {# c6 ~: K                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
( ~3 O- n; h* _/ E# j4 `6 K        next;
" E2 K; A8 r" u* f        machinename:=sprint("M",rows);
9 D/ n; ?; I) o7 [  P9 N! U# K- d. x/ J        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;标识符未知
# c% r) L/ j2 k8 O/ A7 ^        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        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]);
$ l6 l8 C, }- }$ {$ S; `0 J  m        buf.name:=bufname;
        buf.capacity:=5000;
& \! v  P3 ]% p# [- ?. F        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
1 Y3 x" Y) W$ ^' R# z7 G- w7 ]) U       
# z6 h, y+ W) }8 S2 l) v4 D$ ?        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
  \" X  X' E. ]& m. p# g4 _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;