DeleteAndCreate
;expects pointer to variable name in hl
;destroys all
;returns pointer to variable data in de
 rst 20h  ;load op1 with variable name
 rst 18h  ; save op 1 to the FPS
 ; Only need to save it if we are calling a delete as it survives chkfindsym
 bcall(_chkfindsym)
 push af
  jr c,create
  bcall(_DelVarArc)   ;delete if since it exists
Create:
  bcall(4390h) ;Popop1
 pop af               ; restore A which has the element type in it.
 and 1fh
 cp 1
 ld hl,(RVarLength)
 jp z,CreateRList
 bcall(_createvar)
 ret
CreateRlist:
 bcall(_CreateRList)
 ret