Locomotive Basic: Texto oculto (2)

Ejemplo de texto oculto, con letras grandes, a partir de una representación binaria de los puntos

Lenguaje: Locomotive Basic

Categoría: Consola

' Fuente procedente de ErrorDeSintaxis.es 

' Ejemplo de texto oculto, con letras grandes, 

'  a partir de una representación binaria 

'  de los puntos 

' Lenguaje: Locomotive Basic 

' Nivel: Básico 

' Disponible desde 02/01/2012 

' Aportado por Nacho 

' Autor original: Nacho Cabanes 

' Web original: http://amstrad.es/forum/viewtopic.php?f=19&t=2579&p=38649#p38649 

10 data 0,0,0,0,0
20 data 0,0,0,0,0,0,0,51,0,0,0,0,0,0,192,63
30 data 128,51,0,7,129,224,96,240,192,48,0,48,0,12,66,48
40 data 225,136,192,48,30,51,62,12,102,49,97,140,192,48,51,51
50 data 6,0,102,16,96,12,192,48,33,51,12,0,100,24,96,12
60 data 192,63,63,179,24,0,196,24,96,24,64,48,32,51,24,1
70 data 198,16,96,56,64,48,48,51,48,3,6,48,96,96,0,48
80 data 49,51,48,14,2,48,97,192,192,48,30,51,126,15,225,227
90 data 253,252,192,0,0,0,0,0,0,0,0,0,0,0,0,0
100 data 0,0,0,0,0,0,0
110 mode 2
120 for i = 1 to 140
130   read n
140   t$ = bin$(n,8)
150   print t$;
160 next