alonzo@microsoft.UUCP (Alonzo GARIEPY) (02/01/90)
In article <724@watserv1.waterloo.edu> bmaraldo@watserv1.waterloo.edu > I really enjoyed this posting. It is a valuable addition to my > archive of 28s programs. This is the 3rd time it has been posted, though. > Is it just my machine or have you seen it 3 times too? I've seen it more like five times. I agree that it is very good. Note that he is using an older version of CHKSUM that only checks the first four digits of binary numbers. Be especially careful when entering SYSEVAL addresses and other binary numbers. Thanks to Wayne Scott for the FFT. --alonzo
jdg@hpqtdla.HP.COM (James Gentles) (02/01/90)
Many thanks again for this posting, I have started using the PHONE BOOK you listed in the basenote, and am very impressed, nice short programs, so you dont have to tie up 10K of memory :-). Can I suggest to anyone else using this utility one further program that I find useful that deletes a number. PNDEL: Deletes the name and phone number last found using PFIND or PNEXT. The program prompts you and will only delete if Y is pressed. In keeping with the rest of this utility this routine is as simple as possible to save typing and memory, so it suffers from one drawback, you cant delete the last entry in the phone number data {}, the program simply ignores your request. Anyway, its easy to edit the data {} yourself to do this, its not so easy to edit out data from the centre of the string and get it right! You may wish to change the lines that DISP put messages in depending on which DISP you are using. PNDEL Checksum BC88 LNUM 1 IF <= THEN ABORT ELSE ! dont attempt to delete LNUM 1 - 'LNUM' STO PNEXT END ! Prints entry to be deleted "Y to delete" 3 IN ! Get confirmation "Y" IF <> THEN ABORT END ! Abandon ? NAMES DUP 1 LNUM 2 - SUB SWAP ! Get names from start to deleted DUP SIZE LNUM SWAP SUB + ! delete to end then add lists 'NAMES' STO ! re-store NAMES PNUMS DUP 1 LNUM 2 - SUB SWAP ! repeat last 3 lines for phone nos DUP SIZE LNUM SWAP SUB + ! 'PNUMS' STO ! "deleted" 3 DISP ! confirm <> not equals <= Less than or equals --------------------------------------------------------------------- I have no professional connection with Hewlett-Packard's calculator operations other than as a user of their products. --------------------------------------------------------------------- Opinions expressed are my own, and are not intended to be an official statement by Hewlett-Packard Company --------------------------------------------------------------------- Name: James Gentles GM4WZP Organization: Hewlett-Packard Queensferry Telecomunications Division Email: jdg@hpqtdla Address: Station Road, South Queensferry, West Lothian, Scotland ---------------------------------------------------------------------