; list_spins
;
; list all sin entries to a file
set tmp = ('tmp' // int(1000000*$random))
open $tmp
fprint $tmp "#PPM   Name  System Spin#  (Note)"
initinprogress $spin["LARGEST"]   set i = 1
foreach sid in spin
  inprogress $i  set i = (%+1)
  if ($sid s! "LARGEST") then
	set sp = ($spin[$sid])
	set ppm = (head($sp))  set sp = (tail($sp))
	set name = (head($sp)) set sp = (tail($sp))
	set sys = (head($sp))  set sp = (tail($sp))
	fprintf $tmp "%6.3f %5s %3d     %4d %s" $ppm $name $sys $sid $sp *
  endif
endfor
close $tmp
inprogress $spin["LARGEST"]
sh ("sort"; $tmp; "> spin_list")
formbox "List of Spins" DO_NOTHING 'File is spin_list' message spin_list text *
sh ("/bin/rm -f";$tmp)
