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