; rem_spin $sp_id
;
; removes $sp_id from peak data base
;

set sp_id = $_
gm/al_yesno ("Ok to remove spin #"; $sp_id)
if ($returned s! "yes") error "'spin remove' Aborted"
; draw in black to remove on screen
set ss = $scolor
scolor 8
show_spin $sp_id
scolor $ss
; unset
unset ("spin[" // $sp_id // "]")
;  if it is the last when, then we can backtrack one
if ($spin["LARGEST"] == $sp_id) set spin["LARGEST"] = ($sp_id-1)
alert ("Spin #"; $sp_id; "removed")

