Code-Beispiel
8bit Farben
Lizenz: | Erster Autor: | Letzte Bearbeitung: |
k. A. | Westbeam | 11.04.2010 |
Das ist ein Beispiel, welches alle 256 Farben der 8bit-Palette anzeigt
Vielleicht ganz nützlich, wenn man eine DOS-GUI schreiben will ;)
screen 18,8
dim as integer farbe
dim as short x
dim as string taste
do
taste=inkey
line (x,0)-(x+2.5,480),farbe,BF
x=x+2.5
farbe=farbe+1
loop until taste=chr(27)
end
Zusätzliche Informationen und Funktionen | |||||||
---|---|---|---|---|---|---|---|
|