www.pudn.com > jq_transfile.ARJ > CSWJ.PRG

********************************************* 
*       程序名: CSWJ.PRG                    * 
*       功能:   传输文件                    * 
*       设计:   黄朝生                      * 
********************************************* 
 
if !file('\jqfax\outdata\wj.arj') 
defi wind jqwin1 from 6,20 to 11,60  
acti wind jqwin1 
@2,2 say "没有打包文件,请先对文件进行打包! " 
wait'' 
deac wind jqwin1 
retu 
endif 
defi wind jqwin1 from 6,20 to 11,60 
acti wind jqwin1 
*dh='                 ' 
@2,2 say "请输入电话号码:" get dh  
read 
deac wind jqwin1 
if last()<>27 .and. len(trim(ltrim(dh)))<>0 
! minicom -P1 -Foutdata\wj.arj -T&dh -S 
endif 
*************** 
defi wind jqwin  from 0,0 to 24,79 colo 6+/3 titl ' JQ 系 列 软 件 ' 
acti wind jqwin 
clea 
acti wind jqfaxwin 
*************** 
retu