Serious challenge: Graphics demo within 25 LINES OR FEWER!

[na_th_an]

Bah, double post. Needed. Here:

Code:

message$ = "        I think I have something to tell you right now... But it is this twisted life that makes it difficult... Oh, man, you got me puzzled. ­­­BYE!!!        "
SCREEN 13: post% = 1: DIM banner%(224, 32): DEF SEG = &HFFA6
OUT &H3C8, 16: FOR i% = 0 TO 15: OUT &H3C9, i% * 4: OUT &H3C9, 30: OUT &H3C9, 30: NEXT: FOR i% = 0 TO 15: OUT &H3C9, i% * 2: OUT &H3C9, i% * 2: OUT &H3C9, i% * 2: NEXT
DO
   IF cont% = 0 THEN
      c$ = MID$(message$, post%, 1)
      post% = (post% + 1) MOD LEN(message$)
      FOR y% = 0 TO 7: byte% = PEEK(ASC(c$) * 8 + y% + 14): FOR x% = 0 TO 7
         bit% = byte% AND 1: byte% = byte% \ 2
         FOR i% = 0 TO 2: FOR j% = 0 TO 2
            IF bit% = 1 THEN banner%(200 + y% * 3 + i%, (7 - x%) * 3 + j%) = 1 ELSE banner%(200 + y% * 3 + i%, (7 - x%) * 3 + j%) = 0
      NEXT j%, i%, x%, y%
   END IF
   FOR i% = 1 TO 223: FOR j% = 0 TO 23: banner%(i% - 1, j%) = banner%(i%, j%): NEXT j%, i%
   cont% = (cont% + 1) MOD 24
   angulo! = angulo! + .1: IF angulo! > 3.141592653589793# THEN angulo! = 0!
   angulo2! = angulo2! + .05: IF angulo2! > 2 * 3.141592653589793# THEN angulo2! = 0!
   FOR i% = 0 TO 199
      d% = 5 * SIN(4 * 3.141592653589793# * i% / 200 + angulo2!)
      SELECT CASE INT((i% + ((angulo! * 50) / (3.141592653589793# / 2))) / 50)
         CASE 0, 2, 4, 6: amplitud! = ABS(32 * SIN(angulo! + i% * 2 * 3.141592653589793# / 200))
         CASE 1, 3, 5: amplitud! = ABS(32 * COS(angulo! + i% * 2 * 3.141592653589793# / 200))
      END SELECT
      FOR j% = 0 TO amplitud! - 1
         IF banner%(i%, 32! * j% / amplitud!) = 0 THEN mcolor% = 32 + amplitud! / 4! + (16 - amplitud! / 2!) * j% / amplitud! ELSE mcolor% = 16 + amplitud! / 4! + (16 - amplitud! / 2!) * j% / amplitud!
         PSET (d% + j% + 144 + 12 - 16, i%), mcolor%
      NEXT j%
      FOR j% = amplitud! + 1 TO 31
         IF banner%(i%, ((j% - amplitud!) * 32!) / (32 - amplitud!)) = 0 THEN mcolor% = 48 - (32 - amplitud!) / 4 - (16 - (32 - amplitud!) / 2) * (j% - amplitud!) / (32 - amplitud!) ELSE mcolor% = 33 - (32 - amplitud!) / 4 - (16 - (32 - amplitud!) / _
2) * (j% - amplitud!) / (32 - amplitud!)
         PSET (d% + 144 + 12 - 16 + j% - 1, i%), mcolor%
      NEXT j%
      FOR j% = 32 TO 33
         PSET (d% + 144 + 12 - 16 + j% - 1, i%), 0
      NEXT j%
      FOR j% = -4 TO d%
         PSET (139 + j%, i%), 0
      NEXT j%, i%
LOOP WHILE INKEY$ = ""