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
---------------------------------------------------------------------