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


Notice: Undefined index: LocoBasic in /home/u801964362/domains/errordesintaxis.es/public_html/inc_libreria.php on line 43

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112
' Fuente procedente de ErrorDeSintaxis.es 

Notice: Undefined index: LocoBasic in /home/u801964362/domains/errordesintaxis.es/public_html/inc_libreria.php on line 43

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112
' Guardar y leer datos en fichero, usando Locomotive 

Notice: Undefined index: LocoBasic in /home/u801964362/domains/errordesintaxis.es/public_html/inc_libreria.php on line 43

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112
'  Basic de los Amstrad CPC 

Notice: Undefined index: LocoBasic in /home/u801964362/domains/errordesintaxis.es/public_html/inc_libreria.php on line 43

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112
' Lenguaje: Locomotive Basic 

Notice: Undefined index: LocoBasic in /home/u801964362/domains/errordesintaxis.es/public_html/inc_libreria.php on line 43

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112
' Nivel: Básico 

Notice: Undefined index: LocoBasic in /home/u801964362/domains/errordesintaxis.es/public_html/inc_libreria.php on line 43

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112
' Disponible desde 22/07/2011 

Notice: Undefined index: LocoBasic in /home/u801964362/domains/errordesintaxis.es/public_html/inc_libreria.php on line 43

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112
' Aportado por Nacho 

Notice: Undefined index: LocoBasic in /home/u801964362/domains/errordesintaxis.es/public_html/inc_libreria.php on line 43

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112
' Web original: http://www.nachocabanes.com/amstrad/curso/cpc10.php 


Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112

Notice: Undefined offset: 2 in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 3112
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