home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
prg_hlp.zip
/
MENU2.PRG
< prev
next >
Wrap
Text File
|
1987-04-07
|
40KB
|
1,170 lines
************************************************************************
*
* MENU2.PRG *
*
************************************************************************
DO WHILE .T.
CLEAR
DO WHILE .T.
help_code = "02"
A = "MENU2"
DO banner WITH "AUDIO MENU"
heading1 = "1. ENTER TITLES "
heading2 = "2. SEARCH TITLES "
heading3 = "3. EDIT TITLES "
heading4 = "4. NOT COMPLETED "
heading5 = "0. MAIN MENU "
heading6 = "XXXX"
heading7 = "XXXX"
heading8 = "XXXX"
heading9 = "XXXX"
heading10 = "XXXX"
num_items = 5
X = 8
Y = 28
W = LEN(heading3)
@ 0,0 to 24,79 double
DO F1 WITH "HELP"
@ 22,1 SAY bar
@ 23,2 SAY "Use UP and DOWN arrows to highlight choice...Press ENTER to select"
DO lightbar WITH num_items,X,Y,W,heading1,heading2,heading3,heading4,heading5,heading6,heading7,heading8,heading9,heading10
choice = STR(selection,1)
use audio index a_title, a_artist
DO CASE
CASE choice = "1"
DO aud_ent
CASE choice = "2"
do aud_srch
CASE choice = "3"
do aud_edit
CASE choice = "4"
do aud_set
CASE choice = "0"
RETURN
ENDCASE
ENDDO
ENDDO
************************** END AUDIO.PRG *******************
**********************************************************************
* *
* S. Robert Davidoff *
* *
* *
**********************************************************************
* AUD_EDIT.PRG
**********************************************************************
procedure aud_edit
do while .T.
use audio index a_title, a_artist
clear
do banner with "EDIT AUDIO INFORMATION"
@ 0,0 to 24,79 double
do while .T.
heading1 = "1. FIND TITLE "
heading2 = "2. FIND ARTIST"
heading3 = "0. MAIN MENU "
heading4 = "XXXX"
heading5 = "XXXX"
heading6 = "XXXX"
heading7 = "XXXX"
heading8 = "XXXX"
heading9 = "XXXX"
heading0 = "XXXX"
num_items = 3
X = 7
Y =27
W = LEN(HEADING1)
@ 22,1 say bar
@ 23,2 say "Use UP and DOWN arrows to highlight choice...Press ENTER to select"
do lightbar with num_items,X,Y,W,heading1,heading2,heading3,heading4,heading5,heading6,heading7,heading8,heading9,heading0
choice = str(selection,1)
DO case
case choice = "0"
return
case choice = "1"
HELP_CODE = "AT"
set order to 1
goto top
mtitle = space(35)
do clearit with 1,1,23,78
@ 8,20 say "Enter Title: " get mtitle Picture "@!"
DO F1 WITH "HELP"
read
row = 1
mtitle = alltrim(mtitle)
mtemp = mtitle
seek mtitle
if eof()
goto top
do while ! eof()
if AT(mtemp,title) > 0
do clearit with 1,1,23,78
do while ! eof()
mtitle = title
mlastname = lastname
mfirstname = firstname
mmedium = medium
mtype = type
mcat = cat
answer = space(1)
@ 7,10 say "Enter Title: "
@ 7,33 get mtitle Picture "@!"
@ 9,10 say "Enter Last Name: "
@ 9,33 get mlastname Picture "@!"
@ 11,10 say "Enter First Name: "
@ 11,33 get mfirstname Picture "@!"
@ 13,10 say "T)ape R)ecord C)ompact disk "
@ 13,48 get mmedium picture "!" valid (mmedium $ "TRC")
@ 15,10 say "I)nstramental V)ocal M)ixed "
@ 15,48 get mtype picture "!" valid (mtype $ "IVM")
@ 17,10 say "J)azz C)lassic M)ellow "
@ 17,48 get mcat picture "!" valid (mcat $ "JCM")
do f1 with "HELP"
@ 0,0 to 24,79 double
read
MSG1 = "1. FILE "
MSG2 = "2. EDIT "
MSG3 = "3. NEXT "
MSG4 = "4. DELETE"
MSG5 = "0. ABORT "
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 5
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "FENDA"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
ANSWER = STR(SELECTION,1)
do case
case answer = "0"
return
case answer = "1"
case answer = "2"
do clearit with 21,1,23,78
loop
case answer = "4"
delete
skip
do clearit with 21,1,23,78
loop
case answer = "3"
skip
do clearit with 21,1,23,78
loop
endcase
replace title with mtitle
replace lastname with mlastname
replace firstname with mfirstname
replace medium with mmedium
replace type with mtype
replace cat with mcat
do clearit with 21,1,23,78
Answer = space(1)
MSG1 = "1. NEXT RECORD"
MSG2 = "0. MAIN MENU "
MSG3 = "XXXX"
MSG4 = "XXXX"
MSG5 = "XXXX"
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 2
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "NM"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
CHOICE = STR(SELECTION,1)
if CHOICE = "0"
return
else
do clearit with 21,1,23,78
exit
endif
enddo
endif
skip
enddo
else
do clearit with 1,1,23,78
do while .T.
mtitle = title
mlastname = lastname
mfirstname = firstname
mmedium = medium
mtype = type
mcat = cat
answer = space(1)
@ 7,10 say "Enter Title: "
@ 7,33 get mtitle Picture "@!"
@ 9,10 say "Enter Last Name: "
@ 9,33 get mlastname Picture "@!"
@ 11,10 say "Enter First Name: "
@ 11,33 get mfirstname Picture "@!"
@ 13,10 say "T)ape R)ecord C)ompact disk "
@ 13,48 get mmedium picture "!" valid (mmedium $ "TRC")
@ 15,10 say "I)nstramental V)ocal M)ixed "
@ 15,48 get mtype picture "!" valid (mtype $ "IVM")
@ 17,10 say "J)azz C)lassic M)ellow "
@ 17,48 get mcat picture "!" valid (mcat $ "JCM")
do f1 with "HELP"
@ 0,0 to 24,79 double
read
MSG1 = "1. FILE "
MSG2 = "2. EDIT "
MSG3 = "3. NEXT "
MSG4 = "4. DELETE"
MSG5 = "0. ABORT "
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 5
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "FENDA"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
ANSWER = STR(SELECTION,1)
do case
case answer = "0"
return
case answer = "1"
case answer = "2"
do clearit with 21,1,23,78
loop
case answer = "4"
delete
skip
do clearit with 21,1,23,78
loop
case answer = "3"
skip
do clearit with 21,1,23,78
loop
endcase
replace title with mtitle
replace lastname with mlastname
replace firstname with mfirstname
replace medium with mmedium
replace type with mtype
replace cat with mcat
do clearit with 21,1,23,78
Answer = space(1)
MSG1 = "1. NEXT RECORD"
MSG2 = "0. MAIN MENU "
MSG3 = "XXXX"
MSG4 = "XXXX"
MSG5 = "XXXX"
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 2
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "NM"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
CHOICE = STR(SELECTION,1)
if CHOICE = "0"
return
endif
do clearit with 21,1,23,78
skip
enddo
@ 23,5 say "Press any key to proceed"
set console off
wait
set console on
endif
**********************************************************************
case choice = "2"
set order to 2
goto top
mlastname = space(25)
do clearit with 1,1,23,78
@ 8,20 say "Enter LastName: " get mLastName Picture "@!"
DO F1 WITH "HELP"
read
row = 1
mLastName = alltrim(mLastName)
mtemp = mlastname
seek mLastName
if eof()
goto top
do while ! eof()
if AT(mtemp,LastName) > 0
do clearit with 1,1,23,78
do while ! eof()
mtitle = title
mlastname = lastname
mfirstname = firstname
mmedium = medium
mtype = type
mcat = cat
answer = space(1)
@ 7,10 say "Enter Title: "
@ 7,33 get mtitle Picture "@!"
@ 9,10 say "Enter Last Name: "
@ 9,33 get mlastname Picture "@!"
@ 11,10 say "Enter First Name: "
@ 11,33 get mfirstname Picture "@!"
@ 13,10 say "T)ape R)ecord C)ompact disk "
@ 13,48 get mmedium picture "!" valid (mmedium $ "TRC")
@ 15,10 say "I)nstramental V)ocal M)ixed "
@ 15,48 get mtype picture "!" valid (mtype $ "IVM")
@ 17,10 say "J)azz C)lassic M)ellow "
@ 17,48 get mcat picture "!" valid (mcat $ "JCM")
do f1 with "LIST ENTRIES"
@ 0,0 to 24,79 double
read
MSG1 = "1. FILE "
MSG2 = "2. EDIT "
MSG3 = "3. NEXT "
MSG4 = "4. DELETE"
MSG5 = "0. ABORT "
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 5
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "FENDA"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
ANSWER = STR(SELECTION,1)
do case
case answer = "0"
return
case answer = "1"
case answer = "2"
do clearit with 21,1,23,78
loop
case answer = "4"
delete
skip
do clearit with 21,1,23,78
loop
case answer = "3"
skip
do clearit with 21,1,23,78
loop
endcase
replace title with mtitle
replace lastname with mlastname
replace firstname with mfirstname
replace medium with mmedium
replace type with mtype
replace cat with mcat
do clearit with 21,1,23,78
Answer = space(1)
MSG1 = "1. NEXT RECORD"
MSG2 = "0. MAIN MENU "
MSG3 = "XXXX"
MSG4 = "XXXX"
MSG5 = "XXXX"
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 2
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "NM"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
CHOICE = STR(SELECTION,1)
if CHOICE = "0"
return
else
do clearit with 21,1,23,78
exit
endif
enddo
endif
skip
enddo
else
do clearit with 1,1,23,78
do while .T.
mtitle = title
mlastname = lastname
mfirstname = firstname
mmedium = medium
mtype = type
mcat = cat
answer = space(1)
@ 7,10 say "Enter Title: "
@ 7,33 get mtitle Picture "@!"
@ 9,10 say "Enter Last Name: "
@ 9,33 get mlastname Picture "@!"
@ 11,10 say "Enter First Name: "
@ 11,33 get mfirstname Picture "@!"
@ 13,10 say "T)ape R)ecord C)ompact disk "
@ 13,48 get mmedium picture "!" valid (mmedium $ "TRC")
@ 15,10 say "I)nstramental V)ocal M)ixed "
@ 15,48 get mtype picture "!" valid (mtype $ "IVM")
@ 17,10 say "J)azz C)lassic M)ellow "
@ 17,48 get mcat picture "!" valid (mcat $ "JCM")
do f1 with "HELP"
@ 0,0 to 24,79 double
read
MSG1 = "1. FILE "
MSG2 = "2. EDIT "
MSG3 = "3. NEXT "
MSG4 = "4. DELETE"
MSG5 = "0. ABORT "
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 5
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "FENDA"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
ANSWER = STR(SELECTION,1)
do case
case answer = "0"
return
case answer = "1"
case answer = "2"
do clearit with 21,1,23,78
loop
case answer = "4"
delete
skip
do clearit with 21,1,23,78
loop
case answer = "3"
skip
do clearit with 21,1,23,78
loop
endcase
replace title with mtitle
replace lastname with mlastname
replace firstname with mfirstname
replace medium with mmedium
replace type with mtype
replace cat with mcat
do clearit with 21,1,23,78
MSG1 = "1. NEXT RECORD"
MSG2 = "0. MAIN MENU "
MSG3 = "XXXX"
MSG4 = "XXXX"
MSG5 = "XXXX"
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 2
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "NM"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
CHOICE = STR(SELECTION,1)
if CHOICE = "0"
return
endif
do clearit with 21,1,23,78
skip
enddo
@ 23,5 say "Press any key to proceed"
set console off
wait
set console on
endif
endcase
enddo
enddo
**********************************************************************
**********************************************************************
* *
* S. Robert Davidoff *
* *
* *
**********************************************************************
* AUD_ENT.PRG *
**********************************************************************
procedure aud_ent
clear
do banner with "ENTER AUDIO INFORMATION"
do while .T.
mtitle = space(35)
mlastname = space(25)
mfirstname = space(25)
mmedium = space(1) && Tape,Record,Compact disk
mtype = space(1) && Instramental, Vocal, mixed
mcat = space(1) && Jazz, Classical, Opera, Big band, Mellow or mood
do while .T.
answer = space(1)
@ 7,10 say "Enter Title: "
@ 7,33 get mtitle Picture "@!"
@ 9,10 say "Enter Last Name: "
@ 9,33 get mlastname Picture "@!"
@ 11,10 say "Enter First Name: "
@ 11,33 get mfirstname Picture "@!"
@ 13,10 say "T)ape R)ecord C)ompact disk "
@ 13,48 get mmedium picture "!" valid (mmedium $ "TRC")
@ 15,10 say "I)nstramental V)ocal M)ixed "
@ 15,48 get mtype picture "!" valid (mtype $ "IVM")
@ 17,10 say "J)azz C)lassic M)ellow "
@ 17,48 get mcat picture "!" valid (mcat $ "JCM")
do f1 with "HELP"
@ 0,0 to 24,79 double
read
MSG1 = "1. FILE "
MSG2 = "2. EDIT "
MSG3 = "0. ABORT"
MSG4 = "XXXX"
MSG5 = "XXXX"
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 3
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "FEA"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
CHOICE = STR(SELECTION,1)
do case
case choice = "0"
return
case choice = "1"
exit
case choice = "2"
do clearit with 21,1,23,78
loop
endcase
enddo
append blank
replace title with mtitle
replace lastname with mlastname
replace firstname with mfirstname
replace medium with mmedium
replace type with mtype
replace cat with mcat
do clearit with 21,1,23,78
MSG1 = "1. ADD ANOTHER RECORD"
MSG2 = "0. MAIN MENU "
MSG3 = "XXXX"
MSG4 = "XXXX"
MSG5 = "XXXX"
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 2
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "NM"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
CHOICE = STR(SELECTION,1)
if choice = "0"
return
endif
do clearit with 21,1,23,78
enddo
**********************************************************************
**********************************************************************
**********************************************************************
*aud_set.prg
**********************************************************************
procedure aud_set
clear
SET color to I
do center with 12, "NOT READY WITH THIS YET"
SET color to
@ 0,0 TO 24,79 DOUBLE
@ 6,20 TO 18,60 DOUBLE
INKEY(0)
RETURN
**********************************************************************
**********************************************************************
* *
*S. Robert Davidoff*
* *
* *
**********************************************************************
*AUD_SRCH.PRG
**********************************************************************
procedure aud_srch
do while .T.
select 1
use audio index a_title, a_artist
clear
do banner with "SEARCH AUDIO INFORMATION"
@ 0,0 to 24,79 double
do while .T.
mtitle = space(35)
mlastname = space(25)
mfirstname = space(25)
mmedium = space(1) && Tape,Record,Compact disk
mtype = space(1) && Instramental, Vocal, mixed
mcat = space(1) && Jazz, Classical, Opera, Big band, Mellow or mood
heading1 = "1. LIST TO SCREEN"
heading2 = "2. LIST TO PRINT "
heading3 = "3. FIND TITLE "
heading4 = "4. FIND ARTIST "
heading5 = "0.MAIN MENU "
heading6 = "XXXX"
heading7 = "XXXX"
heading8 = "XXXX"
heading9 = "XXXX"
heading0 = "XXXX"
num_items = 5
X = 7
Y =27
W = LEN(HEADING1)
@ 22,1 say bar
@ 23,2 say "Use UP and DOWN arrows to highlight choice...Press ENTER to select"
do lightbar with num_items,X,Y,W,heading1,heading2,heading3,heading4,heading5,heading6,heading7,heading8,heading9,heading0
choice = str(selection,1)
DO case
case choice = "0"
return
case choice = "1"
HELP_CODE = "00"
MSG1 = "1. ALL "
MSG2 = "2. CD'S "
MSG3 = "3. TAPES "
MSG4 = "4. RECORDS"
MSG5 = "0. MENU "
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 5
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "ACTRM"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
CHOICE = STR(SELECTION,1)
DO CASE
case choice = "1"
set filter to
case choice = "2"
set filter to medium = "C"
case choice = "3"
set filter to medium = "T"
case choice = "4"
set filter to medium = "R"
case choice = "0"
return
endcase
clear
set order to 2
goto top
row = 1
do while .not. eof()
do case
case medium = "T"
mmedium = "TAPE"
CASE MEDIUM = "R"
MMEDIUM = "REC"
CASE MEDIUM = "C"
MMEDIUM = "CD"
endcase
do case
case type = "I"
mtype = "INS"
CASE TYPE = "V"
MTYPE = "VOC"
CASE TYPE = "M"
MTYPE = "MIX"
endcase
do case
case cat = "J"
mcat = "JAZZ"
case cat = "C"
mcat = "CLAS"
case cat = "M"
mcat = "MOOD"
endcase
@ row,0 say trim(title)
if empty(firstname)
@ row,33 say trim(lastname)
else
@ row,33 say trim(lastname) + "," + trim(firstname)
endif
@ row,58 say mmedium
@ row,66 say mtype
@ row,73 say mcat
row = row()+1
if row > 20
@ 23,5 say "Press any key to proceed"
set console off
wait to choice
set console on
if choice = "0" .or. upper(choice) = "M"
return
endif
skip
if eof()
return
endif
clear
row = 1
else
skip
endif
enddo
@ 23,5 say "Press any key to proceed"
set console off
wait
set console on
return
case choice = "2"
MSG1 = "1. ALL "
MSG2 = "2. CD'S "
MSG3 = "3. TAPES "
MSG4 = "4. RECORDS"
MSG5 = "0. MENU "
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 5
X = 23
Y = 1
W = LEN(MSG1)
MSTRING = "ACTRM"
DO CLEARIT WITH X-1,Y,X,78
@ X-1,1 SAY BAR
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
CHOICE = STR(SELECTION,1)
DO CASE
case choice = "1"
set filter to
case choice = "2"
set filter to medium = "C"
case choice = "3"
set filter to medium = "J"
case choice = "4"
set filter to medium = "R"
case choice = "0"
return
endcase
clear
do print_set
if upper(choice) = "A"
return
endif
set device to print
set order to 2
goto top
row = 5
do while .not. eof()
do case
case medium = "T"
mmedium = "TAPE"
CASE MEDIUM = "R"
MMEDIUM = "REC"
CASE MEDIUM = "C"
MMEDIUM = "CD"
endcase
do case
case type = "I"
mtype = "INST"
CASE TYPE = "V"
MTYPE = "VOC"
CASE TYPE = "M"
MTYPE = "MIX"
endcase
do case
case cat = "J"
mcat = "JAZZ"
case cat = "C"
mcat = "CLAS"
case cat = "M"
mcat = "MOOD"
endcase
@ row,2 say trim(title)
if empty(firstname)
@ row,35 say trim(lastname)
else
@ row,35 say trim(lastname) + "," + trim(firstname)
endif
@ row,58 say mmedium
@ row,66 say mtype
@ row,73 say mcat
row = prow()+1
if row > 50
skip
if eof()
return
endif
eject
row = 5
else
skip
endif
enddo
eject
set device to screen
return
**********************************************************************
*FIND TITLES
**********************************************************************
case choice = "3"
HELP_CODE = "AT"
set order to 1
goto top
mtitle = space(35)
do clearit with 1,1,23,78
@ 8,20 say "Enter Title: " get mtitle Picture "@!"
DO F1 WITH "LIST TITLES"
read
row = 1
mtitle = alltrim(mtitle)
seek mtitle
if eof()
goto top
do clearit with 1,1,23,78
do while ! eof()
if AT(mtitle,title) > 0
************
do case
case medium = "T"
mmedium = "TAPE"
CASE MEDIUM = "R"
MMEDIUM = "REC"
CASE MEDIUM = "C"
MMEDIUM = "CD"
endcase
do case
case type = "I"
mtype = "INS"
CASE TYPE = "V"
MTYPE = "VOC"
CASE TYPE = "M"
MTYPE = "MIX"
endcase
do case
case cat = "J"
mcat = "JAZZ"
case cat = "C"
mcat = "CLAS"
case cat = "M"
mcat = "MOOD"
endcase
@ row,1 say trim(title)
if empty(firstname)
@ row,33 say trim(lastname)
else
@ row,33 say trim(lastname) + "," + trim(firstname)
endif
@ row,57 say mmedium
@ row,65 say mtype
@ row,72 say mcat
************
*@ row,5 say title
*@ row,40 say trim(lastname) + "," + firstname
row = row+1
if row > 20
@ 23,5 say "Press any key to proceed"
set console off
wait to choice
set console on
if choice = "0"
return
endif
skip
if eof()
loop
else
row = 1
do clearit with 1,1,23,78
loop
endif
endif
endif
skip
enddo
@ 23,5 say "Press any key to proceed"
set console off
wait
set console on
else
do clearit with 1,1,23,78
do while ! eof() .and. (mtitle = substr(title,1,(len(mtitle))))
************
do case
case medium = "T"
mmedium = "TAPE"
CASE MEDIUM = "R"
MMEDIUM = "REC"
CASE MEDIUM = "C"
MMEDIUM = "CD"
endcase
do case
case type = "I"
mtype = "INS"
CASE TYPE = "V"
MTYPE = "VOC"
CASE TYPE = "M"
MTYPE = "MIX"
endcase
do case
case cat = "J"
mcat = "JAZZ"
case cat = "C"
mcat = "CLAS"
case cat = "M"
mcat = "MOOD"
endcase
@ row,1 say trim(title)
if empty(firstname)
@ row,33 say trim(lastname)
else
@ row,33 say trim(lastname) + "," + trim(firstname)
endif
@ row,57 say mmedium
@ row,65 say mtype
@ row,72 say mcat
************
*@ row,5 say title
*@ row,40 say trim(lastname) + "," + firstname
row = row+1
if row > 20
@ 23,5 say "Press any key to proceed"
set console off
wait to choice
set console on
if choice = "0"
return
endif
skip
if eof()
loop
else
row = 1
do clearit with 1,1,23,78
loop
endif
endif
skip
enddo
@ 23,5 say "Press any key to proceed"
set console off
wait
set console on
endif
**********************************************************************
* FIND ARTISTS
**********************************************************************
case choice = "4"
set order to 2
goto top
mLastName = space(35)
do clearit with 1,1,23,78
@ 8,20 say "Enter Last Name: " get mLastName Picture "@!"
DO F1 WITH "HELP"
read
row = 1
mLastName = alltrim(mLastName)
seek mLastName
if eof()
goto top
do clearit with 1,1,23,78
do while ! eof()
if AT(mLastName,LastName) > 0
*****************
do case
case medium = "T"
mmedium = "TAPE"
CASE MEDIUM = "R"
MMEDIUM = "REC"
CASE MEDIUM = "C"
MMEDIUM = "CD"
endcase
do case
case type = "I"
mtype = "INS"
CASE TYPE = "V"
MTYPE = "VOC"
CASE TYPE = "M"
MTYPE = "MIX"
endcase
do case
case cat = "J"
mcat = "JAZZ"
case cat = "C"
mcat = "CLAS"
case cat = "M"
mcat = "MOOD"
endcase
@ row,1 say trim(title)
if empty(firstname)
@ row,33 say trim(lastname)
else
@ row,33 say trim(lastname) + "," + trim(firstname)
endif
@ row,57 say mmedium
@ row,65 say mtype
@ row,72 say mcat
row = row+1
if row > 20
@ 23,5 say "Press any key to proceed"
set console off
wait to choice
set console on
if choice = "0"
return
endif
skip
if eof()
loop
else
row = 1
do clearit with 1,1,23,78
loop
endif
endif
endif
skip
enddo
@ 23,5 say "Press any key to proceed"
set console off
wait
set console on
else
do clearit with 1,1,23,78
do while ! eof() .and. (mLastName = substr(LastName,1,(len(mLastName))))
***********
do case
case medium = "T"
mmedium = "TAPE"
CASE MEDIUM = "R"
MMEDIUM = "REC"
CASE MEDIUM = "C"
MMEDIUM = "CD"
endcase
do case
case type = "I"
mtype = "INS"
CASE TYPE = "V"
MTYPE = "VOC"
CASE TYPE = "M"
MTYPE = "MIX"
endcase
do case
case cat = "J"
mcat = "JAZZ"
case cat = "C"
mcat = "CLAS"
case cat = "M"
mcat = "MOOD"
endcase
@ row,1 say trim(title)
if empty(firstname)
@ row,33 say trim(lastname)
else
@ row,33 say trim(lastname) + "," + trim(firstname)
endif
@ row,57 say mmedium
@ row,65 say mtype
@ row,72 say mcat
row = row+1
if row > 20
@ 23,5 say "Press any key to proceed"
set console off
wait to choice
set console on
if choice = "0"
return
endif
skip
if eof()
loop
else
row = 1
do clearit with 1,1,23,78
loop
endif
endif
skip
enddo
@ 23,5 say "Press any key to proceed"
set console off
wait
set console on
endif
endcase
do clearit with 1,1,23,78
enddo
enddo
**********************************************************************
****************************END AUDIO.PRG*****************************
**********************************************************************
