41C X-Mem data file editor?

[Dave Britten]

(10-21-2020 07:56 PM)Garth Wilson Wrote:  This is mine, written in the late 1980's. I don't remember why I called it "VV", but it has always been easy for me to remember. Call yours EDD if you like.

Code:

♦LBL "VV"
 "FL _"
 AON
 PROMPT
 AOFF
 CLX
 SEEKPTA

♦LBL 01
 "REG #_"      \ For the # chr with ZENROM in ALPHA mode, do USER shift SIN .
 PROMPT        \ To get the _ chr with ZENROM in ALPHA mode, do USER - .
 SEEKPT
 "STO OR RCL?"
 AVIEW

♦LBL 00
 GETKEY        \ GETKEY gives 10 seconds.  If no key is pressed, it returns 0,
 GTO IND X     \ so this part of the program just repeats to ask again.

♦LBL 33        \ 33 is the key code of the STO key.
 "NR _"
 PROMPT
 SAVEX
 "DONE"
 PROMPT
 GTO 01

♦LBL 34        \ 34 is the key code of the RCL key.
 GETX
 VIEW X
 RTN

 GTO 01
 END

Thanks, I like the GETKEY idea. Maybe I'll do that instead of all the global labels and PASN stunts. Though it does rule out the intuitive use of Shift-BST to go back a record. Maybe I'll do SST to advance, RCL to go back, and STO to enter a value.