say "Not yet ready..."
return
!sys "rm -f protocol"
find /scan &1 &2
define real a[20]
define char b*15[10]
!
for i 1 to found
  file in bolo_data:'scan_sequence[i]'  
  let a[1] scan
  let a[2] ut[1]|3600
  let a[3] lst[1]|3600
  let a[4] az[1]
  let a[5] el[1]
  let a[6] bolgain
  let b[1] " SKYDIP"
  let b[2] " ON-THE-FLY"
  let b[3] " ON-OFF"
  let b[4] " POINTING"
  let b[5] " FOCUS"
  let b[6] " "
  let b[7] " x "
! skydip
!
  if (scan_type.eq.3) then
     solve 
     let a[7] water_vapour
     let a[8] scan_opacity
     say a[1] a[2] a[3] a[4] 'b[6]' a[6] a[7] a[8] 'b[6]' 'b[6]' 'b[1]' -
         /format i5 f7.2 f7.2 f7.2 a i2 f7.2 f7.2 a a a
  endif
!
! map
!
  if (scan_type.eq.1) then
    let a[9]  nint(dazm*3600)
    let a[10] nint(abs(oelv*7200))
    let a[11] wobbler_throw
    let a[12] wobbler_period
     say a[1] a[2] a[3] a[4] a[5] a[6] 'b[6]' 'b[6]' a[11] a[12] 'b[3]' -
         /format i5 f7.2 f7.2 f7.2 f7.2 i2 a a i3 f4.2 a
  endif
next