41Notes !!!!



#4

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.


#5

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.


#6

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


Possibly Related Threads...
Thread Author Replies Views Last Post
  41Notes Plus with alarms gileno 0 185 11-17-2006, 01:22 PM
Last Post: gileno
  41Notes - Correction !!! gileno 0 163 02-25-2006, 08:57 AM
Last Post: gileno
  41Notes - Maintenance Gileno - Brasil 3 298 11-12-2005, 05:14 PM
Last Post: Gileno - Brazil
  41Notes (New Version - Search) gileno 8 527 10-26-2005, 08:59 AM
Last Post: Gileno
  41Notes (New Version) gileno 4 359 10-20-2005, 12:24 AM
Last Post: Geir Isene

Forum Jump: