10 REM BEFEHL PRINT "[147]" LOESCHT DEN BILDSCHIRM
11 REM DIE POKES LEGEN DIE FARBE FUER BILDSCHIRM FEST
12 REM CHR$(153) BESTIMMT FARBE DES BALLES
15 POKE53280,7:POKE53281,9
20 PRINT"[147]"
50 REM BEWEGT DEN BALL NACH RECHTS ===>
60 FOR I = 1 TO 39
70 PRINTCHR$(153)" [209][157]";:FORZ=0TO25:NEXTZ
80 NEXT
90 REM BEWEGT DEN BALL NACH LINKS <===
100 FOR I = 1 TO 39
110 PRINT" [157][157][209][157]";:FORZ=0TO25:NEXTZ
120 NEXT
130 REM WIEDERHOLUNG
140 GOTO 60