**********************************************************************
* Name:		VARS2
* Stack:	( --> {vars} )
* Desc:		Get all variable names in current directory
* Notes:	Changing next would make this regular VARS
*			LASTRAM-WORD	--> LastNonNull
*			PREVRAM-WRD	--> PrevNonNull
**********************************************************************
ASSEMBLE
	CON(1)	8
RPL
xNAME VARS2
::
  CK0
  CONTEXT@ LASTRAM-WORD		( ob TRUE / FALSE )
  NOTcase NULL{}		( --> {}  ; empty context )

  ZEROSWAP BEGIN		( name1 .. #n ob )
     DUP RAM-WORDNAME UNROT	( name1 .. namei #i-1 ob )
     SWAP#1+SWAP		( name1 .. namei #i ob )
     PREVRAM-WORD
  NOT_UNTIL (UNTIL)
  {}N
;

**********************************************************************