SCREEN 12
CLS
DRAW "BM0,0"
RANDOMIZE TIMER
DIM R AS INTEGER
DIM C AS INTEGER
FOR R = 0 TO 59
    FOR C = 0 TO 79
        IF INT(RND + .5) = 0 THEN
            DRAW "F8BU8"
        ELSE
            DRAW "BD8E8"
        END IF
    NEXT C
    DRAW "BD8BL640"
NEXT R
DIM NEXTKEY AS STRING
DO
    NEXTKEY = INKEY$
LOOP UNTIL NEXTKEY <> ""
SCREEN 0