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

zooey

is
        mark:boolean;
" N5 b8 C: N$ i2 J  F        dx,dy,ct:real;
    i,j,rows,lines:integer;
; E& y# d& \, x4 m0 q( r" @    machinename,bufname:string;
6 F9 f2 S% x( u& L- {/ N    machine,buf:object;
do
        current.eraselayer(1);
; b+ T4 F- w9 G! O9 R       
6 T. u/ P. x" q        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* ^% u& k) G7 v- q# ~3 Y                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
7 E( K, y5 l. e; }' J: l- L                        print"yes";
2 \1 W8 x$ j( ^0 u, k# M                when 32 then
6 \0 ?4 p2 k: }/ i: i                        print"no";
* q& P  a1 c( U! h0 D                else
+ Y. M) j  c; ~! x8 t7 Z                        print"cancel";
                end;
# B2 y7 J! {% K" e                eventcontroller.stop;
$ d7 j- `! n: l) K        end;
; B# T7 g* w( [+ d; t       
        for i:=1 to number_of_machine loop
+ g( O) C6 _9 F2 Y        machinename:=sprint("M",i);
4 D5 Y+ c/ D* P% T  \- p6 y        if existsobject(machinename) then
4 l# Q1 |5 i4 k$ k* r                machine:=str_to_obj(machinename);
" n: T4 k7 k! M( F8 ~                machine.deleteobject;
        end;
; \% h7 |+ v, @# V4 Q/ W+ `        bufname:=sprint("BF",i);
        if existsobject(bufname) then
7 d3 P1 ^+ W! W: z: q' x/ H                buf:=str_to_obj(bufname);
                buf.deleteobject;
1 U3 A7 x2 j9 x" y4 H: a8 D        end;
# c$ f) L; @/ b! F( r8 M        next;
2 |3 p: F2 w$ K) X. X: U, G* F1 l$ a' a       
        dx:=0;
4 w/ y4 o5 X2 T3 j- u        dy:=0;
# v4 e4 ?  E% Q5 V        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# I! u$ ~3 Q) f3 P5 e0 f                --mark:=false;
4 ~" u0 J( K4 K% E% \  r                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
0 Z' W3 A- x3 _; G+ X6 K                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
% B& D2 V0 P/ q% \7 ~9 d$ C6 A                        and activityspace[1,rows]<(1.05*y_max) then
  y) Z+ ^8 l8 Y4 l                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
) ?1 }# H1 W) j& v" P) h3 j# x" q                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
4 r/ z  ]: |, t, c  M                        else*/
4 j# [. ~! D* m                        y_max:=y_max+dy;
/ i  |4 Q/ w8 e6 M( N  R                        dx:=0;
7 f0 J) w7 a& b  e/ C" `  t                dy:=0;
& {, [  a, U# S9 L9 u; e; N8 p3 a                        --end;
& D" |9 q# P# W8 ?7 I, L. {                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;
& ^; {! G$ o3 A) j; g; W8 I            if activityspace[2,rows]>dy then
0 C* w) e9 {5 y! I! c                        dy:=activityspace[2,rows];
9 s9 P0 O* E% D# v0 d                end;
                dx:=dx+activityspace[1,rows];
& F. i, _9 v' w7 [# Q- N                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
0 R1 h8 |+ z  U- Z                        end;*/
! |- D1 T+ i) O% @! K! ^; P        next;
$ U5 s# q( x% `, M* 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);
) a5 }* V: [0 j" s7 H$ |4 ^5 U        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);
+ W, l4 ?/ D! H, J; j" Z       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
$ C6 D' S  C% O0 N- q7 {" @( i  P                for j:=1 to number_of_machine loop
! b4 q" o: J! l0 x                        if j=i then
+ j) ^% i- H. T- [                                d_from_to_chart[j,i]:=0;
                        else
( {* D$ `- C. m4 {* Q                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
( [5 K0 {7 [9 y9 e# Y                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
; U; X: t5 c- O) h7 Q5 a2 J; f                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
' K" X* v5 j" K- n( J9 D       
- L% d& R. k4 {# q        lines:=0;
6 B6 i; y9 N' r0 o2 o        partstable.delete;
       
: X# t% ~5 r8 _( \        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 _2 T5 r4 i* S4 X3 v3 t, ^                machinesequence[2,i]:=rows;
/ j% q/ {" \; N. p) s- z                for j:=1 to number_of_machine loop
/ v+ W4 w& H0 Q9 C+ P- n8 e                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
1 E# m% I' z- |                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
- b6 C2 q; t- Y2 v, f: `                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
4 ~5 H8 y1 u6 F3 ^$ s0 \                end;
( d# N0 x' P% t4 v7 G/ i        next;
3 v1 O$ ~' w3 X, f/ Q2 x8 h' Z        machinename:=sprint("M",rows);
& ~. @1 w; I& u4 ~/ J0 X        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]);
0 I8 R  B9 a$ N        machine.name:=machinename;标识符未知
: ^. \) X+ B! C# C: K        machine.proctime:=5;
0 v% r0 x. J2 m. [" X* q( i% {        machine.label:=activityspace[0,rows];
$ s& w/ H7 c0 ^7 y$ y        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
+ F& x  P5 `( B# R) r        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;
4 K- o: X) L7 O2 m; H! g        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
9 q0 Z9 t/ V6 O       
8 b- U2 }8 r0 g: |9 `, s        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 t" @6 ?3 e3 t, h4 l  ]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;
- Y: E4 @- s7 K$ O* O* K