; rem_spin_sys $sys_id $spin_id
;
; removes spin_id from the spin-system $sys_id
;
set ss_id = $_
set sp_id = $_
gm/al_yesno ("Ok to remove Spin #"; $sp_id; "from System #"; $ss_id)
if ($returned s! "yes") error "Aborted"
set new := " "
set ss = $sys[$ss_id]
set num = (head($ss))
set aa = (head(tail($ss)))
set old = (tail(tail($ss)))
while ($old s! " ")
	set sp = (head($old))	set old = (tail($old))
	if ($sp != $sp_id) set new := (%; $sp)
endwhile
set sys[$ss_id] = ($num; $aa; $new)

