[ Foro de BASIC ]

contador en basic. archivo secuencial con append

16-Oct-2019 22:35
Invitado (miguel)
0 Respuestas

Hola. alguna ayuda. Consigo hacer funcionar un archivo secuencial con append y logro introducir valores, sumarlos y mostrarlos. El problema es cuando lo vuelvo a ejecutar esos contadores o acumuladores no almacenan lo de la vez anterior. pongo ejemplo de lo que tengo.
CLS
   OPEN "listado" FOR APPEND AS #1
   DO
       INPUT "   NOMBRE:       ", Nombre$  'Lee datos desde el teclado.
       INPUT "   NUMERO:         ", n
       C = C + n
       WRITE #1, Nombre$, n
       WRITE #1, C
       INPUT "¨Desea ingresar otros datos"; R$
   LOOP WHILE UCASE$(R$) = "S"
   CLOSE #1
   'Mostrar el archivo en la pantalla.
   OPEN "listado" FOR INPUT AS #1
   CLS
   PRINT "Datos en el archivo:": PRINT
   DO WHILE NOT EOF(1)
       LINE INPUT #1, REC$  'Leer datos del archivo.
       PRINT REC$           'Imprimir los datos en la pantalla.
   LOOP
   PRINT "total hasta ahora ", C
   CLOSE #1




Si ya eres usuario del sistema, puedes contestar desde tu cuenta y así ganar prestigio.

Si sólo eres un visitante, puedes optar por...