10 CLS
20 REM COLOR 4=DUNKELROT
30 REM COLOR 12=HELLROT
40 S=S+1
50 IF S=1 THEN COLOR 12:PRINT"*"
60 IF S=2 THEN COLOR 4:PRINT"*";:COLOR 12:PRINT"*"
70 IF S=3 THEN COLOR 4:PRINT" *";:COLOR 12:PRINT"*"
80 IF S=4 THEN COLOR 4:PRINT"  *";:COLOR 12:PRINT"*"
90 IF S=5 THEN COLOR 4:PRINT"   *";:COLOR 12:PRINT"*"
100 IF S=6 THEN COLOR 4:PRINT"    *";:COLOR 12:PRINT"*"
110 IF S=7 THEN COLOR 4:PRINT"     *";:COLOR 12:PRINT"*"
120 IF S=8 THEN COLOR 4:PRINT"      *";:COLOR 12:PRINT"*"
130 IF S=9 THEN COLOR 12:PRINT "        *"
140 IF S=10 THEN COLOR 12:PRINT"       *";:COLOR 4:PRINT"* "
150 IF S=11 THEN COLOR 12:PRINT"      *";:COLOR 4:PRINT"* "
160 IF S=12 THEN COLOR 12:PRINT"     *";:COLOR 4:PRINT"* "
170 IF S=13 THEN COLOR 12:PRINT"    *";:COLOR 4:PRINT"* "
180 IF S=14 THEN COLOR 12:PRINT"   *";:COLOR 4:PRINT"* "
190 IF S=15 THEN COLOR 12:PRINT"  *";:COLOR 4:PRINT"* "
200 IF S=16 THEN COLOR 12:PRINT" *";:COLOR 4:PRINT"* "
210 IF S=17 THEN COLOR 12:PRINT"*";:COLOR 4:PRINT"* "
220 IF S=18 THEN S=0
999 FOR Z=0 TO 2000:NEXT
1000 LOCATE 1,1:GOTO 40