* Macros To Show Byte Size of Macros, v1.1 * SIZE11.QM * * Version History: * 1.0 - initial * 1.1 - added Alt_9 to show size of all macros in txtfile * *旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� *� @9 Macro to show byte size of all macros in a txtfile � *읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� * * To run, cursor may be anywhere in a txtfile. Press Alt and 9 at the * same time, and the size of each macro is added at the end of each * macro with an asterisk in column 1. Macros must be paragraphs (ie * separated by at least one blank line) and each paragraph must contain * a macro. Insert should be ON. For faster operation, replace "C:" * with ram drive. Insert should be ON. * @9 macrobegin begfile * get to begin of file unmarkblock * get ready insertline * insert blank line markcolumn * markcolumn currentfilename * get currentfilename storescrbuff "1" return * get to scrbuff 1 copy * get to scrap delline * delete blank line cursordown * move into macro jtrue LASTLINE: * if cannot cursor down endfile * are at endfile-no blank line return * put blank line prevpara * go to para begin jump NEXT: * bypass lastline: LASTLINE: * if can cursor down prevpara * go to macro begin begline * go to begline NEXT: * get ready to mark markblockbegin * mark macro block begin endpara * go to macro end markblockend * mark macro end writeblock "C:$.qm" return * write macro block to C:$.qm return * put line at end of macro editfile return quit * quit temp file from ring editfile return * load macro block txtfile dos "qmacb " currentfilename * make macfile of macro block backspace backspace backspace * remove '.qm' return return * return from Dos dos "dir " currentfilename * get macfile size with Dir backspace backspace * delete 'qm' "mac >C:!" * add 'mac", save list to temp return return * back fom Dos killfile * kill C:$.qm on disk quit * quit ring editfile "C:!" return quit * quit temp file from ring editfile "C:!" return * load Dir listing of macfile gotoline "4" return * drop down wordright wordright markword * mark size storescrbuff "2" return * get size to scrapbuff 2 killfile * kill C:! on disk quit * quit ring getscrbuff "1" return * insert orig file name cut * get to scrap editfile paste return * load orig file * edit currentfilename begline * begline "*" cursorright * put asterisk in column 1 getscrbuff "2" return * insert byte size of macro endline cursorright "bytes" * add "bytes" cursorright * space insertdate inserttime * insert date and time nextpara jfalse END: jump NEXT: END: * * 169 bytes Mon 08-20-1990 21:56:24 *旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴커 *� @0 Macro to show byte size of macro. � *읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 * Place cursor line in any txtfile macro and press Alt_0. Macro size is * added to the end of the macro as shown below. For faster operation, * replace "C:" with ram drive. Insert should be ON. * @0 macrobegin unmarkblock * get ready insertline * insert blank line markcolumn * markcolumn currentfilename * get currentfilename storescrbuff "1" return * get to scrbuff 1 copy * get to scrap delline * delete blank line cursordown * move into macro jtrue LASTLINE: * if cannot cursor down endfile * are at endfile-no blank line return * put blank line prevpara * go to para begin jump NEXT: * bypass lastline: LASTLINE: * if can cursor down prevpara * go to macro begin begline * go to begline NEXT: * get ready to mark markblockbegin * mark macro block begin endpara * go to macro end markblockend * mark macro end writeblock "C:$.qm" return * write macro block to C:$.qm return * put line at end of macro editfile return quit * quit temp file from ring editfile return * load macro block txtfile dos "qmacb " currentfilename * make macfile of macro block backspace backspace backspace * remove '.qm' return return * return from Dos dos "dir " currentfilename * get macfile size with Dir backspace backspace * delete 'qm' "mac >C:!" * add 'mac", save list to temp return return * back fom Dos killfile * kill C:$.qm on disk quit * quit ring editfile "C:!" return quit * quit temp file from ring editfile "C:!" return * load Dir listing of macfile gotoline "4" return * drop down wordright wordright markword * mark size storescrbuff "2" return * get size to scrapbuff 2 killfile * kill C:! on disk quit * quit ring getscrbuff "1" return * insert orig file name cut * get to scrap editfile paste return * load orig file * edit currentfilename begline * begline "*" cursorright * put asterisk in column 1 getscrbuff "2" return * insert byte size of macro endline cursorright "bytes" * add "bytes" cursorright * space insertdate inserttime * insert date and time makectrofscreen * better view * * 162 bytes Mon 08-20-1990 22:54:25