"** ARCHIVO NO EXISTENTE",A$ : KAR=0 : GOTO 3575