; Script to make a new pattern from the selected block
; written by Cameron Bonde
;
; www.imaginemysurprise.net
; octamed@hotmail.com
HOSTACTIVATE
SETACTIVESCREEN PATTERN
ACTIVATE
UPDATEPATTERN
; COPY
COPY
; Make new pattern
SETSTRING blockstart BLOCKSTART
SETSTRING blockend BLOCKEND
SUBTRACT blockstart blockend
ADD 1 blockend
rem INFO blockend
; PASTE
vbkey {HOME}{HOME}{HOME}{HOME}
COMPARE GLOBALEXIST YES
ISNOTEQUAL skipmd
vbkey {TAB}
LABEL skipmd
vbkey ^{ENTER}{TAB}
vbkey blockend
vbkey {ENTER}
PASTE
rem INFO Done!
ENDSCRIPT