Rem  ********************************* 
Rem  *        Farbpalette 1.00       * 
Rem  *  © 27.2.1993 by Henry König   * 
Rem  * Bornheide 71, 2000 Hamburg 53 * 
Rem  ********************************* 
Screen Open 1,320,200,32,Lowres
Wind Open 2,0,0,310/8,(180/8)-16
Rem Title Top "bitte Taste druecken" 
Rem der vorige Befehl benötigt vorher den Befehl Border  
Rem Border wurde nicht eingefügt, weil sonst der Bar-Befehl geändert werden
Rem müßte  
Gosub FARBENSETZEN
Cls : Rem Farbe des letzen Paper-Befehls anfügen 
Print "FARBPALETTE 32 FARBEN"
For I=0 To 31
   A=30+(I*5)
   Ink I
   Bar 0,A To 310,A+4
Next I
Gosub TASTE
AUS:
Screen Close 1
End 
TASTE:
TASTE$=""
While TASTE$=""
   TASTE$=Inkey$
Wend 
Return 
FARBENSETZEN:
Colour 0,$FFF : Rem   weiss
Colour 1,$C00 : Rem   braunrot 
Colour 2,$F00 : Rem   dunkelrot
Colour 3,$E23 : Rem   feuerwehrrot 
Colour 4,$F60 : Rem   hellrot
Colour 5,$F90 : Rem   rotbraun 
Colour 6,$FC0 : Rem   sand 
Colour 7,$FF0 : Rem   gelb 
Colour 8,$9F1 : Rem   giftgruen
Colour 9,$8B5 : Rem   gruen
Colour 10,$690 : Rem   dunkelgruen
Colour 11,$360 : Rem   olivgruen
Colour 12,$60 : Rem   schwarzgruen 
Colour 13,$9A : Rem   graugruen
Colour 14,$C9 : Rem   mittelgruen
Colour 15,$F9 : Rem   hellgruen
Colour 16,$3FD : Rem   hellblau 
Colour 17,$3BE : Rem   blau 
Colour 18,$262 : Rem   dunkelblau 1 
Colour 19,$60F : Rem   dunkelblau 2 
Colour 20,$9 : Rem   schwarzblau
Colour 21,$51F : Rem   nachtblau
Colour 22,$93F : Rem   blaulila 
Colour 23,$F0F : Rem   lila 
Colour 24,$E7D : Rem   dunkellila 
Colour 25,$FBA : Rem   braunlila
Colour 26,$C86 : Rem   braun
Colour 27,$964 : Rem   dunkelbraun
Colour 28,$630 : Rem   braungrau
Colour 29,$666 : Rem   dunkelgrau 
Colour 30,$999 : Rem   mittelgrau 
Colour 31,$0 : Rem   schwarz
Return