/* $VER: 1.2 © 1994 by Frank Würkner. Play first 10 secs of all songs.     */

SIGNAL ON SYNTAX                            /* check syntax                */
SIGNAL ON ERROR                             /* check if command succeeds   */
OPTIONS FAILAT 6                            /* ignore warnings             */
ADDRESS YACDP                             /* send to YACDP               */

/* -------------------------- BEGIN OF YOUR CODE ------------------------- */

'GETVAR SONGNAME'
'GETVAR CDNAME'
'GETVAR VENDORID'
'GETVAR MAXTRACK'
'GETVAR VENDOR'
'UNLOCKVARS'

if (STATUS > 2) then                            /* quit if no audio CD     */
do i = 1 to MAXTRACK by 1
'GETVAR TRACKLEN MODE=2 NUM='i
if i=1 then do 
Tracks.TrackPos = i
Tracks.TrackLength = substr(TRACKLEN,4,5)
end
if i = 2 then do
Tracks_2.TrackPos = i
tracks_2.TrackLength = substr(TRACKLEN,4,5)
end
if i = 3 then do
Tracks_3.TrackPos = i
tracks_3.TrackLength = substr(TRACKLEN,4,5)
end
if i = 4 then do
Tracks_4.TrackPos = i
tracks_4.TrackLength = substr(TRACKLEN,4,5)
end
if i = 5 then do
Tracks_5.TrackPos = i
tracks_5.TrackLength = substr(TRACKLEN,4,5)
end
if i = 6 then do
Tracks_6.TrackPos = i
tracks_6.TrackLength = substr(TRACKLEN,4,5)
end
if i = 7 then do
Tracks_7.TrackPos = i
tracks_7.TrackLength = substr(TRACKLEN,4,5)
end
if i = 8 then do
Tracks_8.TrackPos = i
tracks_8.TrackLength = substr(TRACKLEN,4,5)
end
if i = 9 then do
Tracks_9.TrackPos = i
tracks_9.TrackLength = substr(TRACKLEN,4,5)
end
if i = 10 then do
Tracks_10.TrackPos = i
tracks_10.TrackLength = substr(TRACKLEN,4,5)
end
if i = 11 then do
Tracks_11.TrackPos = i
tracks_11.TrackLength = substr(TRACKLEN,4,5)
end
if i = 12 then do
Tracks_12.TrackPos = i
tracks_12.TrackLength = substr(TRACKLEN,4,5)
end
end

'STOP'

/* --------------------------- END OF YOUR CODE -------------------------- */

ADDRESS TWIST
PARSE ARG dbfilename,rela_x,rela_y,shiftkeys
OPEN dbfilename
options results
GETDBFORMMODE

CDIDENT = tracks.tracklength || tracks.TrackPos || tracks_2.TrackLength || tracks_2.TrackPos || tracks_3.TrackLength || tracks_3.TrackPos || tracks_4.TrackLength || tracks_4.TrackPos || tracks_5.TrackLength || tracks_5.TrackPos || tracks_6.TrackLength || tracks_6.TrackPos || tracks_7.TrackLength || tracks_7.TrackPos || tracks_8.TrackLength || tracks_8.TrackPos || tracks_9.TrackLength || tracks_9.TrackPos || tracks_10.TrackLength || tracks_10.TrackPos || tracks_11.TrackLength || tracks_11.TrackPos || tracks_12.TrackLength || tracks_12.TrackPos
SETDBFORMFIELD 'CDID' CDIDENT

SETDBFORMFIELD 'tracks.TrackPos'     tracks.TrackPos
SETDBFORMFIELD 'tracks_2.TrackPos'   tracks_2.TrackPos
SETDBFORMFIELD 'tracks_3.TrackPos'   tracks_3.TrackPos
SETDBFORMFIELD 'tracks_4.TrackPos'   tracks_4.TrackPos
SETDBFORMFIELD 'tracks_5.TrackPos'   tracks_5.TrackPos
SETDBFORMFIELD 'tracks_6.TrackPos'   tracks_6.TrackPos
SETDBFORMFIELD 'tracks_7.TrackPos'   tracks_7.TrackPos
SETDBFORMFIELD 'tracks_8.TrackPos'   tracks_8.TrackPos
SETDBFORMFIELD 'tracks_9.TrackPos'  tracks_9.TrackPos
SETDBFORMFIELD 'tracks_10.TrackPos'  tracks_10.TrackPos
SETDBFORMFIELD 'tracks_11.TrackPos'  tracks_11.TrackPos
SETDBFORMFIELD 'tracks_12.TrackPos'  tracks_12.TrackPos

SETDBFORMFIELD 'tracks.tracklength'     tracks.tracklength
SETDBFORMFIELD 'tracks_2.TrackLength'   tracks_2.TrackLength
SETDBFORMFIELD 'tracks_3.TrackLength'   tracks_3.TrackLength
SETDBFORMFIELD 'tracks_4.TrackLength'   tracks_4.TrackLength
SETDBFORMFIELD 'tracks_5.TrackLength'   tracks_5.TrackLength
SETDBFORMFIELD 'tracks_6.TrackLength'   tracks_6.TrackLength
SETDBFORMFIELD 'tracks_7.TrackLength'   tracks_7.TrackLength
SETDBFORMFIELD 'tracks_8.TrackLength'   tracks_8.TrackLength
SETDBFORMFIELD 'tracks_9.TrackLength'  tracks_9.TrackLength
SETDBFORMFIELD 'tracks_10.TrackLength'  tracks_10.TrackLength
SETDBFORMFIELD 'tracks_11.TrackLength'  tracks_11.TrackLength
SETDBFORMFIELD 'tracks_12.TrackLength'  tracks_12.TrackLength

if results != "EDIT" then EXIT

tottime = 0
do i=1 to 12 by 1
	if i=1 then fieldname = "Tracks.TrackLength"
	else fieldname = "tracks_" || i || ".TrackLength"
	GETDBFORMFIELD fieldname
	timestr = result
	if timestr ~= "" then tottime = tottime + substr(timestr, 1, 2)*60 + substr(timestr,4,2)
end

minutes = tottime%60;
secs = tottime // 60
if minutes >= 10 then timestr = minutes
else timestr = "0" || minutes
if secs >= 10 then timestr = timestr || ":" || secs
else timestr = timestr || ":0" || secs 

SETDBFORMFIELD "TotalTime" timestr


/* --------------------------- END OF YOUR CODE -------------------------- */
EXIT

SYNTAX:
SAY "AREXX error at line" SIGL ":" ERRORTEXT(RC)
EXIT

ERROR:
SAY "YACDP error at line" SIGL ":" ERR
EXIT