41Notes - Correction !!!
#1

41Notes (HP-41CX or HP-41C/CV with X-Function)

My small contribution to store small notes

01 LBL '41NOTES
02 SF 25
03 "NOTES"
04 RCLPTA
05 FC?C 25
06 XEQ 24
07 FIX 0
08 CF 29
09 LBL 52
10 CF 21
11 'A:E:I:P:V? " '3 spaces
12 ASROOM
13 ARCL X
14 AVIEW
15 GETKEY
16 X=0?
17 GTO 15
18 CLD
19 XEQ IND X
20 GTO 52
21 LBL 11
22 CLA
23 AON
24 PROMPT
25 AOFF
26 APPREC
27 RTN
28 LBL 24
29 SF 25
30 'NOTES
31 20 ' Modify for large number of notes
32 PURFL
33 CRFLAS
34 RTN
35 LBL 15
36 CLD
37 FIX 2
38 STOP
39 LBL 62
40 CLX
41 SEEKPT
42 SF 25
43 LBL 61
44 GETREC
45 AVIEW
46 PSE
47 '-:+:D:R:S?
48 FC? 25
49 GTO 52
50 AVIEW
51 GETKEY
52 X=0?
53 GTO 52
54 XEQ IND X
55 GTO 61
56 LBL 51
57 CLX
58 SEEKPT
59 RCLPT
60 INT
61 1
62 -
63 SEEKPT
64 RTN
65 LBL 14
66 DELREC
67 RTN
68 LBL 43
69 SF 21
70 CLX
71 SEEKPT
72 SF 25
73 LBL 00
74 GETREC
75 FC? 25
76 RTN
77 AVIEW
78 GTO 00
79 LBL 53
80 'SRC?
81 AON
82 PROMPT
83 AOFF
84 CLX
85 SEEKPT
86 POSFL
87 INT
88 SEEKPT
89 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 !!!)
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

hp41cx@gmail.com - Gileno



Possibly Related Threads…
Thread Author Replies Views Last Post
  35s Minor Complaint and Minor Correction Trent Moseley 1 860 07-29-2007, 01:07 AM
Last Post: Karl Schneider
  41Notes Plus with alarms gileno 0 703 11-17-2006, 01:22 PM
Last Post: gileno
  41Notes - Maintenance Gileno - Brasil 3 1,242 11-12-2005, 05:14 PM
Last Post: Gileno - Brazil
  41Notes (New Version - Search) gileno 8 2,112 10-26-2005, 08:59 AM
Last Post: Gileno
  41Notes (New Version) gileno 4 1,392 10-20-2005, 12:24 AM
Last Post: Geir Isene
  41Notes !!!! gileno 2 1,059 10-06-2005, 07:24 AM
Last Post: Gileno

Forum Jump: