$	ON CONTROL_Y THEN GOTO EXIT
$	bel[0,7] = 7
$	esc[0,7] = 27
$	up	 = esc + "[1A"
$	upbel	 = up + bel
$	wo 	 = "WRITE SYS$OUTPUT"
$	wupbel	 = "WRITE SYS$OUTPUT upbel"
$	wupbel
$	wupbel
$	wupbel
$ LOOP:
$	wupbel
$	wupbel
$	WAIT 00:00:02
$	GOTO LOOP
$!
$ EXIT:
$	wo up,up,"           ",up
$	EXIT