' PIXELS.BAS -- by Gary N. Wilkerson Jr.
'
' Uses BASIC's SCREEN and PSET statements to fill
' your screen with random pixels of random colors.
'

WHILE INKEY$ <> "": WEND     ' Clear keyboard

SCREEN 13                    ' Set VGA mode 13h

WHILE INKEY$ = ""
     ' Set random dots with random colors
     PSET(RND * 320, RND * 200), RND * 256
WEND

WHILE INKEY$ <> "": WEND     ' Clear keyboard

END

    Source: geocities.com/garyneal_71/GameLib/download

               ( geocities.com/garyneal_71/GameLib)                   ( geocities.com/garyneal_71)