;
74 ^[CR] "vzdos"
; ver4 1992-12-18
	?.
	Ek[, Ek-, ff-,
	&#M(4)
	&s
	(mb != 0) ? {ff+, >C }		; if block mode, goto C
	(wn == 0) ? { >A }		; if console, goto A
		#< #b #> #d #k
		#X #i >B
:A	#k #i #<			; カーソル行の二重化
:B	(cd=='%') ? { #d #d }
	#l #y #E #u #m >D
:C	#B tt = ln,
	#B bb = ln,
	(bb > tt)? { #B }
	#< #x #e
	"@echo off" #m #e
	;	cx=5,
	;	dx="TMP",
	;	di=ps,
	;	&43				; getenv() by Sugi
	#A "vzdos.bat" #m "y" #l #g #b &#M(4)
	;#E "command /c vzdos.bat" #m
	;#E "vzdos.bat" #m
	"del vzdos.bat" #m
:D
	Ek],
	&d
	(ff == 1)?{ &b(5)&w(1)&b(19)}
	.