The Museum of HP Calculators

HP Forum Archive 15

[ Return to Index | Top of Index ]

41Notes !!!!
Message #1 Posted by Gileno on 5 Oct 2005, 9:22 p.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 LBL 52
05 FIX 0
06 CF 29
07 "A:F:I:V?    " '4 spaces
08 ASROOM
09 ARCL X
10 AVIEW
11 GETKEY
12 X=0?
13 GTO 15
14 CLD
15 XEQ IND X
16 GTO 52
17 LBL 11
18 CLA
19 AON
20 PROMPT
21 AOFF
22 APPREC
23 RTN
24 LBL 24
25 SF 25
26 "NOTES"
27 20 ' Modify for large number of notes
28 PURFL
29 CRFLAS
30 RTN
31 LBL 15
32 CLD
33 FIX 2
34 STOP
35 LBL 62
36 CLX
37 SEEKPT
38 SF 25
39 LBL 61
40 GETREC
41 AVIEW
42 PSE
43 "-:+:D:R?"
44 FC? 25
45 GTO 52
46 AVIEW
47 GETKEY
48 X=0?
49 GTO 52
50 XEQ IND X
51 GTO 61
52 LBL 51
53 RCLPT
54 INT
55 1
56 -
57 SEEKPT
58 GTO 61
59 LBL 14
60 DELREC
61 GTO 61
62 END

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 !!!) V ' View ------ + ' Next Record - ' Previous Record D ' Delete Present Record R ' Return

* 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: 5 Oct 2005, 9:44 p.m.

      
Re: 41Notes !!!!
Message #2 Posted by Garth Wilson on 6 Oct 2005, 2:04 a.m.,
in response to message #1 by Gileno

If you have a 41cx, you can just use the built-in text editor (ED) and then you won't have the 24-character limitation.

            
Re: 41Notes !!!!
Message #3 Posted by Gileno on 6 Oct 2005, 7:24 a.m.,
in response to message #2 by Garth Wilson

I created to be more intuitive and easier of using and to implement new functions: -)


[ Return to Index | Top of Index ]

Go back to the main exhibit hall