4 MODE7
    5  *KEY0 RUN|M
   10  CLS
   15  PRINTTAB(8,8)"TELEPHONE NUMBER PROGRAM."
   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 TO SCROLL TEXT."
   95  VDU28,0,21,39,2
  100  PRINT"This is a program to file and 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 choices from"'"the menu. It is only necessary to press"'"the letter of your choice at this time. You don't need RETURN."
  120  PRINT'"When you are filing numbers the prompt"'"CONTINUE? will appear after each entry. If you wish to go on you can press any"'"key except'N'and then RETURN or just"'"RETURN alone will do. If you press'N'and";
  130 PRINT"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 forget about   the CONTINUE prompt and start to type   the next name and address. This messes  up the order in which the data is storedand so I added a reminder in the form of";
  150  PRINT"a short bleep and the word check if in  response to CONTINUE more than three    characters are input. You can then carryon filing as you will now be on the     correct line."
  160  PRINT'"It is useful to file the same number    under several different headings so thatyou can find it again even if you only  remember part of the details.For exampleSmith John Builder or John Smith Builderor Builder John Smith."
  170  PRINT'"If you want to change a number and it isfiled under more than one heading 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 isn't necessaryto give the name of the person in full, you may give as many or as few letters  as you wish because line 3150 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 data has been removed and  after that,when all the spaces have beenfilled,they will be added on to the end of the file.In this way all the space onthe disc will be economically used and"
  220  PRINT"without any gaps where numbers have beenremoved."
  300  PRINT'"I hope that someone finds this program  of some use. It has been interesting    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"NUMBERS"ELSE:CLS:PROCCONTINUE
  500  END
  800  DEF PROCCONTINUE
  810  PRINTTAB(12,10)"PROGRAM CLOSED.":PRINT"TO CONTINUE PRESS THE FIRST RED KEY f0."
  820  ENDPROC