REM Kleine Animation mit Kreisen und Rechtecken, Bildschirmschoner
SCREEN 12                                 'Grafikmodus 640x480, 16 Farben
DO
  COLOR 3
  LINE (0, 0)-(639, 479), 3, BF           'Hintergrund
  COLOR 10
  s = 1: w = 630: x = 10
  r = 550: t = 400: u = 600: v = 450
  FOR i = 1 TO 180
    CIRCLE (w, x), s                      'Kreis x, y, radius
    LINE (r, t)-(u, v), 4, B              'Rechteck x1, y1, x2, y2
    FOR j = 1 TO 100: a = a + 1: NEXT j   'Pausenschleife
    r = r - 3: t = t - 2                  'Neue Punkte berechnen
    u = u - 3: v = v - 2
    s = s + 1
    w = w - 2: x = x + 2
  NEXT i
  FOR i = 1 TO 10000: a = a + 1: NEXT i   'Pausenschleife
  CLS
LOOP UNTIL INKEY$ > CHR$(0)               'Beenden bei Tastendruck
SCREEN 0                                  'In Textmodus
END