HP Forums
41Notes !!!! - Printable Version

+- HP Forums (https://archived.hpcalc.org/museumforum)
+-- Forum: HP Museum Forums (https://archived.hpcalc.org/museumforum/forum-1.html)
+--- Forum: Old HP Forum Archives (https://archived.hpcalc.org/museumforum/forum-2.html)
+--- Thread: 41Notes !!!! (/thread-79240.html)



41Notes !!!! - gileno - 10-05-2005

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 !!!! - Garth Wilson - 10-06-2005

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 !!!! - gileno - 10-06-2005

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