ÿWPC[ûÿ(#8Macaruni Database Maintenance: DEL ü Macaruni 1.0, copyright 1991 by Robert S. King Published by Wordsetters, P. O. Box 709, Winterville, GA 30683 All Rights Reserved This macro, MRDEL.WPM, is called by the database maintenance menu and allows deletion of records from the database.~ &€nn ü"4üdata~"="4"~ üdelmaster~ ü ü"4üdata~"="5"~ üdelcat~ ü ü"4üdata~"="6"~ üdelcatmac~ ü ü"4üdata~"="d"|"4üdata~"="D"~ üdelwpk~ üüüü üdelmaster~ 5€c:\macaruni\mrmain.mrg € €€ .€ 5€c:\macaruni\mrmain.cat € .€ ümenu~ üdelcat~ üüquit~~ 5€c:\macaruni\mrcat.mrg € €€ .€ 5€c:\macaruni\mrcat.csf € .€ ümenu~ üdelcatmac~ üüquitlist~~ $€c:\macaruni\*.cat €51 € ümove~ ümove~ ükey~€€€Move cursor to category from which to delete, press ENTER€€~ ü4ükey~~ €~d~ €~u~ €~l~ €~r~ Z€~pd~ Y€~pu~ €~getfile~ =ü~quitlist~~ üd~ € ümove~ üu~ € ümove~ ül~ € ümove~ ür~ € ümove~ üpd~ Z€ ümove~ üpu~ Y€ ümove~ ügetfile~ ü9~5üentry~~ .€ 5€c:\macaruni\4ü9~ € .€ 5€c:\macaruni\4ü9~P€P€P€mrg € €€ ümenu~ üdelwpk~ 5€c:\macaruni\keyboard.mrg € €€ .€ 5€c:\macaruni\keyboard.ksf € .€ ümenu~ ümenu~ ü üüerror~~ üüerror~~ üüquit~~ ü (üdelmenu~€ €€Del:€€ €#€ + €ENTER€ tags; €G€o del; U€n€tag; €D€own; €U€p; €T€op; €E€nd; €S€earch; €H€elp; €Q€uit ~ F€F€ ü4üdelmenu~~ 0~zero~ 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~delmac~ G~delmac~ 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~untag~ N~untag~ o~error~ O~error~ p~error~ P~error~ q~quit~ Q~quit~ r~error~ R~error~ s~search~ S~search~ t~top~ T~top~ u~up~ U~up~ v~error~ V~error~ w~error~ W~error~ x~error~ X~error~ y~error~ Y~error~ z~error~ Z~error~ =ü~tagmac~~ üzero~ ü€€ €€Warning!€€ The default macro directory entry should not be deleted. If you € need to change it, please retrieve the file C:\MACARUNI\MRMAIN.PF and edit € the pathname. €€Press ENTER to return to the options menu.€€ ~ü F€F€ ümenu~ ü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; €€T€€ag for deletion; €€S€€top search€€~ ü4ükey~~ t~trash~ T~trash~ c~continue~ C~continue~ s~stop~ S~stop~ =ü~stop~~ ütrash~ € €€€S€ ;€S€€,üa2 € €€ .€ €€€ !€4ü2~!€€€ ;€Z€ G€11 €€€  €.€ ümenu~ üerror~ üInvalid entry! Returning to menu.~ *ü15~ F€F€ ümenu~ ücontinue~ üücancel~~ € üsearch2~ üstop~ € €€ ümenu~ ümissing~ üString not found!~ *ü15~ €€ F€F€ ümenu~ üup~ €€€€€€ ümenu~ üdown~ €€ ümenu~ ücancel~ F€F€ &€nn .€ ü ühelp~ üdelhelp~ € €Macaruni Deletion 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 tag for deletion€€: Type the item's number shown in the list, then press € ENTER. After all items are tagged, press G to perform € the deletion (see below). € € €G€o del: Deletes all the tagged items. €€Important!€€: If you fail to press € this key, the database will not be updated. € €U€ntag: Pressing n + ENTER prompts you for the number of the item you € wish to untag. € €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; €T€ag this macro; €S€top search € €Q€uit: Pressing Q + ENTER quits Macaruni. €  € €€Press any key to return to Deletion options.€€~ F€F€ ümenu~ ütagmac~ €€€ !€%€4üdelmenu~%€!€  €;€S€€,üa2 € €€ .€ €€€ X€4üdelmenu~ € ;€Z€ G€11 €€€  €.€ ümenu~ üuntag~ (üdeltag~Type number to untag, press ENTER: ~ €€€ !€%€4üdeltag~%€!€Q€ €;€S€€,üa2 € €€ .€ €€€ !€4ü2~!€€€Q€ ;€Z€ G€11 €€€ € .€ ümenu~ üdelmac~ ü"4üdata~"="5"~ üridcat~ ü üzappf~ ü üridcat~ üüzappf~~ €€€ ü1~5üline~~ ü1~1~400~1~ !€!€€;€S€€,üa2 € €€!€!€€ € $€c:\macaruni €514ü2~.* €<€2yy *ü5~ üridcat~ ü üzappf~ üüsort~~ &€nn .€ €€€ !€!€€ ;€€€€Q€y üsort~ üsort~ L€2 € €71611 üc:\macaruni\mrsave~ &€nn L€1 ü"4üdata~"="4"~ c:\macaruni\mrmain.pf € c:\macaruni\mrmain.cat € üsave~ ü ü"4üdata~"="5"~ c:\macaruni\mrcat.pf € c:\macaruni\mrcat.csf € üsave~ ü ü"4üdata~"="6"~ c:\macaruni\mrmain.pf € c:\macaruni\4ü9~ € üsave~ ü ü"4üdata~"="d"|"4üdata~"="D"~ c:\macaruni\keyboard.pf € c:\macaruni\keyboard.ksf € üsave~ üüüü üsave~ )€ ü5ümenu~=32809~ c:\macaruni\ ü"4üdata~"="4"~ mrmain.mrg €y &€nn .€ "ü ü ü"4üdata~"="5"~ mrcat.mrg €y &€nn .€ "ü ü ü"4üdata~"="6"~ 4ü9~P€P€P€mrg €y &€nn .€ "ü ü ü"4üdata~"="d"|"4üdata~"="D"~ keyboard.mrg €y &€nn .€ "ü üüüü ü ü5ümenu~=65027~ € €c:\macaruni\ ü"4üdata~"="4"~ mrmain.mrg €y &€nn "ü ü ü"4üdata~"="5"~ mrcat.mrg €y &€nn .€ "ü ü ü"4üdata~"="6"~ 4ü9~P€P€P€mrg €y &€nn .€ "ü ü ü"4üdata~"="d"|"4üdata~"="D"~ keyboard.mrg €y &€nn "ü üüüü üü üquit~ ü)ü&2~ &€nn .€ &€nn ü ü)ü&1~ ü5üdocument~&1~ üwarning~ ü &€nn ü üü ü üquitlist~ *ü5~ &€nn .€ &€nn ü)ü&2~ .€ ü ü ü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~ .€ üdelmac~ üno~ ü)ü&1~ .€ &€nn .€ &€nn ü ü)ü2~ &€nn .€ &€nn üü ü üagain~ üwarning~ ü