Locomotive Basic: Guardar el contenido de la pantalla

Guardar (y recuperar) el contenido de la pantalla, usando Locomotive Basic de los Amstrad CPC

Lenguaje: Locomotive Basic

Categoría: Ficheros

' Fuente procedente de ErrorDeSintaxis.es 

' Guardar (y recuperar) el contenido de la 

'  pantalla, usando Locomotive Basic de los 

'  Amstrad CPC 

' Lenguaje: Locomotive Basic 

' Nivel: Básico 

' Disponible desde 22/07/2011 

' Aportado por Nacho 

' Autor original: Nacho Cabanes 

' Web original: http://www.nachocabanes.com/amstrad/curso/cpc10.php 

10 MODE 1 : ' Guardar y recuperar la pantalla
20 FOR i = 1 TO 640 STEP 2
30   MOVE 0,0: DRAW i,400,1,1
40 NEXT
50 FOR i = 1 TO 400 STEP 2
60   MOVE 0,0: DRAW 640,i,1,1
70 NEXT
80 SAVE "pantalla.bin",b,&C000,&4000
90 CLS
100 PRINT "Pulsa una tecla para cargar la pantalla..."
110 WHILE INKEY$="": WEND
120 LOAD "pantalla.bin"