Koodit: QB: Demo

' Demo

  TYPE starstuff
    x AS INTEGER
    y AS INTEGER
    colour AS INTEGER
  END TYPE

  DIM star(63) AS starstuff

  FOR what = 0 TO 63
    star(what).x = INT(RND * 320)
    star(what).y = INT(RND * 200)
    star(what).colour = INT(RND * 8) + 24
  NEXT

  CLS
  SCREEN 13

  DO
    colour = colour + .1

    IF colour > 24 THEN
      colour = 0
    END IF

    LOCATE 8, 10
    COLOR INT(colour) + 80
    PRINT "Have fun, Q-Basic user!"

    FOR what = 0 TO 63
      PSET (star(what).x, star(what).y), 0

      IF star(what).x < 0 THEN
        star(what).x = 320
        star(what).y = INT(RND * 200)
        star(what).colour = INT(RND * 8) + 24
      END IF

      star(what).x = star(what).x - 1

      PSET (star(what).x, star(what).y), star(what).colour
    NEXT

    FOR what = 0 TO 7
      LINE (0, what * what + 150)-(319, what * what + 150), what + 32
    NEXT

    slower = 1024

    DO
      slower = slower - 1
    LOOP UNTIL (slower = 0)
  LOOP