33 lines
1.8 KiB
Plaintext
33 lines
1.8 KiB
Plaintext
|
!dir.tes-display directory!
|
|||
|
[0 [1 [2 ! save Q-regs 0-2 !
|
|||
|
.u0 ! remember where we are !
|
|||
|
zj ! jump to end of buffer !
|
|||
|
.u1 ! remember old end of buffer !
|
|||
|
0u2 ! zero column count !
|
|||
|
@^u1%*.*% ! default is get dir of everything !
|
|||
|
q1"n ! is buffer not empty? !
|
|||
|
80-q1"g ! is buffer length < maxpath? !
|
|||
|
0,q1x1 ! assume edit buf = filespec !
|
|||
|
' ! endif !
|
|||
|
' ! endif !
|
|||
|
en^eq1 ! preset wildcard lookup !
|
|||
|
q1j ! jump to end of buffer !
|
|||
|
< ! <build filename display !
|
|||
|
:en; ! return filename, break if none !
|
|||
|
g* ! put filename into edit buffer !
|
|||
|
(1%2)-5"e ! is fifth and final column? !
|
|||
|
13@i%% ! insert <CR> !
|
|||
|
10@i%% ! insert <LF> !
|
|||
|
0u2 ! reset column count !
|
|||
|
| ! else !
|
|||
|
15+^S< ! <do column mod 15 times !
|
|||
|
32@i%% ! insert <SPACE> !
|
|||
|
> ! > !
|
|||
|
' ! endif !
|
|||
|
> ! > !
|
|||
|
q1,zt ! display what we built !
|
|||
|
q1,zk ! kill what we built !
|
|||
|
q0j ! jump to where we were !
|
|||
|
]2 ]1 ]0 ! restore Q-regs 0-2 !
|
|||
|
|