Keskustelu: Koodit: QB: TV-häiriö

SCREEN 7
CLS
DO
FOR pysty% = 75 TO 125 'Pisteen sijainti pystysuunnassa
   FOR vaaka% = 135 TO 185 'ja vaakasuunnassa
      SELECT CASE INT(RND * 3) 'Arvotaan vari
         CASE 1
            vari% = 0 'Musta
         CASE 2
            vari% = 7 'Valkoinen
         CASE ELSE
            vari% = 8 'Harmaa
      END SELECT
      PSET (vaaka%, pysty%), vari% 'Piirretaan piste
   NEXT vaaka%
NEXT pysty%
FOR odota = 0 TO 40000: NEXT odota 'Hidastetaan sopivaksi
LOOP WHILE INKEY$ = "" 'Press any key to continue
END