'	like
'	add the current playing track to my likes (liked.log)

0	th_exec "music |grep '^ Now playing'" ; music$
	track$ = th_sed$( th_re$( music$, "Now playing\:\s+(.+)\n" ), "\r\n?", "" )
	track$ = th_sed$( track$, "Now playing\:\s+" )
	track$ = th_sed$( track$, "\s\[Requested\sby\s.+\]$" )

	open "liked.log", as #1
1	if typ(1) = 3 then goto 2
	input# 1, like$
	if like$ = track$ then ? "Already a" ; : goto 3
	goto 1

2	?# 1, track$
	close #1

	? "A" ;
3	? "dded " chr$(34) track$ chr$(34) " to your liked songs"
	? "Type liked to show your list"