原区=sele()
defi wind 重货还是泡货 from srow()*1/50,scol()*1/6-5 to srow()*8/10+07,scol()*5/6+5 system titl "重货还是泡货？" 
acti wind 重货还是泡货 top
sele 0
use 重货还是泡货  &&用于存储上一次的记录
KEYBOARD '{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}'
do whil .t.
	@ (srow()/1.2-srow()/6)/13+ 00,(srow()/1.2-srow()/6)/3+00 say "重泡货与泡货分界线  1立方=300公斤" font '楷体_GB2312',25 style 'u'
	@ (srow()/1.2-srow()/6)/13+ 04,(srow()/1.2-srow()/6)/3+15 say "长：" font '楷体_GB2312',20 get 长  font '楷体_GB2312',20
	@ (srow()/1.2-srow()/6)/13+ 04,(srow()/1.2-srow()/6)/3+50 say "米" font '楷体_GB2312',20 
	@ (srow()/1.2-srow()/6)/13+ 07,(srow()/1.2-srow()/6)/3+15 say "宽：" font '楷体_GB2312',20 get 宽  font '楷体_GB2312',20
	@ (srow()/1.2-srow()/6)/13+ 07,(srow()/1.2-srow()/6)/3+50 say "米" font '楷体_GB2312',20 
	@ (srow()/1.2-srow()/6)/13+ 10,(srow()/1.2-srow()/6)/3+15 say "高：" font '楷体_GB2312',20 get 高  font '楷体_GB2312',20
	@ (srow()/1.2-srow()/6)/13+ 10,(srow()/1.2-srow()/6)/3+50 say "米" font '楷体_GB2312',20 
	@ (srow()/1.2-srow()/6)/13+ 13,(srow()/1.2-srow()/6)/3+15 say "重：" font '楷体_GB2312',20 get 重  font '楷体_GB2312',20
	@ (srow()/1.2-srow()/6)/13+ 13,(srow()/1.2-srow()/6)/3+50 say "公斤" font '楷体_GB2312',20 
	@ (srow()/1.2-srow()/6)/13+ 16,(srow()/1.2-srow()/6)/3+15 say "数：" font '楷体_GB2312',20 get 数  font '楷体_GB2312',20
	@ (srow()/1.2-srow()/6)/13+ 16,(srow()/1.2-srow()/6)/3+50 say "件" font '楷体_GB2312',20 
	@ (srow()/1.2-srow()/6)/13+ 36,(srow()/1.2-srow()/6)/3 say "提示：退出按ESC键" font '楷体_GB2312',25 style 'IU'
	READ MODAL
	if lastkey()=27
		exit
	endif
	@ (srow()/1.2-srow()/6)/13+ 22,(srow()/1.2-srow()/6)/3+00 say '体积：'+allt(str((长*宽*高*数),10,1))+'方          ' font '楷体_GB2312',22
	@ (srow()/1.2-srow()/6)/13+ 24.5,(srow()/1.2-srow()/6)/3+00 say '重量：'+allt(str(重*数,10,1))+'公斤          ' font '楷体_GB2312',22
	密度1=重/(长*宽*高)
	密度1=iif(密度1>700,700,密度1)
	@ (srow()/1.2-srow()/6)/13+ 27,(srow()/1.2-srow()/6)/3+00 say '密度：'+allt(str(密度1,10,1))+'公斤/方          ' font '楷体_GB2312',22
	@ (srow()/1.2-srow()/6)/13+ 20,(srow()/1.2-srow()/6)/3+65 say IIF(重/(长*宽*高)>=300,"重货","泡货") font '楷体_GB2312',90
	**********************图例
	@ (srow()/1.2-srow()/6)/13+ 29.5,(srow()/1.2-srow()/6)/3+10 say '0       轻泡       150       重泡      300       重货      450       纯重货    600'
	@ (srow()/1.2-srow()/6)/13+ 30.5,(srow()/1.2-srow()/6)/3+10 say space(30) font '',12 COLO RGB(255,255,255,255,255,0)
	@ (srow()/1.2-srow()/6)/13+ 30.5,(srow()/1.2-srow()/6)/3+30.05 say space(30) font '',12 COLO RGB(255,255,255,0,255,0)
	@ (srow()/1.2-srow()/6)/13+ 30.5,(srow()/1.2-srow()/6)/3+50.05 say space(30) font '',12 COLO RGB(255,255,255,0,0,255)
	@ (srow()/1.2-srow()/6)/13+ 30.5,(srow()/1.2-srow()/6)/3+70.05 say space(30) font '',12 COLO RGB(255,255,255,0,0,110)
	@ (srow()/1.2-srow()/6)/13+ 31.9,(srow()/1.2-srow()/6)/3+0 say space(200) font '',12 
	@ (srow()/1.2-srow()/6)/13+ 31.9,(srow()/1.2-srow()/6)/3+08.8+(密度1*80/600) say "▲" font '',12 
	sele 重货还是泡货
	endif
	loop
enddo
rele wind 重货还是泡货
use
sele (原区)
retu