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

sherb · **Posted:** Wed Mar 26, 2003 9:11 am

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.

Delta · **Posted:** Wed Mar 26, 2003 9:18 am

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 · **Posted:** 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 · **Posted:** Thu Mar 27, 2003 3:02 pm

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 · **Posted:** Thu Mar 27, 2003 4:12 pm

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

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members