DeleteAndCreate
;expects pointer to variable name in hl
;destroys all
;returns pointer to variable data in de
 push hl
  rst 20h  ;load op1 with variable name
  bcall(_chkfindsym)
  jr c,create
  bcall(_DelVarArc)   ;delete if since it exists
Create:
 pop hl
 ld a,(hl)
 ld hl,(RVarLength)
 bcall(_createvar)
 ret