2004-06-13 20:20:40 +00:00
|
|
|
|
set remap
|
|
|
|
|
|
set noterse
|
|
|
|
|
|
set wrapscan
|
|
|
|
|
|
" to set the height of the tower, change the digit in the following
|
|
|
|
|
|
" two lines to the height you want (select from 1 to 9)
|
|
|
|
|
|
map t 7
|
|
|
|
|
|
map! t 7
|
|
|
|
|
|
map L 1G/t
X/^0
$P1GJ$An$BGC0e$X0E0F$X/T
@f
@h
$A1GJ@f0l$Xn$PU
|
|
|
|
|
|
map g IL
|
|
|
|
|
|
|
|
|
|
|
|
map J /^0[^t]*$
|
|
|
|
|
|
map X x
|
|
|
|
|
|
map P p
|
|
|
|
|
|
map U L
|
|
|
|
|
|
map A "fyl
|
|
|
|
|
|
map B "hyl
|
|
|
|
|
|
map C "fp
|
|
|
|
|
|
map e "fy2l
|
|
|
|
|
|
map E "hp
|
|
|
|
|
|
map F "hy2l
|
|
|
|
|
|
|
|
|
|
|
|
" initialisations:
|
|
|
|
|
|
" KM cleanup buffer
|
|
|
|
|
|
" Y create tower of desired height
|
2021-07-28 20:10:16 +02:00
|
|
|
|
" NOQ copy it and insert a T
|
2004-06-13 20:20:40 +00:00
|
|
|
|
" NO copy this one
|
|
|
|
|
|
" S change last char into a $
|
|
|
|
|
|
" R change last char in previous line into a n
|
|
|
|
|
|
" T insert two lines containing a zero
|
|
|
|
|
|
" V add a last line containing a backslash
|
|
|
|
|
|
map I KMYNOQNOSkRTV
|
|
|
|
|
|
|
|
|
|
|
|
"create empty line
|
|
|
|
|
|
map K 1Go
|
|
|
|
|
|
|
|
|
|
|
|
"delete to end of file
|
|
|
|
|
|
map M dG
|
|
|
|
|
|
|
|
|
|
|
|
"yank one line
|
|
|
|
|
|
map N yy
|
|
|
|
|
|
|
|
|
|
|
|
"put
|
|
|
|
|
|
map O p
|
|
|
|
|
|
|
|
|
|
|
|
"delete more than height-of-tower characters
|
|
|
|
|
|
map q tllD
|
|
|
|
|
|
|
|
|
|
|
|
"create a tower of desired height
|
|
|
|
|
|
map Y o0123456789Z0q
|
|
|
|
|
|
|
|
|
|
|
|
"insert a T in column 1
|
|
|
|
|
|
map Q 0iT
|
|
|
|
|
|
|
|
|
|
|
|
"substitute last character with a n
|
|
|
|
|
|
map R $rn
|
|
|
|
|
|
|
|
|
|
|
|
"substitute last character with a $
|
|
|
|
|
|
map S $r$
|
|
|
|
|
|
|
|
|
|
|
|
"insert two lines containing a zero
|
|
|
|
|
|
map T ko0
0
|
|
|
|
|
|
|
|
|
|
|
|
"add a backslash at the end
|
|
|
|
|
|
map V Go/
|
