home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 10 / Amoszine 10 (Disk 3 of 3).adf / Amos_Procs.lha / Xcolours.proc / Xcolours.amosSourceCode
Encoding:
AMOS Source Code  |  1991-12-03  |  773 b   |  31 lines
  1. Procedure XCOLOR
  2.    ' By John Smit 
  3.    ' Used to set the first 9 Colour Registers with usable Colours   
  4.    ' Colour 16-19 sets the Mouse pointer Colours
  5.    '
  6.    Colour 0,$0 : Rem black
  7.    Colour 1,$FFF : Rem WHITE  
  8.    Colour 2,$F00 : Rem RED  
  9.    Colour 3,$FF0 : Rem YELLOW 
  10.    Colour 4,$44F : Rem BLUE 
  11.    Colour 5,$E0 : Rem green  
  12.    Colour 6,$F5F : Rem purple 
  13.    Colour 7,$999 : Rem mid grey 
  14.    Colour 8,$A0F : Rem dark purple
  15.    Colour 9,$777 : Rem dark grey
  16.    Colour 10,$0 : Rem  
  17.    Colour 11,$0 : Rem    
  18.    Colour 12,$0 : Rem  
  19.    Colour 13,$0 : Rem  
  20.    Colour 14,$0 : Rem  
  21.    Colour 15,$0 : Rem  
  22.    Colour 16,$0 : Rem pointer colours
  23.    Colour 17,$F00
  24.    Colour 18,$CCC
  25.    Colour 19,$F0
  26. End Proc
  27. '
  28. ' example
  29. XCOLOR
  30. Cls 0
  31. Print Pen$(2)+"Note mouse colours"