Keskustelu: Koodit: QB: MustaValkonen Matrix Demo

SCREEN 13
RANDOMIZE TIMER
DO                            'looppi
x1 = INT(RND * 40) + 1
y1 = INT(RND * 24) + 1 'Arvotaan Korkeus ja leveys

       FOR y = y1 TO 24
        COLOR 19 + y / 2       'vaihdetaan väri
        LOCATE y, x1: PRINT CHR$(INT(RND * 139) + 33)' Kohtaan y,x1 Sat.Merkki
        NEXT y
LOOP UNTIL INKEY$ <> ""       'looppi lopetetaan jos painetaan jotain nappia