1>MODE 3: CLS #:
    2 PRINT "RGB>SAM proc by Stephen Wilson"
    3 PRINT '"The RGB values written to the CLUT port are not 'real' RGB        
              values, as the bits are all mixed up...this proc converts properRG
      B components to SAM palette values."
    4 PRINT "May be useful in constructing palette spreads etc."
    5 PAUSE : CLS 
   10 LET YOS=-18
   20 REM Sam Pal to RGB
   30 LET sampal=0,G1=64,R1=32,B1=16,H=8,G0=4,R0=2,B0=1
   40 INPUT "Please Enter R Component (A number from 0 to 7): ";R
   50 INPUT "Please Enter G Component (A number from 0 to 7): ";G
   60 INPUT "Please Enter B Component (A number from 0 to 7): ";B
   70 CLS : PRINT AT 0,0;"R  G  B"'R;"  ";G;"  ";B;"  "
   80 RGB2SAM R,G,B,sampal
   85 PRINT '"Palette number "; sampal;"   "
  100 PALETTE 0,0 LINE 151: PALETTE 0,sampal LINE 140: PALETTE 0,0 LINE 130
  105 GO TO 10
  110 DEF PROC RGB2SAM RedC,GreenC,BlueC, REF sampal
  120 LET HB=0
  130 LET Greenbits=(G1*(4=(GreenC BAND 4)))+(G0*(2=(GreenC BAND 2))),HB=HB+(1 B
      AND GreenC)
  140 LET Redbits=(R1*(4=(RedC BAND 4)))+(R0*(2=(RedC BAND 2))),HB=HB+(1 BAND Re
      dC)
  150 LET Bluebits=(B1*(4=(BlueC BAND 4)))+(B0*(2=(BlueC BAND 2))),HB=HB+(1 BAND
       BlueC)
  160 LET sampal=Greenbits+redbits+bluebits
  170 IF HB THEN LET sampal=sampal+H
  180 REM PRINT BIN$ Bluebits;" ";BIN$ redbits;" ";BIN$ greenbits
  190 END PROC