G N(),(),(),(),(),(),T()ENTRIE! CL()"H"()"E"  ()G( CL;" PCW ADDRESS BOOK"?2" ----------------" <IF" [1] Create a new address book"AP" [2] View address book"CZ" [3] Search address book"Id" [4] Save or load address book"Ln" [5] Amend address book in memory"=x" [6] Exit to basic"O" Please enter your choice ",C C C & C ,, ,,,pO" Press [RETURN] to continue to the main menu", (  CLC" CREATE A NEW ADDRESS BOOK" W" Please enter the address book entry you wish to start at ",S S g$" Please enter the address book entry you wish to finish at , ";S;" to " ;"",F. FS 8 F  BSL" To return to the menu before you reach the last entry type ZZZ" V`     S F  CLENTRIE"Type in your data at the prompts-ZZZ to return to the main menu-File";;" out of ";F;(())"-";;"k>" Address book entry ";0" Name > ",> "ZZZ" "zzz" ENTRIEENTRIE (N()0 " Street > ",& "ZZZ" "zzz" (()0(" Town > ",&2 "ZZZ" "zzz" (<()0F" City > ",&P "ZZZ" "zzz" (Z()0d" County > ",&n "ZZZ" "zzz" (x()0" Post code > ",& "ZZZ" "zzz" (()0" Telephone number > ",& "ZZZ" "zzz" (T() G" Is this entry correct (Y/N) ",A% A"n" A"N"     CL>" VIEW THE ADDRESS BOOK" ^ ENTRIE " Sorry the address book is empty"P" The address book holds ";ENTRIE;" entries"h " Which entry do you want to start to view from ( 1 to ";ENTRIE;" ) ";"",S S )  S SENTRIE *k4" Which entry do you want to stop viweing at ( ";S;" to ";ENTRIE;" ) ",F> F H FS R FENTRIE \ S F f CLGp"Now viewing entry ";;" out of ";entrie;" up to ";f;" z)" Name > ",N()(" Street > ",()(" Town > ",()(" City > ",()(" County > ",()(" Post code > ",())" Telephone number > ",T()  entrie I" Press [RETURN] to view entry number ";();" ";    SEARCH CL= " SEARCH ADDRESS BOOK" W ENTRIE " Sorry the address book is empty"A " [1] Search for a name"A " [2] Search for street"> " [3] Search for town? " [4] Search for city"A " [5] Search for county"H " Please enter your choice (1-6) ",c c & c c  0 c a"NAME": c a"STREET"D c a"TOWN"N c a"CITY"X c a"COUNTY" cl: " SEARCH FOR ";a < "Please enter the ";a;" to search for";" ",s  entrie cl;* c n()s  ) c ()s  ) c ()s  ) c ()s  ) c ()s    " Search complete"  ;()2 "The is a matching ";a;" in entry ";7 " Send match to screen or printer (S/P) "," "p" "P" t " Entry number "; % " Name > ",n()$ " Street > ",()$ " Town > ",()$" City > ",()$" County > ",()$" Post code > ",()%$" Telephone no. > ",t();V" Press [RETURN] to continue the search", `  !t" Entry number ";~$" Name > ",n()#" Street > ",()#" Town > ",()#" City > ",()#" County > ",()#" Post code > ",()$"Telephone no. > ",t()  V  clB" SAVE OR LOAD ADDRESS BOOK" C" [1] Save this address book"D" [2] Load a new address book"H" Please enter your choice ",c c  c c  c ,\h  save  cl*" Please enter the file name ",f (f) ff".adb"6" Now saving ";entrie;" entries to ";f "O",,f  entrie,n(),(),() ,(),() ,()*,t() 4 >H \ load f cl*p" Please enter the file name ",fz (f) \ff".ADB"O s(f)"" " Loading ... "  " Sorry I can not find that file" "I",,f  () ,n(),(),(),(),(),(),t()$7." Now loaded ";;" entries from file ";f3entrie8  cl<" AMEND ADDRESS BOOK" W entrie " Sorry the address book is empty"c" Which address book entry do you want to amend ( 1 to ";entrie;" ) ";"",'  entrie   clH" This is the data for entry number ";&" Name > ",N()&" Street > ",()%" Town > ",()&" City > ",()& " County > ",()&" Post code > ",()'"Telephone number > ",T()(H2" Please enter the correct data for this entry"<'F" Name > ",n()&P" Street > ",()&Z" Town > ",()&d" City > ",()&n" County > ",()&x" Post code > ",()'"Telephone number > ",T()C" Is this entry correct (Y/N) ",C$ c"n" c"N"  p clz"