行业应用

开发平台：

VFP

BCMXBJS.PRG：源码内容

							**
3
x=0
y=0
x1=0
y1=0
do whil .t.
 x=x+bys1
 y=y+ljs1
 skip
 pd=recn()
  if pd=13
    exit
  endif
 enddo
2
repl bys1 with x
repl ljs1 with y
x1=x
y1=y
x=0
y=0
29
do whil .t.
x=x+bys1
y=y+ljs1
skip
pd=recn()
 if pd=32
   exit
 endif
enddo
28
repl bys1 with x,ljs1 with y
x=0
y=0  
14
do whil .t.
 x=x+bys1
 y=y+ljs1
 skip
 pd=recn()
  if pd=29
    exit
  endif
 enddo
32
x=x+bys1
y=y+ljs1
33
x=x+bys1
y=y+ljs1
13
repl bys1 with x
repl ljs1 with y
x1=x1+x
y1=y1+y
x=0
y=0
34
x1=x1+bys1
y1=y1+ljs1
1
repl bys1 with x1
repl ljs1 with y1
37
do whil .t.
 x=x+bys1
 y=y+ljs1
 skip
 pd=recn()
  if pd=42
    exit
  endif
 enddo
36
repl bys1 with x
repl ljs1 with y
x=0
y=0
43
do whil .t.
 x=x+bys1
 y=y+ljs1
 skip
  if eof()
    exit
  endif
 enddo
1
x=x+bys2
y=y+ljs2
2
x=x+bys2
y=y+ljs2
3
x=x+bys2
y=y+ljs2
42
repl bys1 with x
repl ljs1 with y
x=0
y=0
**************************
6
do whil .t.
 x=x+bys2
 y=y+ljs2
 skip
 pd=recn()
  if pd=10
    exit
  endif
 enddo
5
repl bys2 with x
repl ljs2 with y
4 
repl bys2 with x
repl ljs2 with y
x=0
y=0
11 
x1=bys2
y1=ljs2
13
do whil .t.
 x=x+bys2
 y=y+ljs2
 skip
 pd=recn()
  if pd=19
    exit
  endif
 enddo
12
repl bys2 with x
repl ljs2 with y
x1=x1+x
y1=y1+y
x=0
y=0
20
do whil .t.
 x=x+bys2
 y=y+ljs2
 skip
 pd=recn()
  if pd=26
    exit
  endif
 enddo
19
*******************
repl bys2 with x
repl ljs2 with y
x1=x1-x
y1=y1-y
x=0
y=0
26
repl bys2 with x1
repl ljs2 with y1
***************
retu

						