CodeBase - Matrix Personal

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

0

0

Information

Uploaded: 22nd Sep 2004 19:57

Modified: 1st Jan 1970 01:00

Author: ZEDBEL

Summary

I Just want to thank CHRISTIAN ANG because he help me to make an app i was searching to make

Full Description

NOTHING.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

REM START OF MY MATRIX SCREEN

x=rnd(610)

y=rnd(610)

a=rnd(620)

b=rnd(620)

c=rnd(620)

d=rnd(620)

e=rnd(630)

g=rnd(630)

h=rnd(630)

i=rnd(640)

j=rnd(600)

k=rnd(600)

l=rnd(600)

x1=rnd(610)

y1=rnd(610)

a1=rnd(620)

b1=rnd(620)

c1=rnd(620)

d1=rnd(620)

e1=rnd(630)

f1=rnd(630)

g1=rnd(640)

h1=rnd(640)

i1=rnd(600)

j1=rnd(600)

k1=rnd(600)

l1=rnd(600)

x2=rnd(610)

y2=rnd(610)

a2=rnd(620)

b2=rnd(620)

c2=rnd(620)

d2=rnd(620)

e2=rnd(630)

f2=rnd(630)

g2=rnd(640)

h2=rnd(640)

i2=rnd(600)

j2=rnd(600)

k2=rnd(600)

l2=rnd(600)

x=rnd(610)

y=rnd(610)

a=rnd(620)

b=rnd(620)

c=rnd(620)

d=rnd(620)

e=rnd(630)

g=rnd(630)

h=rnd(630)

i=rnd(640)

j=rnd(600)

k=rnd(600)

l=rnd(600)

x1=rnd(610)

y1=rnd(610)

a1=rnd(620)

b1=rnd(620)

c1=rnd(620)

d1=rnd(620)

e1=rnd(630)

f1=rnd(630)

g1=rnd(640)

h1=rnd(640)

i1=rnd(600)

j1=rnd(600)

k1=rnd(600)

l1=rnd(600)

x2=rnd(610)

y2=rnd(610)

a2=rnd(620)

b2=rnd(620)

c2=rnd(620)

d2=rnd(620)

e2=rnd(630)

f2=rnd(630)

g2=rnd(640)

h2=rnd(640)

i2=rnd(600)

j2=rnd(600)

k2=rnd(600)

l2=rnd(600)

ink 255,200

do

cls

inc y

inc a

inc d

inc f

inc g

inc i

inc l

inc y1

inc a1

inc d1

inc f1

inc g1

inc i1

inc l1

inc y2

inc a2

inc d2

inc f2

inc g2

inc i2

inc l2

inc y

inc a

inc d

inc f

inc g

inc i

inc l

inc y1

inc a1

inc d1

inc f1

inc g1

inc i1

inc l1

inc y2

inc a2

inc d2

inc f2

inc g2

inc i2

inc l2

text x,y,"$"

text a,b,"%"

text c,d,"*"

text e,f,"0"

text g,h,"&"

text i,j,"ZEDBELWORLD"

text k,l,"$"

text x1,y1,"$"

text a1,b1,"%"

text c1,d1,"*"

text e1,f1,"1"

text g1,h1,"&"

text i1,j1,"ZEDBELWORLD"

text k1,l1,"$"

text x2,y2,"$"

text a2,b2,"%"

text c2,d2,"*"

text e2,f2,"0"

text g2,h2,"&"

text i2,j2,"ZEDBELWORLD"

text k2,l2,"$"

text x,y,"$"

text a,b,"%"

text c,d,"*"

text e,f,"1"

text g,h,"&"

text i,j,"ZEDBELWORLD"

text k,l,"$"

text x1,y1,"$"

text a1,b1,"%"

text c1,d1,"*"

text e1,f1,"0"

text g1,h1,"&"

text i1,j1,"ZEDBELWORLD"

text k1,l1,"$"

text x2,y2,"$"

text a2,b2,"%"

text c2,d2,"*"

text e2,f2,"1"

text g2,h2,"&"

text i2,j2,"ZEDBELWORLD"

text k2,l2,"$"

if y=500 then y=10

if a=500 then a=10

if d=500 then d=10

if f=500 then f=1

if g=500 then g=10

if i=500 then i=10

if l=500 then l=10

if y1=500 then y1=10

if a1=500 then a1=10

if d1=500 then d1=10

if f1=500 then f1=10

if g1=500 then g1=10

if i1=500 then i1=10

if l1=500 then l1=10

if y2=500 then y2=10

if a2=500 then a2=10

if d2=500 then d2=10

if f2=500 then f2=10

if g2=500 then g2=10

if i2=500 then i2=10

if l2=500 then l2=10

if y=500 then y=10

if a=500 then a=10

if d=500 then d=10

if f=500 then f=1

if g=500 then g=10

if i=500 then i=10

if l=500 then l=10

if y1=500 then y1=10

if a1=500 then a1=10

if d1=500 then d1=10

if f1=500 then f1=10

if g1=500 then g1=10

if i1=500 then i1=10

if l1=500 then l1=10

if y2=500 then y2=10

if a2=500 then a2=10

if d2=500 then d2=10

if f2=500 then f2=10

if g2=500 then g2=10

if i2=500 then i2=10

if l2=500 then l2=10

loop

enable escapekey

Download

Please login to download

Comments

No comments yet.