25 lines
1.1 KiB
QBasic
25 lines
1.1 KiB
QBasic
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
|
||
|