;+
; NAME:
;  print_ogall (main program)
; PURPOSE:
;  FTP the output of OPOGEDT from FACOM and print it
; CALLING SEQUENCE:
;  .run print_ogall
; HISTORY:
;   97/08/08 T.Sakurai
;   98/02/26 T.Shimizu lpr -P lp_132
;-
pro print_ogall
remotefile='ogall.outlist'
localfile='~/ogall.lst'
user = 's80671'
password = 'solar' + string((anytim2ex(!stime))(5),format='(i2.2)')
host = '133.74.191.201'			; 21-Feb-96 New mainframe GS8400/10
ftp_from_facom,remotefile,localfile,host,user+' '+password
yn=' '
read,'browse the transferred file? (y/n) > ',yn
if yn eq 'y' or yn eq 'Y' then spawn, 'sed -e s/^1// ~/ogall.lst | more'
read,'print? (y/n) > ',yn
;if yn eq 'y' or yn eq 'Y' then spawn, 'sed -e s/^1// ~/ogall.lst | lpr -h -Plp'
if yn eq 'y' or yn eq 'Y' then spawn, 'sed -e s/^1// ~/ogall.lst | a2ps -w | lpr -h -Plp'
end