%%HP: T(3)A(D)F(.);
\<<
"SAVE \16909/27/96 Ted Cashin"
DROP G1 G2 L PVI EL
5 \->LIST DATA 2 MENU
"Enter file name" {
\Ga } INPUT "'" SWAP
OVER + + OBJ\->
  IF DUP VTYPE 0 \>=
  THEN { { "YES"
    \<< CONT
    \>> } { "NO"
    \<< 1 SF CONT
    \>> } } TMENU DUP
\->STR
"Replace existing
"
SWAP + "?" + CLLCD
1 DISP 3 FREEZE
HALT
    IF 1 FS?C
    THEN DROP DROP
UPDIR 1 MENU
"Data not saved"
DOERR
    END
    IF DUP VTYPE 5
\=/
    THEN UPDIR 1
MENU DROP DROP
"Can't replace 
non-list variable"
DOERR
    END
  END STO UPDIR 1
MENU
\>>
