SCREEN 9,1,0,0

Input "Enter any integer: ", R
CLS
RANDOMIZE (256 * R)

X = 0
Y = 0
BG = (32 * RND)
FG = 0

While Not ((InKey$ = "E") OR (InKey$ = "e"))
   X = ((79 * RND) + 1)
   Y = ((24 * RND) + 1)
   FG = (32 * RND)
   COLOR FG, BG
   LOCATE Y,X
   C = (255 * RND)
   If C = 13 THEN
    C = 14
   ELSEIF C < 32 THEN
    C = C + 33
   END IF

   Print Chr$(C);
Wend