mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-19 16:53:26 +01:00
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
|
|||
|
|
|