Code:

CLS' menumenu:CLSDOCOLOR 10, 0LOCATE 5, 25PRINT "DATABASE OF HUMANS"LOCATE 20, 55PRINT "(2) ADD"LOCATE 20, 5PRINT "(1) SEARCH"'my INKEY statmentkp$ = INKEY$IF kp$ = "2" THEN GOTO addpIF kp$ = "1" THEN GOTO searchp'This is the end of the menuLOOP'This adds people to the databaseaddp:CLSCOLOR 10, 0INPUT "Age:", age%PRINTLINE INPUT "First Name:", firstname$PRINTLINE INPUT "Last Name:", lname$PRINTLINE INPUT "Personality:", per$PRINTLINE INPUT "Pasttime(s):", past$PRINTLINE INPUT "Comment:", com$OPEN "database.txt" FOR APPEND AS #1WRITE #1, age%, firstname$, lname$, per$, past$, com$CLOSE #1GOTO menu'This searches for peoplesearchp:DO  CLS  LINE INPUT "Search by persons first name:", ffname$  ffname$ = UCASE$(LTRIM$(RTRIM$(ffname$)))  OPEN "database.txt" FOR INPUT AS #3  Found = 0  DO WHILE NOT EOF(3)    INPUT #3, age%, firstname$, lname$, per$, past$, com$    IF ffname$ = UCASE$(LTRIM$(RTRIM$(firstname$))) THEN      PRINT age%, firstname$, lname$, per$, past$, com$      Found = 1    END IF  LOOP  CLOSE #3  IF Found = 0 THEN    LOCATE 2, 1    PRINT "Not Found"  END IF  DO    LOCATE , , 1: PRINT "Try Again?(y/n): ";    kp$ = INPUT$(1)    PRINT kp$    kp$ = UCASE$(kp$)    IF kp$ = "N" THEN END  LOOP WHILE kp$ <> "Y"LOOP

Code:

CLS' menumenu:CLSDOCOLOR 10, 0LOCATE 5, 25PRINT "DATABASE OF HUMANS"LOCATE 20, 55PRINT "(2) ADD"LOCATE 20, 5PRINT "(1) SEARCH"'my INKEY statmentkp$ = INKEY$IF kp$ = "2" THEN GOTO addpIF kp$ = "1" THEN GOTO searchp'This is the end of the menuLOOP'This adds people to the databaseaddp:CLSCOLOR 10, 0INPUT "Age:", age%PRINTINPUT "First Name:", firstname$PRINTINPUT "Last Name:", lname$PRINTINPUT "Personality:", per$PRINTINPUT "Pasttime(s):", past$PRINTINPUT "Comment:", com$OPEN "database.txt" FOR APPEND AS #1PRINT #1,age%, firstname$, lname$,per$, past$,com$CLOSE #1GOTO menu'This searches for filessearchp:CLOSE #3CLSfoundp = 0OPEN "database.txt" FOR INPUT AS #3namefile$ = UCASE$(LTRIM$(RTRIM$(namefile$)))INPUT #3, age%,firstname$, lname$, per$, past$, com$INPUT "Search by persons name:", namefile$searchf:IF RTRIM$(namefile$) = RTRIM$(firstname$) THENfoundp = 1PRINT age%,firstname$, lname$, per$, past, com$GOTO tryagainELSEGOTO searchfEND IFDOnotf:LOCATE 2, 1PRINT "Not Found"tryagain:DOLOCATE 3, 1PRINT "Try Again?(y/n)"kp$ = INKEY$IF kp$ = "y" THEN GOTO searchpIF kp$ = "n" THEN ENDCLOSE #3LOOPLOOP

Code:

CLS' menumenu:CLSDOCOLOR 10, 0LOCATE 5, 25PRINT "DATABASE OF HUMANS"LOCATE 20, 55PRINT "(2) ADD"LOCATE 20, 5PRINT "(1) SEARCH"'my INKEY statmentkp$ = INKEY$IF kp$ = "2" THEN GOTO addpIF kp$ = "1" THEN GOTO searchp'This is the end of the menuLOOP'This adds people to the databaseaddp:CLSCOLOR 10, 0INPUT "Age:", age%PRINTINPUT "First Name:", firstname$PRINTINPUT "Last Name:", lname$PRINTINPUT "Personality:", per$PRINTINPUT "Pasttime(s):", past$PRINTINPUT "Comment:", com$OPEN "database.txt" FOR APPEND AS #1PRINT #1, "Age:"; age%, "First Name:"; firstname$, "Last Name:"; lname$PRINT #1, "Personality:"; per$PRINT #1, "Pasttime(s):"; past$PRINT #1, "Comment:"; com$CLOSE #1GOTO menu'This searches for filessearchp:CLOSE #3CLSfoundp = 0OPEN "database.txt" FOR INPUT AS #3namefile$ = UCASE$(LTRIM$(RTRIM$(namefile$)))INPUT #3, firstname$, lname$, age%, per$, past$, com$INPUT "Search by persons name:", namefile$IF RTRIM$(namefile$) = RTRIM$(firstname$) THENfoundp = 1PRINT firstname$, lname$, age%, per$, past, com$GOTO tryagainELSEGOTO notfEND IFDOnotf:LOCATE 2, 1PRINT "Not Found"tryagain:LOCATE 3, 1PRINT "Try Again?(y/n)"kp$ = INKEY$IF kp$ = "y" THEN GOTO searchpIF kp$ = "n" THEN ENDCLOSE #3LOOP