TIP: Click on subject to list as thread! ANSI
echo: quik_bas
to: All
from: Brian Iglesias
date: 2003-08-08 01:19:00
subject: the matrix

i am trying to make a matrix screen program but i am unable to make the
characters "fall" from the top of the screen.
does anyone have an idea on how to do that?

the program below is not optimized.

thanks.


'---[ matrix.bas ]---

k% = 0
m% = 0
n% = 0
x% = 0
y% = 0
n = n + 14
CLS 0
COLOR 2
RANDOMIZE TIMER
DO WHILE m < 100
DO WHILE n < 256
x% = INT(RND * 25) + 1
y% = INT(RND * 79) + 1
LOCATE x%, y%
PRINT CHR$(n);
PRINT " ";
n = n + 1
LOOP
m = m + 1
n = 14
LOOP
LOCATE 13, 18
COLOR 10
PRINT "   T h e   M a t r i x   H a s   Y o u . . .   "
COLOR 0
DO WHILE k < 70000
k = k + 1
LOOP
SYSTEM

'---[ end ]---





::: bundat at graffiti dot net :::

... Push red button to test, release to detonate.
--- MultiMail/Win32 v0.45
* Origin: The File Bank BBS! Makati. Philippines +63-2-896-3116 (6:751/321)
SEEN-BY: 633/267 270
@PATH: 751/321 261/38 123/500 106/2000 633/267

SOURCE: echomail via fidonet.ozzmosis.com

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.