Keskustelu: Koodit: joku QB-efekti 2

SCREEN 13   'graffatilaa...

OUT &H3C8, 0

FOR gee = 0 TO 63
 OUT &H3C9, gee
 OUT &H3C9, gee  'palettii...
 OUT &H3C9, gee
NEXT

DEF SEG = &HA000
RANDOMIZE TIMER 'randomii...
x = 160  'lähtöarvoo...
y = 100

DO  'silmukka alkaa...
  r1 = RND * 2   'randomii...
  r2 = RND * 2
  x = x + r1 - 1
  y = y + r2 - 1
  IF x < 0 THEN x = 319 'tarkistuksia...
  IF x > 319 THEN x = 0
  IF y < 0 THEN y = 199
  IF y > 199 THEN y = 0

  FOR gee = 1 TO 10
    xx = INT(RND * 320)
    yy = INT(RND * 200)
    d = PEEK(INT(yy) * 320 + INT(xx))  'pixelin värii...
    d = d - 1
    IF d < 0 THEN d = 0
    POKE INT(yy) * 320 + INT(xx), d  'sotketaan näyttöö...
    POKE INT(yy + 1) * 320 + INT(xx), d  'sitäsamaa...
  NEXT

  c = PEEK(INT(y) * 320 + INT(x))  'tutkitaan taas sitä ihmeen piXelii...
  c = c + 2
  IF c > 63 THEN c = 63
  POKE INT(y) * 320 + INT(x), c 'sotketaan nyt sitä näyttöö...

LOOP UNTIL (INP(&H60) = 1) 'silmukka päättyy... siis jos painetaan eskii...