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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
2 {. e3 e9 i; A, y  i5 I% h& K    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
3 K3 `' M4 Y% h$ l1 p3 gdo
4 L# F6 Z( }7 ]# {4 K        current.eraselayer(1);
       
; H% |; W$ z/ ]8 z8 S9 g        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
8 q9 a5 E& t5 F" ]) _* M                else
& K7 L! N2 z$ r5 r- F# w, B                        print"cancel";
) m) B5 D' s3 l" l1 E                end;
                eventcontroller.stop;
- F9 U. D% `8 T( |3 V: t        end;
1 g8 g# [$ |3 H# J1 z0 k. H! c& y9 \       
        for i:=1 to number_of_machine loop
' W# n9 W# _1 p, Q  y4 p        machinename:=sprint("M",i);
        if existsobject(machinename) then
' J  N+ o) Y( ^" W( i; g" m                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
" {0 c# Z9 u. T4 }* S9 e5 Q                buf:=str_to_obj(bufname);
                buf.deleteobject;
9 X; L9 ]9 J  @$ i% [9 w        end;
        next;
       
        dx:=0;
        dy:=0;
5 h3 J$ t7 j+ N7 `/ b        for i:=1 to number_of_machine loop
$ }& h: O1 r5 P9 M  F& Q. B+ m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% q2 }4 a9 n* J0 y* k                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
+ i; C8 n! [, l: E& t                then
# B* ]* }2 F4 B- v0 Z% [                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
7 A" s+ w% x% N+ [3 o                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
8 o3 O9 Z6 ?3 F  \6 z                        dx:=0;
( @5 ]* r3 g0 Y5 I                dy:=0;
                        --end;
                end;
  M2 B0 j1 |6 j- b8 D9 v) q) X                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' v4 o7 P4 v  m  g, g                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
7 n+ L6 }& h% \4 y            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
' S( Y2 ]1 Q+ N$ s" c                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
7 z9 O# b) G/ H8 \0 ~, Y3 a                        activityspace[1,rows]:=ct;
/ f; I/ p2 K4 P  D5 N. E                        end;*/
9 ?4 {: X# S4 U0 C6 V        next;
, ^; v' ]/ U( e8 D0 w        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);
# Z3 M* ]" H" v* H4 |        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);
0 W9 o' t% m! `" t       
        rows:=0;
        lines:=0;
# K5 |4 N* y2 a9 {& N        for i:=1 to number_of_machine loop
$ j$ m9 i% j" z: A                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# [3 S2 Y1 |& I+ a                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
! B& {+ ?' `- ~' P5 d0 Y                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
2 }; L6 V% P8 R5 ]        next;
       
        lines:=0;
* ]7 z* S6 s9 E# u. a        partstable.delete;
% S( G8 w' A8 e% o       
$ s& |6 c6 F( Q4 q9 v8 \/ q        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
" [' @' I4 c: x; w+ @( n                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 |: ?# u/ c; P                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
; C# t+ u$ l& k: ~/ X                        partstable[6,lines]:=j;
, N& G# H! W7 a0 U                end;
        next;
. ^. t5 z" H& ?# e        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
& `9 n2 r" E6 w5 {9 _        machine.exitctrl:=ref(leave);
! Q7 ^1 a; z! f: Z$ p$ q5 B5 c       
0 }  k/ W5 O( h0 P, v! [( d( |( u- Z        bufname:=sprint("BF",rows);
, O# Y! J0 g' _/ [        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;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ d* b9 v( X+ @( f9 `; [  ^dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
7 N6 S8 j3 j  H! s2 acurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
8 B9 }% z& ~% u- K$ Onext;
end;