Matrix Effect by TylerDarko

[The Librarian]

Matrix Effect

Author: TylerDarko
Source: [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there] Forum
URL: /forum/index.php?topic=13656.msg122971#msg122971]http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?topic=13656.msg122971#msg122971
Version: 2017
Tags: [ascii], [matrix]

Description:
I see /forum/index.php?topic=13656.msg118470]your 388-lines matrix effect and raise you mine, with only 25:

Source Code:

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(_DESKTOPWIDTH, _DESKTOPHEIGHT, 32)
2. _FULLSCREEN
3. DIM m(1 TO INT(_WIDTH / _FONTWIDTH))
4.  
5. FOR i = 1 TO UBOUND(m)
6.     m(i) = -INT(RND * _HEIGHT)
7. NEXT
8.  
9. COLOR _RGB32(0, 255, 0)
10.  
11. DO
12.     _LIMIT 15
13.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGBA32(0, 0, 0, 20), BF
14.  
15.     FOR i = 1 TO UBOUND(m)
16.         m(i) = m(i) + _FONTHEIGHT
17.         IF m(i) > 0 THEN
18.             IF m(i) > _HEIGHT THEN m(i) = -INT(RND * _HEIGHT)
19.             _PRINTSTRING (i * _FONTWIDTH - _FONTWIDTH, m(i)), CHR$(_CEIL(RND * 254))
20.         END IF
21.     NEXT
22.  
23.     _DISPLAY
24. LOOP UNTIL _KEYHIT = 27
25. SYSTEM