REM 007
       SCREEN 12 : CLS
       LINE (0, 479)-(639, 440), 15, BF
       Figur1 240, 400, 6, 2 : Figur1 420, 390, 6, 2
       Figur1 320, 440, 6, 2 : Figur1 110, 440, 6, 2
       Figur1 550, 440, 6, 2
       LOCATE 4, 28
       DO
         READ a$ : PRINT CHR$(VAL(a$));
       LOOP UNTIL a$ = ""
       DATA 70,82,79,72,69,32,87,69,73,72,78,65,67,72,84,69,78,32,49,57,57,54,""

       DIM sx(60), sy(60), ss(60)
       FOR i = 0 TO 60
         sx(i) = INT(RND * 640) : sy(i) = INT(RND * 440)
         ss(i) = POINT(sx(i), sy(i))
         PSET (sx(i), sy(i)), 15
       NEXT i

       i = 0 : a$ = ""
       WHILE a$ = ""
         a$ = INKEY$
         PSET (sx(i), sy(i)), ss(i)
         sy(i) = sy(i) + 3
         s = ss(i) : ss(i) = POINT(sx(i), sy(i))
         PSET (sx(i), sy(i)), 15
         IF s = 0 AND ss(i) <> 0 THEN
           PSET (sx(i), sy(i) - 3), 15
         END IF
         IF sy(i) > 440 THEN
           sx(i) = INT(RND * 640) : sy(i) = INT(RND * 440)
           ss(i) = POINT(sx(i), sy(i))
           PSET (sx(i), sy(i)), 15
         END IF
         i = i + 1 : IF i > 60 THEN i = 0
       WEND

Das Programm ist nur lauffähig, wenn auch die folgende Subroutine eingegeben wurde.

       SUB Figur1 (x, y, f1, f2)
         LINE (x - 20, y)-(x + 20, y - 80), f1, BF
         FOR i = 8 TO 0 STEP -8
           LINE (x - 100, y - 80)-(x + 60, y - 80), f2 + i
           LINE -(x + 100, y - 80), f2 + i
           LINE -(x + 45, y - 130), f2 + i
           LINE -(x + 85, y - 130), f2 + i
           LINE -(x + 30, y - 180), f2 + i
           LINE -(x + 70, y - 180), f2 + i
           LINE -(x + 15, y - 230), f2 + i
           LINE -(x + 55, y - 230), f2 + i
           LINE -(x +  0, y - 280), f2 + i
           LINE -(x - 55, y - 230), f2 + i
           LINE -(x - 15, y - 230), f2 + i
           LINE -(x - 70, y - 180), f2 + i
           LINE -(x - 30, y - 180), f2 + i
           LINE -(x - 85, y - 130), f2 + i
           LINE -(x - 45, y - 130), f2 + i
           LINE -(x - 100, y - 80), f2 + i
           PAINT (x, y - 270), f2 + i, f2 + i
         NEXT i
       END SUB