@tukinem, post #90
@tukinem, post #1
@Norbert, post #97
BitMapOutput 0 NPrint"Please enter your initials:" BlitzKeys On BitMapInput VWait 50 name$=edit$(3)
@tukinem, post #98
While RawStatus($44)=0 name$=edit$(3) Wend
@tukinem, post #99
WBStartup Dim kolor.b(32) For a=0To15 kolor(a)=a kolor(a+16)=15-a Next BitMap 0,320,256,4 InitPalette 0,32 PalRGB 0,0,$0,$0,$0; kolor 0 glownej palety PalRGB 0,1,$f,$f,$f; kolor 1 glownej palety InitPalette 1,256; niekoniecznie musi byc BLITZ InitCopList 0,34,256,$4,8,32,-1; kazda ujemna wartosc CustomCop pozwala uruchomic rainbowa CreateDisplay 0 DisplayPalette 0,0 DisplayBitMap 0,0 Use BitMap 0 For a=0To127 PalRGB 0,a,kolor(a/4),kolor(a/4),kolor(a/4); kolory bieli w rainbow PalRGB 0,a+128,kolor(a/4),0,0; kolory czerwieni w rainbow Next DisplayRainbow 0,0,0 VWait 50 Repeat Until RawStatus($45) End
@Hexmage960, post #101
@tukinem, post #102
@mastaszek, post #103
@mastaszek, post #105
@tukinem, post #104
Repeat Until RawStatus($45)
The #agacolors flag must ALWAYS be set when more than 32 colours are in use or
when 24 bit color definition is required.
@mastaszek, post #105
@mastaszek, post #105
@tukinem, post #109
@tukinem, post #111
@pisklak, post #113
@c64portal, post #115
@tukinem, post #116
@c64portal, post #115