%%HP: T(1)A(R)F(.);
DIR
  DATOS { }
  TELEF
     CLLCD { 84 69
76 69 70 79 78 79
83 46 32 32 80 79
82 32 83 65 82 65
86 73 65 } CHR
LIST { "NEW DATA"
} DATOS + 1 CHOOSE
      IF
      THEN DUP
        IF
"NEW DATA" SAME
        THEN DROP
DATOS "Name..." { 
} INPUT ": "
"Phone..." {  }
INPUT + + + SORT
'DATOS' STO TELEF
        ELSE
        END
      ELSE
      END
    
  BORR
     DUP DATOS
SWAP POS  a
       "BORRAR? "
SWAP { } + 1 CHOOSE
        IF
        THEN DATOS
1 a 1 - SUB DATOS a
1 + DATOS SIZE SUB
+ 'DATOS' STO
        END
      
    
END
