41Notes Plus with alarms
Message #1 Posted by gileno on 17 Nov 2006, 1:22 p.m.
41Notes Plus with alarms
You excuse my way to write English. I am trying to learn. . . :-)
My small contribution to store small notes with alarms
01 LBL "41NPLUS"
02 SF 25
03 "DA"
04 RCLPTA
05 FC?C 25
06 XEQ 24
07 LBL 04
08 CF 21
09 "A:E:I:P:V? "
10 ASROOM
11 ARCLI
12 AVIEW
13 GETKEY
14 X=0?
15 GTO 15
16 CLD
17 XEQ IND X
18 GTO 04
19 LBL 11
20 "`"
21 PMTA '---- CCD
22 APPREC
23 97
24 POSA
25 X<0?
26 RTN
27 CLST
28 CF 22
29 "DATE?"
30 PROMPT
31 FC?C 22
32 0
33 "TIME?"
34 PROMPT
35 RCLPT
36 INT
37 SEEKPT
38 CLA
39 ARCLREC
40 RDN
41 XYZALM
42 RTN
43 LBL 24
44 SF 25
45 "DA"
46 20
47 PURFL
48 CRFLAS
49 RTN
50 LBL 15
51 CLD
52 STOP
53 LBL 62
54 CLX
55 SEEKPT
56 LBL 06
57 "P:"
58 ARCLI '---- CCD
59 " -+DRS"
60 PMTK '---- CCD
61 X<>Y
62 XEQ IND Y
63 GTO 06
64 LBL 01
65 XEQ 07
66 RCLPT
67 INT
68 DECX '---- Sandbox
69 RTN
70 LBL 07
71 SF 25
72 SEEKPT
73 FC?C 25
74 GTO 62
75 GETREC
76 AVIEW
77 PSE
78 RTN
79 LBL 02
80 XEQ 07
81 RCLPT
82 INT
83 INCX '---- Sandbox
84 RTN
85 LBL 03
86 DELREC
87 RTN
88 LBL 43
89 SF 21
90 CLX
91 SEEKPT
92 SF 25
93 LBL 00
94 GETREC
95 FC? 25
96 RTN
97 AVIEW
98 GTO 00
99 LBL 05
100 "SRC?"
101 PMTA '---- CCD
102 CLX
103 SEEKPT
104 POSFL
105 INT
106 SEEKPT
107 END
Instructions
XEQ "41NPLUS"
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
* If the note has the caracter 'a' in I begin will ask him the date and the time for the alarm
* In the main menu if there is not any key pressed in 10 seconds the program end.
* In the visualization way if there is not any key pressed in 10 seconds returns for the main menu
hp41cx@gmail.com - Gileno
| 
Go back to the main exhibit hall