41Notes !!!!

[gileno]

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.

[Garth Wilson]

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.

[gileno]

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