; list_spins
;
; list all sin entries to a file
set tmp = ('tmp' // int(1000000*$random))
open $tmp
fprint $tmp "Spin_ID  Name ppm  spin_system_id  (Note)"
for sid in spin
  if ($sid s! "LARGEST") then
	fprint $tmp ($sid; $spin[$sid])
  endif
endfor
close $tmp
formbox "List of Spins" $tmp text *
