ErrorDeSintaxis

Pequeños fragmentos de código fuente en distintos lenguajes de programación, agrupados por categorías.

Puedes buscar entre los fuentes existentes, o aportar los tuyos.

Locomotive Basic: Guardar y leer datos en fichero

Guardar y leer datos en fichero, usando Locomotive Basic de los Amstrad CPC

Lenguaje: Locomotive Basic

Categoría: Ficheros

' Fuente procedente de ErrorDeSintaxis.es 
' Guardar y leer datos en fichero, usando Locomotive 
'  Basic de los Amstrad CPC 
' Lenguaje: Locomotive Basic 
' Nivel: Básico 
' Disponible desde 22/07/2011 
' Aportado por Nacho 
' Web original: http://www.nachocabanes.com/amstrad/curso/cpc10.php 

10 dim nombre$(5), direccion$(5)
20 ' Primero pedimos datos
30 for i = 1 to 5
40   print "Dime el nombre ";i;": ";
50   input nombre$(i)
60   print "Dime su direccion: ";
70   input direccion$(i)
80 next i
90 ' Ahora guardamos los datos
100 openout "agenda.dat"
110 for i = 1 to 5
120   write #9,nombre$(i)
130   write #9,direccion$(i)
140 next i
150 closeout
160 ' Vaciamos los datos
170 for i = 1 to 5
180   nombre$(i) = ""
190   direccion$(i) = ""
200 next i
210 ' Volvemos a leer los datos
220 openin "agenda.dat"
230 for i = 1 to 5
240   input #9,nombre$(i)
250   input #9,direccion$(i)
260 next i
270 closein
280 ' Y los escribimos al reves
290 for i = 5 to 1 step -1
300   print nombre$(i); ": ";
310   print direccion$(i)
320 next i