-----------------------------------

sherb

Wed Mar 26, 2003 9:11 am


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.

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.


-----------------------------------

Delta

Wed Mar 26, 2003 9:18 am


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.


-----------------------------------

sherb

Thu Mar 27, 2003 1:00 am



-----------------------------------

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.


-----------------------------------

jamez

Thu Mar 27, 2003 3:02 pm


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


-----------------------------------

Catalyst

Thu Mar 27, 2003 4:12 pm



-----------------------------------

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