Computer Science Canada

matrix program(im not trying to take credit for others work)

Author:  sherb [ Wed Mar 26, 2003 9:11 am ]
Post subject:  matrix program(im not trying to take credit for others work)

im not trying to take credit for this work. in fact im just curious on how it is done. here ill post what i have so far but i would like to add charactors as well. perhaps have the random characters taken from a file.

code:
setscreen ("noecho")
setscreen ("graphics:220;400")
colourback (7)
cls
colour (green)
setscreen ("no cursor")
var ch : string (1)
loop
    var x : int
    randint (x, 1, 25)
    locate (x, 1)
    put x
    var y : int
    randint (y, 1, 25)
    locate (y, 2)
    put y
    var z : int
    randint (z, 1, 25)
    locate (z, 3)
    put z
    var a : int
    randint (a, 1, 25)
    locate (a, 4)
    put a
    var b : int
    randint (b, 1, 25)
    locate (b, 5)
    put b
    var c : int
    randint (c, 1, 25)
    locate (c, 6)
    put c
    var d : int
    randint (d, 1, 25)
    locate (d, 7)
    put d
    var e : int
    randint (e, 1, 25)
    locate (e, 8)
    put e
    var f : int
    randint (f, 1, 25)
    locate (f, 9)
    put f
    var g : int
    randint (g, 1, 25)
    locate (g, 10)
    put g
    var h : int
    randint (h, 1, 25)
    locate (h, 11)
    put h
    var i : int
    randint (i, 1, 25)
    locate (i, 12)
    put i
    var j : int
    randint (j, 1, 25)
    locate (j, 13)
    put j
    var k : int
    randint (k, 1, 25)
    locate (k, 14)
    put k
    var l : int
    randint (l, 1, 25)
    locate (l, 15)
    put l
    var m : int
    randint (m, 1, 25)
    locate (m, 16)
    put m
    var n : int
    randint (n, 1, 25)
    locate (n, 17)
    put n
    var o : int
    randint (o, 1, 25)
    locate (o, 18)
    put o
    var p : int
    randint (p, 1, 25)
    locate (p, 19)
    put p
    var q : int
    randint (q, 1, 25)
    locate (q, 20)
    put q
    var r : int
    randint (r, 1, 25)
    locate (r, 21)
    put r
    var s : int
    randint (s, 1, 25)
    locate (s, 22)
    put s
    var t : int
    randint (t, 1, 25)
    locate (t, 23)
    put t
    var u : int
    randint (u, 1, 25)
    locate (u, 24)
    put u
    var v : int
    randint (v, 1, 25)
    locate (v, 25)
    put v
    var w : int
    randint (w, 1, 25)
    locate (w, 26)
    put w
    var x1 : int
    randint (x1, 1, 25)
    locate (x1, 1)
    put x1
    var y1 : int
    randint (y1, 1, 25)
    locate (y1, 2)
    put y1
    var z1 : int
    randint (z1, 1, 25)
    locate (z1, 3)
    put z1
    var a1 : int
    randint (a1, 1, 25)
    locate (a1, 4)
    put a1
    var b1 : int
    randint (b1, 1, 25)
    locate (b1, 5)
    put b1
    var c1 : int
    randint (c1, 1, 25)
    locate (c1, 6)
    put c1
    var d1 : int
    randint (d1, 1, 25)
    locate (d1, 7)
    put d1
    var e1 : int
    randint (e1, 1, 25)
    locate (e1, 8)
    put e1
    var f1 : int
    randint (f1, 1, 25)
    locate (f1, 9)
    put f1
    var g1 : int
    randint (g1, 1, 25)
    locate (g1, 10)
    put g1
    var h1 : int
    randint (h1, 1, 25)
    locate (h1, 11)
    put h1
    var i1 : int
    randint (i1, 1, 25)
    locate (i1, 12)
    put i1
    var j1 : int
    randint (j1, 1, 25)
    locate (j1, 13)
    put j1
    var k1 : int
    randint (k1, 1, 25)
    locate (k1, 14)
    put k1
    var l1 : int
    randint (l1, 1, 25)
    locate (l1, 15)
    put l1
    var m1 : int
    randint (m1, 1, 25)
    locate (m1, 16)
    put m1
    var n1 : int
    randint (n1, 1, 25)
    locate (n1, 17)
    put n1
    var o1 : int
    randint (o1, 1, 25)
    locate (o1, 18)
    put o1
    var p1 : int
    randint (p1, 1, 25)
    locate (p1, 19)
    put p1
    var q1 : int
    randint (q1, 1, 25)
    locate (q1, 20)
    put q1
    var r1 : int
    randint (r1, 1, 25)
    locate (r1, 21)
    put r1
    var s1 : int
    randint (s1, 1, 25)
    locate (s1, 22)
    put s1
    var t1 : int
    randint (t1, 1, 25)
    locate (t1, 23)
    put t1
    var u1 : int
    randint (u1, 1, 25)
    locate (u1, 24)
    put u1
    var v1 : int
    randint (v1, 1, 25)
    locate (v1, 25)
    put v1
    var w1 : int
    randint (w1, 1, 25)
    locate (w1, 26)
    put w1
    delay (32)
    exit when hasch
end loop


well does anyone think they can help me? sorry if befor i made it look like i was going to steal your code and use it for my marks in class.

Author:  Delta [ Wed Mar 26, 2003 9:18 am ]
Post subject:  Matrix Code Reply

I didn't think that you'd steel it I figured you may take it and edit your code based on some of what I have. Which brings me to my next point I forgot my matrix at home but I might have a different matrix code deal at school but not the same one.

Author:  sherb [ Thu Mar 27, 2003 1:00 am ]
Post subject: 

if you find a copy of your program do you think that it would be possible to up the code to see what kind of key words and such your useing. as i am very new to this im interested in how somone with experience would go about writing this style of program.

Author:  jamez [ Thu Mar 27, 2003 3:02 pm ]
Post subject:  matrix c0de

MOD Edit: the link didnt work, so I've removed it... Catalyst posted his source in the submission section, so check it out there - Tony

Author:  Catalyst [ Thu Mar 27, 2003 4:12 pm ]
Post subject: 

one that i made is there, i put in submissions so its easier to see


: