4MODE7 5 *KEY0 RUN|M 10 CLS 15 PRINTTAB(8,8)"TELEPHONE NUMBER PRO GRAM." 20 PRINTTAB(0,10)"DO YOU WANT TO---"' '"A----READ FULL INFO ABOUT PROGRAM."'"B ----GO STRAIGHT INTO PROGRAM." 30 A=INKEY(3000) 40 IF A=65 THEN CLS:GOTO 90 50 IF A=66 THEN CHAIN"NUMBERS" 60 CLS:PRINTTAB(12,10)"PROGRAM CLOSED ." 70 PROCCONTINUE 80 END 90 VDU14:PRINTTAB(7,24)"PRESS SHIFT T O SCROLL TEXT." 95 VDU28,0,21,39,2 100 PRINT"This is a program to file an d retrieve"'"telephone numbers. You can also alter ordelete a number or name and address." 110 PRINT'"When the program is RUN you will be"'"given the option of four choi ces from"'"the menu. It is only necessar y to press"'"the letter of your choice a t this time. You don't need RETURN." 120 PRINT'"When you are filing numbers the prompt"'"CONTINUE? will appear afte r each entry. If you wish to go on you c an press any"'"key except'N'and then RET URN or just"'"RETURN alone will do. If y ou press'N'and"; 130PRINT"RETURN this will be taken as a NO and"'"the program will file to disc the data"'"given so far." 140 PRINT'"I found that I tended to fo rget about the CONTINUE prompt and sta rt to type the next name and address. This messes up the order in which the d ata is storedand so I added a reminder i n the form of"; 150 PRINT"a short bleep and the word c heck if in response to CONTINUE more th an three characters are input. You ca n then carryon filing as you will now be on the correct line." 160 PRINT'"It is useful to file the sa me number under several different hea dings so thatyou can find it again even if you only remember part of the detail s.For exampleSmith John Builder or John Smith Builderor Builder John Smith." 170 PRINT'"If you want to change a num ber and it isfiled under more than one h eading it is only necessary to give the number once and the program will alter all the fileswith that particular number at the same time." 180 PRINT'"When finding a number it is n't necessaryto give the name of the per son in full, you may give as many or as few letters as you wish because line 31 50 finds the length of the string input at line 3100.and uses that to find the"; 190 PRINT" phone number." 200 PRINT'"If a number is removed from the file,theplace in the array will be filled by thewords DATA REMOVED and this will be placed in the file when the array is saved to disc.The next time more numbersare added they will first"; 210 PRINT" be placed"'"wherever any da ta has been removed and after that,when all the spaces have beenfilled,they wil l be added on to the end of the file.In this way all the space onthe disc will b e economically used and" 220 PRINT"without any gaps where numbe rs have beenremoved." 300 PRINT'"I hope that someone finds t his program of some use. It has been in teresting producing it." 400 PRINT'"TO BEGIN THE PROGRAM PRESS THE SPACE BAR" 410 VDU15:VDU26 420 PRINTTAB(7,23)SPC(27) 430 IF INKEY(6000)=32 THEN CHAIN"NUMBE RS"ELSE:CLS:PROCCONTINUE 500 END 800 DEF PROCCONTINUE 810 PRINTTAB(12,10)"PROGRAM CLOSED.":P RINT"TO CONTINUE PRESS THE FIRST RED KEY f0." 820 ENDPROC