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

 
! dos.bat 
! cd \jqfax 
 
Color='B/W,W+/B,W/W,W+/B,W/B,W+/B,GR/W,W/B,N/W,W+/W,+' 
*defi wind jqfaxwin 0,0,24,79,"colo &color titl''") 
clea 
on key label escape quit 
clea 
acti wind jqfaxwin 
 
retu 
procedure zj 
inse blank 
*use hzdw 
*brow fields hzdw :H="单位名称" title "F2增加;F4删除;Ctrl+W退出" 
retu 
procedure sc 
dele  
*pack 
*brow fields hzdw :H="单位名称" title "F2增加;F4删除;Ctrl+W退出" 
retu