"graphic" text effect

[red_Marvin]

Man, am I suffering from coding apathy I haven't done anything
useful in loo[...]oong time (if ever :wink: )








...Right, the "graphic" text effect:
[syntax="qbasic"]DEFINT A-Z
DIM SHARED txt(1 TO 30) AS STRING * 80
DIM SHARED clr(1 TO 30)
DIM SHARED clrdir(1 TO 30)
DIM SHARED special(1 TO 30)
DIM SHARED speciallen(1 TO 30)
DIM SHARED specialclr(1 TO 30)
RANDOMIZE TIMER
SCREEN 12
CLS
FOR n = 2 TO 16
PALETTE n - 1, ((n * 4) - 1) * 65536 + (n - 1) * 256 + (n - 1)
NEXT
FOR n = 1 TO 30
clrdir(n) = 1
special(n) = INT(RND * 79 + 1)
speciallen(n) = INT(RND * 9 + 1)
specialclr(n) = INT(RND * 5) + 10
NEXT
DO
FOR d = 0 TO 999
i$ = INKEY$
IF i$ <> "" THEN
CLS
PRINT ":: red_Marvin"
END
END IF
NEXT
IF INT(RND + .3) OR r = 0 THEN
r = INT(RND * 29) + 1
IF INT(RND + .5) THEN
clr® = clr® + clrdir® AND 15
IF clr® = 10 OR clr® = 0 THEN clrdir® = -clrdir®
END IF
END IF
IF INT(RND + .9) THEN s$ = CHR$(INT(RND * 223 + 32)) ELSE s$ = " "
IF RIGHT$(txt®, 1) = " " AND INT(RND + .5) THEN s$ = " "
txt® = RIGHT$(txt®, 79) + s$
IF INT(RND + .01) OR special® = 1 THEN special® = INT(RND * 79 + 1): speciallen® = INT(RND * 10 + 1): specialclr® = INT(RND * 5) + 10
IF INT(RND + .2) AND speciallen® < 10 THEN speciallen® = speciallen® + 1
IF INT(RND + .2) AND speciallen® > 0 THEN speciallen® = speciallen® - 1
IF special® > 1 THEN special® = special® - 1
LOCATE r, 1
COLOR clr®
PRINT txt®;
LOCATE r, special®
COLOR specialclr®
PRINT MID$(txt®, special®, speciallen®);
LOOP[/syntax]

[Adigun A. Polack]

To red_Marvin:

I am so glad that you have just returned to coding in QB because your “graphical” text effect is awesome work that you did, as it best represents The Matrix in blue horizontally ( :lol: ), you know that? =b !

Keep up the impressive job you are doing, my man red_Marvin, and be seeing you once again!! :king:



WITH MY BEST REGARDS TO YOU TODAY,


Adigun Azikiwe Polack
One of the Founders of “Aura Flow”
Continuing Developer of “Frantic Journey”
Current Developer of “Star Angelic Slugger”
Webmaster of the “AAP Official Projects Squad”