DeleteAndCreate
;expects pointer to variable name in hl
;destroys all
;returns pointer to variable data in de
 rst 20h  ;load op1 with variable name
 bcall(_chkfindsym)
 jr c,create
 ; ld hl,op1             ; I belive i need to do this for delvararc.
 push af
  bcall(_DelVarArc)   ;delete if since it exists
 pop af               ; restore A which has the element type in it.
Create:
 and 1fh
 cp 1
 ld hl,(RVarLength)
 jp z,CreateRList
 bcall(_createvar)
 ret
CreateRlist:
 bcall(_CreateRList)
 ret