;+
; NAME:
;  PRINT_OP
; PURPOSE:
;  FTP the OP file created by OPOGEDT from the FACOM, print it, and archive it
; CALLING SEQUENCE:
;  print_op
;  print_op, /browse 
; OPTIONAL KEYWORD INPUT
;  /browse prints to screen and not to paper.
; RESTRICTIONS
;  This program can only be run from flare20 because of ftp restrictions.
; HISTORY:
;  97/08/05 T. Sakurai
;  97/08/06 H. Hudson, converted to procedure with keywords. Extracted
;     OP name for archiving.
;-
pro print_op, browse=browse, qstop=qstop
remotefile='opseq.outlist'
localfile='~/opseq.lst'
user = 's80670'
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
if keyword_set(browse) then spawn, 'sed -e s/^1// ~/opseq.lst | more'
spawn, 'sed -e s/^1// ~/opseq.lst | lpr -h -Plp'
aa = rd_tfile(localfile)
for i = 0,9 do begin
  if (strmid(aa(i),2,3) eq 'COM') then filename = strmid(aa(i),12,11)
endfor
spawn, 'cp ~/opseq.lst ~/opog/'+filename
if keyword_set(qstop) then stop
end