Power-Programmierung

home *** CD-ROM | disk | FTP | other *** search

/ Power-Programmierung / CD1.mdf / xbase / library / clipper / debug / prg_help / menu2.prg < prev next >

Wrap

Text File | 1987-04-07 | 39.2 KB | 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***************************** **********************************************************************