16 lines
212 B
QBasic
16 lines
212 B
QBasic
10 CLS
|
|
20 FOR i=0 TO 255 STEP 5
|
|
25 COL 0,i-5,1
|
|
30 PRINT "B";
|
|
40 NEXT i
|
|
50 FOR i=0 TO 255 STEP 5
|
|
60 COL i,0,1
|
|
70 PRINT "C";
|
|
80 NEXT i
|
|
90 FOR a=0 TO 255 STEP 5
|
|
100 b=255-a
|
|
110 COL b,a,1
|
|
115 PRINT "D";
|
|
130 NEXT a
|
|
|