'BSP-Proggy von Ch. Frey '96
DEFINT A-Z
SCREEN 13
CLS
DO
 X = INT(RND * 319)
 Y = INT(RND * 199)
 C = INT(RND * 255)
 PSET (X, Y), C
LOOP WHILE INKEY$ = ""
SCREEN 12
CLS
DO
 X = INT(RND * 639)
 Y = INT(RND * 479)
 C = INT(RND * 15)
 PSET (X, Y), C
LOOP WHILE INKEY$ = ""
END