HP Forum Archive 15

[ Return to Index | Top of Index ]

41Notes (New Version - Search) Message #1 Posted by Gileno on 23 Oct 2005, 9:13 a.m. 41Notes (HP-41CX or HP-41C/CV with X-Function) My small contribution to store small notes 01 LBL "41NOTES" 02 "NOTES" 03 RCLPTA 04 FIX 0 05 CF 29 06 CF 21 07 LBL 52 08 "A:F:I:P:V? " '3 spaces 09 ASROOM 10 ARCL X 11 AVIEW 12 GETKEY 13 X=0? 14 GTO 15 15 CLD 16 XEQ IND X 17 GTO 52 18 LBL 11 19 CLA 20 AON 21 PROMPT 22 AOFF 23 APPREC 24 RTN 25 LBL 24 26 SF 25 27 "NOTES" 28 20 ' Modify for large number of notes 29 PURFL 30 CRFLAS 31 RTN 32 LBL 15 33 CLD 34 FIX 2 35 STOP 36 LBL 62 37 CLX 38 SEEKPT 39 SF 25 40 LBL 61 41 GETREC 42 AVIEW 43 PSE 44 "-:+:D:R:S?" 45 FC? 25 46 GTO 52 47 AVIEW 48 GETKEY 49 X=0? 50 GTO 52 51 XEQ IND X 52 GTO 61 53 LBL 51 54 CLX 55 SEEKPT 56 RCLPT 57 INT 58 1 59 - 60 SEEKPT 61 GTO 61 62 LBL 14 63 DELREC 64 GTO 61 65 LBL 43 66 CLX 67 SEEKPT 68 SF 25 69 LBL 00 70 GETREC 71 FC? 25 72 GTO 52 73 AVIEW 74 FS? 55 75 PRA 76 GTO 00 77 LBL 53 78 "SRC?" 79 AON 80 PROMPT 81 AOFF 82 CLX 83 SEEKPT 84 POSFL 85 INT 86 SEEKPT 87 GTO 61 Instructions XEQ "41NOTES" First time: press I 'Initialize "NOTES" file in X-Memory Option A ' Add Notes (Max 24 bytes) R/S E ' End I ' Initialize (First time or Clear all Notes !!!) P ' Print or View Records V ' View ------ + ' Next Record - ' Previous Record D ' Delete Present Record R ' Return S ' Search a string * In the main menu if there is not any key pressed in 10 seconds the program concludes. * In the visualization way if there is not any key pressed in 10 seconds returns for the main menu Edited: 23 Oct 2005, 6:03 p.m. after one or more responses were posted

Re: 41Notes (New Version - Search) Message #2 Posted by Karl Schneider on 23 Oct 2005, 3:12 p.m., in response to message #1 by Gileno Gileno -- A few questions about your program: 1. Line 75: What is PRA? 2. Line 78: Should SRC? be a text string in quotes? 3. Line 87: GOTO should be GTO. -- KS

Re: 41Notes (New Version - Search) Message #3 Posted by Gileno on 23 Oct 2005, 6:03 p.m., in response to message #2 by Karl Schneider Line 75:PRA = Contents of the ALPHA register is printed. Line 78: Should SRC? be a text string in quotes? Yes Line 87: GOTO should be GTO. Yes

Re: 41Notes (New Version - Search) Message #4 Posted by Vieira, Luiz C. (Brazil) on 23 Oct 2005, 11:56 p.m., in response to message #3 by Gileno Hi, Gileno; just to add a suggestion about PRA. What about mentioning that PRA can be found in, at least, three standard HP ROM? Meanning the 82143A standard HP41 printer, the HPIL module (when printer is active through the small mode key) and in the 82242A (IR printer module). These three modules offer PRA. Cheers. Luiz (Brazil)

Re: 41Notes (New Version - Search) Message #5 Posted by Gileno on 24 Oct 2005, 11:44 a.m., in response to message #4 by Vieira, Luiz C. (Brazil) In any one of the described manners the use of the instruction PRA it is identical. Send for printer of the content of the alpha register.

Re: 41Notes (New Version - Search) Message #6 Posted by Howard Owen on 24 Oct 2005, 6:58 p.m., in response to message #5 by Gileno Your description is correct, as far as it goes. I think the suggestion may have been to include more informaton in the documentation of your program. You could also explain that flag 55 is the "printer existence flag." For the IR printer module and the non-HP-IL pronter, the flag is on if the module is present, regardless of whether the printer is on or in range as the case may be. With the HP-IL module, flag 55 (and flag 21) are set if there is an active loop with a printer or display device on it.

Re: 41Notes (New Version - Search) Message #7 Posted by Geir Isene on 25 Oct 2005, 2:09 p.m., in response to message #1 by Gileno And for better readability with my VIM highlight plugin: 001 *LBL "41NOTES" 002 'NOTES 003 RCLPTA 004 FIX 0 005 CF 29 006 CF 21 007 LBL 52 008 'A:F:I:P:V? " 009 ASROOM 010 ARCL X 011 AVIEW 012 GETKEY 013 X=0? 014 GTO 15 015 CLD 016 XEQ IND X 017 GTO 52 018 LBL 11 019 CLA 020 AON 021 PROMPT 022 AOFF 023 APPREC 024 RTN 025 LBL 24 026 SF 25 027 'NOTES 028 20 029 PURFL 030 CRFLAS 031 RTN 032 LBL 15 033 CLD 034 FIX 2 035 STOP 036 LBL 62 037 CLX 038 SEEKPT 039 SF 25 040 LBL 61 041 GETREC 042 AVIEW 043 PSE 044 '-:+:D:R:S? 045 FC? 25 046 GTO 52 047 AVIEW 048 GETKEY 049 X=0? 050 GTO 52 051 XEQ IND X 052 GTO 61 053 LBL 51 054 CLX 055 SEEKPT 056 RCLPT 057 INT 058 1 059 - 060 SEEKPT 061 GTO 61 062 LBL 14 063 DELREC 064 GTO 61 065 LBL 43 066 CLX 067 SEEKPT 068 SF 25 069 LBL 00 070 GETREC 071 FC? 25 072 GTO 52 073 AVIEW 074 FS? 55 075 PRA 076 GTO 00 077 LBL 53 078 'SRC? 079 AON 080 PROMPT 081 AOFF 082 CLX 083 SEEKPT 084 POSFL 085 INT 086 SEEKPT 087 GTO 61

Re: 41Notes (New Version - Search) Message #8 Posted by Geir Isene on 26 Oct 2005, 2:26 a.m., in response to message #1 by Gileno How about alarms for notes?

Re: 41Notes (New Version - Search) Message #9 Posted by Gileno on 26 Oct 2005, 8:59 a.m., in response to message #8 by Geir Isene Maybe in the next version :-)

[ Return to Index | Top of Index ]

Go back to the main exhibit hall