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