! * DIR.TEC V01.01 Edit directory macro. This macro is the command responder to the "DIR" or "EDI/DI" VTECO commands. ! ! * Macro to move cursor... Row in QR Column in QC ! @^Uc\bj (qr-1)l .u2 1l 2r qc-.+q2-1<@i% %> bj (qr-1)l (qc-1)c\ ! * Macro to zap text buffer to one screenful of 's ! @^Uz\hk 23<@i% %> bj\ ! * Pick up the currently pointed to filename and stash it in q3. ! @^Ua\.u2 @s%;% @:s%b%"s r | zj' q2,.x3 q2j\ ! * Reset the filename from q0 and flush qp-1 pagefuls of matches. ! @^Ur\@en%q0% (qp-1)u1 q1*63<@:en%%;>\ ! * Pick up a word from the keyboard. ! @7\.u3 ' q2-13"e ^[ 0;' q2-21"e 0k f>' q2-31"g q2i '> zj 0x4 0k q3j\ ! * Main macro body ! hx1 hk @er%lb:[1,2]scope.tec% y hxy hk 1u0 my 0,0xy @ei%% g1 @:eg%srd q1/wb/-li% 0,9et 2ed j @:s%]%"f j @:s%:%' 0x0 0k @:s%.% .-2"l @:^U0%*.% | 0:x0' 0k @:s%;%"s .-1,zx1 .-1,zk | @^U1%;*%' z"n h:x0 hk | @:^U0%*%' g1 h:x0 mz !r1! 1up mr 3ur 1uc <0u0 [r [c 1%c 3%r mc g2 1%0 0,0x2> q1up ]c ]r "e <27%c-80"g 1uc 1%r-23"g 3ur'' mc 0a"c 0;'> f>' q2-^^<"e <-27%c"l 55uc -1%r-3"l 23ur'' mc 0a"c 0;'> f>' q2-^^^"e <-1%r-3"l 23ur' mc 0a"c 0;'> f>' q2-^^|"e <1%r-23"g 3ur' mc 0a"c 0;'> f>' q2-^^d"e ma bj 7d @i%Delete?% mc -1w bj 7d 7<@i% %> mc #32-^^y"e @:eg%pip q1q3/de%-1"n -25w' 0;' f>' q2-^^l"e 0 ma [r [c 0,0xr -1ur 32<%r@:^Ur%%> !lr1! @er%q1q3% 0u1 <<:; mz 1ur 10uc mc @i%Listing of: % g* @i% Page % 1%1\ %r 1uc 0u0<1%0-22; zu2 1%r !A! 1:a; z"e @o!A!' q2j <@:s%gr%; r 0a-13"e d f>' 0a-10"e d f>' 0a-9"n @i%^% 0a#64@i%% d f>' c> zj 0xt 0k mc gt :qt-78"g 1%0'> ;> bj -1w <u2 q2-32"e 0;' q2-26"e @o!lq!' q2"w q2#32u2' q2-^^r"e @o!lr!' q2-^^q"e @o!lq!'> > !lr! @o!lr1! !lq! ]c ]r 0;' q2-^^e"e ma hk g1 g3 @ei%lb:[1,2]scope% 0u0 @o!zzz!' q2-^^p"e ma bj 13d @i%Print Delete?% mc -1w bj 13d @i%Printing.. % mc ^T#32-^^y"e @^Ux%/delete%bj | @^Ux%%' -1w bj 10d 10<@i% %> mc -1ej-6"e @^Uy% % | @^Uy%=%' @:eg%print/-flag/length:60.qyq1q3qx%-1"n -25w' f>' q2-^^r"e ma bj 8d @i%Rename..% mc m7 bj 10d 10<@i% %> :q4"n @:eg%pip q4/re=q3%-1"n -25w' 0;' f>' > qq"s mr'> @o!q! !r! @o!r1! !q! hk @i% % bj 0 -1w hk ex !zzz!