************ MUSIC   .CMD **** Version 1.7 **** 04/09/1984 *********** 
* 
* 
*    Author......: James A. Gronek 
*    Notice......: Copyright 04/09/1984, UCS Inc.     All Rights Reserved 
* 
*    Called by...: DBASEII                                   
* 
*    Call(s).....: N/A                                       
* 
*    Uses(.dbf)..: MUSIC.DBF                                 
* 
*    Creates.....: N/A                                       
* 
*    Interfaces..: N/A                                       
* 
*    Notes.......: Music Library Management Program          
* 
* 
CLEAR
ERASE
SET talk OFF
@ 12,05 SAY "This is the Main Menu for The Music Management System" 
@ 16,05 SAY "Type an 'X' to exit, or any other key to continue...." 
?
?
WAIT TO CONTINUE
IF !(CONTINUE)= 'X' 
QUIT
ELSE
RELEASE CONTINUE
ENDIF !(CONTINUE)= 'X' 
STORE 'B' TO drive
ERASE
@ 12,20 SAY "What drive are your work files on?" GET drive PICTURE "A" 
READ
SET DEFAULT TO &drive
USE music
STORE '?' TO choice
DO WHILE t
ERASE
@ 1, 0 SAY "++================================================" 
@ 1,50 SAY "============================++" 
@ 2, 0 SAY "||                     MUSIC MANAGEMENT SYSTEM MAI" 
@ 2,50 SAY "N MENU                      ||" 
@ 3, 0 SAY "++================================================" 
@ 3,50 SAY "============================++" 
@ 4, 0 SAY "||" 
@ 4,78 SAY "||" 
@ 5, 0 SAY "||          You may perform the following function" 
@ 5,50 SAY "s:                          ||" 
@ 6, 0 SAY "||" 
@ 6,78 SAY "||" 
@ 7, 0 SAY "||              (1) - Add new records/tapes/casset" 
@ 7,50 SAY "tes to the database         ||" 
@ 8, 0 SAY "||" 
@ 8,78 SAY "||" 
@ 9, 0 SAY "||              (2) - Edit the database" 
@ 9,78 SAY "||" 
@ 10, 0 SAY "||" 
@ 10,78 SAY "||" 
@ 11, 0 SAY "||              (3) - Search for database entries" 
@ 11,78 SAY "||" 
@ 12, 0 SAY "||" 
@ 12,78 SAY "||" 
@ 13, 0 SAY "||              (4) -Quit to CP/M" 
@ 13,78 SAY "||" 
@ 14, 0 SAY "||" 
@ 14,78 SAY "||" 
@ 15, 0 SAY "||" 
@ 15,78 SAY "||" 
@ 16, 0 SAY "||" 
@ 16,78 SAY "||" 
@ 17, 0 SAY "||" 
@ 17,78 SAY "||" 
@ 18, 0 SAY "||              Enter your choice please----->" 
@ 18,47 GET choice PICTURE "9" 
@ 18,78 SAY "||" 
@ 19, 0 SAY "||" 
@ 19,78 SAY "||" 
@ 20, 0 SAY "||" 
@ 20,78 SAY "||" 
@ 21, 0 SAY "||" 
@ 21,78 SAY "||" 
@ 22, 0 SAY "++================================================" 
@ 22,50 SAY "============================++" 
READ
DO CASE
CASE choice= '1' 
STORE '?' TO choice
ERASE
@ 12,10 SAY "This is the Home Music Management System Add Routine......" 
@ 16,07 SAY "Type an 'X' to exit, or any other key to continue..." 
WAIT TO CONTINUE
IF !(CONTINUE)= 'X' 
RELEASE CONTINUE
STORE 'N' TO more
ELSE
RELEASE CONTINUE
STORE 'Y' TO more
ENDIF !(CONTINUE)= 'X' 
DO WHILE !(more)<> 'N' 
STORE '                    ' TO artist
STORE ' ' TO media
STORE '   ' TO number
STORE '                              ' TO title
STORE '				     ' TO sel1,sel2,sel3,sel4,sel5
STORE '                                                       ' TO comments
ERASE
@ 1, 0 SAY "++================================================" 
@ 1,50 SAY "============================++" 
@ 2, 0 SAY "||                       Home Music Management Sys" 
@ 2,50 SAY "tem                         ||" 
@ 3, 0 SAY "++================================================" 
@ 3,50 SAY "============================++" 
@ 4, 0 SAY "||" 
@ 4,78 SAY "||" 
@ 5, 0 SAY "||  Artist" 
@ 5,11 GET artist PICTURE "!!!!!!!!!!!!!!!!!!!!" 
@ 5,40 SAY "Media" 
@ 5,46 GET media PICTURE "!" 
@ 5,57 SAY "Number" 
@ 5,64 GET number PICTURE "999" 
@ 5,78 SAY "||" 
@ 6, 0 SAY "||" 
@ 6,78 SAY "||" 
@ 7, 0 SAY "||  Title" 
@ 7,11 GET title PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 
@ 7,78 SAY "||" 
@ 8, 0 SAY "||" 
@ 8,78 SAY "||" 
@ 9, 0 SAY "||  Selection 1:" 
@ 9,17 GET sel1 PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 
@ 9,78 SAY "||" 
@ 10, 0 SAY "||" 
@ 10,78 SAY "||" 
@ 11, 0 SAY "||  Selection 2:" 
@ 11,17 GET sel2 PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 
@ 11,78 SAY "||" 
@ 12, 0 SAY "||" 
@ 12,78 SAY "||" 
@ 13, 0 SAY "||  Selection 3:" 
@ 13,17 GET sel3 PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 
@ 13,78 SAY "||" 
@ 14, 0 SAY "||" 
@ 14,78 SAY "||" 
@ 15, 0 SAY "||  Selection 4:" 
@ 15,17 GET sel4 PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 
@ 15,78 SAY "||" 
@ 16, 0 SAY "||" 
@ 16,78 SAY "||" 
@ 17, 0 SAY "||  Selection 5:" 
@ 17,17 GET sel5 PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 
@ 17,78 SAY "||" 
@ 18, 0 SAY "||" 
@ 18,78 SAY "||" 
@ 19, 0 SAY "||  Comments:" 
@ 19,14 GET comments PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 
@ 19,78 SAY "||" 
@ 20, 0 SAY "||" 
@ 20,78 SAY "||" 
@ 21, 0 SAY "||" 
@ 21,78 SAY "||" 
@ 22, 0 SAY "++================================================" 
@ 22,50 SAY "============================++" 
READ
APPEND BLANK
REPLACE artist WITH artist
REPLACE media WITH media
REPLACE number WITH number
REPLACE sel1 WITH sel1
REPLACE sel2 WITH sel2
REPLACE sel3 WITH sel3
REPLACE sel4 WITH sel4
REPLACE sel5 WITH sel5
REPLACE comments WITH comments
ERASE
@ 12,20 SAY "DO YOU HAVE MORE TO ADD (Y/N)?" 
?
?
WAIT TO more
ENDDO WHILE !(more)<> 'N' 
CASE choice= '2' 
STORE '?' TO choice
ERASE
@ 12,10 SAY "This is the Home Music Management System Edit Routine" 
@ 16,10 SAY "Type an 'X' to exit, or any other key to continue...." 
?
?
WAIT TO CONTINUE
IF !(CONTINUE)= 'X' 
RELEASE CONTINUE
STORE 'N' TO looking
ELSE
RELEASE CONTINUE
STORE 'Y' TO looking
ENDIF !(CONTINUE)= 'X' 
STORE '?' TO edchoice
DO WHILE !(looking)<> 'N' 
STORE artist TO artist
STORE media TO media
STORE number TO number
STORE title TO title
STORE sel1 TO sel1
STORE sel2 TO sel2
STORE sel3 TO sel3
STORE sel4 TO sel4
STORE sel5 TO sel5
STORE comments TO comments
ERASE
@ 1, 0 SAY "++================================================" 
@ 1,50 SAY "============================++" 
@ 2, 0 SAY "||                  HOME MUSIC MANAGEMENT SYSTEM E" 
@ 2,50 SAY "DIT ROUTINE                 ||" 
@ 3, 0 SAY "++================================================" 
@ 3,50 SAY "============================++" 
@ 4, 0 SAY "||" 
@ 4,78 SAY "||" 
@ 5, 0 SAY "||  ARTIST" 
@ 5,11 SAY artist
@ 5,44 SAY "MEDIA" 
@ 5,50 SAY media
@ 5,60 SAY "NUMBER" 
@ 5,67 SAY number
@ 5,78 SAY "||" 
@ 6, 0 SAY "||" 
@ 6,78 SAY "||" 
@ 7, 0 SAY "||  TITLE" 
@ 7,10 SAY title
@ 7,78 SAY "||" 
@ 8, 0 SAY "||" 
@ 8,78 SAY "||" 
@ 9, 0 SAY "||  SELECTION 1" 
@ 9,16 SAY sel1
@ 9,78 SAY "||" 
@ 10, 0 SAY "||  SELECTION 2" 
@ 10,16 SAY sel2
@ 10,78 SAY "||" 
@ 11, 0 SAY "||  SELECTION 3" 
@ 11,16 SAY sel3
@ 11,78 SAY "||" 
@ 12, 0 SAY "||  SELECTION 4" 
@ 12,16 SAY sel4
@ 12,78 SAY "||" 
@ 13, 0 SAY "||  SELECTION 5" 
@ 13,16 SAY sel5
@ 13,78 SAY "||" 
@ 14, 0 SAY "||" 
@ 14,78 SAY "||" 
@ 15, 0 SAY "||  COMMENTS" 
@ 15,13 SAY comments
@ 15,78 SAY "||" 
@ 16, 0 SAY "++================================================" 
@ 16,50 SAY "============================++" 
@ 17, 0 SAY "||  B)ackward 1 Record   F)orward 1 Record" 
@ 17,51 SAY "1-9)Move x Records (B or F)||" 
@ 18, 0 SAY "||  E)dit Record           D)elete Record" 
@ 18,51 SAY "S)earch for Record         ||" 
@ 19, 0 SAY "||" 
@ 19,78 SAY "||" 
@ 20, 0 SAY "||   <RETURN> to exit to Main Menu       Enter you" 
@ 20,50 SAY "r choice please---->" 
@ 20,70 GET edchoice PICTURE "!" 
@ 20,78 SAY "||" 
@ 21, 0 SAY "||" 
@ 21,78 SAY "||" 
@ 22, 0 SAY "++================================================" 
@ 22,50 SAY "============================++" 
READ
DO CASE
CASE !(edchoice)= 'B' 
STORE '?' TO edchoice
SKIP -1
STORE 'Y' TO looking
CASE !(edchoice)= 'F' 
STORE '?' TO edchoice
SKIP 1
STORE 'Y' TO looking
CASE !(edchoice) >= "1" .AND. !(edchoice) <= "9" 
STORE '?' TO bf
@ 20,0
@ 20,0 SAY "||     B)ackwards or F)orwards ?" 
@ 20,78 SAY "||" 
@ 20,40 GET bf PICTURE "A" 
READ
DO CASE
CASE !(bf)= 'B' 
SKIP -&edchoice
RELEASE bf
STORE '?' TO edchoice
STORE 'Y' TO looking
CASE !(bf)= 'F' 
SKIP &edchoice
RELEASE bf
STORE '?' TO edchoice
STORE 'Y' TO looking
OTHERWISE
RELEASE bf
STORE '?' TO edchoice
STORE 'Y' TO looking
ENDCASE 
CASE !(edchoice)= 'E' 
STORE '?' TO edchoice
STORE artist TO artist
STORE media TO media
STORE number TO number
STORE title TO title
STORE sel1 TO sel1
STORE sel2 TO sel2
STORE sel3 TO sel3
STORE sel4 TO sel4
STORE sel5 TO sel5
STORE comments TO comments
ERASE
@ 1, 0 SAY "++================================================" 
@ 1,50 SAY "============================++" 
@ 2, 0 SAY "||                  HOME MUSIC MANAGEMENT SYSTEM E" 
@ 2,50 SAY "DIT ROUTINE                 ||" 
@ 3, 0 SAY "++================================================" 
@ 3,50 SAY "============================++" 
@ 4, 0 SAY "||" 
@ 4,78 SAY "||" 
@ 5, 0 SAY "||  ARTIST" 
@ 5,11 GET artist
@ 5,44 SAY "MEDIA" 
@ 5,50 GET media
@ 5,60 SAY "NUMBER" 
@ 5,67 GET number
@ 5,78 SAY "||" 
@ 6, 0 SAY "||" 
@ 6,78 SAY "||" 
@ 7, 0 SAY "||  TITLE" 
@ 7,10 GET title
@ 7,78 SAY "||" 
@ 8, 0 SAY "||" 
@ 8,78 SAY "||" 
@ 9, 0 SAY "||  SELECTION 1" 
@ 9,16 GET sel1
@ 9,78 SAY "||" 
@ 10, 0 SAY "||  SELECTION 2" 
@ 10,16 GET sel2
@ 10,78 SAY "||" 
@ 11, 0 SAY "||  SELECTION 3" 
@ 11,16 GET sel3
@ 11,78 SAY "||" 
@ 12, 0 SAY "||  SELECTION 4" 
@ 12,16 GET sel4
@ 12,78 SAY "||" 
@ 13, 0 SAY "||  SELECTION 5" 
@ 13,16 GET sel5
@ 13,78 SAY "||" 
@ 14, 0 SAY "||" 
@ 14,78 SAY "||" 
@ 15, 0 SAY "||  COMMENTS" 
@ 15,13 GET comments
@ 15,78 SAY "||" 
@ 16, 0 SAY "++================================================" 
@ 16,50 SAY "============================++" 
@ 17, 0 SAY "||" 
@ 17,78 SAY "||" 
@ 18, 0 SAY "||" 
@ 18,78 SAY "||" 
@ 19, 0 SAY "||" 
@ 19,78 SAY "||" 
@ 20, 0 SAY "||   Edit Record as you please, <Return> to leave unchanged...." 
@ 20,78 SAY "||" 
@ 21, 0 SAY "||" 
@ 21,78 SAY "||" 
@ 22, 0 SAY "++================================================" 
@ 22,50 SAY "============================++" 
READ
REPLACE artist WITH artist
REPLACE media WITH media
REPLACE number WITH number
REPLACE sel1 WITH sel1
REPLACE sel2 WITH sel2
REPLACE sel3 WITH sel3
REPLACE sel4 WITH sel4
REPLACE sel5 WITH sel5
REPLACE comments WITH comments
STORE 'Y' TO looking
CASE !(edchoice)= 'D' 
STORE '?' TO edchoice
STORE 'N' TO yn
ERASE
@ 12,20 SAY "ARE YOU SURE (Y/N)????" GET yn PICTURE "!" 
READ
IF yn= 'Y' 
DELETE
PACK
RELEASE yn
ELSE
RELEASE yn
ENDIF yn= 'Y' 
STORE 'Y' TO looking
CASE !(edchoice)= 'S' 
STORE '?' TO edchoice
STORE '?' TO pick
ERASE
@ 1, 0 SAY "++================================================" 
@ 1,50 SAY "============================++" 
@ 2, 0 SAY "||                  MUSIC MANAGEMENT SYSTEM SEARCH" 
@ 2,51 SAY "ROUTINE                    ||" 
@ 3, 0 SAY "++================================================" 
@ 3,50 SAY "============================++" 
@ 4, 0 SAY "||" 
@ 4,78 SAY "||" 
@ 5, 0 SAY "||      You have a number of options to select fro" 
@ 5,50 SAY "m in your search.           ||" 
@ 6, 0 SAY "||" 
@ 6,78 SAY "||" 
@ 7, 0 SAY "||      You can select by the following methods..." 
@ 7,78 SAY "||" 
@ 8, 0 SAY "||" 
@ 8,78 SAY "||" 
@ 9, 0 SAY "||          (1)  By keyword, as listed in the COMM" 
@ 9,50 SAY "ENTS field                  ||" 
@ 10, 0 SAY "||          (2)  By keyword, as listed in the SELE" 
@ 10,50 SAY "CTION fields                ||" 
@ 11, 0 SAY "||          (3)  By keyword, as listed in the TITL" 
@ 11,50 SAY "E field                     ||" 
@ 12, 0 SAY "||          (4)  By Artist's name" 
@ 12,78 SAY "||" 
@ 13, 0 SAY "||          (5)  By Media type" 
@ 13,78 SAY "||" 
@ 14, 0 SAY "||          (6)  By Number" 
@ 14,78 SAY "||" 
@ 15, 0 SAY "||          (7)  Return to Edit Menu" 
@ 15,78 SAY "||" 
@ 16, 0 SAY "||" 
@ 16,78 SAY "||" 
@ 17, 0 SAY "||" 
@ 17,78 SAY "||" 
@ 18, 0 SAY "||" 
@ 18,78 SAY "||" 
@ 19, 0 SAY "||" 
@ 19,78 SAY "||" 
@ 20, 0 SAY "||     How do you wish to select?" 
@ 20,46 GET pick PICTURE "9" 
@ 20,78 SAY "||" 
@ 21, 0 SAY "||" 
@ 21,78 SAY "||" 
@ 22, 0 SAY "++================================================" 
@ 22,50 SAY "============================++" 
READ
DO CASE
CASE pick= '1' 
STORE '               ' TO kw
ERASE
@ 12,10 SAY "Enter KEYWORD for search" GET kw PICTURE 'XXXXXXXXXXXXXXX' 
READ
STORE trim(kw) TO tkw
GO TOP
DISPLAY FOR "&TKW" $comments artist, title, media, number OFF
WAIT
STORE '?' TO pick
CASE pick= '2' 
STORE '               ' TO kw
ERASE
@ 12,10 SAY "Enter KEYWORD for search" GET kw PICTURE 'XXXXXXXXXXXXXXX' 
READ
STORE trim(kw) TO tkw
GO TOP
DISPLAY FOR "&TKW" $sel1.OR. "&TKW" $sel2.OR. "&TKW" $sel3.OR. "&TKW" $sel4.OR.;
"&TKW" $sel5 artist, title, media, number OFF
WAIT
STORE '?' TO pick
CASE pick= '3' 
STORE '               ' TO kw
ERASE
@ 12,10 SAY "Enter KEYWORD for search" GET kw PICTURE 'XXXXXXXXXXXXXXX' 
READ
STORE trim(kw) TO tkw
GO TOP
DISPLAY FOR "&TKW" $title artist, title, media, number OFF
WAIT
STORE '?' TO pick
CASE pick= '4' 
STORE '               ' TO kw
ERASE
@ 12,10 SAY "Enter Artist's Name for search" GET kw PICTURE 'XXXXXXXXXXXXXXX' 
READ
STORE trim(kw) TO tkw
GO TOP
DISPLAY FOR "&TKW" $artist artist, title, media, number OFF
WAIT
STORE '?' TO pick
CASE pick= '5' 
STORE ' ' TO type
ERASE
@ 12,10 SAY "Enter Media type for search (R/C/T)" GET type PICTURE 'A' 
READ
GO TOP
DISPLAY FOR media= '&TYPE' artist, title, media, number OFF
WAIT
STORE '?' TO pick
CASE pick= '6' 
STORE '000' TO num
ERASE
@ 12,20 SAY "Enter the number to find---->" GET num PICTURE '999' 
READ
GO TOP
DISPLAY FOR number= '&NUM' artist, title, media, number OFF
WAIT
RELEASE num
STORE '?' TO pick
CASE pick= '7' 
RELEASE pick	
GO TOP
STORE 'Y' TO looking
OTHERWISE
RELEASE pick
GO TOP
STORE 'N' TO looking
ENDCASE 
OTHERWISE
RELEASE edchoice
STORE 'N' TO looking
ENDCASE 
ENDDO WHILE !(looking)<> 'N' 
CASE choice= '3' 
ERASE
@ 12,20 SAY "THIS IS THE MUSIC SEARCH ROUTINE...." 
@ 16,10 SAY "Type an 'X' to exit, or any other key to continue..." 
?
?
WAIT TO CONTINUE
IF !(CONTINUE)= 'X' 
RELEASE CONTINUE 
STORE '?' TO choice
STORE f TO srch
ELSE
RELEASE CONTINUE
STORE t TO srch
ENDIF !(CONTINUE)= 'X' 
STORE '?' TO choice
STORE '?' TO pick
DO WHILE srch
ERASE
@ 1, 0 SAY "++================================================" 
@ 1,50 SAY "============================++" 
@ 2, 0 SAY "||                  MUSIC MANAGEMENT SYSTEM SEARCH" 
@ 2,51 SAY "ROUTINE                    ||" 
@ 3, 0 SAY "++================================================" 
@ 3,50 SAY "============================++" 
@ 4, 0 SAY "||" 
@ 4,78 SAY "||" 
@ 5, 0 SAY "||      You have a number of options to select fro" 
@ 5,50 SAY "m in your search.           ||" 
@ 6, 0 SAY "||" 
@ 6,78 SAY "||" 
@ 7, 0 SAY "||      You can select by the following methods..." 
@ 7,78 SAY "||" 
@ 8, 0 SAY "||" 
@ 8,78 SAY "||" 
@ 9, 0 SAY "||          (1)  By keyword, as listed in the COMM" 
@ 9,50 SAY "ENTS field                  ||" 
@ 10, 0 SAY "||          (2)  By keyword, as listed in the SELE" 
@ 10,50 SAY "CTION fields                ||" 
@ 11, 0 SAY "||          (3)  By keyword, as listed in the TITL" 
@ 11,50 SAY "E field                     ||" 
@ 12, 0 SAY "||          (4)  By Artist's name" 
@ 12,78 SAY "||" 
@ 13, 0 SAY "||          (5)  By Media type" 
@ 13,78 SAY "||" 
@ 14, 0 SAY "||          (6)  By Number" 
@ 14,78 SAY "||" 
@ 15, 0 SAY "||          (7)  By multiple KEYWORD, as listed in COMMENTS" 
@ 15,78 SAY "||" 
@ 16, 0 SAY "||          (8)  Return to Main Menu" 
@ 16,78 SAY "||" 
@ 17, 0 SAY "||" 
@ 17,78 SAY "||" 
@ 18, 0 SAY "||" 
@ 18,78 SAY "||" 
@ 19, 0 SAY "||" 
@ 19,78 SAY "||" 
@ 20, 0 SAY "||     How do you wish to select?" 
@ 20,46 GET pick PICTURE "9" 
@ 20,78 SAY "||" 
@ 21, 0 SAY "||" 
@ 21,78 SAY "||" 
@ 22, 0 SAY "++================================================" 
@ 22,50 SAY "============================++" 
READ
DO CASE
CASE pick= '1' 
STORE '               ' TO kw
ERASE
@ 12,10 SAY "Enter KEYWORD for search" GET kw PICTURE 'XXXXXXXXXXXXXXX' 
READ
STORE trim(kw) TO tkw
DISPLAY FOR "&TKW" $comments artist, title, media, number OFF
WAIT
STORE '?' TO pick
CASE pick= '2' 
STORE '               ' TO kw
ERASE
@ 12,10 SAY "Enter KEYWORD for search" GET kw PICTURE 'XXXXXXXXXXXXXXX' 
READ
STORE trim(kw) TO tkw
DISPLAY FOR "&TKW" $sel1.OR. "&TKW" $sel2.OR. "&TKW" $sel3.OR. "&TKW" $sel4.OR.;
"&TKW" $sel5 artist, title, media, number OFF
WAIT
STORE '?' TO pick
CASE pick= '3' 
STORE '               ' TO kw
ERASE
@ 12,10 SAY "Enter KEYWORD for search" GET kw PICTURE 'XXXXXXXXXXXXXXX' 
READ
STORE trim(kw) TO tkw
DISPLAY FOR "&TKW" $title artist, title, media, number OFF
WAIT
STORE '?' TO pick
CASE pick= '4' 
STORE '               ' TO kw
ERASE
@ 12,10 SAY "Enter Artist's Name for search" ;
GET kw PICTURE 'XXXXXXXXXXXXXXX' 
READ
STORE trim(kw) TO tkw
DISPLAY FOR "&TKW" $artist artist, title, media, number OFF
WAIT
STORE '?' TO pick
CASE pick= '5' 
STORE ' ' TO type
ERASE
@ 12,10 SAY "Enter Media type for search (R/C/T)" GET type;
PICTURE 'A' 
READ
DISPLAY FOR media= '&TYPE' artist, title, media, number OFF
WAIT
STORE '?' TO pick
CASE pick= '6' 
STORE '000' TO num
ERASE
@ 12,20 SAY "Enter the number to find---->" GET num PICTURE '999' 
READ
DISPLAY FOR number= '&NUM' artist, title, media, number OFF
WAIT
STORE '?' TO pick
CASE pick= '7' 
STORE '0' TO hwmny
ERASE
@ 12,20 SAY "How many Key Words (1-4)??" GET hwmny PICTURE "9" 	
READ
DO CASE
CASE hwmny= '1' 
STORE '               ' TO kw1
ERASE
@ 12,10 SAY "Enter KEYWORD for search" GET kw1 PICTURE 'XXXXXXXXXXXXXXX' 
READ
STORE trim(kw1) TO tkw1
ERASE
DISPLAY FOR "&TKW1" $comments artist, title, media, number OFF
WAIT
STORE '?' TO pick 
CASE hwmny= '2' 
ERASE
STORE '               ' TO kw1
STORE '               ' TO kw2
@ 12,10 SAY "Enter KEYWORD for search" GET kw1 PICTURE 'XXXXXXXXXXXXXXX' 
@ 13,10 SAY "Enter KEYWORD for search" GET kw2 PICTURE 'XXXXXXXXXXXXXXX' 
READ
STORE trim(kw1) TO tkw1
STORE trim(kw2) TO tkw2
ERASE
DISPLAY FOR "&TKW1" $comments .AND. "&TKW2" $comments ;
artist, title, media, number OFF
WAIT
STORE '?' TO pick 
CASE hwmny= '3' 
ERASE
STORE '               ' TO kw1
STORE '               ' TO kw2
STORE '               ' TO kw3
@ 12,10 SAY "Enter KEYWORD for search" GET kw1 PICTURE 'XXXXXXXXXXXXXXX' 
@ 13,10 SAY "Enter KEYWORD for search" GET kw2 PICTURE 'XXXXXXXXXXXXXXX' 
@ 14,10 SAY "Enter KEYWORD for search" GET kw3 PICTURE 'XXXXXXXXXXXXXXX' 
READ
STORE trim(kw1) TO tkw1
STORE trim(kw2) TO tkw2
STORE trim(kw3) TO tkw3
ERASE
DISPLAY FOR "&TKW1" $comments .AND. "&TKW2" $comments .AND. ;
"&TKW3" $comments artist, title, media, number OFF
WAIT
STORE '?' TO pick 
CASE hwmny= '4' 
ERASE
STORE '               ' TO kw1
STORE '               ' TO kw2
STORE '               ' TO kw3
STORE '               ' TO kw4
@ 12,10 SAY "Enter KEYWORD for search" GET kw1 PICTURE 'XXXXXXXXXXXXXXX' 
@ 13,10 SAY "Enter KEYWORD for search" GET kw2 PICTURE 'XXXXXXXXXXXXXXX' 
@ 14,10 SAY "Enter KEYWORD for search" GET kw3 PICTURE 'XXXXXXXXXXXXXXX' 
@ 15,10 SAY "Enter KEYWORD for search" GET kw4 PICTURE 'XXXXXXXXXXXXXXX' 
READ
STORE trim(kw1) TO tkw1
STORE trim(kw2) TO tkw2
STORE trim(kw3) TO tkw3
STORE trim(kw4) TO tkw4
ERASE
DISPLAY FOR "&TKW1" $comments .AND. "&TKW2" $comments .AND. ;
"&TKW3" $comments .AND. "&TKW4" $comments artist, title, media, ;
number OFF
WAIT
STORE '?' TO pick 
OTHERWISE
STORE '?' TO pick
ENDCASE 
CASE pick= '8' 
RELEASE pick
STORE f TO srch
ENDCASE 
ENDDO WHILE srch 
CASE choice= '4' 
QUIT TO "DIR A:" , "DIR B:" 
ENDCASE 
ENDDO WHILE t 

