ÿWPC\ûÿ($8Macaruni Database Maintenance: Edit ü Macaruni 1.0, copyright 1991 by Robert S. King Published by Wordsetters, P. O. Box 709, Winterville, GA 30683 All Rights Reserved This macro, MRDB.WPM, brings up the database maintenance menu and allows the editing/revision of database records.~ &€nn ü"4üdata~"="7"~ üedmaster~ ü ü"4üdata~"="8"~ üedcat~ ü ü"4üdata~"="9"~ üedcatmac~ ü ü"4üdata~"="e"|"4üdata~"="E"~ üedwpk~ üüüü üedmaster~ 5€c:\macaruni\mrmain.mrg € €€ .€ 5€c:\macaruni\mrmain.cat € .€ ümenu~ üedcat~ 5€c:\macaruni\mrcat.mrg € €€ .€ 5€c:\macaruni\mrcat.csf € .€ ümenu~ üedcatmac~ $€c:\macaruni\*.cat €51 € üMove cursor to category to edit, press ENTER~ü ü9~5üentry~~ *ü5~ .€ 5€c:\macaruni\4ü9~ € .€ 5€c:\macaruni\4ü9~P€P€P€mrg € ümenu~ üedwpk~ 5€c:\macaruni\keyboard.mrg € €€ .€ 5€c:\macaruni\keyboard.ksf € .€ ümenu~ ümenu~ ü üüerror~~ üüerror~~ üüquit~~ ü (üeditmenu~€ €€Edit:€€€#€+€ENTER€; Sa€v€e changes; €D€own; €U€p; €T€op; €E€nd; €S€earch; €R€eplace; €H€elp; €Q€uit ~ F€F€ ü4üeditmenu~~ a~error~ A~error~ b~error~ B~error~ c~error~ C~error~ d~down~ D~down~ e~bottom~ E~bottom~ f~error~ F~error~ g~error~ G~error~ h~help~ H~help~ i~error~ I~error~ j~error~ J~error~ k~error~ K~error~ l~error~ L~error~ m~error~ M~error~ n~error~ N~error~ o~error~ O~error~ p~error~ P~error~ q~quit~ Q~quit~ r~replace~ R~replace~ s~search~ S~search~ t~top~ T~top~ u~up~ U~up~ v~save~ V~save~ w~error~ W~error~ x~error~ X~error~ y~error~ Y~error~ z~error~ Z~error~ =ü~tagmac~~ ütop~ €€€€€ ümenu~ übottom~ €€€ ümenu~ üsearch~ €€€ (üsearch~Type string to search for, press ENTER: ~ üsearch2~ üüquit~~ üümissing~~ !€4üsearch~!€ €€;€U€ ükey~€ €€String found, please choose: €€C€€ontinue search; €€E€€dit this entry; €€S€€top search€€~ ü4ükey~~ e~trash~ E~trash~ c~continue~ C~continue~ s~stop~ S~stop~ =ü~stop~~ ütrash~ € ütagcase~ ümenu~ üerror~ üInvalid entry! Returning to menu.~ *ü15~ F€F€ ümenu~ ücontinue~ üücancel~~ € üsearch2~ üstop~ € €€ ümenu~ ümissing~ üString not found!~ *ü15~ €€ F€F€ ümenu~ üreplace~ üconfirm~Replace with confirm? (y/n)~ (üfrom~€€€Type string to replace:€€ €~ (üto~€€€Type string to replace with:€€ €~ .€ €€€ 9€ ü"4üconfirm~"="y"|"4üconfirm~"="Y"~ y ü n ü 4üfrom~9€4üto~9€ .€ ü€€€ €Changes have been made to the data file. This list you see now will not be € updated until you press v + ENTER (after all your editing is completed). € € €€Press ENTER to return to Editing Options Menu.€€ ~ü F€F€ ümenu~ üup~ €€€€€€ ümenu~ üdown~ €€ ümenu~ ücancel~ F€F€ &€nn .€ ü ühelp~ üedithelp~ € €Macaruni Editing Tasks Help Screen€ €  € €€Note€€: After pressing the options key on this menu, you must also press ENTER. € Either upper or lower case letters may be used. €€Cursor keys (arrows) do€€ € €€not function on this menu!€€ € € €€To edit item€€: Type the item's number shown in the list, then press ENTER. € You will be asked if you wish to edit Name, Path, or Description € fields (you may, however, edit all three once in the merge file) € € Sa€v€e changes: After you have edited all records you wish to, press v + ENTER € to save the changes. € €D€own: Pressing D + ENTER will move down a screen in the list. € €U€p: As above, but moves up one screen. € €T€op: Pressing T + ENTER moves to the top of the list. € €E€nd: Pressing E + ENTER moves to the end (bottom) of the list. € €S€earch: Pressing S + ENTER prompts you for a string to search for in € the current list and, if a match is found, prompts as follows: € €C€ontinue search; €E€dit this item; €S€top search € €R€eplace: Allows you to search and replace strings in the data file. € €Q€uit: Pressing Q + ENTER quits Macaruni. €  € €€Press any key to return to Editing options.€€~ F€F€ ümenu~ ütagmac~ €€€ !€%€4üeditmenu~%€!€ ;€U€ ütagcase~ üüquit~~ üeditfield~€€Edit: €€N€€ame; €€P€€ath; €€D€€escription; €€Q€€uit€€~ F€F€ ü4üeditfield~~ n~edname~ N~edname~ p~edpath~ P~edpath~ d~eddescript~ D~eddescript~ q~quitblock~ Q~quitblock~ =ü~loop~~ "ü üedname~ € .€ X€4üeditmenu~ € üReminder: Maximum 8 characters for name field!~ *ü15~ üedprompt~ .€ ümenu~ üedpath~ € .€ X€4üeditmenu~ € €€€ üedprompt~ .€ ümenu~ üeddescript~ € .€ X€4üeditmenu~ € €€€€ üedprompt~ .€ ümenu~ üedprompt~ ü€€ Use normal editing keys to revise. €€DO NOT DELETE the {END FIELD} code!€€  €  Lines will automatically wrap. Press €€ENTER €€ when done. ~ü F€F€ "ü üquitblock~ € F€F€ üquit~ üloop~ ütagmac~ üsave~ &€nn .€ üc:\macaruni\mrsave~ &€nn L€1 ü"4üdata~"="7"~ c:\macaruni\mrmain.pf € c:\macaruni\mrmain.cat € üsave2~ ü ü"4üdata~"="8"~ c:\macaruni\mrcat.pf € c:\macaruni\mrcat.csf € üsave2~ ü ü"4üdata~"="9"~ c:\macaruni\mrmain.pf € c:\macaruni\4ü9~ € üsave2~ ü ü"4üdata~"="e"|"4üdata~"="E"~ c:\macaruni\keyboard.pf € c:\macaruni\keyboard.ksf € üsave2~ üüüü üsave2~ )€ ü5ümenu~=32809~ c:\macaruni\ ü"4üdata~"="7"~ mrmain.mrg €y &€nn .€ "ü ü ü"4üdata~"="8"~ mrcat.mrg €y &€nn .€ "ü ü ü"4üdata~"="9"~ 4ü9~P€P€P€mrg €y &€nn .€ "ü ü ü"4üdata~"="e"|"4üdata~"="E"~ keyboard.mrg €y &€nn .€ "ü üüüü ü ü5ümenu~=65027~ € €c:\macaruni\ ü"4üdata~"="7"~ mrmain.mrg €y &€nn "ü ü ü"4üdata~"="8"~ mrcat.mrg €y &€nn .€ "ü ü ü"4üdata~"="9"~ 4ü9~P€P€P€mrg €y &€nn .€ "ü ü ü"4üdata~"="e"|"4üdata~"="E"~ keyboard.mrg €y &€nn "ü üüüü üü üquit~ ü)ü&2~ &€nn .€ ü5üdocument~&1~ üwarning~ ü &€nn ü ü ü)ü&1~ ü5üdocument~&1~ üwarning~ ü &€nn .€ &€nn .€ ü üü ü üquitlist~ ü)ü&2~ &€nn .€ &€nn ü ü)ü&1~ &€nn .€ &€nn .€ üü ü üwarning~ ükey~ € €€ €  €€Warning!€€ Changes have been made to the database.  €  Do you wish to save the changes? (y/n)  € €€~ F€F€ ü4ükey~~ y~yes~ Y~yes~ n~no~ N~No~ =ü~again~~ üyes~ .€ üsave~ üno~ ü)ü&1~ .€ &€nn .€ &€nn ü ü)ü2~ &€nn .€ &€nn üü ü üagain~ üwarning~ ü