; add_spin_sys $sys_id
;
; adds a spin to the spin-system $sys_id
;
set ss_id = $_
alert "Select the spin you want to add"
=redo
@find_spin
if (head($last_click) s! "SPIN") goto redo
set sp = (tail($last_click))

set sys[$ss_id] = ($sys[$ss_id]; $sp)

