"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]