* Macro To Get Command & Key From QCONFIG.DAT, v1.1 * GETCOM11.QM * * @0 gets a single command and it's key on screen, then removes * @1 puts command key beside ALL commands in a macro | * @2 puts command key beside a single command in a macro |new v1.1 * @3 makes single column of commands in macro (from COLUMN10) | * Version History: * * 1.0a - modified Alt_0 to find all multiple commands matching * the search criteria * 1.1 - added Alt_1/2/3 * In order for these macros to find a command in QCONFIG.DAT, there must * be at least four blank spaces betweeen the end of the command key and * the beginning of the command. If your QCONFIG.DAT has fewer spaces, the * macro must be modified in the first 'find' line. * * * * * Before running, be sure to change the lines with ** below to the * location of your qconfig.dat. Insert must be ON. * To run: * * 1. First, you must make a single column macro with Alt_3. To do this, * place the cursor line anywhere in a macro txtfile (after loading the * macfile) and press Alt and 3 at the same time. * * 2. To find the keys for ALL commands in a macro, place the cursor * line at the topof a macro txtfile and press Alt_1. An example of this * output is shown at the end of this file. The keys corresponding to * each command will be listed also in a single column next to the * command. * * 3. To find the key for a single command in a macro, place the cursor * line on the command in a macro txtfile and press Alt_2. The key * corresponding to the command will be listed next to the commmand. * * * * * 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� * � @0 Retrieves a command and it's key from QCONFIG.DAT � * 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� * This macro retrieves a command or all commands matching a selected * find criteria from your QCONFIG.DAT file, displays the selected * command(s) and it's key on the screen, and then removes the * command(s) and it's key from the screen. For those of us who can * never remember all the commands and can never find our reference * sheet, this might help. * * First, be sure to change "g:\qe\qconfig.dat" in the macro below to * the location of your qconfig.dat in your setup, and convert. * * To run, press Alt_0, then enter the first letter (or more) of the * command you want to know the key for, press 'Enter' to see the the * command(s) and it's key, then press 'Enter' again to remove the * command(s) and it's key from the screen. * * For example, to find the key for appendscrbuff, press: * Alt_0 * "app" (no quotes) * Enter * * You should see the following highlighted on your screeen: * | * ^b_a appendscrbuff | * Entering "b" instead shows all commands beginning with "b": * | * ^h backspace | * ^home begscreen | * ^pgup begfile | * home begline | * backspace backspace | * Press 'Enter' to remove the command(s) and it's key from the screen, * or press 'Esc' three times if you want to keep the command(s) on the * screen for reference. * @0 macrobegin unmarkblock * unmarkblock insertline * insert blank line markcolumn * markcolumn currentfilename * get currentfilename copy * get filename to scrap delline * delline after editfile * "g:\qe\qconfig.dat" ** CHANGE for your setup ** return * load qconfig.dat dropanchor * start to clear scrap storescrbuff "1" return * get to scrap unmarkblock * get ready to find and mark begfile * go to begin qconfig.dat find " " * insert 4 spaces before find pause * pause for command to find return "i" return * find first command jump NEXT: * START: * come here more than 1 find find * find next command return "i" return * NEXT: * jfalse FINISH: * mark if found, quit if not markline * mark command line begline * put at begline "* " * asterisk space appendscrbuff "1" return * get to scrbuff cursordown * move down line unmarkblock * unmark command jump START: * see if any more matches FINISH: * come here after last find quit * quit qconfig.dat editfile paste return * return to file markcolumn * start to mark block getscrbuff "1" return * get command and key begline * get to block begin makectrofscreen * for better viewing pause * pause, then 'Enter' to.. makectrofscreen * back to where we were deleteblock * clean up, remove block * * 107 bytes Wed 08-22-1990 21:08:33 *旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴커 *� @1 Puts key beside ALL commands in single column � *읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 * Does all commands in a macro txtfile * @1 macrobegin unmarkblock * unmarkblock insertline * insert blank line markcolumn * markcolumn currentfilename * get currentfilename storescrbuff "1" return * get to scrbuff delline * delline after START: * endline begline * line blank? if so end jfalse END: * begline * go to begin line wordright * get to command markword * mark it copy * get to scrap unmarkblock * unmark editfile * "g:\qe\qconfig.dat" ** CHANGE for your setup ** return * load qconfig.dat begfile * go to begin qconfig.dat FIND " " * insert 4 spaces before find paste * paste command for find return "IW" return * find command in qconfig.dat jfalse NOFIND: * mark if found, quit if not wordright * move cursor to command markcolumn * markcolumn begline * go to begline "* " * insert asterisk space begline * go to begline markcolumn * finish marking key storescrbuff "2" return * get key to scrbuff 1 cursordown * move down line unmarkblock * unmark command quit * quit qconfig.dat getscrbuff "1" return * get currentfilename cut * cut currentfilename editfile paste return * load currentfilename markcolumn * start to mark block gotocolumn "33" return * postition to get key getscrbuff "2" return * get key begline * go to begline makectrofscreen * for better viewing cursordown * move down to next command jump START: * start on next command NOFIND: * come here if no key for command getscrbuff "1" return * get currentfilename cut * cut currentfilename editfile paste return * return to file gotocolumn "33" return * position to get key "* " * insert asterisk space cursordown * move down to next command begline * jump START: * do next line till done END: * * * 143 bytes Wed 08-22-1990 21:08:49 *旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� *� @2 Puts key beside command with commands in single column � *읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� * Does single commands only * @2 macrobegin unmarkblock * unmarkblock insertline * insert blank line markcolumn * markcolumn currentfilename * get currentfilename storescrbuff "1" return * get to scrbuff delline * delline after begline * go to begin line wordright * get to command markword * mark it copy * get to scrap unmarkblock * unmark editfile * "g:\qe\qconfig.dat" ** CHANGE for your setup ** return * load qconfig.dat begfile * go to begin qconfig.dat FIND " " * insert 4 spaces before find paste * paste command for find return "IW" return * find command in qconfig.dat jfalse NOFIND: * mark if found, quit if not wordright * move cursor to command markcolumn * markcolumn begline * go to begline "* " * insert asterisk space begline * go to begline markcolumn * finish marking key storescrbuff "2" return * get key to scrbuff cursordown * move down line unmarkblock * unmark command quit * quit qconfig.dat getscrbuff "1" return * get currentfilename cut * cut currentfilename editfile paste return * load currentfilename markcolumn * start to mark block gotocolumn "33" return * postition to get key getscrbuff "2" return * get key begline * go to begline makectrofscreen * for better viewing cursordown * move down to next command jump END: * stop after getting key NOFIND: * come here if no key for command getscrbuff "1" return * get currentfilename cut * cut currentfilename editfile paste return * return to file gotocolumn "33" return * position to get key "* " * insert asterisk space cursordown * move down to next command begline * END: * * * 135 bytes Wed 08-22-1990 21:09:01 *旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴커 *�@3 Makes single column txtfile from any txtfile � *� Uses batch files QMACB.BAT and QMACT-N.BAT � *읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 * Macro from COLUMN10.ZIP * @3 macrobegin writeblock "dum.qm" * copy block or file to dum.qm return return * ***************************************** GET CURRENTFILENAME TO SCRAP insertline * insert blank line begline * dropanchor * start mark currentfilename * get currentfilename storescrbuff "1" return * to scrbuff 1 cut * to scrap ***************************************** dos "qmacb dum" return return * make macfile dos "qmact-n dum" return return * make txtfile editfile "dum.qm" return quit * editfile return * load dum.qm endfile return * insert blank line at end "*" insertdate inserttime * for date/time getscrbuff "1" return * and file name unmarkblock * savefile * save dum.qm * * 103 bytes Sun 08-05-1990 17:50:06 * The following (with star and space added) is the output from first * running Alt_3, then Alt_1 on the single column macro Alt_3 above. * * @3 MacroBegin * * WriteBlock * @w * "dum." * * "qm" * * Return * enter * Return * enter * InsertLine * ^n_i * BegLine * home * DropAnchor * @a * CurrentFilename * ^n_n * StoreScrbuff * ^b_s * "1" * * Return * enter * Cut * ^c_u * Dos "" * ^n_o * "qmacb " * * "dum" * * Return * enter * Return * enter * Dos "" * ^n_o * "qmact-" * * "n dum" * * Return * enter * Return * enter * EditFile * f3 * "dum." * * "qm" * * Return * enter * Quit * @x * EditFile * f3 * Return * enter * EndFile * ^pgdn * Return * enter * "*" * InsertDate * ^d * InsertTime * ^e * GetScrbuff * ^b_g * "1" * * Return * enter * UnmarkBlock * @u * SaveFile * f2 * *..Tom Hogshead Wed 08-22-1990 21:07:30