ARM BASIC VDU I/O
=================

TINT n,m         -> VDU 23,17,n,m,0,0,0,0,0,0


COLOUR n         -> VDU 17,n
COLOUR n TINT m  -> VDU 17,n, 23,17,n DIV 128,m,0,0,0,0,0,0
COLOUR l,p       -> VDU 19,l,p,p DIV &100,p DIV &10000,p DIV &1000000
COLOUR r,g,b     -> ColourTrans_SetTextColour,&bbggrr00,xx,xx,&00
                    Select text foreground
COLOUR l,r,g,b   -> VDU 19,l,16,r,g,b
COLOUR l,r,g,b,s -> Palette,l AND 255,16,&bbggrrss,xx,Palette_Set

COLOUR OF r,g,b  -> ColourTrans_SetTextColour,&bbggrr00,xx,xx,&00
                    Select text foreground
COLOUR ON r,g,b  -> ColourTrans_SetTextColour,&bbggrr00,xx,xx,&80
                    Select text background
COLOUR r,g,b ON R,G,B
                 -> ColourTrans_SetTextColour,&bbggrr00,xx,xx,&00
                    ColourTrans_SetTextColour,&BBGGRR00,xx,xx,&80
         Select text foreground and background
    Selects the logical colour that is currently defined closest to R,G,B
COLOUR OF r,g,b ON R,G,B
                 -> ColourTrans_SetTextColour,&bbggrr00,xx,xx,&00
                    ColourTrans_SetTextColour,&BBGGRR00,xx,xx,&80
         Select text foreground and background
    Selects the logical colour that is currently defined closest to R,G,B

COLOUR OF l      -> SYS OS_SetColour,&40,l
                    Select logical colour l as text foreground
COLOUR ON l      -> SYS OS_SetColour,&50,l
                    Select logical colour l as text background
COLOUR OF l ON m -> SYS OS_SetColour,&40,l SYS OS_SetColour,&50,m
                    Select text foreground and background


GCOL n           -> VDU 18,0,n
GCOL k,n         -> VDU 18,k,n
GCOL n TINT m    -> VDU 18,0,n, 23,17,(n DIV 128)+2,m,0,0,0,0,0,0
GCOL k,n TINT m  -> VDU 18,k,n, 23,17,(n DIV 128)+3,m,0,0,0,0,0,0

GCOL r,g,b       -> ColourTrans_SetGCOL,&bbggrr00,xx,xx,&00,0
GCOL k,r,g,b     -> ColourTrans_SetGCOL,&bbggrr00,xx,xx,&00,k AND 255
GCOL OF r,g,b    -> ColourTrans_SetGCOL,&bbggrr00,xx,xx,&00,0
GCOL OF k,r,g,b  -> ColourTrans_SetGCOL,&bbggrr00,xx,xx,&00,k AND 255
          Select graphics foreground
GCOL ON r,g,b    -> ColourTrans_SetGCOL,&bbggrr00,xx,xx,&80,0
GCOL ON k,r,g,b  -> ColourTrans_SetGCOL,&bbggrr00,xx,xx,&80,k AND 255
          Select graphics background
GCOL OF r,g,b ON R,G,B
                 -> ColourTrans_SetGCOL,&bbggrr00,xx,xx,&00,0
                    ColourTrans_SetGCOL,&bbggrr00,xx,xx,&80,0
GCOL OF k,r,g,b ON R,G,B
                 -> ColourTrans_SetGCOL,&bbggrr00,xx,xx,&00,k AND 255
                    ColourTrans_SetGCOL,&bbggrr00,xx,xx,&80,k AND 255
         Select graphics foreground and background
    Select the logical colour that is currently defined closest to R,G,B

GCOL OF l?
GCOL ON l?
GCOL OF l ON l?

n=COLOUR(????)
n=GCOL(????)


[code]
colour number   cccccccccccccc
COLOUR        xxcccccc          (VDU 17 or 18)
TINT                  cccccccc  (VDU 23,17)
[/code]




stack r,k,"O",0,0,0,0,0,r,k
stack b,g,r,k,"O",0,0,0,0,0,r,k

R4=k AND 15
R3=256
or
R3=k OR 256 - OR &80 if ON
R4=k AND 255
R0=&bbggrr00

GCOL ON
GCOL OF



COLOUR OF l      -> SYS OS_SetColour,&40,l select colour l as text fgnd
COLOUR ON l      -> SYS OS_SetColour,&50,l select colour 1 as text bgnd
COLOUR OF l ON m -> SYS OS_SetColour,&40,l SYS OS_SetColour,&50,m
stack OF/ON,x,0
R5=0
R4=ON/OF
stack a,of/on,x,0
R1=a, R4=OF/ON


COLOUR OF r,g,b,
COLOUR ON r,g,b
stack ,n,m,l,on/of,x,on/of,x,0
R5=0
R4=ON/OF



COLOUR r,g,b     -> stack    b,g,r,OF,x,x,x,0
R14=0
R4=OF
R10=?

R0=b R1=g R2=r R4=OF  stack x,x,x,0
R1=ggrr
R0=bbggrr
R0=bbggrr00
R3=00
ColourTrans_SetTextColour,&bbggrr00,xx,xx,&00