b:@(0,0)b"R",1,"DATABASE.DAT",82.b"Create a new file Y/N ";A$( :bA$=(A$)2Fb A$<>"Y"< Ub"start"FXbP2[b"Opening a new file will erase existing file!"Z:db"Are you sure you want to start a new file Y/N ";SURE$dpbSURE$=(SURE$)n|b x|b SURE$<>"Y" "start"b:b initialise new DAT fileb: bN=1: 1,0 b#1,N: n=no of items in fileb: b"start"b:b 1,0:#1,Nb b:@(0,0)b (30)"M E N U"5b"1.. Add data to list ";N-1;" items in file"b "2.. View data"c"3.. Find data c"4.. End""c:, c"select"6c:@!c@(0,10)"Enter selection ";SELJ,c SEL<1 SEL>4 "select"TMc SEL "add","view","find"^ [c SEL=4hjc:r jc"finish"|jc:jcmcpc:pc"add"pc:pc:@(0,7)"Add data"c"First name ";FIRST$cFIRST$=(FIRST$)c"Last name ";LAST$cLAST$=(LAST$)c"Address ";ADDRES$cADDRES$=(ADDRES$)%c @(0,15)"Is data correct Y/N ";A$ cA$=(A$)c A$="N" "add"d 1,0& d#1,N0 dTEMP=N:!dN=N+1D (d"write"N+d 1,0X5d#1,NbDdlEd:v Ed"view"Ed:Ed1,0Od#1,N^d I=1 N-1 tdDISKREK=I zd"read"}d: }d"print"}d: }d(80,".")d"First name ";FIRST$d"Last name ";LAST$d"Address ";ADDRES$ d(80,".")  d F=1 d +d!&1,"Press any key to continue ";DUMMY$*d4d:> d"find"Hd:Rd:@(0,7)"Find name"\ e"Surname to find ";SEARCH$feSEARCH$=(SEARCH$)p!e I=1 N-1z 7eDISKREK=I =e"read"@e (1,LAST$,SEARCH$)TeF=1 Ze"print"]eF=0ce cefe"Look for another Y/N ";A$ reA$=(A$)~e A$="Y" "find"ee: e"write"e: e 1,TEMPe#1,FIRST$;10$e#1,LAST$;20.e#1,ADDRES$;508eBe:L e"read"Ve:`e 1,DISKREKje#1,FIRST$;10te#1,LAST$;20~f#1,ADDRES$;50f.e#1,ADDRES$;508eBe:L e"read"Ve:`e 1,DISKREKje#