macro showcal file=calib\calib.cal
set stat 1110
v/crea nva(1) r
v/crea nstrip(1) r
nt/cre 1 calib 5 ! ! strip ped sig gain status
v/read nva,nstrip,name [file] 'f2.0,1x,f3.0,1x,f10.0' 'o'
k=nva(1)
v/crea cns([k])
v/read cns [file] 'f12.4' ' '
v/pri nva
v/pri nstrip
v/pri name
kname=name(1)
title ladder[kname]
nt/read 1 [file] 'f5.0,1x,f12.4,1x,f12.4,1x,f12.4,1x,f2.0' ' '
* this fucking command reopen the file so the first 17 lines are junk
* it is fortunate that they can read them at all
zone 1 2 
option stat
nt/plo 1.ped ! ! 18
option nsta
nt/plot 1.ped%strip  ! ! 18
wait
option stat
nt/plo 1.sig sig<20  ! 18
option nsta
nt/plo 1.sig%strip sig<20  ! 18
wait
option stat
nt/plot 1.gain   ! ! 18
option nsta
nt/plot 1.gain%strip    ! ! 18
wait
option stat
nt/plot 1.status       ! ! 18
option nsta
nt/plot 1.status%strip ! ! 18