DEF SEG = &HB800      'CGA display memory segment
     SCREEN 1
     X = TIMER
     WHILE X + .5 > TIMER  'allow screen time to settle
     WEND
     FOR X = 0 TO 15999    'turn on all pixels in succession
         POKE X, 255
     NEXT