Programa 022 - Efecto MATRIX

Programa para AMSTRAD CPC escrito en BASIC que emula el efecto MATRIX, ese en el que van cayendo las letras verdes por la pantalla.

Código BASIC

10 REM *********************
20 REM *** Efecto Matrix ***
30 REM *** FlynnTron1982 ***
40 REM ***   15-12-2019  ***
50 REM **********************
60 REM *** Inicializacion ***
70 REM **********************
80 MODE 0
90 DIM tinta(16):pluma=1
100 INK 0,0:BORDER 18
110 SYMBOL AFTER 126:SYMBOL 126,&X11111111,&X10000001,&X10000001,&X0000001,&X0000001,&X000001,&X00011,&X011
120 SYMBOL 127,&X00001,&X0001,&X0001,&X001,&X010001,&X0100001,&X10000001,&X11111111
130 SYMBOL 128,&X000111,&X00001,&X01111111,&X01001001,&X01001001,&X01111111,&X01001001,&X01001001
140 SYMBOL 129,&X11111,&X10000111,&X01000001,&X00100001,&X0001001,&X0000111,&X000001,&X01111
150 SYMBOL 130,&X0000001,&X0010001,&X000101,&X000011,&X0000101,&X0001,&X001,&X11
160 SYMBOL 131,&X01000001,&X01000001,&X01111111,&X0100001,&X0000001,&X000001,&X00011,&X011
170 SYMBOL 132,&X01111111,&X0,&X0,&X01111111,&X0000001,&X000001,&X00011,&X011
180 SYMBOL 133,&X1111111,&X1000001,&X1000001,&X1111111,&X1000001,&X1000001,&X1111111,&X0001
190 SYMBOL 134,&X00011,&X001001,&X001001,&X00011,&X0110011,&X10000001,&X10000001,&X0111111
200 SYMBOL 135,&X10000001,&X10000001,&X10000001,&X1000001,&X1000001,&X000001,&X00011,&X111
210 REM **********************************
220 REM *** Carga la paleta de colores ***
230 REM **********************************
240 FOR t=1 TO 15
250 READ paleta
260 tinta(t)=paleta
270 INK t,tinta(t)
280 NEXT t
290 REM ****************************************
300 REM *** Prepara el texto en modo grafico ***
310 REM ****************************************
320 TAG
330 REM ***********************
340 REM *** Bucle Principal ***
350 REM ***********************
360 CALL &BD19
370 x=INT(RND*640)
380 y=INT(RND*600)
390 color=0
400 espacio=INT(RND*16)+20
410 REM *****************************
420 REM *** Columna de caracteres ***
430 REM *****************************
440 FOR linea=0 TO 10
450 color=color+1
460 letra=INT(RND*10)+125
470 MOVE x,y-(linea*espacio),color:PRINT CHR$(letra);
480 REM ************************
490 REM *** Ciclo de colores ***
500 REM ************************
510 FOR t=1 TO 9
520 pluma=pluma-1:IF pluma<1 THEN pluma=10
530 INK pluma,tinta(t)
540 NEXT t
550 NEXT linea
560 FRAME
570 GOTO 370
580 REM *************************************
590 REM *** Datos de la paleta de colores ***
600 REM *************************************
610 DATA 26,25,21,18,9,0,0,0,0,0,0,0,0,0,0