Made a change in input statements. INPUT places a ? mark automatically in text. You added one, so there were always two. I removed the text ? marks to solve this. You needed two area code inputs to get a range. Try it, and apply the changes to the ZIP sub. 'night - Pete


DECLARE SUB ReadInData (name$(), address$(), city$(), state$(), zip!(), areacode!(), phone$(), dob$(), maxnum!)
DECLARE SUB NameAscend (name$(), address$(), city$(), state$(), zip!(), areacode!(), phone$(), dob$(), maxnum!)
DECLARE SUB PrintResults (name$(), address$(), city$(), state$(), zip!(), areacode!(), phone$(), dob$(), maxnum!)
DECLARE SUB NameDescend (name$(), address$(), city$(), state$(), zip!(), areacode!(), phone$(), dob$(), maxnum!)
DECLARE SUB PhoneAscend (name$(), address$(), city$(), state$(), zip!(), areacode!(), phone$(), dob$(), maxnum!)
DECLARE SUB BirthdayAscend (name$(), address$(), city$(), state$(), zip!(), areacode!(), phone$(), dob$(), maxnum!)
DECLARE SUB SearchName (name$(), address$(), city$(), state$(), zip!(), areacode!(), phone$(), dob$(), maxnum!)
DECLARE SUB SearchZip (name$(), address$(), city$(), state$(), zip!(), areacode!(), phone$(), dob$(), maxnum!)
DECLARE SUB SearchArea (name$(), address$(), city$(), state$(), zip!(), areacode!(), phone$(), dob$(), maxnum!)
DECLARE SUB PressAnyKey ()
REM Assignment: 1.10
REM Programmer: Ryan
REM Date:03/30/04
'
DIM name$(1 TO 30), address$(1 TO 30), city$(1 TO 30), state$(1 TO 30), zip(1 TO 30), areacode(1 TO 30), phone$(1 TO 30), dob$(1 TO 30)
'
howe$ = "continue"
DO WHILE (howe$ = "continue")
CLS
LOCATE 2, 15
PRINT "Menu"
LOCATE 4, 1
PRINT "1. Sort Names Alphabetically in Ascending Order"
PRINT "2. Sort Names Alphabetically in Descending Order"
PRINT "3. Sort Phone Numbers in Ascending Order"
PRINT "4. Sort Birthdays in Ascending Order"
PRINT "5. Search for a Specific Name"
PRINT "6. Search for Zip Codes Within a Specific Range"
PRINT "7. Search for Phone Numbers by Area Code"
PRINT "8. Quit Program"
PRINT
PRINT
INPUT "Please enter a number from 1 - 8: ", choice
'
SELECT CASE choice
CASE 1
CALL ReadInData(name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
CALL NameAscend(name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
CALL PrintResults(name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
CASE 2
CALL ReadInData(name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
CALL NameDescend(name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
CALL PrintResults(name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
CASE 3
CALL ReadInData(name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
CALL PhoneAscend(name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
CALL PrintResults(name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
CASE 4
CALL ReadInData(name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
CALL BirthdayAscend(name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
CALL PrintResults(name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
CASE 5
CALL ReadInData(name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
CALL SearchName(name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
CASE 6
CALL ReadInData(name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
CALL SearchZip(name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
CASE 7
CALL ReadInData(name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
CALL SearchArea(name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
CASE 8
LET howe$ = "Stop"
BEEP
CLS
LOCATE 10, 25
CALL PressAnyKey
CASE ELSE
PRINT "You entered a wrong number, try again."
END SELECT
LOOP
'
REM Data Statements
DATA "Jordan, Bill","5042 Sundance Lane","Tallahassee","FL",32309, 850,"668-9839","04/27/1951"
DATA "Vanenberg, Eric","6045 Peavey Lane", "Alanta", "GA",45807, 582,"298-2452","09/24/1970"
DATA "Malais, Chris","3824 Dean Street","New York","NY",34990, 434,"875-2004","06/07/1987"
DATA "Garcia, Ricky","2648 Brian More Road", "Tulsa", "OK",74745, 500,"214-6264","04/20/1979"
DATA "Corkin, James","1432 Stand Avenue", "Pheniox", "AZ",46599, 808,"548-3356","05/25/1972
DATA "Harisson, Paul","1653 Almond Lane","Bentonville", "AR",15246, 254,"987-3547",09/23/1984"
DATA "McCartney, George","4997 Penny Lane", "Harris","MI",34651, 234,"567-8910","03/12/1965"
DATA "Clame, Joe", "1313 Elm Street","Dallas", "TX",46957, 542,"578-5151","06/071957"
DATA "Clark, Sam","5843 Main Street","Austin","TX",64921, 508,"254-9002","05/14/01945"
DATA "Cox, Collin","6457 Java Place","Newstead","CO",40318, 409,"234-0910","03/16/1957"
DATA "Bailey, Alice","1012 Bugil Lane","Pleasent Hill","OR",98751, 203,"303-1202", "03/09/1970"
DATA "Bates, Jamie", "9785 Turner Rd.", "Albecurkey","OH",65875, 542,"654-4561","07/31/1960"
DATA "Freidman, Mary","3261 Nothingham Drive", "Green Valley", "MO",64351, 649,"275-4312","06/09/1967"
DATA "Mustain, Dave","7349 Franklin Avenue", "Garden City", "NY", 11530, 582,"298-2452","07/03/1973"
DATA "Juergensen, Chris","9787 Cardinal Road", "Alanta","GA",54807, 354,"473-3518","06/06/1965"
DATA "Campese, Mike","1324 Parakeet Lane", "Sile", "AZ",89037, 613,"754-6132","09/04/1970"
DATA "Hess, Tom","2457 Shoal Creek Trace", "Tom", "OK",64582, 864,"231-6154","03/08/1965"
DATA "Davis, Jakie","9785 Oceola Lane", "Broken Bow", "CA",94678, 645,"582-4631","11/04/1983"
DATA "Davis, Sandy","1302 Martin Downs Blvd.", "Whinchester Feild", "IO",61354,943,"231-3164","09/05/1964"
DATA "Gilmoure, David","5634 Emulation Drive", "Nashville", "TN",45807, 582,"298-2452","09/23/1970"
DATA "Smith, Joe","9875 Queen drive", "LittleHarbor", "CT",63158, 554,"845-8941","02/09/1964"
DATA "Gugenhimer, James","8965 lake Blvd.", "Kanner", "AZ",34512, 454,"315-1302","04/15/1980"
DATA "Walter, Cathy","6734 Crane Street", "Chardon", "NM",98752, 678,"631-1598","07/13/1984"
DATA "Thomas, Richard","7878 Tropic Lane", "Shorline", "NV",64587, 345,"348-4658","10/23/1986"
DATA "Reynolds, Rudy","2216 Coquanya Road", "Wilimton", "NC",31524, 978,"642-4587","12/23/1973"
DATA "Nelson, Douglas","1107 Deer trace", "Madison", "WI",43287, 645,"289-1320","09/30/1965"
DATA "Peirce, Carl","0065 Walter Way", "Allentown", "PA",14352, 312,"326-9451","06/03/1988"
DATA "Malmsteen, Yngwie","1465 Carver Place", "Miami", "FL",44467, 643,"942-6345","02/06/1974"
DATA "Rafael, Thelma","4356 Washington Cove", "Seatlle", "WA",13425, 857,"654-6124","08/04/1955"
DATA "Stevens, Steve","7894 Thomas Avenue", "Lawton", "OK",65498, 465,"546-0125","09/02/1962"
DATA "x","000 KFC lane","Chicken Coop", "KN",56489,000,"000-0000","04/15/1968"
COLOR 12, 0
END





SUB BirthdayAscend (name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
FOR x = 1 TO maxnum - 1
FOR i = x + 1 TO maxnum
IF dob$(x) > dob$(i) THEN
SWAP name$(x), name$(i)
SWAP address$(x), address$(i)
SWAP city$(x), city$(i)
SWAP state$(x), state$(i)
SWAP zip(x), zip(i)
SWAP phone$(x), phone$(i)
SWAP dob$(x), dob$(i)
END IF
NEXT i
NEXT x
END SUB

SUB NameAscend (name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
FOR x = 1 TO maxnum - 1
FOR i = x + 1 TO maxnum
IF UCASE$(name$(x)) > UCASE$(name$(i)) THEN
SWAP name$(x), name$(i)
SWAP address$(x), address$(i)
SWAP city$(x), city$(i)
SWAP state$(x), state$(i)
SWAP zip(x), zip(i)
SWAP phone$(x), phone$(i)
SWAP dob$(x), dob$(i)
END IF
NEXT i
NEXT x
END SUB

SUB NameDescend (name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
FOR x = 1 TO maxnum - 1
FOR i = x + 1 TO maxnum
IF UCASE$(name$(x)) < UCASE$(name$(i)) THEN
SWAP name$(x), name$(i)
SWAP address$(x), address$(i)
SWAP city$(x), city$(i)
SWAP state$(x), state$(i)
SWAP zip(x), zip(i)
SWAP phone$(x), phone$(i)
SWAP dob$(x), dob$(i)
END IF
NEXT i
NEXT x
END SUB

SUB PhoneAscend (name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
FOR x = 1 TO maxnum - 1
FOR i = x + 1 TO maxnum
IF phone$(x) > phone$(i) THEN
SWAP name$(x), name$(i)
SWAP address$(x), address$(i)
SWAP city$(x), city$(i)
SWAP state$(x), state$(i)
SWAP zip(x), zip(i)
SWAP areacode(x), areacode(i)
SWAP phone$(x), phone$(i)
SWAP dob$(x), dob$(i)
END IF
NEXT i
NEXT x
END SUB

SUB PressAnyKey
key$ = ""
LOCATE 23, 32
PRINT "Press Any Key to Continue"
DO
key$ = INKEY$
LOOP UNTIL (key$ <> "")
END SUB

SUB PrintResults (name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
CLS
LET addresstitle$ = "Ryan Cox's Adress Book"
LET addressheadings$ = " Name Address City ST ZIP Phone"
LET border$ = STRING$(80, "=")
LET addressformat$ = "\ \ \ \ \ \ \ \ ###### \ \"
'
COLOR 12, 0
PRINT TAB(15); addresstitle$
PRINT
PRINT addressheadings$
PRINT border$
COLOR 14, 0
'
row = 4
FOR n = 1 TO 30
row = row + 1
set = 15
LOCATE row, 1
PRINT USING addressformat$; name$(n); address$(n); city$(n); state$(n); zip(n); phone$(n)
IF n / set = INT(n / set) THEN
PRINT STRING$(80, "=")
CALL PressAnyKey
row = 4
IF maxnum <> set THEN
FOR r = 5 TO set + 5
LOCATE r, 1
PRINT STRING$(80, " ")
NEXT r
END IF
END IF
NEXT n
LOCATE 5 + set, 1
PRINT STRING$(80, "=")
END SUB

SUB ReadInData (name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
RESTORE
DO
LET n = n + 1
READ name$(n), address$(n), city$(n), state$(n), zip(n), areacode(n), phone$(n), dob$(n)
LOOP UNTIL (n = 30)
maxnum = n - 1
END SUB

SUB SearchArea (name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
lookupflag = 0
CLS
PRINT "What AreaCode range would you like to find?"
INPUT "AreaCode low range"; areacode1
INPUT "AreaCode high range"; areacode2
CLS
LET addresstitle$ = "Ryan Cox's Adress Book"
LET addressheadings$ = " Name Address City ST ZIP AreaCode Phone"
LET border$ = STRING$(80, "=")
LET addressformat$ = "\ \ \ \\ \ \ \ ###### ### \ \"

row = 4
PRINT TAB(24); "Your Search Request"
FOR n = 1 TO maxnum
IF areacode(n) <= areacode2 AND areacode(n) >= areacode1 THEN
row = row + 1
LOCATE row, 1
PRINT TAB(5); addresssheadings$
row = row + 1
PRINT STRING$(60, "=")
PRINT USING addressformat$; name$(n); address$(n); city$(n); state$(n); zip(n); areacode(n); phone$(n)

IF row >= 21 THEN
LOCATE 25, 1: PRINT "Press any key for next screen."; : DO: LOOP WHILE INKEY$ = ""
CLS
row = 4
PRINT TAB(24); "Your Search Request"
END IF

lookupflag = 1
END IF
NEXT n
IF lookupflag = 0 THEN
PRINT TAB(8); "The list contains no Area Code's in your number range."
PRINT TAB(18); "Please make a new selection"
END IF
PRINT STRING$(60, "=")
CALL PressAnyKey
END SUB

SUB SearchName (name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
lookupflag = 0
CLS
LINE INPUT "Enter The name you wish to find: "; name$
CLS
LET addresstitle$ = "Ryan Cox's Adress Book"
LET addressheadings$ = " Name Address City ST ZIP AreaCode Phone"
LET border$ = STRING$(80, "=")
LET addressformat$ = "\ \ \ \ \ \ \ \ ###### ### \ \"
'
PRINT TAB(24); "Your Search Request"
LOCATE 3, 1
PRINT TAB(5); addresssheadings$
PRINT STRING$(60, "=")
row = 4
FOR n = 1 TO maxnum
IF UCASE$(name$(n)) = UCASE$(name$) THEN
row = row + 1
LOCATE row, 1
PRINT USING addressformat$; name$(n); address$(n); city$(n); state$(n); zip(n); areacode(n); phone$(n)
lookupflag = 1
END IF
NEXT n
IF lookupflag = 0 THEN
LOCATE row + 1
PRINT TAB(15); "No address under that name was located."
PRINT TAB(12); "Check the spelling or enter a new name."
END IF
PRINT STRING$(60, "=")
CALL PressAnyKey
END SUB

SUB SearchZip (name$(), address$(), city$(), state$(), zip(), areacode(), phone$(), dob$(), maxnum)
lookupflag = 0
CLS
INPUT "What zip code range would you like to find"; zip
CLS
LET addresstitle$ = "Ryan Cox's Adress Book"
LET addressheadings$ = " Name Address City ST ZIP AreaCode Phone"
LET border$ = STRING$(80, "=")
LET addressformat$ = "\ \ \ \ \ \ \ \ ###### ### \ \"
'

row = 4
FOR n = 1 TO maxnum
IF zip <= zip(n) THEN
row = row + 1
PRINT TAB(24); "Your Search Request"
LOCATE 3, 1
PRINT TAB(5); addresssheadings$
PRINT STRING$(60, "=")
PRINT USING addressformat$; name$(n); address$(n); city$(n); state$(n); zip(n); areacode(n); phone$(n)
lookupflag = 1
PRINT STRING$(60, "=")
END IF
NEXT n
IF lookupflag = 0 THEN
PRINT TAB(8); "The list contains no Zip Code's in your number range."
PRINT TAB(18); "Please make a new selection"
END IF
PRINT STRING$(60, "=")
CALL PressAnyKey
END SUB