>O que eu quero saber, é como se grava e abre com o  APPEND e
>o INPUT. Ah, eu quero q vc me explique certinho, onde deve-se colocar
>PRINT #1, A$...

Resposta 1: Usa-se o APPEND do mesmo modo que o OUTPUT.

Resposta 2:
------
INPUT

Essa explicacao eu vou comecar com um exemplo

OPEN "lucas.txt" FOR INPUT AS #1'Abre o arquivo "lucas.txt" para leitura (OBS.: Se o 
                                'arquivo nao existir, sera dada uma mensagem de erro,
                                'pois nao e' possivel abrir um arquivo se ele nao 
                                'existe.)

LINE INPUT #1, linha$           'Carrega a primeira linha do arquivo. A variavel linha$,
                                'entao, vai conter a primeira linha do arquivo '"lucas.txt"

PRINT linha$                    'Escreve na tela o conteudo da variavel linha$.

LINE INPUT #1, linha$           'Carrega a segunda linha do arquivo. A variavel que vai
                                'conter a segunda linha e' linha$ (de novo!)

PRINT linha$                    'Escreve o conteudo da variavel linha$ (que agora e' a 
                                'segunda linha)

CLOSE #1                        'Fecha o arquivo


OBS.: Voce sabe qual e' a diferenca entre o INPUT e o LINE INPUT? E' que o
INPUT nao aceita virgulas (e alguns outros caracteres), e o LINE INPUT aceita.
Mas, para carregar uma linha no arquivo tambem pode-se usar o INPUT #1.

OBS2.: Cada vez que se usa o INPUT #1/LINE INPUT #1, se carrega a proxima
linha do arquivo. Se a ultima linha carregada foi a 1a., da proxima vez
que voce for usar usar o INPUT #1/LINE INPUT #1, sera carregada a 2a.,
depois a 3a., 4a., 5a....

Como fazer para identificar o fim do arquivo
--------------------------------------------

Quando voce usa o INPUT #1/LINE INPUT #1 para carregar uma linha, quando ja
foram carregadas todas as linhas do arquivo, e' dada uma mensagem de erro
(exemplo: voce usa o INPUT #1/LINE INPUT #1 pela quarta vez quando o arquivo
so tem tres linhas). Para evitar essa mensagem de erro, deve-se verificar
pelo fim-de-arquivo. Para isso, usa-se o EOF (abreviacao de End-Of-File).

Usando o EOF
--------------

Nao sei se voce conhece o WHILE...WEND, mas de qualquer jeito e' uma boa
oportunidade para aprender.

        Usando o WHILE...WEND
        ---------------------

        WHILE, em ingles, significa ENQUANTO.
        O uso do WHILE...WEND e' semelhante ao do DO...LOOP.
        Usa-se assim:

        WHILE condicao
        .
        .
        .
        WEND


        A utilidade e' executar as linhas entre o WHILE e o WEND ENQUANTO a
        condicao for verdadeira.
        No exemplo abaixo, eu estou numerando as linhas apenas para facilitar
        a mencao das mesmas.
        Exemplo:

        1 WHILE i < 40
        2  i = i + 1
        3  PRINT i
        4 WEND

        Esse exemplo executa as linhas 2 e 3 *ENQUANTO* i for menor que 40.

        Entendido?
        -------------------------------------

Voltando ao EOF...

Entao, para carregar uma linha sem dar a mensagem de erro, devemos CARREGAR
A LINHA ENQUANTO O ARQUIVO AINDA TIVER LINHAS PARA CARREGAR. Ora, e' obvio,
so podemos carregar carregar uma linha se ela existir.

Para fazer isso, usamos o WHILE da seguinte maneira:

WHILE NOT EOF(1)                'ENQUANTO o arquivo nao tiver chegado ao fim...
  LINE INPUT #1, texto$         '...Carregue a proxima linha...
  PRINT texto$                  '...E a escreva na tela.
WEND                            'Volta ao inicio

Entao, eis um exemplo de como carregar um arquivo:

CLS
INPUT "Que arquivo deseja abrir? ", ARQ$
OPEN ARQ$ FOR INPUT AS #1
WHILE NOT EOF(1)
LINE INPUT #1, LINHA$
PRINT LINHA$
WEND
CLOSE #1

UFA! Espero que tenha entendido.
No fim do e-mail tem outro exemplo.
---------------------

Resposta 3:
Voce deve colocar o PRINT #1, A$, quando quiser gravar a variavel A$ no
arquivo aberto.

Cordialmente,
        Rodrigo

CLS
INPUT "Arquivo: ", arq$
OPEN arq$ FOR INPUT AS #1
LINE INPUT #1, M$
WHILE NOT EOF(1)
  PRINT M$
  LINE INPUT #1, M$
  I = I + 1: IF I = 23 THEN SLEEP: CLS : I = 0
WEND
CLOSE
END